From: Tomi Ollila <tomi.ollila@iki.fi>
To: Mark Walters <markwalters1009@gmail.com>, notmuch@notmuchmail.org
Subject: Re: [PATCH] emacs: Split the function notmuch-show-clean-address
Date: Tue, 31 Jul 2012 10:47:22 +0300 [thread overview]
Message-ID: <m2mx2gl6d1.fsf@guru.guru-group.fi> (raw)
In-Reply-To: <87ehnw84e5.fsf@qmul.ac.uk>
On Sat, Jul 28 2012, Mark Walters <markwalters1009@gmail.com> wrote:
> This function is also used by pick so split it out. Since, pick and show
> want a slightly different combination of name and email make the
> separated function return them as a pair, and let show or pick extract
> the combination they want from that.
> ---
Put notmuch-clean-address before notmuch-show-clean-address so that
byte compilation don't complain about missing function.
(or move it to another file --- maybe later if it is sensible thing to do)
You could return the name-address pair as cons cell instead of list (?).
(If you continue to use list you can replace (car (cdr ...)) with (cadr ...))
Anyway, LGTM.
Tomi
>
> This change allows the removal of about 50 lines of duplicated code from
> notmuch-pick. Later, we may want to move the split out function to lib.
>
> emacs/notmuch-show.el | 19 ++++++++++++++-----
> 1 files changed, 14 insertions(+), 5 deletions(-)
>
> diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el
> index 6335d45..0d8569d 100644
> --- a/emacs/notmuch-show.el
> +++ b/emacs/notmuch-show.el
> @@ -354,6 +354,19 @@ operation on the contents of the current buffer."
> (defun notmuch-show-clean-address (address)
> "Try to clean a single email ADDRESS for display. Return
> unchanged ADDRESS if parsing fails."
> + (let* ((clean-address (notmuch-clean-address address))
> + (p-address (car clean-address))
> + (p-name (car (cdr clean-address))))
> + ;; If no name, return just the address.
> + (if (not p-name)
> + p-address
> + ;; Otherwise format the name and address together.
> + (concat p-name " <" p-address ">"))))
> +
> +(defun notmuch-clean-address (address)
> + "Try to clean a single email ADDRESS for display.
> +Return (AUTHOR_EMAIL AUTHOR_NAME). Return (ADDRESS nil) if
> +parsing fails."
> (condition-case nil
> (let (p-name p-address)
> ;; It would be convenient to use `mail-header-parse-address',
> @@ -401,11 +414,7 @@ unchanged ADDRESS if parsing fails."
> (when (string= p-name p-address)
> (setq p-name nil))
>
> - ;; If no name results, return just the address.
> - (if (not p-name)
> - p-address
> - ;; Otherwise format the name and address together.
> - (concat p-name " <" p-address ">")))
> + (list p-address p-name))
> (error address)))
>
> (defun notmuch-show-insert-headerline (headers date tags depth)
> --
> 1.7.9.1
>
> _______________________________________________
> notmuch mailing list
> notmuch@notmuchmail.org
> http://notmuchmail.org/mailman/listinfo/notmuch
next prev parent reply other threads:[~2012-07-31 7:47 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
2012-07-28 12:19 [PATCH] emacs: Split the function notmuch-show-clean-address Mark Walters
2012-07-31 7:47 ` Tomi Ollila [this message]
2012-07-31 16:25 ` Mark Walters
2012-07-31 16:29 ` [PATCH v2] " Mark Walters
2012-07-31 17:59 ` Tomi Ollila
2012-12-01 12:45 ` [PATCH] " David Bremner
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://notmuchmail.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=m2mx2gl6d1.fsf@guru.guru-group.fi \
--to=tomi.ollila@iki.fi \
--cc=markwalters1009@gmail.com \
--cc=notmuch@notmuchmail.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://yhetil.org/notmuch.git/
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).