[mew-dist 22856] Re: stunnel

[Koga Youichirou]

こが:
> Kazu Yamamoto <kazu at example.com> (山本和彦):
> > (1) stunnel をサポートしました。
> - snip -
> > サーバ認証に失敗すると、(たとえば POP) コネクションは張られません。
> verify レベル (v3 での -v) はユーザがレベル指定できるようにして
> ほしいなぁ。

とりあえずこんなところで。

Index: mew-ssl.el
===================================================================
RCS file: /cvsmew/mew/mew-ssl.el,v
retrieving revision 1.9
diff -u -r1.9 mew-ssl.el
--- mew-ssl.el	2003/01/14 13:03:09	1.9
+++ mew-ssl.el	2003/01/14 17:05:14
@@ -13,6 +13,8 @@
 A file name of a certificate should be 'cert-hash.0'.
 'cert-hash' can be extracted by 'openssl x509 -hash -noout -in cert.pem'.")
 
+(defvar mew-ssl-verify-level 1)
+
 (defvar mew-prog-ssl-arg nil) ;; xxx what about v4?
 
 (defvar mew-ssl-ver nil)
@@ -54,7 +56,7 @@
       `("-c" "-f"
 	"-a" ,(expand-file-name mew-ssl-cert-directory)
 	"-d" ,(int-to-string localport)
-	"-v" "1"
+	"-v" ,(int-to-string mew-ssl-verify-level)
 	"-D" "debug"
 	"-P" "none"
 	"-r" ,(format "%s:%s" server remoteport)
@@ -66,7 +68,7 @@
 	(mew-erase-buffer)
 	(insert "client=yes\n")
 	(insert "pid=\n")
-	(insert "verify=1\n")
+	(insert "verify=" (int-to-string mew-ssl-verify-level) "\n")
 	(insert "foreground=yes\n")
 	(insert "debug=debug\n")
 	(insert "CApath=" (expand-file-name mew-ssl-cert-directory) "\n")

----
こがよういちろう