[elpa] externals/debbugs 4e4e3d0 005/311: (debbugs-emacs): Allow listing archived bugs.

[Stefan Monnier]

branch: externals/debbugs
commit 4e4e3d04d9022522432b5494252558a80f2aefb6
Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
Commit: Lars Magne Ingebrigtsen <larsi@gnus.org>

    (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  <larsi@gnus.org>
 
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)