From: hmurata <hmurata>
Date: Thu, 10 Mar 2005 12:32:50 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-sync-update): Use
X-Git-Tag: wl-2_14-root~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=71ded60f171b658f1c25d15b2e871252acc88988;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-sync-update): Use
`elmo-message-entity-field' instead of `car' to get message-id
from overview entity.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index d2e4ac7..67de5b0 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,9 @@
 2005-03-10  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
+	* wl-summary.el (wl-summary-sync-update): Use
+	`elmo-message-entity-field' instead of `car' to get message-id
+	from overview entity.
+
 	* wl-summary.el (wl-summary-rescan-message): Call
 	`wl-highlight-summary-displaying' when displaying a message.
 
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 2925406..0d481ef 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -2011,7 +2011,8 @@ This function is defined for `window-scroll-functions'"
 		    (wl-append update-top-list update-thread))
 		  (if elmo-use-database
 		      (elmo-database-msgid-put
-		       (car entity) (elmo-folder-name-internal folder)
+		       (elmo-message-entity-field entity 'message-id)
+		       (elmo-folder-name-internal folder)
 		       (elmo-message-entity-number entity)))
 		  (when (> num elmo-display-progress-threshold)
 		    (setq i (+ i 1))