- (elmo-list-folder (elmo-pipe-spec-dst spec)))
-
-(defun elmo-pipe-list-folder-unread (spec mark-alist unread-marks)
- (elmo-list-folder-unread (elmo-pipe-spec-dst spec) mark-alist unread-marks))
+ (let ((killed (and elmo-use-killed-list
+ (elmo-msgdb-killed-list-load
+ (elmo-msgdb-expand-path spec))))
+ numbers)
+ (setq numbers (elmo-list-folder (elmo-pipe-spec-dst spec)))
+ (elmo-living-messages numbers killed)))
+
+(defun elmo-pipe-list-folder-unread (spec number-alist mark-alist unread-marks)
+ (elmo-list-folder-unread (elmo-pipe-spec-dst spec)
+ number-alist mark-alist unread-marks))