From 5fd75d80588524490f26aa017eb1944d30bd1c26 Mon Sep 17 00:00:00 2001 From: hmurata Date: Sun, 2 Jan 2005 03:36:48 +0000 Subject: [PATCH] (elmo-message-field): Define. (elmo-message-set-field): Ditto. --- elmo/ChangeLog | 5 +++++ elmo/elmo-filter.el | 10 ++++++++++ 2 files changed, 15 insertions(+) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 47aa6bc..c6ac457 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2005-01-02 Hiroya Murata + + * elmo-filter.el (elmo-message-field): Define. + (elmo-message-set-field): Ditto. + 2004-12-25 Hiroya Murata * elmo.el (elmo-message-set-cached): Call diff --git a/elmo/elmo-filter.el b/elmo/elmo-filter.el index d8b0461..2fbcc9d 100644 --- a/elmo/elmo-filter.el +++ b/elmo/elmo-filter.el @@ -391,6 +391,16 @@ number) (elmo-message-folder (elmo-filter-folder-target-internal folder) number)) +(luna-define-method elmo-message-field ((folder elmo-filter-folder) + number field) + (elmo-message-field + (elmo-filter-folder-target-internal folder) number field)) + +(luna-define-method elmo-message-set-field ((folder elmo-filter-folder) + number field value) + (elmo-message-set-field + (elmo-filter-folder-target-internal folder) number field value)) + (luna-define-method elmo-folder-clear ((folder elmo-filter-folder) &optional keep-killed) (unless keep-killed -- 1.7.10.4