From 3678d8404ccd083a4e1296ef665b80b3648b34fc Mon Sep 17 00:00:00 2001 From: hmurata Date: Wed, 13 Apr 2005 05:02:05 +0000 Subject: [PATCH] (modb-standard-loaded-message-id): Use `elmo-msgdb-message-entity-field'. --- elmo/ChangeLog | 5 +++++ elmo/modb-standard.el | 9 ++++----- 2 files changed, 9 insertions(+), 5 deletions(-) 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 + + * modb-standard.el (modb-standard-loaded-message-id): Use + `elmo-msgdb-message-entity-field'. + 2005-04-11 Hiroya Murata * 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) -- 1.7.10.4