Re: solution to gnus-alias problems?

Subject: Re: solution to gnus-alias problems?

Date: Mon, 01 Oct 2012 17:56:29 +0200

To: David Bremner, 687390@bugs.debian.org

Cc: notmuch@notmuchmail.org

From: Michal Nazarewicz


On Mon, Oct 01 2012, David Bremner <bremner@debian.org> wrote:
> Geoff writes:
>
>    Hi David,
>
>    I've found the source of the problem I was having. It seems to be due
>    to some interference with the notmuch-mua-reply function and
>    gnus-alias. In particular, there was a problem with the part of
>    notmuch-mua-reply that inserted the newly setup message contents.
>
>    Towards the end of the notmuch-mua-reply function, there is the following code:
>
>        ;; insert the message body - but put it in front of the signature
>        ;; if one is present
>        (goto-char (point-max))
>    *    (if (re-search-backward message-signature-separator nil t)
>    *	  (forward-line -1)
> 	 (goto-char (point-max)))
>        (insert body)
>        (push-mark))
>      (set-buffer-modified-p nil)
>
>    The problem is with the two lines I've marked with a *. Suppose the
>    main message reply buffer already contains a signature and looks like
>    this
>
>    [Headers]
>    --text follows this line
>    --
>    [Signature text]
>
>    The above goes goes to the end of buffer with (point-max), then
>    searches back to the beginning of the signature separator, which is
>    fine. But then it moves one line up to the beginning of '--text
>    follows this line--" and then inserts the newly created message body,
>    which means that it inserts it before the '--text follows this
>    line--'.
>
>    I've solved the problem (I think) by adjust the above code as follows:
>
>        (if (re-search-backward message-signature-separator nil t)
> 	     (progn
> 	       (beginning-of-line)

Call to `beginning-of-line' seems redundant, `re-search-backward' should
move point to the beginning of the match which starts at the beginning
of a line.  Or am I missing something?

> 	       (newline))
> 	 (goto-char (point-max)))

-- 
Best regards,                                         _     _
.o. | Liege of Serenely Enlightened Majesty of      o' \,=./ `o
..o | Computer Science,  Michał “mina86” Nazarewicz    (o o)
ooo +----<email/xmpp: mpn@google.com>--------------ooO--(_)--Ooo--

Thread: