[gnus git] branch master updated: m0-7-284-g081b803 =1= message.el (message-bury): Call bury-buffer with no argument in the message-return-action case too

       via  081b803adf10f33fd9500458fa9de0e157e4a028 (commit)
      from  1d665972bde4e7f61ca1e0037ba01d3e068e0b08 (commit)


- Log -----------------------------------------------------------------
commit 081b803adf10f33fd9500458fa9de0e157e4a028
Author: Ken Olum <[email protected]>
Date:   Thu Jan 9 21:57:30 2014 +0000

    message.el (message-bury): Call bury-buffer with no argument in the message-return-action case too

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 09e4e9f..89ef581 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-01-09  Ken Olum  <[email protected]>  (tiny change)
+
+	* message.el (message-bury): Call bury-buffer with no argument
+	in the message-return-action case too.
+
 2014-01-05  Katsumi Yamaoka  <[email protected]>
 
 	* gnus-sum.el (gnus-article-stop-animations): Declare it before using.
diff --git a/lisp/message.el b/lisp/message.el
index 78e0579..fe5e2fb 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -4143,11 +4143,12 @@ Instead, just auto-save the buffer and then bury it."
 
 (defun message-bury (buffer)
   "Bury this mail BUFFER."
+  ;; Note that this is not quite the same as (bury-buffer buffer),
+  ;; since bury-buffer does extra stuff with a nil argument.
+  ;; Eg http://lists.gnu.org/archive/html/emacs-devel/2014-01/msg00539.html
+  (with-current-buffer buffer (bury-buffer))
   (if message-return-action
-      (progn
-        (bury-buffer buffer)
-        (apply (car message-return-action) (cdr message-return-action)))
-    (with-current-buffer buffer (bury-buffer))))
+      (apply (car message-return-action) (cdr message-return-action))))
 
 (defun message-send (&optional arg)
   "Send the message in the current buffer.

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog  |    5 +++++
 lisp/message.el |    9 +++++----
 2 files changed, 10 insertions(+), 4 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project