Re: [PATCH] emacs: wash: make word-wrap bound message width
[notmuch-archives.git] / 14 / 9204faba8b245f70ad46a3f03567aa280f310c
1 Return-Path: <tomi.ollila@iki.fi>\r
2 X-Original-To: notmuch@notmuchmail.org\r
3 Delivered-To: notmuch@notmuchmail.org\r
4 Received: from localhost (localhost [127.0.0.1])\r
5  by arlo.cworth.org (Postfix) with ESMTP id A08656DE02BF\r
6  for <notmuch@notmuchmail.org>; Sun, 10 Apr 2016 00:24:29 -0700 (PDT)\r
7 X-Virus-Scanned: Debian amavisd-new at cworth.org\r
8 X-Spam-Flag: NO\r
9 X-Spam-Score: 0.622\r
10 X-Spam-Level: \r
11 X-Spam-Status: No, score=0.622 tagged_above=-999 required=5 tests=[AWL=-0.030,\r
12   SPF_NEUTRAL=0.652] autolearn=disabled\r
13 Received: from arlo.cworth.org ([127.0.0.1])\r
14  by localhost (arlo.cworth.org [127.0.0.1]) (amavisd-new, port 10024)\r
15  with ESMTP id kOmH4pqQfmUl for <notmuch@notmuchmail.org>;\r
16  Sun, 10 Apr 2016 00:24:21 -0700 (PDT)\r
17 Received: from guru.guru-group.fi (guru.guru-group.fi [46.183.73.34])\r
18  by arlo.cworth.org (Postfix) with ESMTP id C06BD6DE00BD\r
19  for <notmuch@notmuchmail.org>; Sun, 10 Apr 2016 00:24:19 -0700 (PDT)\r
20 Received: from guru.guru-group.fi (localhost [IPv6:::1])\r
21  by guru.guru-group.fi (Postfix) with ESMTP id 325F9100090;\r
22  Sun, 10 Apr 2016 10:24:21 +0300 (EEST)\r
23 From: Tomi Ollila <tomi.ollila@iki.fi>\r
24 To: aeuii@posteo.de, notmuch@notmuchmail.org\r
25 Subject: Re: [PATCH] emacs: make use of `message-make-from'\r
26 In-Reply-To: <86h9fbwzcw.fsf@posteo.de>\r
27 References: <86h9fbwzcw.fsf@posteo.de>\r
28 User-Agent: Notmuch/0.21+99~g7cbc880 (http://notmuchmail.org) Emacs/24.3.1\r
29  (x86_64-unknown-linux-gnu)\r
30 X-Face: HhBM'cA~<r"^Xv\KRN0P{vn'Y"Kd;zg_y3S[4)KSN~s?O\"QPoL\r
31  $[Xv_BD:i/F$WiEWax}R(MPS`^UaptOGD`*/=@\1lKoVa9tnrg0TW?"r7aRtgk[F\r
32  !)g;OY^,BjTbr)Np:%c_o'jj,Z\r
33 Date: Sun, 10 Apr 2016 10:24:21 +0300\r
34 Message-ID: <m28u0mkjtm.fsf@guru.guru-group.fi>\r
35 MIME-Version: 1.0\r
36 Content-Type: text/plain\r
37 X-BeenThere: notmuch@notmuchmail.org\r
38 X-Mailman-Version: 2.1.20\r
39 Precedence: list\r
40 List-Id: "Use and development of the notmuch mail system."\r
41  <notmuch.notmuchmail.org>\r
42 List-Unsubscribe: <https://notmuchmail.org/mailman/options/notmuch>,\r
43  <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
44 List-Archive: <http://notmuchmail.org/pipermail/notmuch/>\r
45 List-Post: <mailto:notmuch@notmuchmail.org>\r
46 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
47 List-Subscribe: <https://notmuchmail.org/mailman/listinfo/notmuch>,\r
48  <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
49 X-List-Received-Date: Sun, 10 Apr 2016 07:24:29 -0000\r
50 \r
51 On Sat, Apr 09 2016, aeuii@posteo.de wrote:\r
52 \r
53 > Please put my address in CC when replying.  Thanks!\r
54 >\r
55 > From 4b9ab261a0ea8a31065e310c5150f522be86d37b Mon Sep 17 00:00:00 2001\r
56 > From: stefan <aeuii@posteo.de>\r
57 > Date: Fri, 8 Apr 2016 22:47:06 +0200\r
58 > Subject: [PATCH] emacs: make use of `message-make-from'\r
59 >\r
60 > Will respect `mail-from-style'.\r
61 \r
62 LTGM\r
63 \r
64 Tomi\r
65 \r
66 > ---\r
67 >  emacs/notmuch-mua.el | 6 +++---\r
68 >  1 file changed, 3 insertions(+), 3 deletions(-)\r
69 >\r
70 > diff --git a/emacs/notmuch-mua.el b/emacs/notmuch-mua.el\r
71 > index cfdac0e..935cbd3 100644\r
72 > --- a/emacs/notmuch-mua.el\r
73 > +++ b/emacs/notmuch-mua.el\r
74 > @@ -318,8 +318,8 @@ modified. This function is notmuch addaptation of\r
75 >       (push (cons 'User-Agent user-agent) other-headers))))\r
76 >  \r
77 >    (unless (assq 'From other-headers)\r
78 > -    (push (cons 'From (concat\r
79 > -                    (notmuch-user-name) " <" (notmuch-user-primary-email) ">")) other-headers))\r
80 > +    (push (cons 'From (message-make-from\r
81 > +                    (notmuch-user-name) (notmuch-user-primary-email))) other-headers))\r
82 >  \r
83 >    (notmuch-mua-pop-to-buffer (message-buffer-name "mail" to)\r
84 >                            (or switch-function (notmuch-mua-get-switch-function)))\r
85 > @@ -393,7 +393,7 @@ the From: header is already filled in by notmuch."\r
86 >           (ido-completing-read (concat "Sender address for " name ": ") addrs\r
87 >                                nil nil nil 'notmuch-mua-sender-history\r
88 >                                (car addrs))))\r
89 > -      (concat name " <" address ">"))))\r
90 > +      (message-make-from name address))))\r
91 >  \r
92 >  (put 'notmuch-mua-new-mail 'notmuch-prefix-doc "... and prompt for sender")\r
93 >  (defun notmuch-mua-new-mail (&optional prompt-for-sender)\r
94 > -- \r
95 > 2.7.4\r
96 >\r
97 > _______________________________________________\r
98 > notmuch mailing list\r
99 > notmuch@notmuchmail.org\r
100 > https://notmuchmail.org/mailman/listinfo/notmuch\r