diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/gnus/ChangeLog | 1 | ||||
| -rw-r--r-- | lisp/gnus/auth-source.el | 6 |
2 files changed, 4 insertions, 3 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 9426b7889c8..f13ffb5afd7 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -8,6 +8,7 @@ auth-source.el through the /usr/bin/security utility. (auth-sources): Fix syntax error. (auth-source-macos-keychain-result-append): Fix variable name. + (auth-sources, auth-source-macos-keychain-result-append): More fixes. 2012-07-27 Julien Danjou <jd@dex.adm.naquadah.org> diff --git a/lisp/gnus/auth-source.el b/lisp/gnus/auth-source.el index 87f09632250..79358b401b8 100644 --- a/lisp/gnus/auth-source.el +++ b/lisp/gnus/auth-source.el @@ -280,7 +280,7 @@ can get pretty complex." :value :macos-keychain-internet) (choice :tag "Collection to use" (string :tag "internet Keychain path") - (const :tag "default" 'default)))) + (const :tag "default" 'default))) (list :tag "Mac OS generic Keychain" (const :format "" @@ -1757,7 +1757,7 @@ entries for git.gnus.org: (and (plist-get ret :secret) (list ret)))) (defun auth-source-macos-keychain-result-append (result generic k v) - (push v ret) + (push v result) (setq k (cond ((equal k "acct") "user") ;; for generic keychains, creator is host, service is port @@ -1768,7 +1768,7 @@ entries for git.gnus.org: ((and (not generic) (equal k "srvr")) "host") (t k))) - (push (intern (format ":%s" k)) ret)) + (push (intern (format ":%s" k)) result)) (defun* auth-source-macos-keychain-create (&rest spec |