From 334649b6dd29da288ae3ad987be7fef7319fdec0 Mon Sep 17 00:00:00 2001 From: hmurata Date: Mon, 29 Sep 2003 07:50:18 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-prefetch-msg): Fixed. (wl-summary-forward): Use elmo-message-entity-field instead of elmo-message-field. --- wl/ChangeLog | 4 ++++ wl/wl-summary.el | 27 +++++++++++++++------------ 2 files changed, 19 insertions(+), 12 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 88ccaaf..98063ee 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,5 +1,9 @@ 2003-09-29 Hiroya Murata + * wl-summary.el (wl-summary-prefetch-msg): Fixed. + (wl-summary-forward): Use elmo-message-entity-field instead of + elmo-message-field. + * wl-summary.el (wl-summary-update-mark-and-highlight-window): Fixed. 2003-09-28 Hiroya Murata diff --git a/wl/wl-summary.el b/wl/wl-summary.el index 91231cf..381ed8b 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -1377,17 +1377,18 @@ If ARG is non-nil, checking is omitted." (save-match-data (wl-set-string-width 17 - (funcall wl-summary-from-function - (eword-decode-string - (elmo-delete-char - ?\" - (or - (elmo-message-field - (elmo-message-entity - wl-summary-buffer-elmo-folder - number) - 'from t) - "??")))))) " ]") + (funcall + wl-summary-from-function + (elmo-delete-char + ?\" + (or + (elmo-message-entity-field + (elmo-message-entity + wl-summary-buffer-elmo-folder + number) + 'from t) + "??"))))) + " ]") size)))) (message "")) ; flush. (if force-read @@ -3938,7 +3939,9 @@ Use function list is `wl-summary-write-current-folder-functions'." (save-excursion (set-buffer summary-buf) (setq subject - (or (elmo-message-field folder number 'subject) "")))) + (or (elmo-message-entity-field + (elmo-message-entity folder number) 'subject 'decode) + "")))) (set-buffer mes-buf) (wl-draft-forward subject summary-buf) (unless without-setup-hook -- 1.7.10.4