From: hmurata <hmurata>
Date: Mon, 18 Aug 2003 04:00:38 +0000 (+0000)
Subject: * wl-refile.el (wl-refile-subject-learn): Call
X-Git-Tag: wl-2_11_8~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=84e82b43b02671b39379ecc4b71799a827bc9e9b;p=elisp%2Fwanderlust.git

* wl-refile.el (wl-refile-subject-learn): Call
`elmo-message-entity-field' with 3rd argument is non-nil.
(wl-refile-guess-by-subject): Use `elmo-message-entity-field'
instead of `elmo-msgdb-overview-entity-get-subject'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 0ca3be6..149c183 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,10 @@
+2003-08-18  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* wl-refile.el (wl-refile-subject-learn): Call
+	`elmo-message-entity-field' with 3rd argument is non-nil.
+	(wl-refile-guess-by-subject): Use `elmo-message-entity-field'
+	instead of `elmo-msgdb-overview-entity-get-subject'.
+
 2003-08-12  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-summary.el (wl-summary-goto-folder-subr): Rescan if
diff --git a/wl/wl-refile.el b/wl/wl-refile.el
index 9d78fb6..4c56ccd 100644
--- a/wl/wl-refile.el
+++ b/wl/wl-refile.el
@@ -132,7 +132,7 @@
 
 (defun wl-refile-subject-learn (entity dst)
   (let ((subject (funcall wl-summary-subject-filter-function
-			  (elmo-message-entity-field entity 'subject)))
+			  (elmo-message-entity-field entity 'subject 'decode)))
 	hit)
     (setq dst (elmo-string dst))
     (if (and subject (not (string= subject "")))
@@ -250,7 +250,7 @@ If RULE does not match ENTITY, returns nil."
 
 (defun wl-refile-guess-by-subject (entity)
   (cdr (assoc (funcall wl-summary-subject-filter-function
-		       (elmo-msgdb-overview-entity-get-subject entity))
+		       (elmo-message-entity-field entity 'subject 'decode))
 	      wl-refile-subject-alist)))
 
 (require 'product)