Re: Semi-recent addition - mailto local groups

[Simon Josefsson <jas@extundo.com>]

prj@po.cwru.edu (Paul Jarc) writes:

> Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann) wrote:
>> prj@po.cwru.edu (Paul Jarc) writes:
>>> nnml and some others recognize Newsgroups
>>
>> I know that nnimap does.  Maybe nnmaildir does?  Any others?
>
> Not nnmaildir.  (Wasn't the nnml version added to the other nnmail
> backends?)  I was hoping somebody would make the necessary changes to
> allow messages to be delivered only to Gcc, so I wouldn't have to
> bother.  Maybe I'll do that myself.

Does this work?  (I've committed it.)

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

	* message.el (message-send): Ask user if Fcc/Gcc should be
	performed when no other sender was specified.
	Suggested by prj@po.cwru.edu (Paul Jarc).

Index: message.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/message.el,v
retrieving revision 6.159
diff -u -r6.159 message.el
--- message.el	2001/11/17 10:54:09	6.159
+++ message.el	2001/11/17 11:25:55
@@ -2499,7 +2499,7 @@
   (message message-sending-message)
   (let ((alist message-send-method-alist)
 	(success t)
-	elem sent
+	elem sent dont-barf-on-no-method
 	(message-options message-options))
     (message-options-set-recipient)
     (while (and success
@@ -2516,9 +2516,19 @@
 			 (error "Denied posting -- multiple copies")))
 		   (setq success (funcall (caddr elem) arg)))
 	  (setq sent t))))
-    (unless (or sent (not success))
+    (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"))))))))
       (error "No methods specified to send by"))
-    (when (and success sent)
+    (when (or dont-barf-on-no-method
+	      (and success sent))
       (message-do-fcc)
       (save-excursion
 	(run-hooks 'message-sent-hook))