2001-11-20 Simon Josefsson <jas@extundo.com>

	* message.el (message-allow-no-recipients): New variable.
	(message-send): Use it, customize the prompting when posting to
	Gcc/Fcc alone.  From prj@po.cwru.edu (Paul Jarc).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6f2bcb9..a375e0c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-11-20  Simon Josefsson  <jas@extundo.com>
+
+       * message.el (message-allow-no-recipients): New variable.
+       (message-send): Use it, customize the prompting when posting to
+       Gcc/Fcc alone.  From prj@po.cwru.edu (Paul Jarc).
+
 2001-11-20 09:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * mm-util.el (mm-coding-system-priorities): New.

diff --git a/lisp/message.el b/lisp/message.el
index 547d5e1..334a6db 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -452,6 +452,16 @@ regular expressions can be used in conjuction with
   :group 'message-interface
   :type '(repeat regexp))
 
+(defcustom message-allow-no-recipients 'ask
+  "Specifies what to do when there are no recipients other than Gcc/Fcc.
+If it is the symbol `always', the posting is allowed.  If it is the
+symbol `never', the posting is not allowed.  If it is the symbol
+`ask', you are prompted."
+  :group 'message-interface
+  :type '(choice (const always)
+                (const never)
+                (const ask)))
+
 (defcustom message-sendmail-f-is-evil nil
   "*Non-nil means don't add \"-f username\" to the sendmail command line.
 Doing so would be even more evil than leaving it out."
@@ -2519,13 +2529,15 @@ It should typically alter the sending method in some way or other."
     (unless (or sent (not success)
                (let ((fcc (message-fetch-field "Fcc"))
                      (gcc (message-fetch-field "Gcc")))
-                 (and (or fcc gcc)
-                      (setq dont-barf-on-no-method 
-                            (gnus-y-or-n-p
-                             (format "No receiver, perform %s anyway? "
-                                     (cond ((and fcc gcc) "Fcc and Gcc")
-                                           (fcc "Fcc")
-                                           (t "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
+                                  (gnus-y-or-n-p
+                                   (format "No receiver, perform %s anyway? "
+                                           (cond ((and fcc gcc) "Fcc and Gcc")
+                                                 (fcc "Fcc")
+                                                 (t "Gcc"))))))))))
       (error "No methods specified to send by"))
     (when (or dont-barf-on-no-method
              (and success sent))