diff options
| author | Teodor Zlatanov <tzz@lifelogs.com> | 2012-01-10 22:04:51 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2012-01-10 22:04:51 +0000 |
| commit | fb7e9e0539eabe1b5135fd793cbba20d87ebc1d2 (patch) | |
| tree | 73c7e2bbe140212f7b0a01e50d84da6269a31dfb /lisp/gnus/nntp.el | |
| parent | 1e2c5d95f66eac88b52135f27a532fab8600a4ba (diff) | |
| download | emacs-fb7e9e0539eabe1b5135fd793cbba20d87ebc1d2.tar.gz | |
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.
Diffstat (limited to 'lisp/gnus/nntp.el')
| -rw-r--r-- | lisp/gnus/nntp.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/gnus/nntp.el b/lisp/gnus/nntp.el index db9d9e252be..c740f614356 100644 --- a/lisp/gnus/nntp.el +++ b/lisp/gnus/nntp.el @@ -1249,8 +1249,8 @@ If SEND-IF-FORCE, only send authinfo to the server if the (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)) |