2012-01-10 Teodor Zlatanov <tzz@lifelogs.com>
+ * nntp.el (nntp-send-authinfo): Query `auth-source-search' with the
+ logical server name in addition to the actual machine address.
+
* auth-source.el (auth-source-user-and-password): Add convenience
wrapper to search by just host and optionally user.
(alist (netrc-machine list nntp-address "nntp"))
(auth-info
(nth 0 (auth-source-search :max 1
- ;; TODO: allow the virtual server name too
- :host nntp-address
+ :host (list nntp-address
+ (nnoo-current-server 'nntp))
:port '("119" "nntp"))))
(auth-user (plist-get auth-info :user))
(auth-force (plist-get auth-info :force))