(elmo-message-field): Define.

(elmo-message-set-field): Ditto.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index b9964d9..232d320 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2005-01-02  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * elmo-filter.el (elmo-message-field): Define.
+       (elmo-message-set-field): Ditto.
+
 2004-12-24  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * 2.12.0 is released.

diff --git a/elmo/elmo-filter.el b/elmo/elmo-filter.el
index d8b0461..2fbcc9d 100644 (file)
--- 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