branch: externals/debbugs
commit 4e4e3d04d9022522432b5494252558a80f2aefb6
Author: Lars Magne Ingebrigtsen <[email protected]>
Commit: Lars Magne Ingebrigtsen <[email protected]>
(debbugs-emacs): Allow listing archived bugs.
---
ChangeLog | 1 +
debbugs.el | 6 ++++--
2 files changed, 5 insertions(+), 2 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index ea7f4ae..0921453 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -4,6 +4,7 @@
(debbugs-select-report): Set the minor summary mode in the right
buffer.
(debbugs-send-control-message): Fix typo in the "done" case.
+ (debbugs-emacs): Allow listing archived bugs.
2011-06-30 Lars Magne Ingebrigtsen <[email protected]>
diff --git a/debbugs.el b/debbugs.el
index a42aa67..2e58f65 100644
--- a/debbugs.el
+++ b/debbugs.el
@@ -389,7 +389,7 @@ buffer."
(defface debbugs-stale '((t (:foreground "orange")))
"Face for new reports that nobody has answered.")
-(defun debbugs-emacs (severities &optional package list-done)
+(defun debbugs-emacs (severities &optional package list-done archivedp)
"List all outstanding Emacs bugs."
(interactive
(list
@@ -405,7 +405,9 @@ buffer."
(dolist (severity severities)
(setq ids (nconc ids
(debbugs-get-bugs :package (or package "emacs")
- :severity severity))))
+ :severity severity
+ :archive (if archivedp
+ "1" "0")))))
(erase-buffer)
(dolist (status (sort (apply 'debbugs-get-status ids)
(lambda (s1 s2)
