From b85b9603053821ce0c73cd46acb7802d26855d41 Mon Sep 17 00:00:00 2001 From: teranisi Date: Mon, 22 Sep 2003 03:26:53 +0000 Subject: [PATCH] * elmo-msgdb.el (elmo-msgdb-get-number): Abolish. (elmo-msgdb-get-parent-entity): Use elmo-message-entity-field. (elmo-msgdb-flag-table): Ditto. --- elmo/ChangeLog | 4 ++++ elmo/elmo-msgdb.el | 10 ++-------- 2 files changed, 6 insertions(+), 8 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index f7cf733..52dfc5d 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,5 +1,9 @@ 2003-09-22 Yuuichi Teranishi + * elmo-msgdb.el (elmo-msgdb-get-number): Abolish. + (elmo-msgdb-get-parent-entity): Use elmo-message-entity-field. + (elmo-msgdb-flag-table): Ditto. + * modb.el (elmo-msgdb-create-message-entity-from-file): Define. * modb-standard.el (toplevel): Require mime. diff --git a/elmo/elmo-msgdb.el b/elmo/elmo-msgdb.el index c0628ca..3d93027 100644 --- a/elmo/elmo-msgdb.el +++ b/elmo/elmo-msgdb.el @@ -43,7 +43,6 @@ ;; ;; MSGDB elmo-load-msgdb PATH -;; NUMBER elmo-msgdb-get-number MSGDB MESSAGE-ID ;; elmo-msgdb-sort-by-date MSGDB ;; elmo-flag-table-load @@ -112,11 +111,6 @@ (luna-make-entity class :location location))) -(defsubst elmo-msgdb-get-number (msgdb message-id) - "Get number of the message which corrensponds to MESSAGE-ID from MSGDB." - (elmo-msgdb-message-entity-number - msgdb (elmo-msgdb-message-entity msgdb message-id))) - (defun elmo-msgdb-sort-by-date (msgdb) (elmo-msgdb-sort-entities msgdb @@ -131,7 +125,7 @@ (defsubst elmo-msgdb-get-parent-entity (entity msgdb) - (setq entity (elmo-msgdb-message-entity-field msgdb entity 'references)) + (setq entity (elmo-message-entity-field entity 'references)) ;; entity is parent-id. (and entity (elmo-msgdb-message-entity msgdb entity))) @@ -222,7 +216,7 @@ (setq entity (elmo-msgdb-message-entity msgdb number)) (elmo-flag-table-set flag-table - (elmo-msgdb-message-entity-field msgdb entity 'message-id) + (elmo-message-entity-field entity 'message-id) (elmo-msgdb-flags msgdb number))) flag-table)) -- 1.7.10.4