From: David Edmondson <dme@dme.org>
To: aeuii@posteo.de, notmuch@notmuchmail.org
Subject: Re: [PATCH] emacs: make use of `message-make-from'
Date: Sun, 10 Apr 2016 12:26:10 +0100 [thread overview]
Message-ID: <m2potxr9gt.fsf@dme.org> (raw)
In-Reply-To: <86h9fbwzcw.fsf@posteo.de>
On Fri, Apr 08 2016, aeuii@posteo.de wrote:
> Please put my address in CC when replying. Thanks!
Looks good.
> From 4b9ab261a0ea8a31065e310c5150f522be86d37b Mon Sep 17 00:00:00 2001
> From: stefan <aeuii@posteo.de>
> Date: Fri, 8 Apr 2016 22:47:06 +0200
> Subject: [PATCH] emacs: make use of `message-make-from'
>
> Will respect `mail-from-style'.
> ---
> emacs/notmuch-mua.el | 6 +++---
> 1 file changed, 3 insertions(+), 3 deletions(-)
>
> diff --git a/emacs/notmuch-mua.el b/emacs/notmuch-mua.el
> index cfdac0e..935cbd3 100644
> --- a/emacs/notmuch-mua.el
> +++ b/emacs/notmuch-mua.el
> @@ -318,8 +318,8 @@ modified. This function is notmuch addaptation of
> (push (cons 'User-Agent user-agent) other-headers))))
>
> (unless (assq 'From other-headers)
> - (push (cons 'From (concat
> - (notmuch-user-name) " <" (notmuch-user-primary-email) ">")) other-headers))
> + (push (cons 'From (message-make-from
> + (notmuch-user-name) (notmuch-user-primary-email))) other-headers))
>
> (notmuch-mua-pop-to-buffer (message-buffer-name "mail" to)
> (or switch-function (notmuch-mua-get-switch-function)))
> @@ -393,7 +393,7 @@ the From: header is already filled in by notmuch."
> (ido-completing-read (concat "Sender address for " name ": ") addrs
> nil nil nil 'notmuch-mua-sender-history
> (car addrs))))
> - (concat name " <" address ">"))))
> + (message-make-from name address))))
>
> (put 'notmuch-mua-new-mail 'notmuch-prefix-doc "... and prompt for sender")
> (defun notmuch-mua-new-mail (&optional prompt-for-sender)
> --
> 2.7.4
>
> _______________________________________________
> notmuch mailing list
> notmuch@notmuchmail.org
> https://notmuchmail.org/mailman/listinfo/notmuch
next prev parent reply other threads:[~2016-04-10 11:26 UTC|newest]
Thread overview: 7+ messages / expand[flat|nested] mbox.gz Atom feed top
2016-04-08 21:43 [PATCH] emacs: make use of `message-make-from' aeuii
2016-04-09 23:10 ` David Bremner
2016-04-10 7:24 ` Tomi Ollila
2016-04-10 11:26 ` David Edmondson [this message]
2016-04-10 10:05 ` Mark Walters
2016-04-10 23:57 ` David Bremner
2016-04-11 6:29 ` aeuii
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=m2potxr9gt.fsf@dme.org \
--to=dme@dme.org \
--cc=aeuii@posteo.de \
--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).