Don't map imaps to 993 anymore except on old Windows versions

'open-network-stream' will do the imaps service lookup itself, and
using 993 forced the user to use the numeric value in .authinfo for
certificate lookups.

* lisp/gnus/nnimap.el (nnimap-map-port): Only do mapping for Windows
XP or earlier.
* etc/NEWS: Describe imaps mapping change.

diff --git a/etc/NEWS b/etc/NEWS
index a9c009e9d21b694e59f73c825d007e0cc906bae6..72a6b385a8229bed9644ad85f44f5fc5ccd1e81d 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -590,6 +590,12 @@ Of course it will still find it if you have it in ~/.ecompleterc
 
 ** Gnus
 
+---
+*** Gnus now maps imaps to 993 only on old MS-Windows versions.
+The nnimap backend used to do this unconditionally to work around
+problems on old versions of MS-Windows.  This is now done only for
+Windows XP and older.
+
 +++
 *** The nnimap backend now has support for IMAP namespaces.
 This feature can be enabled by setting the new 'nnimap-use-namespaces'

diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index 75b5af8aabdb2bf530caf98f35b958c77d0ae797..9646bb51d0828163af00e809b1b53aecf7f1a31f 100644 (file)
--- a/lisp/gnus/nnimap.el
+++ b/lisp/gnus/nnimap.el
@@ -413,8 +413,11 @@ textual parts.")
        nil
       stream)))
 
+;; This is only needed for Windows XP or earlier
 (defun nnimap-map-port (port)
-  (if (equal port "imaps")
+  (if (and (eq system-type 'windows-nt)
+           (<= (car (x-server-version)) 5)
+           (equal port "imaps"))
       "993"
     port))