(spam-report-articles-gmane): New command.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 05d634c..c71bd7a 100644 (file)
--- 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 c1e8969..16e33f5 100644 (file)
--- a/lisp/spam.el
+++ b/lisp/spam.el
@@ -570,6 +570,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 ()