From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/49095
Path: main.gmane.org!not-for-mail
From: Raymond Scholz <ray-2003@zonix.de>
Newsgroups: gmane.emacs.gnus.general
Subject: Extending `gnus-confirm-mail-reply-to-news'?
Date: Sun, 12 Jan 2003 15:11:16 +0100
Organization: =?UTF-8?Q?/=CB=8C=C9=94=CB=90=C9=A1=C9=99na=C9=AA=CB=88ze=C9=AA=CA=83n/?=
Sender: owner-ding@hpc.uh.edu
Message-ID: <gd.y1yy95qa263.fsf@fly.verified.de>
Reply-To: Raymond Scholz <rscholz@zonix.de>
NNTP-Posting-Host: main.gmane.org
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="=-=-="
X-Trace: main.gmane.org 1042380781 13765 80.91.224.249 (12 Jan 2003 14:13:01 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 12 Jan 2003 14:13:01 +0000 (UTC)
Return-path: <owner-ding@hpc.uh.edu>
Original-Received: from malifon.math.uh.edu ([129.7.128.13])
	by main.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 18XirD-0003Zr-00
	for <ding-account@gmane.org>; Sun, 12 Jan 2003 15:12:59 +0100
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 18Xirt-00055T-00; Sun, 12 Jan 2003 08:13:41 -0600
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Sun, 12 Jan 2003 08:14:36 -0600 (CST)
Original-Received: from sclp3.sclp.com (sclp3.sclp.com [66.230.238.2])
	by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id IAA28245
	for <ding@hpc.uh.edu>; Sun, 12 Jan 2003 08:14:21 -0600 (CST)
Original-Received: (qmail 71318 invoked by alias); 12 Jan 2003 14:13:22 -0000
Original-Received: (qmail 71313 invoked from network); 12 Jan 2003 14:13:21 -0000
Original-Received: from quimby.gnus.org (80.91.224.244)
  by 66.230.238.6 with SMTP; 12 Jan 2003 14:13:21 -0000
Original-Received: from news by quimby.gnus.org with local (Exim 3.12 #1 (Debian))
	id 18XixN-0003EV-00
	for <ding@gnus.org>; Sun, 12 Jan 2003 15:19:21 +0100
Original-To: ding@gnus.org
Original-Path: fly.verified.de!not-for-mail
Original-Newsgroups: gnus.ding
Original-Lines: 101
Original-NNTP-Posting-Host: acb8bcb9.ipt.aol.com
Original-X-Trace: quimby.gnus.org 1042381161 12429 172.184.188.185 (12 Jan 2003 14:19:21 GMT)
Original-X-Complaints-To: usenet@quimby.gnus.org
Original-NNTP-Posting-Date: 12 Jan 2003 14:19:21 GMT
X-Now-Playing: Nothing
X-Face: %.!RBc`e*wW)84O*\)VdkC}mU5c2Zh$y~ZRA3K594g/jp_&5bx\Oyes!/jK~4<<%KlaPn^\
 0<bYDHHvSRxI<
Mail-Copies-To: nobody
User-Agent: Gnus/5.090012 (Oort Gnus v0.12) Emacs/21.3.50
 (i386-debian-linux-gnu)
Cancel-Lock: sha1:fN9LeUMkWKS53sj0lotdv4knFRs=
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:49095
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:49095

--=-=-=

Hi!

I've been using this for some weeks now.  If it sounds useful, I'll
write some documentation for gnus.texi too :-)

The patch extends `gnus-confirm-mail-reply-to-news' so that it can be
a regexp or a function too.

Furthermore it introduces a new variable
`gnus-confirm-treat-mail-like-news' which makes Gnus ask for
confirmation if the original article is a mail.


--=-=-=
Content-Type: text/x-patch
Content-Disposition: attachment; filename=gnus-msg.patch

Index: gnus-msg.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-msg.el,v
retrieving revision 6.112
diff -u -r6.112 gnus-msg.el
--- gnus-msg.el	2003/01/12 02:55:46	6.112
+++ gnus-msg.el	2003/01/12 14:00:24
@@ -256,8 +256,23 @@
 (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 '(choice (const :tag "No" nil)
+		 (const :tag "Yes" nil)
+		 (regexp :tag "Iff group matches regexp")
+		 (function :tag "Iff function evaluates to non-nil")))
+
+(defcustom gnus-confirm-treat-mail-like-news
+  nil
+  "If non-nil, Gnus will treat mail like news with regard to confirmation
+when replying by mail.  See the `gnus-confirm-mail-reply-to-news' variable
+for fine-tuning this.
+If nil, Gnus will never ask for confirmation if replying to mail."
+  :group 'gnus-message
   :type 'boolean)
 
 (defcustom gnus-summary-resend-default-address t
@@ -1038,9 +1053,15 @@
    (list (and current-prefix-arg
 	      (gnus-summary-work-articles 1))))
   ;; 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)
+  ;; author of a news article (or mail message).
+  (when (or 
+	    (not (or (gnus-news-group-p gnus-newsgroup-name)
+		     gnus-confirm-treat-mail-like-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))

--=-=-=


Usage:

;; Patric Mueller in <7iq1t9.m63.ln@bhaak.xodox.com>
;; made this it work for nnvirtual too
(defun rs-gnus-confirm-mail-reply-to-news ()
  (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 "^nn.+:list\\." gnus-newsgroup-name)))

(setq gnus-confirm-mail-reply-to-news 'rs-gnus-confirm-mail-reply-to-news)
;(setq gnus-confirm-mail-reply-to-news "list\\.")
;(setq gnus-confirm-mail-reply-to-news t)

;; even ask for confirmation if the original article is a mail
;; article (treat mailing lists like news etc.)
(setq gnus-confirm-treat-mail-like-news t)

Cheers, Ray
-- 
The only agents that insert X-Priority: high headers are 1) Outlook and
2) spammers.  So X-Priority is a pretty reliable header to use to filter
out spam and other annoyances.       (Lars M. Ingebrigtsen in gnus.ding)

--=-=-=--