X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fnntp.el;h=d2c7654c151e66a9faf2cf5b7755514f90a4c322;hb=5beb390633ce1e32cdf319c6ba19926244bbfdf2;hp=a9839a014cd87a8ce35ea3016ca419ea58b72e58;hpb=45fa4ca61249cdc0ea2c06cfd0b43473e53ccf50;p=gnus

diff --git a/lisp/nntp.el b/lisp/nntp.el
index a9839a014..d2c7654c1 100644
--- a/lisp/nntp.el
+++ b/lisp/nntp.el
@@ -1194,10 +1194,11 @@ If SEND-IF-FORCE, only send authinfo to the server if the
   (let* ((list (netrc-parse nntp-authinfo-file))
 	 (alist (netrc-machine list nntp-address "nntp"))
          (auth-info
-          (nth 0 (auth-source-search :max 1
-                                     :host (list nntp-address
-                                                 (nnoo-current-server 'nntp))
-                                     :port '("119" "nntp"))))
+          (nth 0 (auth-source-search
+		  :max 1
+		  :host (list nntp-address (nnoo-current-server 'nntp))
+		  :port `("119" "nntp" ,(format "%s" nntp-port-number)
+			  "563" "nntps" "snews"))))
          (auth-user (plist-get auth-info :user))
          (auth-force (plist-get auth-info :force))
          (auth-passwd (plist-get auth-info :secret))