From: hmurata <hmurata>
Date: Tue, 23 Sep 2003 02:22:36 +0000 (+0000)
Subject: * wl-addrbook.el (wl-summary-addrbook-from): Use
X-Git-Tag: wl-2_11_18~15
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=bab54f41b8a506a9b948379314dc68c202d5fa59;p=elisp%2Fwanderlust.git

* wl-addrbook.el (wl-summary-addrbook-from): Use
elmo-message-entity-field.
---

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  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* wl-addrbook.el (wl-summary-addrbook-from): Use
+	elmo-message-entity-field.
+
 2003-07-01  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* 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)))