Make message-allow-no-recipients 'always work

* lisp/gnus/message.el (message-send): Make
message-allow-no-recipients 'always work.

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index c66b551c1e4516328dc31196e4b69968b5bf7b9f..f33454e70477612752bf512a4c40ba40a97fc7d8 100644 (file)
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -4247,9 +4247,9 @@ It should typically alter the sending method in some way or other."
                (let ((fcc (message-fetch-field "Fcc"))
                      (gcc (message-fetch-field "Gcc")))
                  (when (or fcc gcc)
-                   (or (eq message-allow-no-recipients 'always)
-                       (and (not (eq message-allow-no-recipients 'never))
-                            (setq dont-barf-on-no-method
+                   (setq dont-barf-on-no-method
+                         (or (eq message-allow-no-recipients 'always)
+                             (and (not (eq message-allow-no-recipients 'never))
                                   (y-or-n-p
                                    (format "No receiver, perform %s anyway? "
                                            (cond ((and fcc gcc) "Fcc and Gcc")