From: hmurata <hmurata>
Date: Wed, 13 Apr 2005 05:02:05 +0000 (+0000)
Subject: (modb-standard-loaded-message-id): Use
X-Git-Tag: wl-2_15_3~83
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3678d8404ccd083a4e1296ef665b80b3648b34fc;p=elisp%2Fwanderlust.git

(modb-standard-loaded-message-id): Use
`elmo-msgdb-message-entity-field'.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 89cfb8d..57adc5d 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2005-04-13  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* modb-standard.el (modb-standard-loaded-message-id): Use
+	`elmo-msgdb-message-entity-field'.
+
 2005-04-11  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* elmo-util.el (elmo-object-load): Call `elmo-set-auto-coding'
diff --git a/elmo/modb-standard.el b/elmo/modb-standard.el
index d813447..8f44be8 100644
--- a/elmo/modb-standard.el
+++ b/elmo/modb-standard.el
@@ -176,16 +176,15 @@
 	      (modb-standard-key number)
 	      (modb-standard-entity-map-internal msgdb))))
     (cond
-     ((and ret (eq (car-safe ret) 'autoload))
-      (cdr (cdr ret))) ; message-id.
-     ((and ret (stringp (car-safe ret)))
-      ;; Already loaded.
-      (car ret))
      ((null ret)
       ;; Garbage entity.
       (elmo-clear-hash-val (modb-standard-key number)
 			   (modb-standard-entity-map-internal msgdb))
       nil)				; return nil.
+     ((eq (car-safe ret) 'autoload)
+      (cdr (cdr ret)))			; message-id.
+     ((elmo-msgdb-message-entity-field (elmo-message-entity-handler ret)
+				       ret 'message-id)) ; Already loaded.
      (t (error "Internal error: invalid msgdb status")))))
 
 (defun modb-standard-load-entity (modb path &optional section)