[elpa] externals/debbugs 234c1d0 058/311: * debbugs-gnu.el (debbugs-gnu-default-severities)

[Stefan Monnier]

branch: externals/debbugs
commit 234c1d04791c2ed32dcf9d5a4af66a01a1cb4ef0
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>

    * debbugs-gnu.el (debbugs-gnu-default-severities)
    (debbugs-gnu-severity-preference)
    (debbugs-gnu-send-control-message): Add "serious".
    (debbugs-gnu-select-report): Add ":" in reply subject.
---
 ChangeLog      |  7 +++++++
 debbugs-gnu.el | 29 +++++++++++++++--------------
 2 files changed, 22 insertions(+), 14 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 243547b..d490cab 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2011-07-15  Michael Albinus  <michael.albinus@gmx.de>
+
+       * debbugs-gnu.el (debbugs-gnu-default-severities)
+       (debbugs-gnu-severity-preference)
+       (debbugs-gnu-send-control-message): Add "serious".
+       (debbugs-gnu-select-report): Add ":" in reply subject.
+
 2011-07-15  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * debbugs-gnu.el (debbugs-gnu-pending): New face.
diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index d68ec17..ee4740c 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -40,8 +40,10 @@
 
 ;; It asks for the severities, for which bugs shall be shown. This can
 ;; be either just one severity, or a list of severities, separated by
-;; comma.  Valid severities are "important", "normal", "minor" or
-;; "wishlist".  If no severity is given, all bugs are selected.
+;; comma.  Valid severities are "serious", "important", "normal",
+;; "minor" or "wishlist".  Severities "critical" and "grave" are not
+;; used, although configured on the GNU bug tracker.  If no severity
+;; is given, all bugs are selected.
 
 ;; There is also the pseudo severity "tagged", which selects locally
 ;; tagged bugs.
@@ -108,7 +110,8 @@
   "*The list severities bugs are searched for.
 \"tagged\" is not a severity but marks locally tagged bugs."
   :group 'debbugs-gnu
-  :type '(set (const "important")
+  :type '(set (const "serious")
+             (const "important")
              (const "normal")
              (const "minor")
              (const "wishlist")
@@ -517,10 +520,11 @@ The following commands are available:
       10))
 
 (defconst debbugs-gnu-severity-preference
-  '(("important" . 1)
-    ("normal" . 2)
-    ("minor" . 3)
-    ("wishlist" . 4)))
+  '(("serious" . 1)
+    ("important" . 2)
+    ("normal" . 3)
+    ("minor" . 4)
+    ("wishlist" . 5)))
 
 (defun debbugs-gnu-get-severity-preference (state)
   (or (cdr (assoc (cdr (assq 'severity state))
@@ -631,7 +635,7 @@ The following commands are available:
     (with-current-buffer (window-buffer (selected-window))
       (set (make-local-variable 'debbugs-gnu-bug-number) id)
       (set (make-local-variable 'debbugs-gnu-subject)
-          (format "Re: bug#%d %s" id (cdr (assq 'subject status))))
+          (format "Re: bug#%d: %s" id (cdr (assq 'subject status))))
       (debbugs-gnu-summary-mode 1))))
 
 (defvar debbugs-gnu-summary-mode-map
@@ -677,7 +681,7 @@ removed instead."
   (interactive
    (list (completing-read
          "Control message: "
-         '("important" "normal" "minor" "wishlist"
+         '("serious" "important" "normal" "minor" "wishlist"
            "done" "donenotabug" "donewontfix" "doneunreproducible"
            "unarchive" "reopen" "close"
            "merge" "forcemerge"
@@ -726,7 +730,8 @@ removed instead."
               ((member message '("donenotabug" "donewontfix"
                                  "doneunreproducible"))
                (format "tags %d %s\nclose %d\n" id (substring message 4) id))
-              ((member message '("important" "normal" "minor" "wishlist"))
+              ((member message '("serious" "important" "normal"
+                                 "minor" "wishlist"))
                (format "severity %d %s\n" id message))
               (t
                (format "tags %d%s %s\n"
@@ -738,8 +743,4 @@ removed instead."
 
 ;;; TODO:
 
-;; * Widget-oriented bug overview like webDDTs.
-;; * Actions on bugs.
-;; * Integration into gnus (nnir).
-
 ;;; debbugs-gnu.el ends here