From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/57073 Path: main.gmane.org!not-for-mail From: =?iso-8859-1?q?Jochen_K=FCpper?= Newsgroups: gmane.emacs.gnus.general Subject: Re: Gnus SPAM support, and email based reporting. Date: Mon, 19 Apr 2004 00:05:29 +0200 Organization: Fritz-Haber-Institut der MPG Sender: ding-owner-qhrM8SXbD5ICJmmTlSVZx4dd74u8MsAO@public.gmane.org Message-ID: <8665bxq6vq.fsf@doze.rz-berlin.mpg.de> References: <87isfy7p6a.fsf@enki.rimspace.net> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable X-Trace: sea.gmane.org 1082325889 12754 80.91.224.253 (18 Apr 2004 22:04:49 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sun, 18 Apr 2004 22:04:49 +0000 (UTC) Original-X-From: ding-owner+M5613-qhrM8SXbD5ICJmmTlSVZx4dd74u8MsAO@public.gmane.org Mon Apr 19 00:04:40 2004 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1BFKP2-0006Rb-00 for ; Mon, 19 Apr 2004 00:04:40 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1BFKOa-0003Xf-00; Sun, 18 Apr 2004 17:04:12 -0500 Original-Received: from util2.math.uh.edu ([129.7.128.23]) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1BFKOS-0003XZ-00 for ding@lists.math.uh.edu; Sun, 18 Apr 2004 17:04:04 -0500 Original-Received: from justine.libertine.org ([66.139.78.221] ident=postfix) by util2.math.uh.edu with esmtp (Exim 4.30) id 1BFKOR-0000Cb-Vv for ding@lists.math.uh.edu; Sun, 18 Apr 2004 17:04:04 -0500 Original-Received: from mail-in-02.arcor-online.net (mail-in-02.arcor-online.net [151.189.21.42]) by justine.libertine.org (Postfix) with ESMTP id 2F8783A0036 for ; Sun, 18 Apr 2004 17:04:02 -0500 (CDT) Original-Received: from doze.rz-berlin.mpg.de.fhi-berlin.mpg.de (dsl-213-023-134-194.arcor-ip.net [213.23.134.194]) by mail-in-02.arcor-online.net (Postfix) with ESMTP id 688BDB7D7D6 for ; Mon, 19 Apr 2004 00:03:59 +0200 (CEST) Original-To: ding-smP1P7uqpqc=@public.gmane.org Face: iVBORw0KGgoAAAANSUhEUgAAADAAAAAwBAMAAAClLOS0AAAAMFBMVEUcGRSqioSCPi7Cwbxu Vk5MQjycXkxMKiQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFG2qEAAAB5klEQVR42nXUwY7aMBAA UK8E4tqpI/fMKIWzFdBewcwm10WA9tpksz6zFci/37GdxF7a+mLwi2fGQ4yo/jPE9AkaIcRM/gU7 EcfTA/zgtWsuEfRmWPVjlsOryMYpAYgvYz9B8RXmhxHEw/gcQD+sz/cDbMLXhbu7a6j6Nob6FuDW U21+uje8nuUA/rnXxR4ArCWi5jhWJSJUmoWop7HckPt+Bz6PsrYmexgg5HY3CDvKuq/lAM9hB4VQ HfZEMt8xj2BLSrD1cDlThNJMoXSEWnroDJr3HM5nDtUbRIPuluDqLlx8YdYuh0o87S6+DWANUrn+ Pf0eO7vh1Awf98XKXi/jAatnCwU/Bebl5pZqjRNs2xa4IcoqdEuN5QSbFn3pYLkqqbtyLLfSEbQi XEn4jsvpZRiAO7UCUCYBhE7zhAgSclAyToiSO5xgA+8RONYqD6X3YYdWnakJU1WVPsaI0LXU5VBF kMr6aJTBPk4KfP5SJoAYEXpE5/4FVnVrpHQ/tny/pAduZl/bBDsGLbkqD7ZN0PgbCfwucPL49gzd pZmPw22SoPoc+iZkAL+J6nRrdQEHf+4Qqm4TFJJ8idxYrumY/QEAFHQI65xhcZqgOEHhTAhk6WUu jgPohnc4wgD21+zN+c79AZmNym6Cgz4IAAAAAElFTkSuQmCC User-Agent: No Gnus v0.2 X-Archive: encrypt X-Attribution: Jochen X-Request-PGP: http://jochen-kuepper.de/computer/keys.asc X-URL: http://jochen-kuepper.de In-Reply-To: <87isfy7p6a.fsf-kiwxAyAbAnkGAYDEi5AF0l6hYfS7NtTn@public.gmane.org> (Daniel Pittman's message of "Sat, 17 Apr 2004 22:40:45 +1000") Original-Lines: 71 Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:57073 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:57073 On Sat, 17 Apr 2004 22:40:45 +1000 Daniel Pittman wrote: Daniel> So, to report an incorrectly classified message, I need to Daniel> resend the message as-is to a specific address on the server, Daniel> then delete it locally. Well, I have to send it as an MIME attachment, but his is what I use; might be a starting point: (defun jk/ham-spam-report (to-address) "Digest and forward all articles in this series to the specified address." (let ((gnus-uu-save-in-digest t) (file (mm-make-temp-file (nnheader-concat gnus-uu-tmp-dir "spam-repo= rt"))) (message-forward-as-mime t) (mail-parse-charset gnus-newsgroup-charset) (mail-parse-ignored-charsets gnus-newsgroup-ignored-charsets) gnus-uu-digest-buffer subject from) (let ((gnus-article-reply (gnus-summary-work-articles nil))) (gnus-setup-message 'forward (setq gnus-uu-digest-from-subject nil) (setq gnus-uu-digest-buffer (gnus-get-buffer-create " *gnus spam-report*")) (gnus-uu-decode-save nil file) (switch-to-buffer gnus-uu-digest-buffer) (let ((message-forward-decoded-p t)) (message-forward nil t)))) (setq gnus-uu-digest-from-subject nil) ;; Ok, finish mail ;; Subject: (goto-char (point-min)) (when (re-search-forward "^Subject: ") (delete-region (point) (point-at-eol)) (insert "ham/spam report")) ;; To: (goto-char (point-min)) (when (re-search-forward "^To:") (delete-region (point) (point-at-eol)) (insert " " to-address)) ;; Gcc (goto-char (point-min)) (when (re-search-forward "^Gcc:") (delete-region (point-at-bol) (point-at-eol)) (insert " nnimap+FHI:sent/" (format-time-string "%Y/%m") " nnimap+FHI:spam/reported")) ;; remove signature (when (message-goto-signature) (delete-region (- (point) 4) (point-max))) ;; and send (message-send-and-exit) ;; finally, mark articles expire-able )) (defun jk/ham-report () "Digest and forward all articles in this series to nospam-+It19tn3Rl8lNQzPPfjNRg==@public.gmane.org= de." (interactive) (jk/ham-spam-report "nospam-o3gYboyLymOzQB+pC5nmwQ==@public.gmane.org")) (defun jk/spam-report () "Digest and forward all articles in this series to spam-+It19tn3Rl9sbm7dSapR3bNAH6kLmebB@public.gmane.org= ." (interactive) (jk/ham-spam-report "spam-o3gYboyLymOzQB+pC5nmwQ==@public.gmane.org")) Greetings, Jochen --=20 Einigkeit und Recht und Freiheit http://www.Jochen-Kuepper.de Libert=E9, =C9galit=E9, Fraternit=E9 GnuPG key: CC1B0B4D (Part 3 you find in my messages before fall 2003.)