* 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 (file)
--- 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 (file)
--- 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)))