Changed codename to Venus-pre2.
[elisp/wanderlust.git] / elmo / elmo-multi.el
index 800cf34..bf636c0 100644 (file)
        (elmo-folder-set-msgdb-internal folder
                                        (elmo-msgdb-append
                                         (elmo-folder-msgdb folder)
-                                        append-msgdb t))
+                                        append-msgdb))
        (length to-be-deleted))
     0))
 
                                      numbers))))
     (while flds
       (setq nums (elmo-folder-diff (car flds) (car num-list))
-           nums (cons (elmo-diff-unread nums) (elmo-diff-all nums)))
+           nums (cons (or (elmo-diff-unread nums)
+                          (elmo-diff-new nums))
+                      (elmo-diff-all nums)))
       (setq diffs (nconc diffs (list nums)))
       (setq count (+ 1 count))
       (setq num-list (cdr num-list))