/[emacs]/emacs/lisp/gnus/spam.el
ViewVC logotype

Diff of /emacs/lisp/gnus/spam.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2.2.1 by miles, Thu Sep 9 09:36:25 2004 UTC revision 1.2.2.2 by miles, Wed Sep 29 07:22:15 2004 UTC
# Line 1746  REMOVE not nil, remove the ADDRESSES." Line 1746  REMOVE not nil, remove the ADDRESSES."
1746                    (goto-char (point-min))                    (goto-char (point-min))
1747                    (when (re-search-forward "^X-Spam: yes;" nil t)                    (when (re-search-forward "^X-Spam: yes;" nil t)
1748                      spam-split-group))                      spam-split-group))
1749                (error "Error running spamoracle" status))))))))                (error "Error running spamoracle: %s" status))))))))
1750    
1751  (defun spam-spamoracle-learn (articles article-is-spam-p &optional unregister)  (defun spam-spamoracle-learn (articles article-is-spam-p &optional unregister)
1752    "Run spamoracle in training mode."    "Run spamoracle in training mode."
# Line 1768  REMOVE not nil, remove the ADDRESSES." Line 1768  REMOVE not nil, remove the ADDRESSES."
1768                             `("-f" ,spam-spamoracle-database                             `("-f" ,spam-spamoracle-database
1769                               "add" ,arg)                               "add" ,arg)
1770                           `("add" ,arg)))))                           `("add" ,arg)))))
1771            (when (not (eq 0 status))            (unless (eq 0 status)
1772              (error "Error running spamoracle" status)))))))              (error "Error running spamoracle: %s" status)))))))
1773    
1774  (defun spam-spamoracle-learn-ham (articles &optional unregister)  (defun spam-spamoracle-learn-ham (articles &optional unregister)
1775    (spam-spamoracle-learn articles nil unregister))    (spam-spamoracle-learn articles nil unregister))

Legend:
Removed from v.1.2.2.1  
changed lines
  Added in v.1.2.2.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26