From 84e82b43b02671b39379ecc4b71799a827bc9e9b Mon Sep 17 00:00:00 2001 From: hmurata Date: Mon, 18 Aug 2003 04:00:38 +0000 Subject: [PATCH] * 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'. --- wl/ChangeLog | 7 +++++++ wl/wl-refile.el | 4 ++-- 2 files changed, 9 insertions(+), 2 deletions(-) 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 + + * 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 * 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) -- 1.7.10.4