[mew-dist 19046] Re: POP

[KOIE Hidetaka ( 鯉江英隆 )]

  | Message-Id: <20010927.194139.74183963.kazu at example.com>
  | Date:       Thu, 27 Sep 2001 19:41:39 +0900
  | From:       Kazu Yamamoto (山本和彦) <kazu at example.com>
  | Subject:    [mew-dist 19044] 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)

関数名はmew-diff-time-in-complete-dayがいいかも。
あるいは86400.0として「半日後に削除」とかできてるようにして
mew-diff-timeとするのはどうでしょう。

  | (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)
	t))
  |    ((numberp keep)
  |     (if (>= (mew-compare-time time (current-time)) keep) t))
  |    (t nil)))

--
KOIE Hidetaka 鯉江英隆 <hide at example.com>