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

[Thierry Volpiatto]

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

> Thierry Volpiatto <thierry.volpiatto@gmail.com> writes:
>
>> One other fix would be to leave `message-bury' as it is and call it in
>> `message-send-and-exit' with no arg (not tested but should work).
> I meant `message-bury' nearly unchanged (use an optional arg)
>
> diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
> index 2b2a0a9..be2f671 100644
> --- a/lisp/gnus/message.el
> +++ b/lisp/gnus/message.el
> @@ -4047,7 +4047,7 @@ It should typically alter the sending method in some 
> way or other."
>       (actions message-exit-actions))
>      (when (and (message-send arg)
>              (buffer-name buf))
> -      (message-bury buf)
> +      (message-bury)
>        (if message-kill-buffer-on-exit
>         (kill-buffer buf))
>        (message-do-actions actions)
> @@ -4095,7 +4095,7 @@ Instead, just auto-save the buffer and then bury it."
>         (message-disassociate-draft)))
>        (message-do-actions actions))))
>  
> -(defun message-bury (buffer)
> +(defun message-bury (&optional buffer)
>    "Bury this mail BUFFER."
>    (bury-buffer buffer)
>    (when message-return-action

Tested and works fine.

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