lisp/gnus/registry.el (registry-collect-prune-candidates): Fix call to cl-subseq

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 64124bc183dcc024bbf2a7ac6bda2b813e69b30d..7e962f7306863e5acb1263ff356380be9c5bfc2e 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2015-03-19  Eric Abrahamsen  <eric@ericabrahamsen.net>
+
+       * registry.el (registry-collect-prune-candidates): Fix call to
+       cl-subseq.
+
 2015-03-11  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * gnus-registry.el (gnus-registry-handle-action)

diff --git a/lisp/gnus/registry.el b/lisp/gnus/registry.el
index 1c83b939d802aeff46b07e240a2dc7aea58dab58..6ee1c316643657106e78d2819ad56206af902085 100644 (file)
--- 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