[mew-dist 19044] Re: POP

[Kazu Yamamoto ( 山本和彦 )]

From: KOIE Hidetaka (鯉江英隆) <hide at example.com>
Subject: [mew-dist 19043] Re: POP

> pop-deleteを ("FILE" KEEP) と指定すると
> FILEのmtimeからKEEP日経過したメッセージを消します。

話を総合すると、これでいいですか？ 書いただけで、試していません。

--かず

(defsubst mew-compare-time (t1 t2)
  (/ (+ (* (- (nth 0 t2) (nth 0 t1)) 65536)
	(- (nth 1 t2) (nth 1 t1)))
     86400)) ;; one day (* 60 60 24)

(defsubst mew-pop-expired-p (time keep)
  (cond
   ((and (consp keep)
	 (stringp (nth 0 keep)) (file-exists-p (nth 0 keep))
	 (numberp (nth 1 keep)))
    (if (>= (mew-compare-time time (mew-file-get-time (nth 0 keep)))
	    (nth 1 keep))
	t)
   ((numberp keep)
    (if (>= (mew-compare-time time (current-time)) keep) t))
   (t nil)))