Re: How many people mark spam in gmane groups?

[Reiner Steib <4.uce.03.r.s@nurfuerspam.de>]

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> <m3fzwk3hcq.fsf@quimbies.gnus.org>
;; 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/