From 038e12da45269f64c6f6060a4fd854f1c9f78fa2 Mon Sep 17 00:00:00 2001 From: teranisi Date: Sun, 21 Sep 2003 15:12:55 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-overview-entity-compare-by-from): Decode entity field value. (wl-summary-prefetch-msg): Ditto. (wl-summary-print-message-with-ps-print): Ditto. --- wl/ChangeLog | 7 +++++++ wl/wl-summary.el | 10 +++++----- 2 files changed, 12 insertions(+), 5 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index c17582b..4190459 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,5 +1,12 @@ 2003-09-21 Yuuichi Teranishi + * wl-summary.el (wl-summary-overview-entity-compare-by-from): Decode + entity field value. + (wl-summary-prefetch-msg): Ditto. + (wl-summary-print-message-with-ps-print): Ditto. + +2003-09-21 Yuuichi Teranishi + * wl-summary.el (wl-summary-detect-mark-position): Use generic msgdb for dummy entity. (wl-summary-insert-thread): Use elmo-message-entity-field. diff --git a/wl/wl-summary.el b/wl/wl-summary.el index f791318..e188ed2 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -812,10 +812,10 @@ Entering Folder mode calls the value of `wl-summary-mode-hook'." "Compare entity X and Y by from." (string< (wl-address-header-extract-address - (or (elmo-message-entity-field x 'from) + (or (elmo-message-entity-field x 'from t) wl-summary-no-from-message)) (wl-address-header-extract-address - (or (elmo-message-entity-field y 'from) + (or (elmo-message-entity-field y 'from t) wl-summary-no-from-message)))) (defun wl-summary-overview-entity-compare-by-subject (x y) @@ -1354,7 +1354,7 @@ If ARG is non-nil, checking is omitted." (or (elmo-message-field wl-summary-buffer-elmo-folder - number 'from) + number 'from t) "??")))))) " ]") size)))) (message "")) ; flush. @@ -4412,11 +4412,11 @@ If ASK-CODING is non-nil, coding-system for the message is asked." (wl-summary-message-number)))) (wl-ps-subject (and entity - (or (elmo-message-entity-field entity 'subject) + (or (elmo-message-entity-field entity 'subject t) ""))) (wl-ps-from (and entity - (or (elmo-message-entity-field entity 'from) ""))) + (or (elmo-message-entity-field entity 'from t) ""))) (wl-ps-date (and entity (or (elmo-message-entity-field entity 'date) "")))) -- 1.7.10.4