From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/40419 Path: main.gmane.org!not-for-mail From: prj@po.cwru.edu (Paul Jarc) Newsgroups: gmane.emacs.gnus.general Subject: Re: Semi-recent addition - mailto local groups Date: Mon, 19 Nov 2001 21:12:12 -0500 Organization: What did you have in mind? A short, blunt, human pyramid? Sender: owner-ding@hpc.uh.edu Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1035175971 797 80.91.224.250 (21 Oct 2002 04:52:51 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 04:52:51 +0000 (UTC) Return-Path: Original-Received: (qmail 14244 invoked from network); 20 Nov 2001 02:13:28 -0000 Original-Received: from malifon.math.uh.edu (mail@129.7.128.13) by mastaler.com with SMTP; 20 Nov 2001 02:13:28 -0000 Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1660Om-0007H1-00; Mon, 19 Nov 2001 20:12:32 -0600 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Mon, 19 Nov 2001 20:12:16 -0600 (CST) Original-Received: from sclp3.sclp.com (qmailr@sclp3.sclp.com [209.196.61.66]) by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id UAA07569 for ; Mon, 19 Nov 2001 20:12:05 -0600 (CST) Original-Received: (qmail 14235 invoked by alias); 20 Nov 2001 02:12:15 -0000 Original-Received: (qmail 14230 invoked from network); 20 Nov 2001 02:12:14 -0000 Original-Received: from multivac.student.cwru.edu (HELO multivac.cwru.edu) (qmail-remote@129.22.96.25) by gnus.org with SMTP; 20 Nov 2001 02:12:14 -0000 Original-Received: (qmail 29043 invoked by uid 500); 20 Nov 2001 02:12:34 -0000 Original-To: ding@gnus.org In-Reply-To: (Simon Josefsson's message of "Sat, 17 Nov 2001 12:19:43 +0100") Mail-Copies-To: never Mail-Followup-To: ding@gnus.org Original-Lines: 66 User-Agent: Gnus/5.090004 (Oort Gnus v0.04) Emacs/20.7 (i386-redhat-linux-gnu) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:40419 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:40419 Simon Josefsson 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