[gnus git] branch master updated: n0-17-411-g07f9595 =1= message.el (message-pop-to-buffer): Revert 2011-09-11 change.

       via  07f959536376e60fdd78137bfabb935433a9a7a2 (commit)
      from  85e38f67e1f964e3f5b3aab85fec33633ad78f5b (commit)


- Log -----------------------------------------------------------------
commit 07f959536376e60fdd78137bfabb935433a9a7a2
Author: Stefan Monnier <[email protected]>
Date:   Wed Nov 30 22:06:08 2011 +0000

    message.el (message-pop-to-buffer): Revert 2011-09-11 change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 631e9ba..e4b4423 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-11-30  Stefan Monnier  <[email protected]>
+
+	* message.el (message-pop-to-buffer): Revert 2011-09-11 change.
+
 2011-11-30  Katsumi Yamaoka  <[email protected]>
 
 	* gnus-art.el (gnus-article-browse-html-parts): Convert link file names
diff --git a/lisp/message.el b/lisp/message.el
index 5ce9907..e0a8f20 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -6366,6 +6366,7 @@ between beginning of field and beginning of line."
 
 (defun message-pop-to-buffer (name &optional switch-function)
   "Pop to buffer NAME, and warn if it already exists and is modified."
+  (unless switch-function (setq switch-function #'pop-to-buffer))
   (let ((buffer (get-buffer name)))
     (if (and buffer
 	     (buffer-name buffer))
@@ -6375,7 +6376,7 @@ between beginning of field and beginning of line."
 	      (progn
 		(gnus-select-frame-set-input-focus (window-frame window))
 		(select-window window))
-	    (funcall (or switch-function 'switch-to-buffer) buffer)
+	    (funcall switch-function buffer)
 	    (set-buffer buffer))
 	  (when (and (buffer-modified-p)
 		     (not (prog1
@@ -6383,7 +6384,7 @@ between beginning of field and beginning of line."
 			       "Message already being composed; erase? ")
 			    (message nil))))
 	    (error "Message being composed")))
-      (funcall (or switch-function 'switch-to-buffer) name)
+      (funcall switch-function name)
       (set-buffer name))
     (erase-buffer)
     (message-mode)))

-----------------------------------------------------------------------
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  |    4 ++++
 lisp/message.el |    5 +++--
 2 files changed, 7 insertions(+), 2 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