branch: externals/debbugs
commit 194921d73dce9840fb1bacc64017142a3dfb4821
Author: Lars Magne Ingebrigtsen <[email protected]>
Commit: Lars Magne Ingebrigtsen <[email protected]>
(debbugs-emacs): Default to list the done bugs.
---
ChangeLog | 1 +
debbugs-gnu.el | 4 ++--
2 files changed, 3 insertions(+), 2 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index bf5658d..ae76a3c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,7 @@
* debbugs-gnu.el (debbugs-summary-mode): Make sure we don't Cc
both bug-gnu-emacs (etc) and debbugs.
+ (debbugs-emacs): Default to list the done bugs.
2011-07-02 Michael Albinus <[email protected]>
diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index d302324..287041c 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -46,7 +46,7 @@
(defface debbugs-done '((t (:foreground "DarkGrey")))
"Face for closed bug reports.")
-(defun debbugs-emacs (severities &optional package list-done archivedp)
+(defun debbugs-emacs (severities &optional package suppress-done archivedp)
"List all outstanding Emacs bugs."
(interactive
(list
@@ -85,7 +85,7 @@
(lambda (s1 s2)
(< (cdr (assq 'id s1))
(cdr (assq 'id s2))))))
- (when (or list-done
+ (when (or (not suppress-done)
(not (equal (cdr (assq 'pending status)) "done")))
(let ((address (mail-header-parse-address
(decode-coding-string (cdr (assq 'originator status))
