From fd6f65f241854cd55e7e4d7c9cb9a71bd9f70cb4 Mon Sep 17 00:00:00 2001 From: "aeuii@posteo.de" Date: Fri, 8 Apr 2016 23:43:27 +0200 Subject: [PATCH] emacs: make use of `message-make-from' Please put my address in CC when replying. Thanks! From 4b9ab261a0ea8a31065e310c5150f522be86d37b Mon Sep 17 00:00:00 2001 From: stefan 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 cfdac0ef..935cbd3b 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)