Commit 52749742 authored by Chong Yidong's avatar Chong Yidong
Browse files

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

parent 5e605a2e
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):
......
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment