在windows下让mew 6.7兼容stunnel 5.x

(defun mew-ssl-options (case server remoteport localport tls)
  (setq server (mew-ssl-server server))
  (if (= mew-ssl-ver 3)
      (let (args)
	(setq args
	      `("-c" "-f"
		"-a" ,(expand-file-name (mew-ssl-cert-directory case))
		"-d" ,(format "%s:%d" mew-ssl-localhost localport)
		"-v" ,(number-to-string (mew-ssl-verify-level case))
		"-D" "debug"
		"-P" ""
		"-r" ,(format "%s:%d" server remoteport)
		,@mew-prog-ssl-arg))
	(if tls (setq args (cons "-n" (cons tls args))))
	args)
    (let ((file (mew-make-temp-name)))
      (with-temp-buffer
	(insert "client=yesn")
	
	(insert (format "verify=%dn" (mew-ssl-verify-level case)))
	;; (insert "foreground=yesn")
	(insert "debug=debugn")
	(if (and mew-ssl-libwrap (or (>= mew-ssl-ver 5) (>= mew-ssl-minor-ver 45)))
	    (insert "libwrap=non"))
	;; (if (or (>= mew-ssl-ver 5) (>= mew-ssl-minor-ver 22))
	;;     (insert "syslog=non"))
	(insert "CApath=" (expand-file-name (mew-ssl-cert-directory case)) "n")
	(if mew-prog-ssl-arg
	    (insert mew-prog-ssl-arg))
	(insert (format "[%d]n" localport))
	(insert (format "accept=%s:%dn" mew-ssl-localhost localport))
	(insert (format "connect=%s:%dn" server remoteport))
	(if tls (insert (format "protocol=%snsslVersion=TLSv1n" tls)))
	(mew-frwlet mew-cs-dummy mew-cs-text-for-write
	  ;; NEVER use call-process-region for privacy reasons
	  (write-region (point-min) (point-max) file nil 'no-msg))
	(list file)))))