From: hmurata <hmurata>
Date: Fri, 26 Mar 2004 06:11:04 +0000 (+0000)
Subject: * elsp-spamfilter.el (elmo-spam-buffer-spam-p): Call
X-Git-Tag: wl-2_11_25~29
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2f81471cdc6728290e702bda07bc14649426e6ba;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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))