+(defun wl-expire-hide (folder hide-list msgdb)
+ ""
+ (let ((mess (format "Hiding %s msgs..." (length hide-list))))
+ (message mess)
+ (elmo-msgdb-delete-msgs folder hide-list msgdb t)
+ (elmo-msgdb-append-to-killed-list folder hide-list)
+ (elmo-msgdb-save folder msgdb)
+ (message (concat mess "done"))
+ (cons hide-list (length hide-list))))
+