From: teranisi <teranisi>
Date: Tue, 17 Sep 2002 04:06:29 +0000 (+0000)
Subject: * elmo-net.el (elmo-folder-unmark-important): Added :around qualifier.
X-Git-Tag: elmo-mark-restart~139
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=fbdb62625b9f613019c6f5b44260312e362fc5c7;p=elisp%2Fwanderlust.git

* elmo-net.el (elmo-folder-unmark-important): Added :around qualifier.
(elmo-folder-mark-as-important): Ditto.
(elmo-folder-unmark-read): Ditto.
(elmo-folder-mark-as-read): Ditto.
(elmo-folder-unmark-answered): Ditto.
(elmo-folder-mark-as-answered): Ditto.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index ee906b9..7322efe 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,12 @@
 2002-09-17  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* elmo-net.el (elmo-folder-unmark-important): Added :around qualifier.
+	(elmo-folder-mark-as-important): Ditto.
+	(elmo-folder-unmark-read): Ditto.
+	(elmo-folder-mark-as-read): Ditto.
+	(elmo-folder-unmark-answered): Ditto.
+	(elmo-folder-mark-as-answered): Ditto.
+
 	* elmo-msgdb.el (elmo-msgdb-match-condition-primitive): Added argument
 	`mark'; evaluate mark condition.
 	(elmo-msgdb-match-condition-internal): New function.
diff --git a/elmo/elmo-net.el b/elmo/elmo-net.el
index 51d70e6..966b3c6 100644
--- a/elmo/elmo-net.el
+++ b/elmo/elmo-net.el
@@ -455,45 +455,48 @@ Returned value is searched from `elmo-network-stream-type-alist'."
 			     (mapcar 'abs numbers)
 			     seen-list)))
 
-(luna-define-method elmo-folder-unmark-important ((folder elmo-net-folder)
-						  numbers)
+(luna-define-method elmo-folder-unmark-important :around ((folder
+							   elmo-net-folder)
+							  numbers)
   (if (elmo-folder-use-flag-p folder)
       (if (elmo-folder-plugged-p folder)
 	  (elmo-folder-send folder 'elmo-folder-unmark-important-plugged
 			    numbers)
 	(elmo-folder-send folder
 			  'elmo-folder-unmark-important-unplugged numbers))
-    t))
+    (luna-call-next-method)))
 
-(luna-define-method elmo-folder-mark-as-important ((folder elmo-net-folder)
-						   numbers)
+(luna-define-method elmo-folder-mark-as-important :around ((folder
+							    elmo-net-folder)
+							   numbers)
   (if (elmo-folder-use-flag-p folder)
       (if (elmo-folder-plugged-p folder)
 	  (elmo-folder-send folder 'elmo-folder-mark-as-important-plugged
 			    numbers)
 	(elmo-folder-send folder 'elmo-folder-mark-as-important-unplugged
 			  numbers))
-    t))
+    (luna-call-next-method)))
 
-(luna-define-method elmo-folder-unmark-read ((folder elmo-net-folder)
-					     numbers)
+(luna-define-method elmo-folder-unmark-read :around ((folder elmo-net-folder)
+						     numbers)
   (if (elmo-folder-use-flag-p folder)
       (if (elmo-folder-plugged-p folder)
 	  (elmo-folder-send folder 'elmo-folder-unmark-read-plugged numbers)
 	(elmo-folder-send folder 'elmo-folder-unmark-read-unplugged numbers))
-    t))
+    (luna-call-next-method)))
 
-(luna-define-method elmo-folder-mark-as-read ((folder elmo-net-folder)
-					      numbers)
+(luna-define-method elmo-folder-mark-as-read :around ((folder elmo-net-folder)
+						      numbers)
   (if (elmo-folder-use-flag-p folder)
       (if (elmo-folder-plugged-p folder)
 	  (elmo-folder-send folder 'elmo-folder-mark-as-read-plugged numbers)
 	(elmo-folder-send
 	 folder 'elmo-folder-mark-as-read-unplugged numbers))
-    t))
+    (luna-call-next-method)))
 
-(luna-define-method elmo-folder-unmark-answered ((folder elmo-net-folder)
-						 numbers)
+(luna-define-method elmo-folder-unmark-answered :around ((folder
+							  elmo-net-folder)
+							 numbers)
   (if (elmo-folder-use-flag-p folder)
       (if (elmo-folder-plugged-p folder)
 	  (elmo-folder-send folder 'elmo-folder-unmark-answered-plugged
@@ -502,8 +505,9 @@ Returned value is searched from `elmo-network-stream-type-alist'."
 			  'elmo-folder-unmark-answered-unplugged numbers))
     (luna-call-next-method)))
 
-(luna-define-method elmo-folder-mark-as-answered ((folder elmo-net-folder)
-						  numbers)
+(luna-define-method elmo-folder-mark-as-answered :around ((folder
+							   elmo-net-folder)
+							  numbers)
   (if (elmo-folder-use-flag-p folder)
       (if (elmo-folder-plugged-p folder)
 	  (elmo-folder-send folder 'elmo-folder-mark-as-answered-plugged