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

[gnus] / lisp / gnus-msg.el

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))
            (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)))))
        (when yank
          (gnus-inews-yank-articles yank))
        (gnus-summary-handle-replysign)))))