From b2ea476e0bc6e2973976b376c15be5381fe3127f Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Mon, 14 Feb 2011 12:36:58 -0800 Subject: [PATCH] (message-reply): Take an optional switch-buffer parameter so that Gnus window confs are respected better. --- lisp/ChangeLog | 5 +++++ lisp/gnus-msg.el | 2 +- lisp/message.el | 5 +++-- 3 files changed, 9 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0bfa2b078..6dc0c604c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-02-14 Lars Ingebrigtsen + + * message.el (message-reply): Take an optional switch-buffer parameter + so that Gnus window confs are respected better. + 2011-02-14 Teodor Zlatanov * auth-source.el (auth-source-backend-parse-parameters): Don't rely on diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el index f64553ac6..b199dcc57 100644 --- a/lisp/gnus-msg.el +++ b/lisp/gnus-msg.el @@ -1123,7 +1123,7 @@ If VERY-WIDE, make a very wide reply." (insert headers)) (goto-char (point-max))) (mml-quote-region (point) (point-max)) - (message-reply nil wide) + (message-reply nil wide 'switch-to-buffer) (when yank (gnus-inews-yank-articles yank)) (gnus-summary-handle-replysign))))) diff --git a/lisp/message.el b/lisp/message.el index bfe07e610..c8a706e44 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -6823,7 +6823,7 @@ Useful functions to put in this list include: subject) ;;;###autoload -(defun message-reply (&optional to-address wide) +(defun message-reply (&optional to-address wide switch-function) "Start editing a reply to the article in the current buffer." (interactive) (require 'gnus-sum) ; for gnus-list-identifiers @@ -6866,7 +6866,8 @@ Useful functions to put in this list include: (message-pop-to-buffer (message-buffer-name (if wide "wide reply" "reply") from - (if wide to-address nil)))) + (if wide to-address nil)) + switch-function)) (setq message-reply-headers (vector 0 subject from date message-id references 0 0 "")) -- 2.25.1