(setq msgs (delq (car dlist) msgs)))
(setq dlist (cdr dlist)))
msgs))
-nn;; End New functions.
+;; End New functions.
(defun wl-expire-delete (folder delete-list &optional no-reserve-marks)
"Delete message for expire."
(defun wl-refile-subject-learn (entity dst)
(let ((subject (funcall wl-summary-subject-filter-function
-n (elmo-message-entity-field entity 'subject)))
+ (elmo-message-entity-field entity 'subject)))
hit)
(setq dst (elmo-string dst))
(if (and subject (not (string= subject "")))