[mew-dist 26815] SMTP AUTH LOGIN failed on mew

[Masanori Kanaoka]

金岡です。

使っている ISP で、SMTP AUTH が導入されて、はまっていました。

AUTH PLAIN では認証に成功して、Mail 送信できるのですが、
AUTH LOGIN では、認証に失敗して、Mail が送れない状態でした。

色々ためして、添付の patch で、AUTH LOGIN でも、Mail が送れる
ようになりました。lisp が良くわかっていないので、へんなことを
しているかもしれませんが。

ご報告まで。
---
 Masanori Kanaoka        kanaoka AT ann.hi-ho.ne.jp

-------------- next part --------------
--- mew-smtp.el.orig	2006-03-10 00:24:30.000000000 +0900
+++ mew-smtp.el	2006-03-10 00:52:35.000000000 +0900
@@ -45,7 +45,8 @@
     ("auth-cram-md5" ("334" . "pwd-cram-md5") (t . "wpwd"))
     ("pwd-cram-md5"  ("235" . "next") (t . "wpwd"))
     ("auth-login"    ("334" . "pwd-login") (t . "wpwd"))
-    ("pwd-login"     ("235" . "next") (t . "wpwd"))
+    ("pwd-login"     ("334" . "pwd-passwd") (t . "wpwd"))
+    ("pwd-passwd"    ("235" . "next") (t . "wpwd"))
     ("auth-plain"    ("235" . "next") (t . "wpwd"))
     ;;
     ("helo"          ("250" . "next"))
@@ -268,11 +269,17 @@
 (defun mew-smtp-command-auth-login (pro pnm)
   (let* ((user (mew-smtp-get-auth-user pnm))
 	 (euser (mew-base64-encode-string user)))
-    (mew-smtp-process-send-string pro "AUTH LOGIN %s" euser)
+    (mew-smtp-process-send-string pro "AUTH LOGIN")
     (mew-smtp-set-status pnm "auth-login")))
 
 (defun mew-smtp-command-pwd-login (pro pnm)
   (let* ((user (mew-smtp-get-auth-user pnm))
+         (euser (mew-base64-encode-string user)))
+     (mew-smtp-process-send-string pro "%s" euser)
+     (mew-smtp-set-status pnm "pwd-login")))
+
+(defun mew-smtp-command-pwd-passwd (pro pnm)
+  (let* ((user (mew-smtp-get-auth-user pnm))
 	 (prompt (format "SMTP LOGIN password (%s): " user))
          (passwd (mew-smtp-input-passwd prompt pnm))
 	 (epasswd (mew-base64-encode-string passwd)))