[Emacs-diffs] master b8ea3aa: lisp/gnus/registry.el (registry-collect-prune-candidates): Fix call to cl-subseq

[Katsumi Yamaoka]

branch: master
commit b8ea3aa9dbcc17c0a38214aebdc7cb2b579c34ff
Author: Eric Abrahamsen <address@hidden>
Commit: Katsumi Yamaoka <address@hidden>

    lisp/gnus/registry.el (registry-collect-prune-candidates): Fix call to 
cl-subseq
---
 lisp/gnus/ChangeLog   |    5 +++++
 lisp/gnus/registry.el |    2 +-
 2 files changed, 6 insertions(+), 1 deletions(-)

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 64124bc..7e962f7 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2015-03-19  Eric Abrahamsen  <address@hidden>
+
+       * registry.el (registry-collect-prune-candidates): Fix call to
+       cl-subseq.
+
 2015-03-11  Stefan Monnier  <address@hidden>
 
        * gnus-registry.el (gnus-registry-handle-action)
diff --git a/lisp/gnus/registry.el b/lisp/gnus/registry.el
index 1c83b93..6ee1c31 100644
--- a/lisp/gnus/registry.el
+++ b/lisp/gnus/registry.el
@@ -371,7 +371,7 @@ entries first and return candidates from beginning of list."
     ;; list of entry keys.
     (when sortfunc
       (setq candidates (sort candidates sortfunc)))
-    (delq nil (cl-subseq (mapcar #'car candidates) 0 limit))))
+    (cl-subseq (mapcar #'car candidates) 0 (min limit (length candidates)))))
 
 (provide 'registry)
 ;;; registry.el ends here