* 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.

diff --git a/packages/debbugs/ChangeLog b/packages/debbugs/ChangeLog
index 09214532ba38053444ca45f61ed2aef3ff3895c4..aac28709bfde82e0bfc542af726ef0608e4ed696 100644 (file)
--- a/packages/debbugs/ChangeLog
+++ b/packages/debbugs/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/packages/debbugs/debbugs.el b/packages/debbugs/debbugs.el
index 2e58f654ea576cf2e931152d88ea433117a45853..38e4befb9a2631cbb4b959463d94cb6c7138ed2c 100644 (file)
--- a/packages/debbugs/debbugs.el
+++ b/packages/debbugs/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))