(defun wl-refile-alist-save-file (file-name alist)
(if (> (length alist) wl-refile-alist-max-length)
(setcdr (nthcdr (1- wl-refile-alist-max-length) alist) nil))
(defun wl-refile-alist-save-file (file-name alist)
(if (> (length alist) wl-refile-alist-max-length)
(setcdr (nthcdr (1- wl-refile-alist-max-length) alist) nil))