lisp/gnus/nnimap.el: Search the netrc entries for the logical server name, then the...

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 92e3d8ff5c56ea34a95d5a886759e337b216b6fb..beb47120241d31b2979f537ba847564252185e02 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,10 @@
+2013-10-29  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * nnimap.el (nnimap-open-connection-1): `auth-source-search' for the
+       `nnoo-current-server' first, then for the actual `nnimap-address' to
+       allow netrc entries for the nnoo server to coexist with netrc entries
+       for the `nnimap-address'.
+
 2013-10-23  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * mm-decode.el (mm-dissect-buffer): Revert last change.

diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index f8c2b24cc9f860d6608ba6573575d7c6fe790576..2220c81e7750513faaf67ab2f50197e93e21c71d 100644 (file)
--- a/lisp/gnus/nnimap.el
+++ b/lisp/gnus/nnimap.el
@@ -456,8 +456,8 @@ textual parts.")
                                (nnimap-credentials
                                (gnus-delete-duplicates
                                 (list
-                                 nnimap-address
-                                 (nnoo-current-server 'nnimap)))
+                                  (nnoo-current-server 'nnimap)
+                                 nnimap-address))
                                 ports
                                 nnimap-user))))
                  (setq nnimap-object nil)