From: Chong Yidong <cyd@gnu.org>
Date: Sun, 4 Dec 2011 01:55:49 +0000 (+0800)
Subject: * message.el (message-pop-to-buffer): Partially revert 2011-11-30 change (Bug#10200).
X-Git-Tag: emacs-pretest-24.0.93~232^2~14
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=527497423d0305e6404776f8032aefa2e5501875;p=emacs.git

* message.el (message-pop-to-buffer): Partially revert 2011-11-30 change (Bug#10200).
---

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index fbfcda57b53..1f2b5c9d1cf 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2011-12-04  Chong Yidong  <cyd@gnu.org>
+
+	* message.el (message-pop-to-buffer): Partially revert 2011-11-30
+	change (Bug#10200).
+
 2011-12-02  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* compface.el (uncompface):
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index ee9d4992158..d75f85a897a 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -6327,7 +6327,6 @@ 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))
@@ -6337,7 +6336,7 @@ between beginning of field and beginning of line."
 	      (progn
 		(gnus-select-frame-set-input-focus (window-frame window))
 		(select-window window))
-	    (funcall switch-function buffer)
+	    (funcall (or switch-function #'pop-to-buffer) buffer)
 	    (set-buffer buffer))
 	  (when (and (buffer-modified-p)
 		     (not (prog1
@@ -6345,7 +6344,7 @@ between beginning of field and beginning of line."
 			       "Message already being composed; erase? ")
 			    (message nil))))
 	    (error "Message being composed")))
-      (funcall switch-function name)
+      (funcall (or switch-function #'switch-to-buffer) name)
       (set-buffer name))
     (erase-buffer)
     (message-mode)))