* elmo.el (elmo-folder-list-messages-internal): Fixed lucking optional

argument `visible-only'.
(elmo-generic-folder-append-messages): Fixed condition. Use `unless'
instead of `if'.

* elmo-pop3.el (elmo-folder-open-internal): Check
`elmo-inhibit-number-mapping' is non-nil.

* elmo-pipe.el (elmo-folder-status): Fixed.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index aac185c..7e6a514 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,15 @@
+2001-04-05  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * elmo.el (elmo-folder-list-messages-internal): Fixed lucking optional
+       argument `visible-only'.
+       (elmo-generic-folder-append-messages): Fixed condition. Use `unless'
+       instead of `if'.
+
+       * elmo-pop3.el (elmo-folder-open-internal): Check
+       `elmo-inhibit-number-mapping' is non-nil.
+
+       * elmo-pipe.el (elmo-folder-status): Fixed.
+
 2001-04-05  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * elmo.el (elmo-dop-queue-flush): Added autload setting.

diff --git a/elmo/elmo-pipe.el b/elmo/elmo-pipe.el
index 572d644..bf99778 100644 (file)
--- a/elmo/elmo-pipe.el
+++ b/elmo/elmo-pipe.el
@@ -138,10 +138,10 @@
         (dst-list (elmo-folder-list-messages
                    (elmo-pipe-folder-dst-internal folder))))
     (prog1 (cons (+ src-length (elmo-max-of-list dst-list))
-                (+ src-length (length dst-list)))))
-  ;; No save.
-  (elmo-folder-close-internal (elmo-pipe-folder-src-internal folder))
-  (elmo-folder-close-internal (elmo-pipe-folder-dst-internal folder)))
+                (+ src-length (length dst-list)))
+      ;; No save.
+      (elmo-folder-close-internal (elmo-pipe-folder-src-internal folder))
+      (elmo-folder-close-internal (elmo-pipe-folder-dst-internal folder)))))
 
 (luna-define-method elmo-folder-exists-p ((folder elmo-pipe-folder))
   (and (elmo-folder-exists-p (elmo-pipe-folder-src-internal folder))

diff --git a/elmo/elmo-pop3.el b/elmo/elmo-pop3.el
index 7a415bf..e89bfbb 100644 (file)
--- a/elmo/elmo-pop3.el
+++ b/elmo/elmo-pop3.el
@@ -812,7 +812,8 @@ set as non-nil.")
        (insert-buffer-substring (process-buffer process) start (- end 3))))))
 
 (luna-define-method elmo-folder-open-internal ((folder elmo-pop3-folder))
-  (if (elmo-pop3-folder-use-uidl-internal folder)
+  (if (and (not elmo-inhibit-number-mapping)
+          (elmo-pop3-folder-use-uidl-internal folder))
       (elmo-pop3-folder-set-location-alist-internal
        folder (elmo-msgdb-location-load (elmo-folder-msgdb-path folder)))))
 

diff --git a/elmo/elmo.el b/elmo/elmo.el
index cf0ade5..c795cd7 100644 (file)
--- a/elmo/elmo.el
+++ b/elmo/elmo.el
@@ -483,7 +483,7 @@ Return newly created temporary directory name which contains temporary files.")
           (elmo-file-cache-path cache-file))))))
 
 (luna-define-method elmo-folder-list-messages-internal
-  ((folder elmo-folder))
+  ((folder elmo-folder) &optional visible-only)
   t)
 
 (luna-define-method elmo-folder-list-unreads-internal
@@ -817,11 +817,11 @@ Return a cons cell of (NUMBER-CROSSPOSTS . NEW-MARK-ALIST).")
          (error (setq failure t)))
        ;; FETCH & APPEND finished
        (unless failure
-         (if unseen (setq seen-list (cons
-                                     (elmo-message-field
-                                      src-folder (car numbers)
-                                      'message-id)
-                                     seen-list)))
+         (unless unseen
+           (setq seen-list (cons (elmo-message-field
+                                  src-folder (car numbers)
+                                  'message-id)
+                                 seen-list)))
          (setq succeed-numbers (cons (car numbers) succeed-numbers)))
        (setq numbers (cdr numbers)))
       (if (and seen-list (elmo-folder-persistent-p folder))