Re: message-default-mail-headers not working in notmuch 0.22

diff --git a/40/e6fec637b5f552f02b970ad2becba58f7ff3ea b/40/e6fec637b5f552f02b970ad2becba58f7ff3ea
new file mode 100644 (file)
index 0000000..be141c8
--- /dev/null
+++ b/40/e6fec637b5f552f02b970ad2becba58f7ff3ea
@@ -0,0 +1,92 @@
+Return-Path: <sojkam1@fel.cvut.cz>\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 4FF946DE025F\r
+ for <notmuch@notmuchmail.org>; Sun,  1 May 2016 01:46:58 -0700 (PDT)\r
+X-Virus-Scanned: Debian amavisd-new at cworth.org\r
+X-Spam-Flag: NO\r
+X-Spam-Score: -1.62\r
+X-Spam-Level: \r
+X-Spam-Status: No, score=-1.62 tagged_above=-999 required=5 tests=[AWL=0.690, \r
+ RCVD_IN_DNSWL_MED=-2.3,\r
+ T_RP_MATCHES_RCVD=-0.01] 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 wLD3VhdbV5q8 for <notmuch@notmuchmail.org>;\r
+ Sun,  1 May 2016 01:46:49 -0700 (PDT)\r
+X-Greylist: delayed 504 seconds by postgrey-1.35 at arlo;\r
+ Sun, 01 May 2016 01:46:49 PDT\r
+Received: from max.feld.cvut.cz (max.feld.cvut.cz [147.32.192.36])\r
+ by arlo.cworth.org (Postfix) with ESMTP id 5262B6DE01BE\r
+ for <notmuch@notmuchmail.org>; Sun,  1 May 2016 01:46:49 -0700 (PDT)\r
+Received: from localhost (unknown [192.168.200.7])\r
+ by max.feld.cvut.cz (Postfix) with ESMTP id 513AD5CD7FC;\r
+ Sun,  1 May 2016 10:38:23 +0200 (CEST)\r
+X-Virus-Scanned: IMAP STYX AMAVIS\r
+Received: from max.feld.cvut.cz ([192.168.200.1])\r
+ by localhost (styx.feld.cvut.cz [192.168.200.7]) (amavisd-new, port 10044)\r
+ with ESMTP id zuTW4glYTXiP; Sun,  1 May 2016 10:38:21 +0200 (CEST)\r
+Received: from imap.feld.cvut.cz (imap.feld.cvut.cz [147.32.192.34])\r
+ by max.feld.cvut.cz (Postfix) with ESMTP id 8C3E05CD7EF;\r
+ Sun,  1 May 2016 10:38:20 +0200 (CEST)\r
+Received: from wsh by steelpick.2x.cz with local (Exim 4.87)\r
+ (envelope-from <sojkam1@fel.cvut.cz>)\r
+ id 1awmtO-0007UM-Ng; Sun, 01 May 2016 10:38:18 +0200\r
+From: Michal Sojka <sojkam1@fel.cvut.cz>\r
+To: David Edmondson <dme@dme.org>, sfischme@uwaterloo.ca,\r
+ Notmuch Mail <notmuch@notmuchmail.org>\r
+Subject: Re: message-default-mail-headers not working in notmuch 0.22\r
+In-Reply-To: <m2shy4eb6z.fsf@dme.org>\r
+References: <87y47wmsfi.fsf@uwaterloo.ca> <m2shy4eb6z.fsf@dme.org>\r
+User-Agent: Notmuch/0.21+30~g55c056a (http://notmuchmail.org) Emacs/24.5.1\r
+ (x86_64-pc-linux-gnu)\r
+Date: Sun, 01 May 2016 10:38:18 +0200\r
+Message-ID: <87y47utbph.fsf@steelpick.2x.cz>\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, 01 May 2016 08:46:58 -0000\r
+\r
+On Fri, Apr 29 2016, David Edmondson wrote:\r
+> On Fri, Apr 29 2016, Sebastian Fischmeister wrote:\r
+>> After upgrading to notmuch 0.22, my emacs config seems broken:\r
+>>\r
+>> (setq message-default-mail-headers "Reply-to: me@example.com\nBcc: me@example.com")\r
+>>\r
+>> When creating a new mail, it has no header other than "To:" and\r
+>> "Subject:".\r
+>>\r
+>> Since I cannot find any item in the NEWS related to this release, is\r
+>> this expected behaviour?\r
+>\r
+> No, it's not intended. Please try this patch:\r
+>\r
+> diff --git a/emacs/notmuch-mua.el b/emacs/notmuch-mua.el\r
+> index 0445975..399e138 100644\r
+> --- a/emacs/notmuch-mua.el\r
+> +++ b/emacs/notmuch-mua.el\r
+> @@ -338,7 +338,10 @@ modified. This function is notmuch addaptation of\r
+>        ;; We need to convert any string input, eg from rmail-start-mail.\r
+>        (dolist (h other-headers other-headers)\r
+>          (if (stringp (car h)) (setcar h (intern (capitalize (car h))))))))\r
+> -    (args (list yank-action send-actions)))\r
+> +    (args (list yank-action send-actions))\r
+> +    ;; Cause `message-setup-1' to do things relevant for mail,\r
+> +    ;; such as observe `message-default-mail-headers'.\r
+> +    (message-this-is-mail t))\r
+\r
+Yes, this seems to be reasonable thing to do. Thanks.\r
+\r
+-Michal\r