New function to connect to 993 instead of "imaps" to word around Windows problems.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bdfa899..bc4b691 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2011-09-21  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * nnimap.el (nnimap-map-port): New function to connect to 993 instead
+       of "imaps" to word around Windows problems.
+       (nnimap-open-connection-1): Use it.
+
        * message.el (message-indent-citation): Revert last change which made
        `F' not work.
 

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index d26df23..16cc904 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -345,6 +345,11 @@ textual parts.")
        nil
       stream)))
 
+(defun nnimap-map-port (port)
+  (if (equal port "imaps")
+      "993"
+    port))
+
 (defun nnimap-open-connection-1 (buffer)
   (unless nnimap-keepalive-timer
     (setq nnimap-keepalive-timer (run-at-time (* 60 15) (* 60 15)
@@ -373,7 +378,8 @@ textual parts.")
        (push nnimap-server-port ports))
       (let* ((stream-list
              (open-protocol-stream
-              "*nnimap*" (current-buffer) nnimap-address (car ports)
+              "*nnimap*" (current-buffer) nnimap-address
+              (nnimap-map-port (car ports))
               :type nnimap-stream
               :return-list t
               :shell-command nnimap-shell-program