(spam-check-bogofilter)

(spam-bogofilter-register-with-bogofilter): Fix args of
`gnus-error' calls.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c0a7da4..cb25922 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,8 +2,11 @@
 
        * spam.el (spam-spamassassin-score-regexp): New internal variable.
        (spam-extra-header-to-number, spam-check-spamassassin-headers):
-       Use it to match format of Spamassassin 3.0 and later.
-       Reported by IRIE Tetsuya <irie@t.email.ne.jp>.
+       Use it to match format of Spamassassin 3.0 and later.  Reported by
+       IRIE Tetsuya <irie@t.email.ne.jp>.
+       (spam-check-bogofilter)
+       (spam-bogofilter-register-with-bogofilter): Fix args of
+       `gnus-error' calls.
 
 2006-02-27  Reiner Steib  <Reiner.Steib@gmx.de>
 

diff --git a/lisp/spam.el b/lisp/spam.el
index 0898587..f8595e0 100644 (file)
--- a/lisp/spam.el
+++ b/lisp/spam.el
@@ -2514,7 +2514,7 @@ REMOVE not nil, remove the ADDRESSES."
                     (if db `("-d" ,db "-v") `("-v"))))
            (setq return (spam-check-bogofilter-headers score))))
        return)
-    (gnus-error "`spam.el' doesnt support obsolete bogofilter versions")))
+    (gnus-error 5 "`spam.el' doesn't support obsolete bogofilter versions")))
 
 (defun spam-bogofilter-register-with-bogofilter (articles
                                                 spam
@@ -2540,7 +2540,7 @@ REMOVE not nil, remove the ADDRESSES."
                     spam-bogofilter-path
                     nil nil nil switch
                     (if db `("-d" ,db "-v") `("-v")))))))
-    (gnus-error "`spam.el' doesnt support obsolete bogofilter versions")))
+    (gnus-error 5 "`spam.el' doesn't support obsolete bogofilter versions")))
 
 (defun spam-bogofilter-register-spam-routine (articles &optional unregister)
   (spam-bogofilter-register-with-bogofilter articles t unregister))