[elpa] externals/debbugs 07154a0 006/311: * debbugs.el (debbugs-emacs): Let-bind `debbugs-port' to "gnu.org".

[Stefan Monnier]

branch: externals/debbugs
commit 07154a0284d7f98ccad750446085eabfbfd8357f
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>

    * debbugs.el (debbugs-emacs): Let-bind `debbugs-port' to "gnu.org".
    Ask how many reports to retrieve, when `debbugs-get-bugs' returns
    more than 400 hits.
---
 ChangeLog  |  6 ++++++
 debbugs.el | 19 +++++++++++++++++--
 2 files changed, 23 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 0921453..aac2870 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2011-07-02  Michael Albinus  <michael.albinus@gmx.de>
+
+       * debbugs.el (debbugs-emacs): Let-bind `debbugs-port' to "gnu.org".
+       Ask how many reports to retrieve, when `debbugs-get-bugs' returns
+       more than 400 hits.
+
 2011-07-01  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * debbugs.el (debbugs-send-control-message): Add severity and "done".
diff --git a/debbugs.el b/debbugs.el
index 2e58f65..38e4bef 100644
--- a/debbugs.el
+++ b/debbugs.el
@@ -400,8 +400,10 @@ buffer."
     (setq severities (list severities)))
   (pop-to-buffer (get-buffer-create "*Emacs Bugs*"))
   (debbugs-mode)
-  (let ((buffer-read-only nil)
-       (ids nil))
+  (let ((debbugs-port "gnu.org")
+       (buffer-read-only nil)
+       (ids nil)
+       (default 400))
     (dolist (severity severities)
       (setq ids (nconc ids
                       (debbugs-get-bugs :package (or package "emacs")
@@ -409,6 +411,19 @@ buffer."
                                         :archive (if archivedp
                                                      "1" "0")))))
     (erase-buffer)
+
+    (when (> (length ids) default)
+      (let* ((cursor-in-echo-area nil)
+            (input
+             (read-string
+              (format
+               "How many reports (available %d, default %d): "
+               (length ids) default)
+              nil
+              nil
+              (number-to-string default))))
+       (setq ids (last (sort ids '<) (string-to-number input)))))
+
     (dolist (status (sort (apply 'debbugs-get-status ids)
                          (lambda (s1 s2)
                            (< (cdr (assq 'id s1))