[elpa] externals/debbugs 4d6bacf 008/311: (debbugs-done): Add a face for done bugs.

[Stefan Monnier]

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

    (debbugs-done): Add a face for done bugs.
---
 ChangeLog  | 1 +
 debbugs.el | 5 +++++
 2 files changed, 6 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index c80686d..1136b8d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,7 @@
 
        * debbugs.el (debbugs-send-control-message): Add more control
        messages.
+       (debbugs-done): Add a face for done bugs.
 
 2011-07-02  Michael Albinus  <michael.albinus@gmx.de>
 
diff --git a/debbugs.el b/debbugs.el
index ca05188..158390a 100644
--- a/debbugs.el
+++ b/debbugs.el
@@ -389,6 +389,9 @@ buffer."
 (defface debbugs-stale '((t (:foreground "orange")))
   "Face for new reports that nobody has answered.")
 
+(defface debbugs-done '((t (:foreground "DarkGrey")))
+  "Face for closed bug reports.")
+
 (defun debbugs-emacs (severities &optional package list-done archivedp)
   "List all outstanding Emacs bugs."
   (interactive
@@ -461,6 +464,8 @@ buffer."
           (+ (point) 5) (+ (point) 26)
           'face
           (cond
+           ((equal (cdr (assq 'pending status)) "done")
+            'debbugs-done)
            ((= (cdr (assq 'date status))
                (cdr (assq 'log_modified status)))
             'debbugs-new)