From 9a075bd3aacd6fbb360dc51eac82aa1a6b858c59 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sat, 2 Jul 2011 23:46:02 +0200 Subject: [PATCH] (debbugs-emacs): Default to list the done bugs. --- packages/debbugs/ChangeLog | 1 + packages/debbugs/debbugs-gnu.el | 4 ++-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/packages/debbugs/ChangeLog b/packages/debbugs/ChangeLog index bf5658dcc..ae76a3c07 100644 --- 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 diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el index d3023249e..287041c17 100644 --- 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)) -- 2.39.2