From: Tomi Ollila <tomi.ollila@iki.fi>
Date: Sun, 10 Apr 2016 07:24:21 +0000 (+0300)
Subject: Re: [PATCH] emacs: make use of `message-make-from'
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=ab9b343049e523979bc39fd040baea33ec2d0c37;p=notmuch-archives.git

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

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