2000-02-20 Kenichi OKADA <okada@opaopa.org>

	* elmo-imap4.el (elmo-imap4-list-folder): Added 'uid'

2000-02-19  Kenichi OKADA  <okada@opaopa.org>

	* elmo2.el (elmo-list-folder): Added optional argument `nohide'.
	* wl-summary.el (wl-summary-sync-update3): Bind 'nohide as t if sync-all.
	* elmo-imap4.el (elmo-imap4-list-folder): Added optional argument `nohide'.
	* elmo-pop3.el (elmo-pop3-list-folder): Ditto.
    	* elmo-nntp.el (elmo-nntp-list-folder): Ditto.
	* elmo-localdir.el (elmo-localdir-list-folder): Ditto.
	* elmo-localnews.el (elmo-localnews-list-folder): Ditto.
	* elmo-archive.el (elmo-archive-list-folder): Ditto.
    	* elmo-filter.el (elmo-filter-list-folder): Ditto.
	* elmo-internal.el (elmo-internal-list-folder): Ditto.
    	* elmo-pipe.el (elmo-pipe-list-folder): Ditto.
    	* elmo-multi.el (elmo-multi-list-folder): Ditto.
    	* elmo-maildir.el (elmo-maildir-list-folder): Ditto.
    	* elmo-dop.el (elmo-dop-list-folder): Ditto.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index e0edbdf..6449572 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,24 @@
+2000-02-20  Kenichi OKADA  <okada@opaopa.org>
+
+       * elmo-imap4.el (elmo-imap4-list-folder): Added 'uid'
+
+2000-02-19  Kenichi OKADA  <okada@opaopa.org>
+
+       * elmo2.el (elmo-list-folder): Added optional argument `nohide'.
+       * wl-summary.el (wl-summary-sync-update3): Bind 'nohide as t if sync-all.
+       * elmo-imap4.el (elmo-imap4-list-folder): Added optional argument `nohide'.
+       * elmo-pop3.el (elmo-pop3-list-folder): Ditto.
+       * elmo-nntp.el (elmo-nntp-list-folder): Ditto.
+       * elmo-localdir.el (elmo-localdir-list-folder): Ditto.
+       * elmo-localnews.el (elmo-localnews-list-folder): Ditto.
+       * elmo-archive.el (elmo-archive-list-folder): Ditto.
+       * elmo-filter.el (elmo-filter-list-folder): Ditto.
+       * elmo-internal.el (elmo-internal-list-folder): Ditto.
+       * elmo-pipe.el (elmo-pipe-list-folder): Ditto.
+       * elmo-multi.el (elmo-multi-list-folder): Ditto.
+       * elmo-maildir.el (elmo-maildir-list-folder): Ditto.
+       * elmo-dop.el (elmo-dop-list-folder): Ditto.
+
 2000-02-17  Kenichi OKADA  <okada@opaopa.org>
 
        * elmo-msgdb.el (elmo-msgdb-max-of-killed): New function.

diff --git a/elmo/elmo-archive.el b/elmo/elmo-archive.el
index dce24bc..cd227b2 100644 (file)
--- a/elmo/elmo-archive.el
+++ b/elmo/elmo-archive.el
@@ -276,7 +276,7 @@ TYPE specifies the archiver's symbol."
       (setq numbers (sort file-list '<))
       (elmo-living-messages numbers killed))))
 
