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