Sort pending bugs towards the end

* debbugs-gnu.el (debbugs-gnu-pending): New face.
(debbugs-gnu-state-preference): Sort pending towards the end.

diff --git a/packages/debbugs/ChangeLog b/packages/debbugs/ChangeLog
index 8df5f2af25662721d536c52018ef8b66ab0d5ea7..243547b472ae080f816adb2026fb08adeb1c71a2 100644 (file)
--- a/packages/debbugs/ChangeLog
+++ b/packages/debbugs/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/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index babdf327d4466e65166cdb1c3df43a1fb3e62375..d68ec17d928404ba6e3149d26c9beac59b2e0c75 100644 (file)
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/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)