(spam-spamassassin-register-ham-routine)

(spam-spamassassin-register-spam-routine): fixed function names
again, sorry

diff --git a/lisp/spam.el b/lisp/spam.el
index bcf163c..86ab22e 100644 (file)
--- a/lisp/spam.el
+++ b/lisp/spam.el
@@ -2097,10 +2097,10 @@ REMOVE not nil, remove the ADDRESSES."
 (defun spam-spamassassin-register-ham-routine (articles &optional unregister)
   (spam-spamassassin-register-with-sa-learn articles nil unregister))
 
-(defun spam-spamassassin-register-spam-routine (articles)
+(defun spam-spamassassin-unregister-spam-routine (articles)
   (spam-spamassassin-register-with-sa-learn articles t t))
 
-(defun spam-spamassassin-register-ham-routine (articles)
+(defun spam-spamassassin-unregister-ham-routine (articles)
   (spam-spamassassin-register-with-sa-learn articles nil t))
 \f
 ;;;; Hooks