[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Stefan Monnier
Subject: [elpa] externals/debbugs 4e4e3d0 005/311: (debbugs-emacs): Allow listing archived bugs.
Date: Sun, 29 Nov 2020 18:41:29 -0500 (EST)

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
        (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."
@@ -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")))))
     (dolist (status (sort (apply 'debbugs-get-status ids)
                          (lambda (s1 s2)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]