projects / elisp / wanderlust.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
Changed codename to Venus-pre2.
[elisp/wanderlust.git] / elmo / elmo-net.el
diff --git a/elmo/elmo-net.el b/elmo/elmo-net.el
index 34e1143..009dcae 100644 (file)
--- a/elmo/elmo-net.el
+++ b/elmo/elmo-net.el
@@ -393,26 +393,19 @@ Returned value is searched from `elmo-network-stream-type-alist'."
                 (elmo-dop-spool-folder-list-messages folder))))
     t))
 
-(luna-define-method elmo-folder-list-unreads :around ((folder
-                                                      elmo-net-folder))
+(luna-define-method elmo-folder-list-unreads-internal
+  ((folder elmo-net-folder) unread-marks &optional mark-alist)
   (if (and (elmo-folder-plugged-p folder)
           (elmo-folder-use-flag-p folder))
       (elmo-folder-send folder 'elmo-folder-list-unreads-plugged)
-    (luna-call-next-method)))
+    t))
 
-(luna-define-method elmo-folder-list-importants :around ((folder
-                                                         elmo-net-folder))
+(luna-define-method elmo-folder-list-importants-internal
+  ((folder elmo-net-folder) important-mark)
   (if (and (elmo-folder-plugged-p folder)
           (elmo-folder-use-flag-p folder))
       (elmo-folder-send folder 'elmo-folder-list-importants-plugged)
-    (luna-call-next-method)))
-
-(luna-define-method elmo-folder-list-answereds :around ((folder
-                                                        elmo-net-folder))
-  (if (and (elmo-folder-plugged-p folder)
-          (elmo-folder-use-flag-p folder))
-      (elmo-folder-send folder 'elmo-folder-list-answereds-plugged)
-    (luna-call-next-method)))
+    t))
 
 (luna-define-method elmo-folder-list-unreads-plugged
   ((folder elmo-net-folder))
@@ -422,10 +415,6 @@ Returned value is searched from `elmo-network-stream-type-alist'."
   ((folder elmo-net-folder))
   t)
 
-(luna-define-method elmo-folder-list-answereds-plugged
-  ((folder elmo-net-folder))
-  t)
-
 (luna-define-method elmo-folder-delete-messages ((folder elmo-net-folder)
                                                 numbers)
   (if (elmo-folder-plugged-p folder)
@@ -438,81 +427,72 @@ Returned value is searched from `elmo-network-stream-type-alist'."
   (elmo-folder-delete-messages-dop folder numbers))
 
 (luna-define-method elmo-folder-msgdb-create ((folder elmo-net-folder)
-                                             numbers seen-list)
+                                             numbers new-mark
+                                             already-mark seen-mark
+                                             important-mark seen-list)
   (if (elmo-folder-plugged-p folder)
       (elmo-folder-send folder 'elmo-folder-msgdb-create-plugged
-                       numbers seen-list)
+                       numbers
+                       new-mark
+                       already-mark seen-mark
+                       important-mark seen-list)
     (elmo-folder-send folder 'elmo-folder-msgdb-create-unplugged
-                     numbers seen-list)))
+                     numbers
+                     new-mark already-mark seen-mark
+                     important-mark seen-list)))
 
 (luna-define-method elmo-folder-msgdb-create-unplugged ((folder
                                                         elmo-net-folder)
                                                        numbers
+                                                       new-mark already-mark
+                                                       seen-mark
+                                                       important-mark
                                                        seen-list)
   ;; XXXX should be appended to already existing msgdb.
   (elmo-dop-msgdb
    (elmo-folder-msgdb-create (elmo-dop-spool-folder folder)
                             (mapcar 'abs numbers)
+                            new-mark already-mark
+                            seen-mark
+                            important-mark
                             seen-list)))
 
-(luna-define-method elmo-folder-unmark-important :before ((folder
-                                                          elmo-net-folder)
-                                                         numbers)
-  (when (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))))
-
-(luna-define-method elmo-folder-mark-as-important :before ((folder
-                                                           elmo-net-folder)
-                                                          numbers)
-  (when (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))))
-
-(luna-define-method elmo-folder-unmark-read :before ((folder elmo-net-folder)
-                                                    numbers
-                                                    &optional ignore-flag)
-  (when (and (elmo-folder-use-flag-p folder)
-            (not ignore-flag))
-    (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))))
-
-(luna-define-method elmo-folder-mark-as-read :before ((folder elmo-net-folder)
-                                                     numbers
-                                                     &optional ignore-flag)
-  (when (and (elmo-folder-use-flag-p folder)
-            (not ignore-flag))
-    (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))))
-
-(luna-define-method elmo-folder-unmark-answered :before ((folder
-                                                         elmo-net-folder)
-                                                        numbers)
-  (when (elmo-folder-use-flag-p folder)
-    (if (elmo-folder-plugged-p folder)
-       (elmo-folder-send folder 'elmo-folder-unmark-answered-plugged
-                         numbers)
-      (elmo-folder-send folder
-                       'elmo-folder-unmark-answered-unplugged numbers))))
-
-(luna-define-method elmo-folder-mark-as-answered :before ((folder
-                                                          elmo-net-folder)
-                                                         numbers)
-  (when (elmo-folder-use-flag-p folder)
-    (if (elmo-folder-plugged-p folder)
-       (elmo-folder-send folder 'elmo-folder-mark-as-answered-plugged
-                         numbers)
-      (elmo-folder-send folder 'elmo-folder-mark-as-answered-unplugged
-                       numbers))))
+(luna-define-method elmo-folder-unmark-important ((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-define-method elmo-folder-mark-as-important ((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-define-method elmo-folder-unmark-read ((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-define-method elmo-folder-mark-as-read ((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-define-method elmo-folder-mark-as-read-unplugged ((folder
                                                         elmo-net-folder)
@@ -533,15 +513,6 @@ Returned value is searched from `elmo-network-stream-type-alist'."
                                                            numbers)
   (elmo-folder-unmark-important-dop folder numbers))
 
-(luna-define-method elmo-folder-mark-as-answered-unplugged ((folder
-                                                            elmo-net-folder)
-                                                           numbers)
-  (elmo-folder-mark-as-answered-dop folder numbers))
-
-(luna-define-method elmo-folder-unmark-answered-unplugged
-  ((folder elmo-net-folder) numbers)
-  (elmo-folder-unmark-answered-dop folder numbers))
-
 (luna-define-method elmo-message-encache :around ((folder elmo-net-folder)
                                                  number &optional read)
   (if (elmo-folder-plugged-p folder)