[gnus git] branch tzz-auth-source-rewrite updated: =1= Fixes from Michael Albinus: requires, autoloads, and avoid subseq beyond end.

       via  cd5ac3f89ee95b245f2761ae75c9871e3ae71540 (commit)
      from  2ca6fd5f1e5030daa73daac8a0a24bf8d0146962 (commit)


- Log -----------------------------------------------------------------
commit cd5ac3f89ee95b245f2761ae75c9871e3ae71540
Author: Ted Zlatanov <[email protected]>
Date:   Sun Feb 6 13:27:27 2011 -0600

    Fixes from Michael Albinus: requires, autoloads, and avoid subseq beyond end.
    
    * auth-source.el (top): Require 'eieio unconditionally.  Autoload
    `secrets-get-attributes' instead of `secrets-get-attribute'.
    (auth-source-secrets-search): Limit search when `max' is greater than
    number of results.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8261c39..64df411 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2011-02-06  Michael Albinus  <[email protected]>
+
+	* auth-source.el (top): Require 'eieio unconditionally.  Autoload
+	`secrets-get-attributes' instead of `secrets-get-attribute'.
+	(auth-source-secrets-search): Limit search when `max' is greater than
+	number of results.
+
 2011-02-06  Teodor Zlatanov  <[email protected]>
 
 	* auth-source.el (auth-source-secrets-search): Add examples.
diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index 0283233..dfadc84 100644
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -43,12 +43,12 @@
 (require 'netrc)
 (require 'assoc)
 (eval-when-compile (require 'cl))
-(eval-when-compile (require 'eieio))
+(require 'eieio)
 
 (autoload 'secrets-create-item "secrets")
 (autoload 'secrets-delete-item "secrets")
 (autoload 'secrets-get-alias "secrets")
-(autoload 'secrets-get-attribute "secrets")
+(autoload 'secrets-get-attributes "secrets")
 (autoload 'secrets-get-secret "secrets")
 (autoload 'secrets-list-collections "secrets")
 (autoload 'secrets-search-items "secrets")
@@ -861,6 +861,7 @@ See `auth-source-search' for details on SPEC."
 ;;; (let ((auth-sources '(default))) (auth-source-search :max 1 :create t))
 ;;; (let ((auth-sources '(default))) (auth-source-search :max 1 :delete t))
 ;;; (let ((auth-sources '(default))) (auth-source-search :max 1))
+;;; (let ((auth-sources '(default))) (auth-source-search))
 ;;; (let ((auth-sources '("secrets:login"))) (auth-source-search :max 1))
 ;;; (let ((auth-sources '("secrets:login"))) (auth-source-search :max 1 :signon_realm "https://git.gnus.org/Git"))
 
@@ -930,7 +931,7 @@ login:
                                   (not (string-match label item)))
                       collect item))
          ;; TODO: respect max in `secrets-search-items', not after the fact
-         (items (subseq items 0 max))
+         (items (subseq items 0 (min (length items) max)))
          ;; convert the item name to a full plist
          (items (mapcar (lambda (item)
                           (nconc

-----------------------------------------------------------------------
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      |    7 +++++++
 lisp/auth-source.el |   11 ++++++-----
 2 files changed, 13 insertions(+), 5 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, tzz-auth-source-rewrite has been updated


hooks/post-receive
-- 
Gnus Project