[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/spam.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/spam.el [lexbind] |
Date: |
Wed, 06 Oct 2004 01:43:36 -0400 |
Index: emacs/lisp/gnus/spam.el
diff -c emacs/lisp/gnus/spam.el:1.2.4.1 emacs/lisp/gnus/spam.el:1.2.4.2
*** emacs/lisp/gnus/spam.el:1.2.4.1 Thu Sep 16 00:12:15 2004
--- emacs/lisp/gnus/spam.el Wed Oct 6 05:23:52 2004
***************
*** 1746,1752 ****
(goto-char (point-min))
(when (re-search-forward "^X-Spam: yes;" nil t)
spam-split-group))
! (error "Error running spamoracle" status))))))))
(defun spam-spamoracle-learn (articles article-is-spam-p &optional unregister)
"Run spamoracle in training mode."
--- 1746,1752 ----
(goto-char (point-min))
(when (re-search-forward "^X-Spam: yes;" nil t)
spam-split-group))
! (error "Error running spamoracle: %s" status))))))))
(defun spam-spamoracle-learn (articles article-is-spam-p &optional unregister)
"Run spamoracle in training mode."
***************
*** 1768,1775 ****
`("-f" ,spam-spamoracle-database
"add" ,arg)
`("add" ,arg)))))
! (when (not (eq 0 status))
! (error "Error running spamoracle" status)))))))
(defun spam-spamoracle-learn-ham (articles &optional unregister)
(spam-spamoracle-learn articles nil unregister))
--- 1768,1775 ----
`("-f" ,spam-spamoracle-database
"add" ,arg)
`("add" ,arg)))))
! (unless (eq 0 status)
! (error "Error running spamoracle: %s" status)))))))
(defun spam-spamoracle-learn-ham (articles &optional unregister)
(spam-spamoracle-learn articles nil unregister))
- [Emacs-diffs] Changes to emacs/lisp/gnus/spam.el [lexbind],
Miles Bader <=