From: hmurata <hmurata>
Date: Wed, 23 Jul 2003 05:33:46 +0000 (+0000)
Subject: * elmo-pipe.el (elmo-folder-unmark-answered): Define.
X-Git-Tag: elmo-mark-restart~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=27c9c7ef7c9582fa3bd4f7f850a738233c98c75e;p=elisp%2Fwanderlust.git

* elmo-pipe.el (elmo-folder-unmark-answered): Define.
(elmo-folder-mark-as-answered): Ditto.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index dc83a66..49ece13 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2003-07-23  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* elmo-pipe.el (elmo-folder-unmark-answered): Define.
+	(elmo-folder-mark-as-answered): Ditto.
+
 2003-07-22  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elmo-pop3.el (elmo-pop3-exists-exactly): Set default value as nil.
diff --git a/elmo/elmo-pipe.el b/elmo/elmo-pipe.el
index 4c22abe..8c3aa2e 100644
--- a/elmo/elmo-pipe.el
+++ b/elmo/elmo-pipe.el
@@ -285,6 +285,16 @@
   (elmo-folder-mark-as-important (elmo-pipe-folder-dst-internal folder)
 				 numbers ignore-flag))
 
+(luna-define-method elmo-folder-unmark-answered ((folder elmo-pipe-folder)
+						 numbers)
+  (elmo-folder-unmark-answered (elmo-pipe-folder-dst-internal folder)
+			       numbers))
+
+(luna-define-method elmo-folder-mark-as-answered ((folder elmo-pipe-folder)
+						  numbers)
+  (elmo-folder-mark-as-answered (elmo-pipe-folder-dst-internal folder)
+				numbers))
+
 (luna-define-method elmo-folder-pack-numbers ((folder elmo-pipe-folder))
   (elmo-folder-pack-numbers (elmo-pipe-folder-dst-internal folder)))