[mew-dist 19043] Re: POP

[KOIE Hidetaka ( 鯉江英隆 )]

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

(defsubst mew-pop-expired-p (utime keep)
  (let ((now (if (and (consp keep) (mew-file-get-time (nth 0 keep)))
                 (mew-file-get-time (car keep))
               (current-time)))
        (keep2 (if (consp keep) (nth 1 keep) keep)))
    (when (and utime (numberp keep2) (> keep2 0))
      (let ((day (/ (+ (* 65536 (- (nth 0 now) (nth 0 utime)))
		      (- (nth 1 now) (nth 1 utime)))
		   86400))) ;; one day (* 60 60 24)
      (if (> day keep2) t)))))

バックアップシステムのタイムスタンプと組合せると
便利になることを期待しています。

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