From 1ea1c2fa5ffe544ddd96565e0958f12e8698136b Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Wed, 7 Dec 2011 06:07:53 +0000 Subject: [PATCH] message.el (message-pop-to-buffer): Use pop-to-buffer instead of pop-to-buffer-same-window for old Emacsen. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/message.el | 6 +++++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 1f46887f00f..bdc7313e57a 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2011-12-07 Katsumi Yamaoka + + * message.el (message-pop-to-buffer): Use pop-to-buffer instead of + pop-to-buffer-same-window for old Emacsen. + 2011-12-04 Chong Yidong * message.el (message-pop-to-buffer): Partially revert 2011-11-30 diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 8ecbd22fc0d..b127160dfc4 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -6344,7 +6344,11 @@ between beginning of field and beginning of line." "Message already being composed; erase? ") (message nil)))) (error "Message being composed"))) - (funcall (or switch-function #'pop-to-buffer-same-window) name) + (funcall (or switch-function + (if (fboundp #'pop-to-buffer-same-window) + #'pop-to-buffer-same-window + #'pop-to-buffer)) + name) (set-buffer name)) (erase-buffer) (message-mode))) -- 2.39.2