From: hmurata Date: Sun, 7 Sep 2003 02:51:35 +0000 (+0000) Subject: * elmo-dop.el (elmo-folder-status-dop): Fixed. X-Git-Tag: wl-2_11_11~7 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6ebb934ffe5a23c28707f9244e42c22e56137c35;p=elisp%2Fwanderlust.git * elmo-dop.el (elmo-folder-status-dop): Fixed. --- diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 76429c9..5ca311e 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,5 +1,7 @@ 2003-09-07 Hiroya Murata + * elmo-dop.el (elmo-folder-status-dop): Fixed. + * elmo-msgdb.el (elmo-msgdb-list-messages): Undo last change. (elmo-msgdb-flags): New function. (elmo-msgdb-merge): Use elmo-msgdb-append. diff --git a/elmo/elmo-dop.el b/elmo/elmo-dop.el index 6ce80f9..dd3b089 100644 --- a/elmo/elmo-dop.el +++ b/elmo/elmo-dop.el @@ -286,16 +286,14 @@ FOLDER is the folder structure." ;;; Execute as subsutitute for plugged operation. (defun elmo-folder-status-dop (folder) - (let ((number-list (elmo-folder-list-messages folder nil 'in-msgdb)) + (let ((number-list (sort (elmo-folder-list-messages folder nil 'in-msgdb) '>)) (spool-folder (elmo-dop-spool-folder folder)) spool-length - (i 0) max-num) - (setq spool-length (or (car (if (elmo-folder-exists-p spool-folder) - (elmo-folder-status spool-folder))) 0)) - (setq max-num - (or (nth (max (- (length number-list) 1) 0) number-list) - 0)) + (setq spool-length (or (if (elmo-folder-exists-p spool-folder) + (car (elmo-folder-status spool-folder))) + 0)) + (setq max-num (or (car number-list) 0)) (cons (+ max-num spool-length) (+ (length number-list) spool-length)))) ;;; Delayed operation (executed at online status).