* elsp-spamfilter.el (elmo-spam-buffer-spam-p): Call

elsp-spamfilter-register-buffer-internal with current buffer.
(elmo-spam-register-spam-buffer): Ditto.
(elmo-spam-register-good-buffer): Ditto.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 25ec854..36ec163 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,10 @@
+2004-03-26  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * elsp-spamfilter.el (elmo-spam-buffer-spam-p): Call
+       elsp-spamfilter-register-buffer-internal with current buffer.
+       (elmo-spam-register-spam-buffer): Ditto.
+       (elmo-spam-register-good-buffer): Ditto.
+
 2004-03-15  ARISAWA Akihiro  <ari@mbf.sphere.ne.jp>
 
        * elmo-imap4.el (elmo-folder-list-subfolders): Add root mailbox

diff --git a/elmo/elsp-spamfilter.el b/elmo/elsp-spamfilter.el
index f5a7cd6..491df20 100644 (file)
--- a/elmo/elsp-spamfilter.el
+++ b/elmo/elsp-spamfilter.el
@@ -98,20 +98,21 @@
                 (elsp-spamfilter-good-corpus-internal processor)
                 (elsp-spamfilter-bad-corpus-internal  processor))))
       (when register
-       (elsp-spamfilter-register-buffer-internal processor buffer spam))
+       (elsp-spamfilter-register-buffer-internal
+        processor (current-buffer) spam))
       spam)))
 
 (luna-define-method elmo-spam-register-spam-buffer ((processor elsp-spamfilter)
                                                    buffer &optional restore)
   (with-temp-buffer
     (elsp-spamfilter-decode-buffer buffer)
-    (elsp-spamfilter-register-buffer-internal processor buffer t)))
+    (elsp-spamfilter-register-buffer-internal processor (current-buffer) t)))
 
 (luna-define-method elmo-spam-register-good-buffer ((processor elsp-spamfilter)
                                                    buffer &optional restore)
   (with-temp-buffer
     (elsp-spamfilter-decode-buffer buffer)
-    (elsp-spamfilter-register-buffer-internal processor buffer nil)))
+    (elsp-spamfilter-register-buffer-internal processor (current-buffer) nil)))
 
 (require 'product)
 (product-provide (provide 'elsp-spamfilter) (require 'elmo-version))