[elpa] externals/debbugs 9c3eb76 057/311: Sort pending bugs towards the end

[Stefan Monnier]

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

    Sort pending bugs towards the end
    
    * debbugs-gnu.el (debbugs-gnu-pending): New face.
    (debbugs-gnu-state-preference): Sort pending towards the end.
---
 ChangeLog      | 5 +++++
 debbugs-gnu.el | 8 +++++++-
 2 files changed, 12 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 8df5f2a..243547b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2011-07-15  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * debbugs-gnu.el (debbugs-gnu-pending): New face.
+       (debbugs-gnu-state-preference): Sort pending towards the end.
+
 2011-07-14  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * debbugs-gnu.el (debbugs-gnu-send-control-message): Add "pending"
diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index babdf32..d68ec17 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -137,6 +137,9 @@
 (defface debbugs-gnu-handled '((t (:foreground "ForestGreen")))
   "Face for reports that have been modified recently.")
 
+(defface debbugs-gnu-pending '((t (:foreground "MidnightBlue")))
+  "Face for reports that have been modified recently.")
+
 (defface debbugs-gnu-stale '((t (:foreground "orange")))
   "Face for reports that have not been touched for a week.")
 
@@ -340,6 +343,8 @@
            (cond
             ((equal (cdr (assq 'pending status)) "done")
              'debbugs-gnu-done)
+            ((member "pending" (cdr (assq 'keywords status)))
+             'debbugs-gnu-pending)
             ((= (cdr (assq 'date status))
                 (cdr (assq 'log_modified status)))
              'debbugs-gnu-new)
@@ -503,7 +508,8 @@ The following commands are available:
   '((debbugs-gnu-new . 1)
     (debbugs-gnu-stale . 2)
     (debbugs-gnu-handled . 3)
-    (debbugs-gnu-done . 4)))
+    (debbugs-gnu-done . 4)
+    (debbugs-gnu-pending . 5)))
 
 (defun debbugs-gnu-get-state-preference (face-string)
   (or (cdr (assq (get-text-property 0 'face face-string)