[mew-int 3191] stunnel 5.00 was released

[Werner LEMBERG]

Folks,


please update Mew to handle stunnel 5.00 gracefully!  Due to the NSA
affair I suspect that most distributions will provide the new stunnel
version very soon, probably even with automatic updates (at least
openSuSE provided it automatically as part of a security update).

My quick'n'dirty patch was

--- /home/wl/git/Mew/mew-ssl.el	2014-01-09 10:41:22.000000000 +0100
+++ mew-ssl.el	2014-02-02 14:00:59.857671424 +0100
@@ -270,11 +270,15 @@
       (call-process mew-prog-ssl nil t nil "-version")
       (goto-char (point-min))
       (re-search-forward "^stunnel " nil t 1)
-      (if (looking-at "4\\.\\([0-9]+\\)")
+      (if (looking-at "5\\.\\([0-9]+\\)")
 	  (progn
-	    (setq mew-ssl-ver 4)
+	    (setq mew-ssl-ver 5)
 	    (setq mew-ssl-minor-ver (string-to-number (mew-match-string 1))))
-	(setq mew-ssl-ver 3))
+	(if (looking-at "4\\.\\([0-9]+\\)")
+	    (progn
+	      (setq mew-ssl-ver 4)
+	      (setq mew-ssl-minor-ver (string-to-number (mew-match-string 1))))
+	  (setq mew-ssl-ver 3)))
       (when (re-search-forward "LIBWRAP" nil t)
 	(setq mew-ssl-libwrap t)))))

but I'm sure this can be done with better lisp :-)


    Werner


PS: The line

      (setq mew-prog-ssl-arg "fips=no\n")

    is no longer necessary for version 5 since fips is off by default.