diff options
author | Teodor Zlatanov <[email protected]> | 2011-02-14 12:24:43 +0000 |
---|---|---|
committer | Katsumi Yamaoka <[email protected]> | 2011-02-14 12:24:43 +0000 |
commit | e45de620e7a4e29ad3f5f934a36b5fcd77e50375 (patch) | |
tree | dfdd9fecaf4c6ab5c57afb1812a10c879f5d62ea | |
parent | d5e9a4e9a76d5cd3aa03a7cc8a6c2ab405bb9ca5 (diff) |
auth-source.el (auth-source-backend-parse-parameters): Don't rely on `plist-get' to accept non-list parameters (XEmacs issue). Fix docstring.
-rw-r--r-- | lisp/gnus/ChangeLog | 6 | ||||
-rw-r--r-- | lisp/gnus/auth-source.el | 8 |
2 files changed, 11 insertions, 3 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 9dd336a1f0..747f71f835 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,9 @@ +2011-02-14 Teodor Zlatanov <[email protected]> + + * auth-source.el (auth-source-backend-parse-parameters): Don't rely on + `plist-get' to accept non-list parameters (XEmacs issue). Fix + docstring. + 2011-02-14 Lars Ingebrigtsen <[email protected]> * nnimap.el (nnimap-inhibit-logging): New variable. diff --git a/lisp/gnus/auth-source.el b/lisp/gnus/auth-source.el index 8f4a6ddc7b..be698ad35d 100644 --- a/lisp/gnus/auth-source.el +++ b/lisp/gnus/auth-source.el @@ -331,9 +331,11 @@ If the value is not a list, symmetric encryption will be used." (defun auth-source-backend-parse-parameters (entry backend) "Fills in the extra auth-source-backend parameters of ENTRY. Using the plist ENTRY, get the :host, :protocol, and :user search -parameters. Accepts :port as an alias to :protocol. Sets all -the parameters to t if they are missing." - (let (val) +parameters. Accepts :port as an alias to :protocol." + (let ((entry (if (stringp entry) + nil + entry)) + val) (when (setq val (plist-get entry :host)) (oset backend host val)) (when (setq val (plist-get entry :user)) |