Subject: Re: bug#14117: 24.3.50; message buffer is not deleted when sending email

From: Thierry Volpiatto <[email-masked]>
Date: Tue, 16 Apr 2013 21:30:15 +0200

Thierry Volpiatto <[email-masked]> writes:

> "Drew Adams" <[email-masked]> writes:
>
>>> when I do C-x m (compose mail) and I send my email (C-c C-c) 
>>> the buffer is not deleted.
>>
>> Dunno, but this sounds a bit like bug #14085.
>>
>> (But at least in the case of bug #14085 the buffer should not be killed but just
>> buried.  IOW, the previous behavior should be restored.)
>
> Looks like for some reasons, `burry-buffer' called with no BUFFER arg in
> `message-bury' fix the problem.
>
> diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
> index 2b2a0a9..bd9a1a7 100644
> --- a/lisp/gnus/message.el
> +++ b/lisp/gnus/message.el
> @@ -4097,7 +4097,7 @@ Instead, just auto-save the buffer and then bury it."
>  
>  (defun message-bury (buffer)
>    "Bury this mail BUFFER."
> -  (bury-buffer buffer)
> +  (bury-buffer)
>    (when message-return-action
>      (apply (car message-return-action) (cdr message-return-action))))

And the old definition of 24.3 seems to confirm that:

(defun message-bury (buffer)
  "Bury this mail BUFFER."
  (if message-return-action
      (progn
        (bury-buffer buffer)
        (apply (car message-return-action) (cdr message-return-action)))
    (with-current-buffer buffer (bury-buffer))))
                                 ^^^^^^^^^^^

-- 
Thierry
Get my Gnupg key:
gpg --keyserver pgp.mit.edu --recv-keys 59F29997