[mew-dist 25191] add error check for POP over SSL. (Re: gnudoit)

[Shuichi KITAGUCHI]

北口です。

# 連休前に送ったと思ったのが流れていなかったので、再送します。

POP over SSLを使う場合、指定したサーバがDNS解決できなかった場合に、
"Creating an SSL connection..." のままだんまりになってしまいます。

この手のエラーチェックはどこまでやるか難しい気はしますが、だんまりに
なるのはよろしくないと思うのでパッチを作ってみました。どうでしょうか。


Index: mew-ssl.el
===================================================================
RCS file: /cvsmew/mew/mew-ssl.el,v
retrieving revision 1.19
diff -u -r1.19 mew-ssl.el
--- mew-ssl.el	21 Jul 2004 07:13:06 -0000	1.19
+++ mew-ssl.el	13 Aug 2004 16:11:12 -0000
@@ -152,7 +152,7 @@
 	(mew-ssl-set-status pnm nil)
 	(if (not bound)
 	    (progn
-	      (message "Creating an SSL connection...FAILED (no port is available)")
+	      (message "Creating an SSL connection...FAILED")
 	      nil)
 	  ;; "stunnel" does not gain access to the remote port
 	  ;; until a tunneled connection is created.
@@ -167,7 +167,7 @@
 		(message "Creating an SSL connection...done")
 		(set-process-filter pro 'mew-ssl-filter3)
 		pro)
-	    ;; verify-falure
+	    ;; verify-failure
 	    (delete-process pro)
 	    (message "Creating an SSL connection...FAILED (cert verify failure)")
 	    nil)))))))
@@ -190,6 +190,10 @@
     (cond
      ((string-match "bound to" string)
       (mew-ssl-set-status pnm t))
+     ((string-match "gethostbyname: Valid name, no data record of requested type" string)
+      (mew-ssl-set-status pnm 'gethostbyname-failure))
+     ((string-match "gethostbyname: Host not found" string)
+      (mew-ssl-set-status pnm 'gethostbyname-failure))
      ((string-match "Local: bind: Address already in use" string)
       (mew-ssl-set-status pnm 'bind-failure)))))
 

--
Shuichi Kitaguchi // kit at example.com / ki at example.com