diff options
| author | aeuii@posteo.de <aeuii@posteo.de> | 2016-04-08 23:43:27 +0200 |
|---|---|---|
| committer | David Bremner <david@tethera.net> | 2016-04-10 20:53:48 -0300 |
| commit | fd6f65f241854cd55e7e4d7c9cb9a71bd9f70cb4 (patch) | |
| tree | b2f55b0a35e6a6f288fa2f08f8ef0c529f6a349e | |
| parent | f8effea9a3da8701b4edb0c64dbcb333d3ce4320 (diff) | |
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 <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'.
| -rw-r--r-- | emacs/notmuch-mua.el | 6 |
1 files 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) |