[elpa] externals/debbugs 194921d 014/311: (debbugs-emacs): Default to list the done bugs.

[Stefan Monnier]

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

    (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  <michael.albinus@gmx.de>
 
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))