-(defun elmo-archive-list-folder (spec)
+(defun elmo-archive-list-folder (spec &optional nohide)
   (elmo-archive-list-folder-subr spec))
 
 (defun elmo-archive-max-of-folder (spec)

diff --git a/elmo/elmo-dop.el b/elmo/elmo-dop.el
index 0ff603c..4c2f161 100644 (file)
--- a/elmo/elmo-dop.el
+++ b/elmo/elmo-dop.el
@@ -291,7 +291,7 @@ even an operation concerns the unplugged folder."
   (save-match-data
     (elmo-dop-queue-append folder "prefetch-msgs" msgs)))
 
-(defun elmo-dop-list-folder (folder)
+(defun elmo-dop-list-folder (folder &optional nohide)
   (if (or (memq (elmo-folder-get-type folder)
                '(imap4 nntp pop3 filter pipe))
          (and (elmo-multi-p folder) (not (elmo-folder-local-p folder))))

diff --git a/elmo/elmo-filter.el b/elmo/elmo-filter.el
index 54c24d5..4a3329d 100644 (file)
--- a/elmo/elmo-filter.el
+++ b/elmo/elmo-filter.el
@@ -65,7 +65,7 @@
 (defun elmo-filter-delete-msgs (spec msgs)
   (elmo-call-func (nth 2 spec) "delete-msgs" msgs))
 
-(defun elmo-filter-list-folder (spec)
+(defun elmo-filter-list-folder (spec &optional nohide)
   (elmo-search (nth 2 spec) (nth 1 spec)))
 
 (defun elmo-filter-list-folder-unread (spec number-alist mark-alist

diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 30954c8..0706591 100644 (file)
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -749,15 +749,16 @@ Returns response value if selecting folder succeed. "
                "search %s") flag))
      'search)))
 
-(defun elmo-imap4-list-folder (spec)
+(defun elmo-imap4-list-folder (spec &optional nohide)
   (let* ((killed (and elmo-use-killed-list
                      (elmo-msgdb-killed-list-load
                       (elmo-msgdb-expand-path spec))))
         (max (elmo-msgdb-max-of-killed killed))
         numbers)
     (setq numbers (elmo-imap4-list spec
-                                  (if (null (eq max 0))
-                                      (format "%d:*" (1+ max))
+                                  (if (or nohide
+                                          (null (eq max 0)))
+                                      (format "uid %d:*" (1+ max))
                                     "all")))
     (elmo-living-messages numbers killed)))
 

diff --git a/elmo/elmo-internal.el b/elmo/elmo-internal.el
index 312291d..1c5b66b 100644 (file)
--- a/elmo/elmo-internal.el
+++ b/elmo/elmo-internal.el
@@ -49,7 +49,7 @@
       (setq numbers (sort flist '<))
       (elmo-living-messages numbers killed))))
 
-(defun elmo-internal-list-folder (spec)
+(defun elmo-internal-list-folder (spec &optional nohide)
   (elmo-internal-list-folder-subr spec))
 
 (defun elmo-internal-list-folder-by-location (spec location &optional msgdb)

diff --git a/elmo/elmo-localdir.el b/elmo/elmo-localdir.el
index 4174042..6f9a7e4 100644 (file)
--- a/elmo/elmo-localdir.el
+++ b/elmo/elmo-localdir.el
@@ -287,7 +287,7 @@
   (mapcar '(lambda (msg) (elmo-localdir-delete-msg spec msg))
          msgs))
 
-(defun elmo-localdir-list-folder (spec); called by elmo-localdir-search()
+(defun elmo-localdir-list-folder (spec &optional nohide); called by elmo-localdir-search()
   (elmo-localdir-list-folder-subr spec))
 
 (defun elmo-localdir-max-of-folder (spec)

diff --git a/elmo/elmo-localnews.el b/elmo/elmo-localnews.el
index 9287ec4..5b4e670 100644 (file)
--- a/elmo/elmo-localnews.el
+++ b/elmo/elmo-localnews.el
@@ -64,7 +64,7 @@
   (elmo-localnews-as-newsdir
    (elmo-localdir-read-msg spec number outbuf)))
 
-(defun elmo-localnews-list-folder (spec)
+(defun elmo-localnews-list-folder (spec &optional nohide)
   (elmo-localnews-as-newsdir
    (elmo-localdir-list-folder-subr spec)))
 

diff --git a/elmo/elmo-maildir.el b/elmo/elmo-maildir.el
index 63ba79e..311318d 100644 (file)
--- a/elmo/elmo-maildir.el
+++ b/elmo/elmo-maildir.el
@@ -370,7 +370,7 @@ file name for maildir directories."
       (setq numbers (sort flist '<))
       (elmo-living-messages numbers killed))))
 
-(defun elmo-maildir-list-folder (spec)
+(defun elmo-maildir-list-folder (spec &optional nohide)
   (elmo-maildir-update-current spec)
   (elmo-maildir-list-folder-subr spec))
 

diff --git a/elmo/elmo-multi.el b/elmo/elmo-multi.el
index 6204c6c..9037ace 100644 (file)
--- a/elmo/elmo-multi.el
+++ b/elmo/elmo-multi.el
@@ -278,7 +278,7 @@
            folders (cdr folders)))
     importants))
 
-(defun elmo-multi-list-folder (spec)
+(defun elmo-multi-list-folder (spec &optional nohide)
   (let* ((flds (cdr spec))
         (cur-number 0)
         (killed (and elmo-use-killed-list

diff --git a/elmo/elmo-nntp.el b/elmo/elmo-nntp.el
index c79d908..c4ed392 100644 (file)
--- a/elmo/elmo-nntp.el
+++ b/elmo/elmo-nntp.el
@@ -496,7 +496,7 @@ Don't cache if nil.")
      (goto-char (point-min))
      (read (current-buffer)))))
 
-(defun elmo-nntp-list-folder (spec)
+(defun elmo-nntp-list-folder (spec &optional nohide)
   (let ((session (elmo-nntp-get-session spec))
        (group   (elmo-nntp-spec-group spec))
        (killed (and elmo-use-killed-list

diff --git a/elmo/elmo-pipe.el b/elmo/elmo-pipe.el
index 352c0ed..6ed21e9 100644 (file)
--- a/elmo/elmo-pipe.el
+++ b/elmo/elmo-pipe.el
@@ -70,7 +70,7 @@
       (elmo-commit src))
     (run-hooks 'elmo-pipe-drained-hook)))
 
-(defun elmo-pipe-list-folder (spec)
+(defun elmo-pipe-list-folder (spec &optional nohide)
   (elmo-pipe-drain (elmo-pipe-spec-src spec)
                   (elmo-pipe-spec-dst spec))
   (let ((killed (and elmo-use-killed-list

diff --git a/elmo/elmo-pop3.el b/elmo/elmo-pop3.el
index 59201f6..fa0b4a8 100644 (file)
--- a/elmo/elmo-pop3.el
+++ b/elmo/elmo-pop3.el
@@ -429,7 +429,7 @@
            (sort list '<))
        (error "POP3: Error in list")))))
 
-(defun elmo-pop3-list-folder (spec)
+(defun elmo-pop3-list-folder (spec &optional nohide)
   (let ((killed (and elmo-use-killed-list
                     (elmo-msgdb-killed-list-load
                      (elmo-msgdb-expand-path spec))))

diff --git a/elmo/elmo2.el b/elmo/elmo2.el
index 85dd154..07a9384 100644 (file)
--- a/elmo/elmo2.el
+++ b/elmo/elmo2.el
@@ -80,10 +80,10 @@
     (elmo-dop-max-of-folder folder)))
 
 ;;  list elmo-list-folder (folder)
-(defun elmo-list-folder (folder)
+(defun elmo-list-folder (folder &optional nohide)
   (if (elmo-folder-plugged-p folder)
-      (elmo-call-func folder "list-folder")
-    (elmo-dop-list-folder folder)))
+      (elmo-call-func folder "list-folder" nohide)
+    (elmo-dop-list-folder folder nohide)))
 
 ;;  list elmo-list-folders (folder)
 (defun elmo-list-folders (folder &optional hierarchy)

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 84c3886..2da0abe 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -2163,7 +2163,7 @@ If ARG is non-nil, checking is omitted."
     (wl-folder-confirm-existence folder 'force)
     (message "Checking folder diff...")
     (elmo-commit folder)
-    (setq in-folder (elmo-list-folder folder))
+    (setq in-folder (elmo-list-folder folder sync-all))
     (setq in-db (unless sync-all (sort (mapcar 'car number-alist) '<)))
     (if (not elmo-use-killed-list)
        (setq diff (if (eq (elmo-folder-get-type folder) 'multi)