Merge from gnus--devo--0

[bpt/emacs.git] / lisp / gnus / gnus-msg.el

diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el
index f5bf3a7..735b9ed 100644 (file)
--- a/lisp/gnus/gnus-msg.el
+++ b/lisp/gnus/gnus-msg.el
@@ -1101,7 +1101,10 @@ If VERY-WIDE, make a very wide reply."
                       ((functionp gnus-confirm-mail-reply-to-news)
                        (funcall gnus-confirm-mail-reply-to-news gnus-newsgroup-name))
                       (t gnus-confirm-mail-reply-to-news)))
-           (y-or-n-p "Really reply by mail to article author? "))
+           (if (or wide very-wide)
+               t ;; Ignore gnus-confirm-mail-reply-to-news for wide and very
+                 ;; wide replies.
+             (y-or-n-p "Really reply by mail to article author? ")))
     (let* ((article
            (if (listp (car yank))
                (caar yank)