Re: Semi-recent addition - mailto local groups

[prj@po.cwru.edu (Paul Jarc)]

Simon Josefsson <jas@extundo.com> wrote:
> Does this work?  (I've committed it.)

Whee!  Thanks.

> +		(let ((fcc (message-fetch-field "Fcc"))
> +		      (gcc (message-fetch-field "Gcc")))

Should there be some kind of check here to see whether Gnus is
running?  Or maybe the patch below is enough.

> +			     (gnus-y-or-n-p
> +			      (format "No receiver, perform %s anyway? "

How about this:
	* message.el (message-send): Customize the prompting when
        posting to Gcc/Fcc alone.

Index: lisp/message.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/message.el,v
retrieving revision 6.161
diff -u -r6.161 message.el
--- lisp/message.el	2001/11/19 09:56:48	6.161
+++ lisp/message.el	2001/11/20 02:15:14
@@ -452,6 +452,16 @@
   :group 'message-interface
   :type '(repeat regexp))
 
+(defcustom message-allow-gcc-fcc-alone 'ask
+  "*Specifies what to do when a message has no recipients other than
+Gcc or 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."
@@ -2520,12 +2530,14 @@
 		(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"))))))))
+		       (or (eq message-allow-gcc-fcc-alone 'always)
+			   (and (not (eq message-allow-gcc-fcc-alone '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))


paul