From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/51205 Path: main.gmane.org!not-for-mail From: Reiner Steib <4.uce.03.r.s@nurfuerspam.de> Newsgroups: gmane.emacs.gnus.general Subject: Re: How many people mark spam in gmane groups? Date: Wed, 02 Apr 2003 18:54:52 +0200 Organization: Dept. of Theoretical Physics, University of Ulm Sender: owner-ding@hpc.uh.edu Message-ID: References: Reply-To: reiner.steib@gmx.de NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1049302776 13976 80.91.224.249 (2 Apr 2003 16:59:36 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Wed, 2 Apr 2003 16:59:36 +0000 (UTC) Original-X-From: owner-ding@hpc.uh.edu Wed Apr 02 18:59:34 2003 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 190lZl-0003ZX-00 for ; Wed, 02 Apr 2003 18:59:01 +0200 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 190lZC-0007Wt-00; Wed, 02 Apr 2003 10:58:26 -0600 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Wed, 02 Apr 2003 10:59:30 -0600 (CST) Original-Received: from main.gmane.org (main.gmane.org [80.91.224.249]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id KAA20976 for ; Wed, 2 Apr 2003 10:59:17 -0600 (CST) Original-Received: from list by main.gmane.org with local (Exim 3.35 #1 (Debian)) id 190lYc-0003Tt-00 for ; Wed, 02 Apr 2003 18:57:50 +0200 Mail-Followup-To: ding@hpc.uh.edu X-Injected-Via-Gmane: http://gmane.org/ Original-To: ding@hpc.uh.edu Original-Received: from news by main.gmane.org with local (Exim 3.35 #1 (Debian)) id 190lYb-0003Th-00 for ; Wed, 02 Apr 2003 18:57:49 +0200 Original-Lines: 63 Original-X-Complaints-To: usenet@main.gmane.org X-Face: :6KQZ[nyoS_edmB.%gw-=)BYth^|2+Y+^cu%I$FSx!&>-'om>3H7A|M&n(V7fIo3P.;yo.b yq4$p;ZaBtkv)\}biaiBQe"mD}iib1AA@99-fZ7i*bLhNRVC&0Wkxg9)SH?oWc@{ Mail-Copies-To: nobody User-Agent: Gnus/5.090018 (Oort Gnus v0.18) Emacs/21.3 (gnu/linux) Cancel-Lock: sha1:NaRlvqQrv7dfbsGUtsXMdHZwAWs= Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:51205 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:51205 On Wed, Apr 02 2003, Ted Stern wrote: > At the moment, this entails me exposing the X-Report-Spam header > using "C-u g" in the summary buffer, then using browse-url-at-point > to send the link to my browser. > Is there some way to automate this a bit more? Sure, it's Gnus. :-) ;; See <873crvd7nb.fsf@doohan.bang.priv.no> ;; This functions also work when we don't read from news.gname.org. ;;;###autoload (defun rs-gnus-summary-fetch-field (field &optional no-err) "Return the value of the header FIELD of current article. Unlike `gnus-fetch-field', `rs-gnus-summary-fetch-field' should be called from a summary buffer and works also if no article buffer was present before." (let ((url) (close-art-buf)) (unless (buffer-live-p gnus-article-buffer) (gnus-summary-show-article 'raw) (setq close-art-buf t)) (set-buffer gnus-article-buffer) (setq url (gnus-fetch-field field)) (when close-art-buf ;; (kill-buffer gnus-article-buffer) ;; FIXME (gnus-summary-expand-window)) (if no-err url (if url url (progn (message "Field `%s' not found in article number %d." field (gnus-summary-article-number)) nil))))) ;;;###autoload (defun rs-gnus-summary-gmane-report-spam () "Report current Gmane article as spam using `browse-url'." (interactive) (let* ((field "X-Report-Spam") (url (rs-gnus-summary-fetch-field field))) (if url (browse-url url)))) ;;;###autoload (defun rs-gnus-summary-gmane-report-unspam () "Report current Gmane article as _not_ spam using `browse-url'." (interactive) (let* ((field "X-Report-Unspam") (url (rs-gnus-summary-fetch-field field))) (if url (browse-url url)))) > It would be nice if there were a single keystroke (say "$ R") to > report spam. I didn't use the above code very often, so I'm not sure if it works reliable. Should we add something like this to Gnus? Opinions? Bye, Reiner. -- ,,, (o o) ---ooO-(_)-Ooo--- PGP key available via WWW http://rsteib.home.pages.de/