From: okada Date: Mon, 19 Feb 2001 15:58:22 +0000 (+0000) Subject: 2000-02-20 Kenichi OKADA X-Git-Tag: wl-2_6-root~101 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8c045e2a35385172f28a94500b2af4347dd10c8c;p=elisp%2Fwanderlust.git 2000-02-20 Kenichi OKADA * elmo-imap4.el (elmo-imap4-list-folder): Added 'uid' 2000-02-19 Kenichi OKADA * 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 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,24 @@ +2000-02-20 Kenichi OKADA + + * elmo-imap4.el (elmo-imap4-list-folder): Added 'uid' + +2000-02-19 Kenichi OKADA + + * 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 * 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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)