--- nntp.el~	2012-02-15 09:22:23.734375000 +0000
+++ nntp.el	2012-02-23 23:06:23.984375000 +0000
@@ -1196,6 +1196,9 @@
          (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 (or (cdr (assoc (format "%s" nntp-port-number)
+					'(("563" . ("563" "nntps" "snews")))))
+			    '("119" "nntp")))))
          (auth-user (plist-get auth-info :user))