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

diff --git a/14/9204faba8b245f70ad46a3f03567aa280f310c b/14/9204faba8b245f70ad46a3f03567aa280f310c
new file mode 100644 (file)
index 0000000..236abe2
--- /dev/null
+++ b/14/9204faba8b245f70ad46a3f03567aa280f310c
@@ -0,0 +1,100 @@
+Return-Path: <tomi.ollila@iki.fi>\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 A08656DE02BF\r
+ for <notmuch@notmuchmail.org>; Sun, 10 Apr 2016 00:24:29 -0700 (PDT)\r
+X-Virus-Scanned: Debian amavisd-new at cworth.org\r
+X-Spam-Flag: NO\r
+X-Spam-Score: 0.622\r
+X-Spam-Level: \r
+X-Spam-Status: No, score=0.622 tagged_above=-999 required=5 tests=[AWL=-0.030,\r
+  SPF_NEUTRAL=0.652] 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 kOmH4pqQfmUl for <notmuch@notmuchmail.org>;\r
+ Sun, 10 Apr 2016 00:24:21 -0700 (PDT)\r
+Received: from guru.guru-group.fi (guru.guru-group.fi [46.183.73.34])\r
+ by arlo.cworth.org (Postfix) with ESMTP id C06BD6DE00BD\r
+ for <notmuch@notmuchmail.org>; Sun, 10 Apr 2016 00:24:19 -0700 (PDT)\r
+Received: from guru.guru-group.fi (localhost [IPv6:::1])\r
+ by guru.guru-group.fi (Postfix) with ESMTP id 325F9100090;\r
+ Sun, 10 Apr 2016 10:24:21 +0300 (EEST)\r
+From: Tomi Ollila <tomi.ollila@iki.fi>\r
+To: aeuii@posteo.de, notmuch@notmuchmail.org\r
+Subject: Re: [PATCH] emacs: make use of `message-make-from'\r
+In-Reply-To: <86h9fbwzcw.fsf@posteo.de>\r
+References: <86h9fbwzcw.fsf@posteo.de>\r
+User-Agent: Notmuch/0.21+99~g7cbc880 (http://notmuchmail.org) Emacs/24.3.1\r
+ (x86_64-unknown-linux-gnu)\r
+X-Face: HhBM'cA~<r"^Xv\KRN0P{vn'Y"Kd;zg_y3S[4)KSN~s?O\"QPoL\r
+ $[Xv_BD:i/F$WiEWax}R(MPS`^UaptOGD`*/=@\1lKoVa9tnrg0TW?"r7aRtgk[F\r
+ !)g;OY^,BjTbr)Np:%c_o'jj,Z\r
+Date: Sun, 10 Apr 2016 10:24:21 +0300\r
+Message-ID: <m28u0mkjtm.fsf@guru.guru-group.fi>\r
+MIME-Version: 1.0\r
+Content-Type: text/plain\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: Sun, 10 Apr 2016 07:24:29 -0000\r
+\r
+On Sat, Apr 09 2016, aeuii@posteo.de wrote:\r
+\r
+> Please put my address in CC when replying.  Thanks!\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
+LTGM\r
+\r
+Tomi\r
+\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
+> notmuch mailing list\r
+> notmuch@notmuchmail.org\r
+> https://notmuchmail.org/mailman/listinfo/notmuch\r