(debbugs-emacs): Default to list the done bugs.

diff --git a/packages/debbugs/ChangeLog b/packages/debbugs/ChangeLog
index bf5658dcc09a2c36f2bd0f537ae33470230c81f1..ae76a3c07f8d6c98dedfab26c89ac4a1e1e2815d 100644 (file)
--- a/packages/debbugs/ChangeLog
+++ b/packages/debbugs/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/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index d3023249ecb20073f8772b844c8cfe0208de09a4..287041c172ed80bb90b86018a3c4a0aee9670423 100644 (file)
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/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))