Re: patches add variable `gnus-confirm-mail-reply-to-news'

[Simon Josefsson <jas@extundo.com>]

Raymond Scholz <ray-2002@zonix.de> writes:

> Simon Josefsson <jas@extundo.com> writes:
>
>> I agree. Ok, I added the original patch that defaults to not asking.  Thanks.
>
> I used to have this in my .gnus for ages:
>
> (setq rs-mailing-lists "list\\.")
>
> ;; Patric Mueller in <7iq1t9.m63.ln@bhaak.xodox.com>
> ;; von mir erweitert um die Abfrage auf Mailinglisten 
> (defadvice gnus-summary-reply (around reply-in-news activate)
>   (when (or
> 	 (not (or (gnus-news-group-p 
> 		   (if (gnus-virtual-group-p gnus-newsgroup-name)
> 		       (car (nnvirtual-map-article (cdr gnus-article-current)))
> 		     gnus-newsgroup-name
> 		     ))
> 		  (string-match rs-mailing-lists gnus-newsgroup-name)))
> 	 (y-or-n-p "Really, really reply? "))
>     ad-do-it))
>
> It adds "support" for virtual groups that contain newsgroups and for
> user defined lists (all of my mailing lists) where I usually don't
> want to say `R'.
>
> Would it be useful to be added to Gnus or is it too specifically
> tailored for my personal needs?

I didn't test this, but it should add support for setting the variable
to a string or function to get the behaviour you want.  Does it work?

--- gnus-msg.el.~6.90.~	Thu May 23 23:57:20 2002
+++ gnus-msg.el	Sun May 26 21:09:26 2002
@@ -242,9 +242,15 @@
 (defcustom gnus-confirm-mail-reply-to-news nil
   "If non-nil, Gnus requests confirmation when replying to news.
 This is done because new users often reply by mistake when reading
-news."
+news.
+This can also be a function which should return non-nil iff a
+confirmation is needed, or a regexp, in which case a confirmation is
+asked if the group name matches the regexp."
   :group 'gnus-message
-  :type 'boolean)
+  :type '(choice (const :tag "No" nil)
+		 (const :tag "Yes" nil)
+		 (regexp :tag "Iff group matches regexp")
+		 (function :tag "Iff function evaluates to non-nil")))
 
 ;;; Internal variables.
 
@@ -988,7 +994,11 @@
   ;; Allow user to require confirmation before replying by mail to the
   ;; author of a news article.
   (when (or (not (gnus-news-group-p gnus-newsgroup-name))
-	    (not gnus-confirm-mail-reply-to-news)
+	    (not (cond ((stringp gnus-confirm-mail-reply-to-news)
+			(string-match gnus-confirm-mail-reply-to-news gnus-newsgroup-name))
+		       ((functionp gnus-confirm-mail-reply-to-news)
+			(funcall gnus-confirm-mail-reply-to-news))
+		       (t gnus-confirm-mail-reply-to-news)))
 	    (y-or-n-p "Really reply by mail to article author? "))
     (let* ((article
 	    (if (listp (car yank))