From: Ted Zlatanov Date: Sun, 29 Jul 2012 22:17:54 +0000 (+0000) Subject: lisp/gnus/auth-source.el: Fix last change X-Git-Tag: emacs-24.2.90~1012 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d6e7c17b31f74169fc787d02a36b15f17ba41f86;p=emacs.git lisp/gnus/auth-source.el: Fix last change --- 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 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