projects
/
elisp
/
gnus.git-
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
72550c7
)
Synch to Gnus 200401070417.
author
yamaoka
<yamaoka>
Wed, 7 Jan 2004 04:24:54 +0000
(
04:24
+0000)
committer
yamaoka
<yamaoka>
Wed, 7 Jan 2004 04:24:54 +0000
(
04:24
+0000)
lisp/ChangeLog
patch
|
blob
|
history
lisp/spam.el
patch
|
blob
|
history
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.
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
(file)
--- 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-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 ()
;;; Summary entry and exit processing.
(defun spam-summary-prepare ()