[mew-dist 19032] Re: POP

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [mew-dist 19008] Re: POP
Message-ID: <20010925.110956.68547845.kazu at example.com>
Date: Tue, 25 Sep 2001 11:09:56 +0900 (JST)

kazu> うーん。うまく動いていないのかも。
kazu> 
kazu> ~/Mail/.mew-uidl や mew-pop-expired-p() 辺りを眺めてもらえませんか？

pop-delete => 1 にしているのだけど、消えないので調べました。

○ 数分前の実験結果

mew-uidl
(("......"
  ("79ac23eabc4dcdbc89870aa445c52352" 15281 50795 390000)
  ("6e1bd76c1684233ef9df1e9c4610d085" 15281 9782 523000)
  ("8e59d640d8c468e9bd4bce178e17a3d2" 15280 10597 185000))

(format-time-string "%Y-%m-%d %H:%M:%S" '(15281 50795 390000)) "2001-09-26 21:13:31"
(mew-pop-expired-p '(15281 50795 390000) 1) => nil
(new '(15281 50795 390000) 1) => nil

(format-time-string "%Y-%m-%d %H:%M:%S" '(15281 9782 523000))  "2001-09-26 09:49:58"
(mew-pop-expired-p '(15281 9782 523000) 1) => nil
(new '(15281 9782 523000) 1) => t

(format-time-string "%Y-%m-%d %H:%M:%S" '(15280 10597 185000)) "2001-09-25 15:51:17"
(mew-pop-expired-p '(15280 10597 185000) 1) => nil
(new '(15280 10597 185000) 1) => t

# new はパッチ後。

以下の一行パッチが必要だと思うけど、仕様的にどっちかはわからない。

-- 
白井秀行 (mailto:shirai at example.com)

Index: mew-pop.el
===================================================================
RCS file: /cvsroot/shirai/mew/mew/mew-pop.el,v
retrieving revision 1.50
diff -u -r1.50 mew-pop.el
--- mew-pop.el	2001/09/27 00:35:40	1.50
+++ mew-pop.el	2001/09/27 04:33:32
@@ -449,7 +449,7 @@
 	   (day (/ (+ (* 65536 (- (nth 0 now) (nth 0 utime)))
 		      (- (nth 1 now) (nth 1 utime)))
 		   86400))) ;; one day (* 60 60 24)
-      (if (> day keep) t))))
+      (if (>= day keep) t))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;