[Emacs-diffs] /srv/bzr/emacs/trunk r107414: nntp.el (nntp-send-authinfo): Fix last change.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 107414
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Sat 2012-02-25 00:39:24 +0000
message:
  nntp.el (nntp-send-authinfo): Fix last change.
modified:
  lisp/gnus/nntp.el

=== modified file 'lisp/gnus/nntp.el'
--- a/lisp/gnus/nntp.el 2012-02-23 23:11:13 +0000
+++ b/lisp/gnus/nntp.el 2012-02-25 00:39:24 +0000
@@ -1254,11 +1254,9 @@
          (auth-info
           (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")))))
+                 :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))