diff options
| -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 9dd336a1f09..747f71f835a 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,9 @@ +2011-02-14 Teodor Zlatanov <tzz@lifelogs.com> + + * 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 <larsi@gnus.org> * nnimap.el (nnimap-inhibit-logging): New variable. diff --git a/lisp/gnus/auth-source.el b/lisp/gnus/auth-source.el index 8f4a6ddc7b4..be698ad35d0 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)) |