From: hmurata <hmurata>
Date: Sun, 2 Jan 2005 03:36:48 +0000 (+0000)
Subject: (elmo-message-field): Define.
X-Git-Tag: wl-2_14-root~102
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5fd75d80588524490f26aa017eb1944d30bd1c26;p=elisp%2Fwanderlust.git

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

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  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* elmo-filter.el (elmo-message-field): Define.
+	(elmo-message-set-field): Ditto.
+
 2004-12-25  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* 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