From: hmurata <hmurata>
Date: Sun, 2 Jan 2005 03:58:42 +0000 (+0000)
Subject: (elmo-message-field): Define.
X-Git-Tag: wl-2_12_1pre~9
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=57f081e684a5f0a1de02c96bc61ec175784974bb;p=elisp%2Fwanderlust.git

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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index b9964d9..232d320 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-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
--- 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