[mew-dist 19009] Re: POP

[井上 知洋]

いいだしっぺの井上です．

> > (mew-pop-delete "default") => 1
> > にしたのだけど、/var/mail/shirai からメールが消えているのですが、
> > なにか使い方を勘違いしていますか？
> > mew-config-alist で指定しました。

この理由かどうかはわかりませんが，


> うーん。うまく動いていないのかも。
> ~/Mail/.mew-uidl や mew-pop-expired-p() 辺りを眺めてもらえませんか？
> .mew-uidl は、(uid sec1 sec2 usec) の alist になっています。

とりあえずこうじゃないですか？
＃あまり試していません

-- 井上 知洋


*** mew-pop.el.orig	Tue Sep 25 10:19:12 2001
--- mew-pop.el	Tue Sep 25 11:18:10 2001
***************
*** 617,629 ****
  	  (setq rtrs (cons (list num uid siz) rtrs))))
         ((eq directive 'inc)
  	(when uid
! 	  (setq uidl (cons (cons uid ctime) uidl))
! 	  (setq uid-time (assoc uid old-uidl)))
  	(cond
  	 (uid-time
! 	  (if (mew-pop-expired-p (cdr uid-time) keep)
  	      (setq dels (cons num dels))))
  	 (t
  	  (setq siz (nth 1 (assoc num list-msgs)))
  	  (setq rtrs (cons (list num uid siz) rtrs)))))))
      (mew-pop-set-uidl pnm uidl)
--- 617,631 ----
  	  (setq rtrs (cons (list num uid siz) rtrs))))
         ((eq directive 'inc)
  	(when uid
! ;;	  (setq uidl (cons (cons uid ctime) uidl))
! 	  (setq uid-time (cdr (assoc uid old-uidl))))
  	(cond
  	 (uid-time
! 	  (setq uidl (cons (cons uid uid-time) uidl))
! 	  (if (mew-pop-expired-p uid-time keep)
  	      (setq dels (cons num dels))))
  	 (t
+ 	  (setq uidl (cons (cons uid ctime) uidl))
  	  (setq siz (nth 1 (assoc num list-msgs)))
  	  (setq rtrs (cons (list num uid siz) rtrs)))))))
      (mew-pop-set-uidl pnm uidl)