diff options
author | Chong Yidong <[email protected]> | 2011-12-04 09:55:49 +0800 |
---|---|---|
committer | Chong Yidong <[email protected]> | 2011-12-04 09:55:49 +0800 |
commit | 527497423d0305e6404776f8032aefa2e5501875 (patch) | |
tree | f1287e2cf68aad9e68f54d900c0ad01e71217979 /lisp/gnus | |
parent | 5e605a2e528955721fc6f2bd7b9f174c15075fb1 (diff) |
* message.el (message-pop-to-buffer): Partially revert 2011-11-30 change (Bug#10200).
Diffstat (limited to 'lisp/gnus')
-rw-r--r-- | lisp/gnus/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/gnus/message.el | 5 |
2 files changed, 7 insertions, 3 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index fbfcda57b5..1f2b5c9d1c 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2011-12-04 Chong Yidong <[email protected]> + + * message.el (message-pop-to-buffer): Partially revert 2011-11-30 + change (Bug#10200). + 2011-12-02 Katsumi Yamaoka <[email protected]> * compface.el (uncompface): diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index ee9d499215..d75f85a897 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))) |