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:
d66bf78
)
Synch to Oort Gnus 200304051403.
author
yamaoka
<yamaoka>
Sat, 5 Apr 2003 14:27:04 +0000
(14:27 +0000)
committer
yamaoka
<yamaoka>
Sat, 5 Apr 2003 14:27:04 +0000
(14:27 +0000)
lisp/ChangeLog
patch
|
blob
|
history
lisp/spam.el
patch
|
blob
|
history
diff --git
a/lisp/ChangeLog
b/lisp/ChangeLog
index
f5c742c
..
a56814c
100644
(file)
--- a/
lisp/ChangeLog
+++ b/
lisp/ChangeLog
@@
-1,3
+1,9
@@
+2003-04-05 Teodor Zlatanov <tzz@lifelogs.com>
+
+ * spam.el (spam-split): (save-excursion) around (widen)
+ (spam-ham-move-routine): Use spam-group-ham-mark-p, not
+ spam-group-spam-mark-p (from Michael Shields <shields@msrl.com>)
+
2003-04-05 Steve Youngs <youngs@xemacs.org>
* gnus-sum.el: XEmacs doesn't support the 5th arg to 'load', so
2003-04-05 Steve Youngs <youngs@xemacs.org>
* gnus-sum.el: XEmacs doesn't support the 5th arg to 'load', so
diff --git
a/lisp/spam.el
b/lisp/spam.el
index
fc5b8c6
..
a64606d
100644
(file)
--- a/
lisp/spam.el
+++ b/
lisp/spam.el
@@
-470,8
+470,8
@@
your main source of newsgroup names."
(when (stringp group) ; this routine will do nothing
; without a valid group
(dolist (article articles)
(when (stringp group) ; this routine will do nothing
; without a valid group
(dolist (article articles)
- (when (spam-group-spam-mark-p gnus-newsgroup-name
- (gnus-summary-article-mark article))
+ (when (spam-group-ham-mark-p gnus-newsgroup-name
+ (gnus-summary-article-mark article))
(push article tomove)))
;; now do the actual move
(push article tomove)))
;; now do the actual move
@@
-592,7
+592,7
@@
example like this: (: spam-split)
See the Info node `(gnus)Fancy Mail Splitting' for more details."
(interactive)
See the Info node `(gnus)Fancy Mail Splitting' for more details."
(interactive)
-
+ (save-excursion
(dolist (check spam-list-of-statistical-checks)
(when (symbol-value check)
(widen)
(dolist (check spam-list-of-statistical-checks)
(when (symbol-value check)
(widen)
@@
-609,7
+609,7
@@
See the Info node `(gnus)Fancy Mail Splitting' for more details."
(setq decision (funcall (cdr pair))))))
(if (eq decision t)
nil
(setq decision (funcall (cdr pair))))))
(if (eq decision t)
nil
- decision)))
+ decision))))
(defun spam-setup-widening ()
(dolist (check spam-list-of-statistical-checks)
(defun spam-setup-widening ()
(dolist (check spam-list-of-statistical-checks)