branch: externals/debbugs
commit 07154a0284d7f98ccad750446085eabfbfd8357f
Author: Michael Albinus <[email protected]>
Commit: Michael Albinus <[email protected]>
* 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 <[email protected]>
+
+ * 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 <[email protected]>
* 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))
