[gnus git] branch master updated: m0-5-71-g3126bc2 =1= * auth-source.el (auth-sources, auth-source-macos-keychain-result-append): More fixes.

       via  3126bc20b0eb30ea691b99ba636deecc3d2772cd (commit)
      from  d6485f1f86e36d02eb069a3bbb688182a76d7c68 (commit)


- Log -----------------------------------------------------------------
commit 3126bc20b0eb30ea691b99ba636deecc3d2772cd
Author: Ted Zlatanov <[email protected]>
Date:   Sun Jul 29 18:06:41 2012 -0400

    * auth-source.el (auth-sources, auth-source-macos-keychain-result-append): More fixes.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f2b8eb3..8591bd0 100644
--- a/lisp/ChangeLog
+++ b/lisp/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  <[email protected]>
 
diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index 360c866..c8810bc 100644
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -290,7 +290,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 ""
@@ -1767,7 +1767,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
@@ -1778,7 +1778,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

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog      |    1 +
 lisp/auth-source.el |    6 +++---
 2 files changed, 4 insertions(+), 3 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project