[Mew-dist 15806] Re: b96

[Kazu Yamamoto ( 山本和彦 )]

From: Takanori-Nishimura <t-nisimr at example.com>
Subject: [Mew-dist 15805] Re: b96

>   で、メールのあるときとないときで比べてみたのですが、ないときは LIST
> のあとで QUIT して終わっているのですが、メールがあるときには UIDL を
> チェックして終わりになってるので、QUIT を出さずにセッションの終了をし
> てるからじゃないでしょうか??

おお。以下のパッチで、qpopper 君はおとなしくなりますか？

--かず

Index: mew-pop.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-pop.el,v
retrieving revision 1.105
retrieving revision 1.106
diff -c -r1.105 -r1.106
*** mew-pop.el	2001/01/10 01:49:32	1.105
--- mew-pop.el	2001/01/10 07:28:55	1.106
***************
*** 482,493 ****
       (t
        (mew-pop-message pnm "APOP password is wrong!"))))
    (mew-passwd-set-passwd (mew-pop-passtag pnm) nil)
!   (mew-pop-tear-down pnm))
  
  (defun mew-pop-command-wpwd2 (pro pnm)
    (mew-pop-message pnm "Stronger password scheme should be used!")
    (mew-passwd-set-passwd (mew-pop-passtag pnm) nil)
!   (mew-pop-tear-down pnm))
  
  (defun mew-pop-command-list (pro pnm)
    (mew-pop-message pnm "Communicating with the POP server ... ")
--- 482,493 ----
       (t
        (mew-pop-message pnm "APOP password is wrong!"))))
    (mew-passwd-set-passwd (mew-pop-passtag pnm) nil)
!   (mew-pop-tear-down pnm)) ;; Typical servers disconnect, so no quit
  
  (defun mew-pop-command-wpwd2 (pro pnm)
    (mew-pop-message pnm "Stronger password scheme should be used!")
    (mew-passwd-set-passwd (mew-pop-passtag pnm) nil)
!   (mew-pop-tear-down pnm)) ;; Typical servers disconnect, so no quit
  
  (defun mew-pop-command-list (pro pnm)
    (mew-pop-message pnm "Communicating with the POP server ... ")
***************
*** 555,561 ****
        (mew-pop-message pnm "Receiving %d messages in background ... " n)))
      (cond
       ((eq directive 'biff)
!       (mew-pop-tear-down pnm))
       (t
        (mew-pop-set-status pnm "retr")
        (mew-pop-command-retr pro pnm))))) ;; this quits if n = 0
--- 555,562 ----
        (mew-pop-message pnm "Receiving %d messages in background ... " n)))
      (cond
       ((eq directive 'biff)
!       (mew-pop-set-status pnm "quit")
!       (mew-pop-command-quit pro pnm))
       (t
        (mew-pop-set-status pnm "retr")
        (mew-pop-command-retr pro pnm))))) ;; this quits if n = 0