1 Return-Path: <jani@nikula.org>
\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 olra.theworths.org (Postfix) with ESMTP id C3EE1431FD8
\r
6 for <notmuch@notmuchmail.org>; Wed, 28 Aug 2013 12:34:30 -0700 (PDT)
\r
7 X-Virus-Scanned: Debian amavisd-new at olra.theworths.org
\r
8 X-Amavis-Alert: BAD HEADER SECTION, Duplicate header field: "References"
\r
12 X-Spam-Status: No, score=-0.7 tagged_above=-999 required=5
\r
13 tests=[RCVD_IN_DNSWL_LOW=-0.7] autolearn=disabled
\r
14 Received: from olra.theworths.org ([127.0.0.1])
\r
15 by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024)
\r
16 with ESMTP id dpRqRtMXJOnD for <notmuch@notmuchmail.org>;
\r
17 Wed, 28 Aug 2013 12:34:25 -0700 (PDT)
\r
18 Received: from mail-ee0-f51.google.com (mail-ee0-f51.google.com
\r
19 [74.125.83.51]) (using TLSv1 with cipher RC4-SHA (128/128 bits)) (No client
\r
20 certificate requested) by olra.theworths.org (Postfix) with ESMTPS id
\r
21 1E921431FC2 for <notmuch@notmuchmail.org>; Wed, 28 Aug 2013 12:34:25 -0700
\r
23 Received: by mail-ee0-f51.google.com with SMTP id c1so3102632eek.24
\r
24 for <notmuch@notmuchmail.org>; Wed, 28 Aug 2013 12:34:24 -0700 (PDT)
\r
25 X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;
\r
26 d=google.com; s=20120113;
\r
27 h=x-gm-message-state:from:to:cc:subject:date:message-id:in-reply-to
\r
28 :references:in-reply-to:references;
\r
29 bh=na7Yt2RJE3d7DB8es1eC/89Fi+5PAmsy9pl7EStE5y8=;
\r
30 b=Z6YEGF0oKzft8xpkNGGxoidV/1ciT1sC1apvglc1JnVIHpHrT9383XBUB3m80+FpKU
\r
31 m1uXVLZXy/YMifW3iCfeuYpOhbu1LfSEAThuJBdGrWwt4ahgUGA0+qFUBc6+ucsUeUXO
\r
32 WJpDyXSh8Hltncr7V9HlLNpR8cqN2BsL7lYEzEB9JbP9Xddl4nQ7/s77pYUjLJWvLmFm
\r
33 baSKzEv86SEk/Cz/HuposUMdS7rjIBGfei8mUc0N6/2lXIx/UyTCe9X5FOUpYY/JEr/I
\r
34 evz2llx/Hf4e2wGrhu0dzKW+C47zBP2MnKoZwzmB9UPNmLKCa/LiFTYnH16S10bgrBu9
\r
37 ALoCoQlkarsH9QFmTan4dkEJIeUgiCnLVdn5njXKrwy3kz3htTJUaBQd9t0m/WES2H6jqz7iPBR0
\r
38 X-Received: by 10.14.181.132 with SMTP id l4mr3900868eem.77.1377718463853;
\r
39 Wed, 28 Aug 2013 12:34:23 -0700 (PDT)
\r
40 Received: from localhost (dsl-hkibrasgw2-58c36f-91.dhcp.inet.fi.
\r
42 by mx.google.com with ESMTPSA id p5sm40019827eeg.5.1969.12.31.16.00.00
\r
43 (version=TLSv1.2 cipher=RC4-SHA bits=128/128);
\r
44 Wed, 28 Aug 2013 12:34:23 -0700 (PDT)
\r
45 From: Jani Nikula <jani@nikula.org>
\r
46 To: notmuch@notmuchmail.org
\r
47 Subject: [PATCH 1/2] emacs: simplify point placement for inserting message
\r
49 Date: Wed, 28 Aug 2013 22:34:21 +0300
\r
51 <26028b45ca200db29feea43176a5a2275232b878.1377718199.git.jani@nikula.org>
\r
52 X-Mailer: git-send-email 1.7.10.4
\r
53 In-Reply-To: <cover.1377718199.git.jani@nikula.org>
\r
54 References: <cover.1377718199.git.jani@nikula.org>
\r
55 In-Reply-To: <cover.1377718199.git.jani@nikula.org>
\r
56 References: <cover.1377718199.git.jani@nikula.org>
\r
57 Cc: Tomi Ollila <tomi.ollila@iki.fi>,
\r
58 Geoffrey Ferrari <geoffrey.ferrari@oriel.oxon.org>
\r
59 X-BeenThere: notmuch@notmuchmail.org
\r
60 X-Mailman-Version: 2.1.13
\r
62 List-Id: "Use and development of the notmuch mail system."
\r
63 <notmuch.notmuchmail.org>
\r
64 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,
\r
65 <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>
\r
66 List-Archive: <http://notmuchmail.org/pipermail/notmuch>
\r
67 List-Post: <mailto:notmuch@notmuchmail.org>
\r
68 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>
\r
69 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,
\r
70 <mailto:notmuch-request@notmuchmail.org?subject=subscribe>
\r
71 X-List-Received-Date: Wed, 28 Aug 2013 19:34:31 -0000
\r
73 The backwards regexp was most likely just old cruft. Simply put the
\r
74 point at the beginning of message body. It's guaranteed to be before
\r
77 emacs/notmuch-mua.el | 8 ++------
\r
78 1 file changed, 2 insertions(+), 6 deletions(-)
\r
80 diff --git a/emacs/notmuch-mua.el b/emacs/notmuch-mua.el
\r
81 index 2baae5f..a4be394 100644
\r
82 --- a/emacs/notmuch-mua.el
\r
83 +++ b/emacs/notmuch-mua.el
\r
84 @@ -190,12 +190,8 @@ list."
\r
85 (notmuch-headers-plist-to-alist reply-headers)
\r
86 nil (notmuch-mua-get-switch-function))))
\r
88 - ;; Insert the message body - but put it in front of the signature
\r
89 - ;; if one is present
\r
90 - (goto-char (point-max))
\r
91 - (if (re-search-backward message-signature-separator nil t)
\r
93 - (goto-char (point-max)))
\r
94 + ;; Move point to the beginning of the message body.
\r
95 + (message-goto-body)
\r
97 (let ((from (plist-get original-headers :From))
\r
98 (date (plist-get original-headers :Date))
\r