(message-reply): Take an optional switch-buffer parameter so that Gnus window confs...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0bfa2b0..6dc0c60 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-02-14  Lars Ingebrigtsen  <larsi@gnus.org>
+
+       * message.el (message-reply): Take an optional switch-buffer parameter
+       so that Gnus window confs are respected better.
+
 2011-02-14  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * 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 f64553a..b199dcc 100644 (file)
--- 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 bfe07e6..c8a706e 100644 (file)
--- 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 ""))