From: okazaki <okazaki>
Date: Sat, 14 Feb 2004 17:49:58 +0000 (+0000)
Subject: (elmo-message-folder): Define.
X-Git-Tag: wl-2_11_25~63
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4c3f56d75a954e8a1904bd767f2b544f5de57684;p=elisp%2Fwanderlust.git

(elmo-message-folder): Define.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index c386d4e..82bcd81 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,7 @@
+2004-02-15  Tetsurou Okazaki  <okazaki@be.to>
+
+	* elmo-filter.el (elmo-message-folder): Define.
+
 2004-02-13  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elmo.el (elmo-message-fetch-with-cache-process): Don't call
diff --git a/elmo/elmo-filter.el b/elmo/elmo-filter.el
index 460e18a..b555399 100644
--- a/elmo/elmo-filter.el
+++ b/elmo/elmo-filter.el
@@ -270,6 +270,10 @@
   (elmo-folder-unset-flag (elmo-filter-folder-target-internal folder)
 			  numbers flag is-local))
 
+(luna-define-method elmo-message-folder ((folder elmo-filter-folder)
+					 number)
+  (elmo-message-folder (elmo-filter-folder-target-internal folder) number))
+
 (require 'product)
 (product-provide (provide 'elmo-filter) (require 'elmo-version))