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

[Thierry Volpiatto]

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


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