[Mew-dist 13646] Re: b47

[Kazu Yamamoto ( 山本和彦 )]

From: Ninomiya Hideyuki <nin at example.com>
Subject: [Mew-dist 13645] Re: b47

> password 打ち損じて判る typo かな ?

こうでしょうね。

--かず

Index: mew-pop.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-pop.el,v
retrieving revision 1.26
retrieving revision 1.27
diff -c -r1.26 -r1.27
*** mew-pop.el	2000/07/13 13:05:58	1.26
--- mew-pop.el	2000/07/14 07:35:48	1.27
***************
*** 443,449 ****
    (mew-pop-set-try pnm nil)
    (mew-pop-set-key pnm nil)
    (mew-pop-set-cnt pnm nil) ;; change 0 to nil
!   (message "APOP password is wrong!")
    (mew-passwd-set-passwd (mew-pop-passtag pnm) nil)) ;; xxx server disconnect?
  
  (defun mew-pop-command-list (pro pnm)
--- 443,454 ----
    (mew-pop-set-try pnm nil)
    (mew-pop-set-key pnm nil)
    (mew-pop-set-cnt pnm nil) ;; change 0 to nil
!   (let ((auth (mew-pop-get-auth pnm)))
!     (cond
!      ((or (eq auth 'pass) (eq auth 'user))
!       (message "POP password is wrong!"))
!      (t
!       (message "APOP password is wrong!"))))
    (mew-passwd-set-passwd (mew-pop-passtag pnm) nil)) ;; xxx server disconnect?
  
  (defun mew-pop-command-list (pro pnm)