From: yamaoka <yamaoka>
Date: Wed, 7 Jan 2004 04:24:54 +0000 (+0000)
Subject: Synch to Gnus 200401070417.
X-Git-Tag: t-gnus-6_17_4-quimby-~1157
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=390ff3753b5d8ffe46f9eb595b105e3578cf8e49;p=elisp%2Fgnus.git-

Synch to Gnus 200401070417.
---

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  <larsi@gnus.org>
+
+	* spam.el (spam-report-articles-gmane): New command.
+
 2004-01-07  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* 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 ()