emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/gnus/spam.el [emacs-unicode-2]


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/gnus/spam.el [emacs-unicode-2]
Date: Wed, 29 Sep 2004 03:44:57 -0400

Index: emacs/lisp/gnus/spam.el
diff -c emacs/lisp/gnus/spam.el:1.2.2.1 emacs/lisp/gnus/spam.el:1.2.2.2
*** emacs/lisp/gnus/spam.el:1.2.2.1     Thu Sep  9 09:36:25 2004
--- emacs/lisp/gnus/spam.el     Wed Sep 29 07:22:15 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))




reply via email to

[Prev in Thread] Current Thread [Next in Thread]