[gnus git] branch master updated: n0-17-315-g9d28cf4 =1= New function to connect to 993 instead of "imaps" to word around Windows problems.

       via  9d28cf467b76f94fbb847f2f871a5a38e0898c08 (commit)
      from  2c30ff7b72d3159f1b1707c249994d023160ebfe (commit)


- Log -----------------------------------------------------------------
commit 9d28cf467b76f94fbb847f2f871a5a38e0898c08
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Wed Sep 21 18:23:29 2011 +0200

    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
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2011-09-21  Lars Magne Ingebrigtsen  <[email protected]>
 
+	* 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
--- 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

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog |    4 ++++
 lisp/nnimap.el |    8 +++++++-
 2 files changed, 11 insertions(+), 1 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project