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

From: Thierry Volpiatto <[email-masked]>
Date: Tue, 16 Apr 2013 22:19:01 +0200

Thierry Volpiatto <[email-masked]> 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