[mew-dist 19012] Re: POP

[Kazu Yamamoto ( 山本和彦 )]

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com>
Subject: [mew-dist 19011] Re: POP

> (1) 'i' のとき auto-flush が効いていない。がまだ続いています。
> (2) mew-pop-delete が効いていない。すぐ spool から消えちゃう。

こんなもんでしょうか？

--かず

Index: mew-pop.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-pop.el,v
retrieving revision 1.27
diff -c -r1.27 mew-pop.el
*** mew-pop.el	2001/09/25 02:58:16	1.27
--- mew-pop.el	2001/09/25 10:09:39
***************
*** 349,354 ****
--- 349,355 ----
  	 (cnt (mew-pop-get-cnt pnm))
  	 (fld (mew-pop-get-fld pnm))
  	 (directive (mew-pop-get-directive pnm))
+ 	 (flush (mew-pop-get-flush pnm))
  	 (n (length (mew-pop-get-rtrs pnm)))
  	 savep)
      (mew-pop-debug "POP SENTINEL" event)
***************
*** 375,381 ****
       (unless (eq directive 'biff)
         (run-hooks 'mew-pop-sentinel-non-biff-hook))
       (run-hooks 'mew-pop-sentinel-hook)
!      (if (and mew-auto-flush-queue (mew-pop-get-flush pnm))
  	 (mew-smtp-flush-queue
  	  (mew-queue-folder mew-case-output) mew-case-output)))))
  
--- 376,382 ----
       (unless (eq directive 'biff)
         (run-hooks 'mew-pop-sentinel-non-biff-hook))
       (run-hooks 'mew-pop-sentinel-hook)
!      (if (and mew-auto-flush-queue flush)
  	 (mew-smtp-flush-queue
  	  (mew-queue-folder mew-case-output) mew-case-output)))))
  
***************
*** 714,720 ****
  	 (num  (nth 0 rtr))
  	 (uid  (nth 1 rtr))
  	 (siz  (nth 2 rtr))
! 	 (del  (or (nth 3 rtr) (mew-pop-get-delete pnm)))
  	 (fld-msg (nth 4 rtr))
  	 (fld  (or (nth 0 fld-msg) (mew-pop-get-fld pnm)))
  	 (msg  (nth 1 fld-msg))
--- 715,721 ----
  	 (num  (nth 0 rtr))
  	 (uid  (nth 1 rtr))
  	 (siz  (nth 2 rtr))
! 	 (del  (or (nth 3 rtr) (eq (mew-pop-get-delete pnm) t)))
  	 (fld-msg (nth 4 rtr))
  	 (fld  (or (nth 0 fld-msg) (mew-pop-get-fld pnm)))
  	 (msg  (nth 1 fld-msg))