Commit d6e7c17b authored by Ted Zlatanov's avatar Ted Zlatanov Committed by Katsumi Yamaoka
Browse files

lisp/gnus/auth-source.el: Fix last change

parent d7fcec5d
......@@ -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>
 
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment