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

[Thierry Volpiatto]

Thierry Volpiatto <thierry.volpiatto@gmail.com> writes:

> "Drew Adams" <drew.adams@oracle.com> 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