* pldap.el (ldap-default-host): Fixed docstring.

[elisp/wanderlust.git] / elmo / elmo-filter.el

diff --git a/elmo/elmo-filter.el b/elmo/elmo-filter.el
index e9d6b74..11b4cbd 100644 (file)
--- a/elmo/elmo-filter.el
+++ b/elmo/elmo-filter.el
@@ -1,4 +1,4 @@
-;;; elmo-filter.el -- Filtered Folder Interface for ELMO.
+;;; elmo-filter.el --- Filtered Folder Interface for ELMO.
 
 ;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
 
@@ -24,10 +24,10 @@
 ;;
 
 ;;; Commentary:
-;; 
+;;
 
 ;;; Code:
-;; 
+;;
 (require 'elmo)
 
 ;;; ELMO filter folder
@@ -43,7 +43,7 @@
     (elmo-filter-folder-set-condition-internal folder
                                               (car pair))
     (if (string-match "^ */\\(.*\\)$" (cdr pair))
-       (elmo-filter-folder-set-target-internal
+       (elmo-filter-folder-set-target-internal
         folder
         (elmo-make-folder (elmo-match-string 1 (cdr pair))))
       (error "Folder syntax error `%s'" (elmo-folder-name-internal folder)))
@@ -62,7 +62,7 @@
                                                    elmo-filter-folder))
   (expand-file-name
    (elmo-replace-string-as-filename (elmo-folder-name-internal folder))
-   (expand-file-name "filter" elmo-msgdb-dir)))
+   (expand-file-name "filter" elmo-msgdb-directory)))
 
 (luna-define-method elmo-folder-newsgroups ((folder elmo-filter-folder))
   (elmo-folder-newsgroups (elmo-filter-folder-target-internal folder)))
@@ -87,11 +87,48 @@
                                              numlist new-mark already-mark
                                              seen-mark important-mark
                                              seen-list)
-  (elmo-folder-msgdb-create (elmo-filter-folder-target-internal folder)
-                           numlist
-                           new-mark
-                           already-mark
-                           seen-mark important-mark seen-list))
+  (let ((target-folder (elmo-filter-folder-target-internal folder)))
+    (if (elmo-folder-plugged-p target-folder)
+       (elmo-folder-msgdb-create target-folder
+                                 numlist
+                                 new-mark
+                                 already-mark
+                                 seen-mark important-mark seen-list)
+      ;; Copy from msgdb of target folder if it is unplugged.
+      (let ((len (length numlist))
+           (msgdb (elmo-folder-msgdb target-folder))
+           overview number-alist mark-alist
+           message-id seen gmark)
+       (when (> len elmo-display-progress-threshold)
+         (elmo-progress-set 'elmo-folder-msgdb-create
+                            len "Creating msgdb..."))
+       (unwind-protect
+           (dolist (number numlist)
+             (let ((entity (elmo-msgdb-overview-get-entity number msgdb)))
+               (when entity
+                 (setq entity (elmo-msgdb-copy-overview-entity entity)
+                       overview (elmo-msgdb-append-element overview entity)
+                       message-id (elmo-msgdb-overview-entity-get-id entity)
+                       number-alist (elmo-msgdb-number-add number-alist
+                                                           number
+                                                           message-id)
+                       seen (member message-id seen-list))
+                 (if (setq gmark (or (elmo-msgdb-global-mark-get message-id)
+                                     (if (elmo-file-cache-exists-p message-id)
+                                         (if seen
+                                             nil
+                                           already-mark)
+                                       (if seen
+                                           nil ;;seen-mark
+                                         new-mark))))
+                     (setq mark-alist
+                           (elmo-msgdb-mark-append
+                            mark-alist
+                            number
+                            gmark)))))
+             (elmo-progress-notify 'elmo-folder-msgdb-create))
+         (elmo-progress-clear 'elmo-folder-msgdb-create))
+       (list overview number-alist mark-alist)))))
 
 (luna-define-method elmo-folder-append-buffer ((folder elmo-filter-folder)
                                               unread &optional number)
@@ -113,14 +150,24 @@
 
 (luna-define-method elmo-folder-list-messages-internal
   ((folder elmo-filter-folder) &optional nohide)
-  (elmo-folder-search (elmo-filter-folder-target-internal folder)
-                     (elmo-filter-folder-condition-internal folder)))
+  (let ((target (elmo-filter-folder-target-internal folder)))
+    (if (or (elmo-folder-plugged-p target)
+           (not (elmo-folder-persistent-p folder)))
+       ;; search target folder
+       (elmo-folder-search
+        target
+        (elmo-filter-folder-condition-internal folder))
+      ;; not available
+      t)))
 
 (defsubst elmo-filter-folder-list-unreads-internal (folder unread-marks
                                                           mark-alist)
   (let ((unreads (elmo-folder-list-unreads-internal
                  (elmo-filter-folder-target-internal folder)
-                 unread-marks mark-alist)))
+                 unread-marks
+                 (or mark-alist
+                     (elmo-msgdb-get-mark-alist
+                      (elmo-folder-msgdb folder))))))
     (unless (listp unreads)
       (setq unreads
            (delq nil
@@ -156,6 +203,22 @@
    important-mark)
   (elmo-filter-folder-list-importants-internal folder important-mark))
 
+(luna-define-method elmo-folder-list-subfolders ((folder elmo-filter-folder)
+                                                &optional one-level)
+  (let* ((target (elmo-filter-folder-target-internal folder))
+        (prefix (and (string-match
+                      (concat "^\\(.*\\)"
+                              (regexp-quote
+                               (elmo-folder-name-internal
+                                target))
+                              "$")
+                      (elmo-folder-name-internal folder))
+                     (match-string 1 (elmo-folder-name-internal
+                                      folder)))))
+    (elmo-mapcar-list-of-list
+     (lambda (x) (concat prefix x))
+     (elmo-folder-list-subfolders target one-level))))
+
 (luna-define-method elmo-folder-diff :around ((folder elmo-filter-folder)
                                              &optional numbers)
   (if (not (and (vectorp (elmo-filter-folder-condition-internal