Re: Gnus SPAM support, and email based reporting.

["Jochen Küpper" <jochen-+It19tn3Rl9sbm7dSapR3bNAH6kLmebB@public.gmane.org>]

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-report")))
       (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.orgde."
  (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
-- 
Einigkeit und Recht und Freiheit                http://www.Jochen-Kuepper.de
    Liberté, Égalité, Fraternité                GnuPG key: CC1B0B4D
        (Part 3 you find in my messages before fall 2003.)