From bab54f41b8a506a9b948379314dc68c202d5fa59 Mon Sep 17 00:00:00 2001 From: hmurata Date: Tue, 23 Sep 2003 02:22:36 +0000 Subject: [PATCH] * wl-addrbook.el (wl-summary-addrbook-from): Use elmo-message-entity-field. --- utils/ChangeLog | 5 +++++ utils/wl-addrbook.el | 5 ++--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/utils/ChangeLog b/utils/ChangeLog index 24a5e8e..dda4a93 100644 --- a/utils/ChangeLog +++ b/utils/ChangeLog @@ -1,3 +1,8 @@ +2003-09-23 Hiroya Murata + + * wl-addrbook.el (wl-summary-addrbook-from): Use + elmo-message-entity-field. + 2003-07-01 TAKAHASHI Kaoru * ptexinfmt.el: @verb, @tie, @/ support. diff --git a/utils/wl-addrbook.el b/utils/wl-addrbook.el index d9fd2dd..9a1c302 100644 --- a/utils/wl-addrbook.el +++ b/utils/wl-addrbook.el @@ -577,10 +577,9 @@ And use Addrbook for get user name." (string-match wl-summary-showto-folder-regexp wl-summary-buffer-folder-name) (wl-address-user-mail-address-p fromaddr) - (cond ((setq dest (elmo-msgdb-overview-entity-get-to entity)) + (cond ((setq dest (elmo-message-entity-field entity 'to)) (concat "To:" (eword-decode-string (wl-addrbook-get-names dest)))) - ((setq dest (elmo-msgdb-overview-entity-get-extra-field - entity "newsgroups")) + ((setq dest (elmo-message-entity-field entity 'newsgroups)) (concat "Ng:" dest)))) (wl-addrbook-nickname-get fromaddr) from))) -- 1.7.10.4