[Mew-dist 13587] b45: POP plain text password

[Kyotaro HORIGUCHI]

堀口です.

 これはとりあえず b45 を POP でつかってみたいという人のためのちょー
いいかげんな一時的修正です.


--- mew-pop.el.org	Sat Jul 08 13:49:50 2000
+++ mew-pop.el	Mon Jul 10 22:15:36 2000
@@ -111,6 +111,8 @@
 
 (defvar mew-pop-fsm
-  '(("grtg" nil ("+OK" . "apop"))
+  '(("grtg" nil ("+OK" . "user"))
     ("apop" nil ("+OK" . "list") ("-ERR" . "wpwd"))
+    ("user" nil ("+OK" . "pass") ("-ERR" . "wpwd"))
+    ("pass" nil ("+OK" . "list") ("-ERR" . "wpwd"))
     ("list" t   ("+OK" . "uidl"))
     ("uidl" t   ("+OK" . "umsg") ("-ERR" . "retr"))
@@ -372,5 +374,16 @@
     (mew-pop-set-try pnm (1+ try))
     (process-send-string
-     pro (format "apop %s %s%s" (mew-pop-get-user pnm) kmd5 mew-cs-eol))))
+     pro (format "user %s%s" (mew-pop-get-user pnm) mew-cs-eol))))
+
+(defun mew-pop-command-user (pro pnm)
+  (mew-pop-set-try pnm 0)
+  (process-send-string
+   pro (format "user %s%s" (mew-pop-get-user pnm) mew-cs-eol)))
+
+(defun mew-pop-command-pass (pro pnm)
+  (let (passwd)
+    (setq passwd (mew-input-passwd "POP password: " (mew-pop-passtag pnm)))
+    (process-send-string
+     pro (format "pass %s%s" passwd mew-cs-eol))))
 
 (defun mew-pop-command-wpwd (pro pnm)
@@ -378,5 +391,5 @@
   (mew-pop-set-key pnm nil)
   (mew-pop-set-cnt pnm nil) ;; change 0 to nil
-  (message "APOP password is wrong!")
+  (message "POP password is wrong!")
   (mew-passwd-set-passwd (mew-pop-passtag pnm) nil)) ;; xxx server disconnect?
 
-- 
堀口恭太郎