[PATCH] emacs: make use of `message-make-from'

diff --git a/f9/45d68e47e3ea82c582fb640a3b70b22ce19bc0 b/f9/45d68e47e3ea82c582fb640a3b70b22ce19bc0
new file mode 100644 (file)
index 0000000..bd72fb5
--- /dev/null
+++ b/f9/45d68e47e3ea82c582fb640a3b70b22ce19bc0
@@ -0,0 +1,102 @@
+Return-Path: <aeuii@posteo.de>\r
+X-Original-To: notmuch@notmuchmail.org\r
+Delivered-To: notmuch@notmuchmail.org\r
+Received: from localhost (localhost [127.0.0.1])\r
+ by arlo.cworth.org (Postfix) with ESMTP id 24ABC6DE028C\r
+ for <notmuch@notmuchmail.org>; Fri,  8 Apr 2016 14:51:40 -0700 (PDT)\r
+X-Virus-Scanned: Debian amavisd-new at cworth.org\r
+X-Spam-Flag: NO\r
+X-Spam-Score: 0.895\r
+X-Spam-Level: \r
+X-Spam-Status: No, score=0.895 tagged_above=-999 required=5\r
+ tests=[HK_RANDOM_ENVFROM=0.626, HK_RANDOM_FROM=1,\r
+ RCVD_IN_DNSWL_LOW=-0.7, RCVD_IN_MSPIKE_H3=-0.01,\r
+ RCVD_IN_MSPIKE_WL=-0.01, SPF_PASS=-0.001, T_RP_MATCHES_RCVD=-0.01]\r
+ autolearn=disabled\r
+Received: from arlo.cworth.org ([127.0.0.1])\r
+ by localhost (arlo.cworth.org [127.0.0.1]) (amavisd-new, port 10024)\r
+ with ESMTP id 0_6jOO4U8_oP for <notmuch@notmuchmail.org>;\r
+ Fri,  8 Apr 2016 14:51:31 -0700 (PDT)\r
+X-Greylist: delayed 476 seconds by postgrey-1.35 at arlo;\r
+ Fri, 08 Apr 2016 14:51:31 PDT\r
+Received: from mout01.posteo.de (mout01.posteo.de [185.67.36.65])\r
+ by arlo.cworth.org (Postfix) with ESMTPS id 79B886DE0173\r
+ for <notmuch@notmuchmail.org>; Fri,  8 Apr 2016 14:51:31 -0700 (PDT)\r
+Received: from dovecot03.posteo.de (dovecot03.posteo.de [172.16.0.13])\r
+ by mout01.posteo.de (Postfix) with ESMTPS id CE0892097C\r
+ for <notmuch@notmuchmail.org>; Fri,  8 Apr 2016 23:43:32 +0200 (CEST)\r
+Received: from mail.posteo.de (localhost [127.0.0.1])\r
+ by dovecot03.posteo.de (Postfix) with ESMTPSA id 3qhXyX3JhSz5vN8\r
+ for <notmuch@notmuchmail.org>; Fri,  8 Apr 2016 23:43:31 +0200 (CEST)\r
+From: aeuii@posteo.de\r
+To: notmuch@notmuchmail.org\r
+Subject: [PATCH] emacs: make use of `message-make-from'\r
+Date: Fri, 08 Apr 2016 23:43:27 +0200\r
+Message-ID: <86h9fbwzcw.fsf@posteo.de>\r
+MIME-Version: 1.0\r
+Content-Type: multipart/mixed; boundary="=-=-="\r
+X-Mailman-Approved-At: Sat, 09 Apr 2016 05:12:59 -0700\r
+X-BeenThere: notmuch@notmuchmail.org\r
+X-Mailman-Version: 2.1.20\r
+Precedence: list\r
+List-Id: "Use and development of the notmuch mail system."\r
+ <notmuch.notmuchmail.org>\r
+List-Unsubscribe: <https://notmuchmail.org/mailman/options/notmuch>,\r
+ <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
+List-Archive: <http://notmuchmail.org/pipermail/notmuch/>\r
+List-Post: <mailto:notmuch@notmuchmail.org>\r
+List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
+List-Subscribe: <https://notmuchmail.org/mailman/listinfo/notmuch>,\r
+ <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
+X-List-Received-Date: Fri, 08 Apr 2016 21:51:40 -0000\r
+\r
+--=-=-=\r
+Content-Type: text/plain\r
+\r
+Please put my address in CC when replying.  Thanks!\r
+\r
+\r
+--=-=-=\r
+Content-Type: text/x-diff\r
+Content-Disposition: inline;\r
+ filename=0001-emacs-make-use-of-message-make-from.patch\r
+\r
+>From 4b9ab261a0ea8a31065e310c5150f522be86d37b Mon Sep 17 00:00:00 2001\r
+From: stefan <aeuii@posteo.de>\r
+Date: Fri, 8 Apr 2016 22:47:06 +0200\r
+Subject: [PATCH] emacs: make use of `message-make-from'\r
+\r
+Will respect `mail-from-style'.\r
+---\r
+ emacs/notmuch-mua.el | 6 +++---\r
+ 1 file changed, 3 insertions(+), 3 deletions(-)\r
+\r
+diff --git a/emacs/notmuch-mua.el b/emacs/notmuch-mua.el\r
+index cfdac0e..935cbd3 100644\r
+--- a/emacs/notmuch-mua.el\r
++++ b/emacs/notmuch-mua.el\r
+@@ -318,8 +318,8 @@ modified. This function is notmuch addaptation of\r
+       (push (cons 'User-Agent user-agent) other-headers))))\r
+ \r
+   (unless (assq 'From other-headers)\r
+-    (push (cons 'From (concat\r
+-                     (notmuch-user-name) " <" (notmuch-user-primary-email) ">")) other-headers))\r
++    (push (cons 'From (message-make-from\r
++                     (notmuch-user-name) (notmuch-user-primary-email))) other-headers))\r
+ \r
+   (notmuch-mua-pop-to-buffer (message-buffer-name "mail" to)\r
+                            (or switch-function (notmuch-mua-get-switch-function)))\r
+@@ -393,7 +393,7 @@ the From: header is already filled in by notmuch."\r
+           (ido-completing-read (concat "Sender address for " name ": ") addrs\r
+                                nil nil nil 'notmuch-mua-sender-history\r
+                                (car addrs))))\r
+-      (concat name " <" address ">"))))\r
++      (message-make-from name address))))\r
+ \r
+ (put 'notmuch-mua-new-mail 'notmuch-prefix-doc "... and prompt for sender")\r
+ (defun notmuch-mua-new-mail (&optional prompt-for-sender)\r
+-- \r
+2.7.4\r
+\r
+\r
+--=-=-=--\r