From 390ff3753b5d8ffe46f9eb595b105e3578cf8e49 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 7 Jan 2004 04:24:54 +0000 Subject: [PATCH] Synch to Gnus 200401070417. --- lisp/ChangeLog | 4 ++++ lisp/spam.el | 8 ++++++++ 2 files changed, 12 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 05d634c..c71bd7a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2004-01-07 Lars Magne Ingebrigtsen + + * spam.el (spam-report-articles-gmane): New command. + 2004-01-07 Katsumi Yamaoka * gnus.el: Don't make unnecessary *Group* buffer when loading. diff --git a/lisp/spam.el b/lisp/spam.el index 2dc1c38..0b9e9e2 100644 --- a/lisp/spam.el +++ b/lisp/spam.el @@ -572,6 +572,14 @@ spam-use-* variable.") (defun spam-group-ham-processor-spamoracle-p (group) (spam-group-processor-p group 'gnus-group-ham-exit-processor-spamoracle)) +(defun spam-report-articles-gmane (n) + "Report the current message as spam. +Respects the process/prefix convention." + (interactive "P") + (dolist (article (gnus-summary-work-articles n)) + (gnus-summary-remove-process-mark article) + (spam-report-gmane article))) + ;;; Summary entry and exit processing. (defun spam-summary-prepare () -- 1.7.10.4