(spam-check-bogofilter): run in the correct buffer.

From lorentey@elte.hu (Lőrentey Károly).
(spam-bogofilter-database-directory): correct customization
group.  From Xavier Maillard <zedek@gnu-rox.org>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cf4f527..4f6dab2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2003-12-09  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * spam.el (spam-check-bogofilter): run in the correct buffer.
+       From lorentey@elte.hu (L\e,Bu\e(Brentey K\e,Ba\e(Broly).
+       (spam-bogofilter-database-directory): correct customization
+       group.  From Xavier Maillard <zedek@gnu-rox.org>.
+
 2003-12-09  Per Abrahamsen  <abraham@dina.kvl.dk>
 
        * nnmail.el (nnmail-lazy, nnmail-split-fancy): New widgets.

diff --git a/lisp/spam.el b/lisp/spam.el
index 9f99c83..61af4e1 100644 (file)
--- a/lisp/spam.el
+++ b/lisp/spam.el
@@ -374,7 +374,7 @@ your main source of newsgroup names."
   :type '(choice (directory 
                  :tag "Location of the Bogofilter database directory")
                 (const :tag "Use the default"))
-  :group 'spam-ifile)
+  :group 'spam-bogofilter)
 
 (defgroup spam-spamoracle nil
   "Spam spamoracle configuration."
@@ -1539,8 +1539,8 @@ REMOVE not nil, remove the ADDRESSES."
                 (point-min) (point-max) 
                 spam-bogofilter-path
                 nil temp-buffer-name nil
-                (if db `("-d" ,db "-v") `("-v")))
-         (setq return (spam-check-bogofilter-headers score)))))
+                (if db `("-d" ,db "-v") `("-v"))))
+       (setq return (spam-check-bogofilter-headers score))))
     return))
 
 (defun spam-bogofilter-register-with-bogofilter (articles