Some minor changes in debbugs

* packages/debbugs/debbugs-gnu.el (debbugs-gnu-default-packages):
Adapt :version.
(debbugs-gnu-archived): New face.
(debbugs-gnu-show-reports): Use it.

* packages/debbugs/debbugs-ug.texi (Tabulated Lists):
Mention	`debbugs-gnu-archived'.
(Control Messages): Archived bugs must be unarchived first.

* packages/debbugs/debbugs.el (debbugs-search-est): Use `cl-case'.

diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index 6d7180284d1d12e19cda38adb786a587c36a43bd..210554f6c25fdffe3c56f2333677456d5f1b5613 100644 (file)
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/debbugs-gnu.el
@@ -211,7 +211,7 @@
              (const "sed")
              (const "vc-dwim")
              (const "woodchuck"))
-  :version "24.4")
+  :version "25.1")
 
 (defconst debbugs-gnu-all-packages
   (mapcar 'cadr (cdr (get 'debbugs-gnu-default-packages 'custom-type)))
@@ -234,6 +234,9 @@ suppressed bugs is toggled by `debbugs-gnu-toggle-suppress'."
   :type '(alist :key-type symbol :value-type regexp)
   :version "24.1")
 
+(defface debbugs-gnu-archived '((t (:inverse-video t)))
+  "Face for archived bug reports.")
+
 (defface debbugs-gnu-new '((t (:foreground "red")))
   "Face for new reports that nobody has answered.")
 
@@ -667,6 +670,8 @@ marked as \"client-side filter\"."
              words
              'face
              (cond
+              ((cdr (assq 'archived status))
+               'debbugs-gnu-archived)
               ((equal (cdr (assq 'pending status)) "done")
                'debbugs-gnu-done)
               ((member "pending" (cdr (assq 'keywords status)))

diff --git a/packages/debbugs/debbugs-ug.info b/packages/debbugs/debbugs-ug.info
index c0526a6dc4a2c0f14e4b96c6ee054f10d6399083..25b92ea51d9e8188d4dc60a4f1d401fc5fcf7632 100644 (file)
--- a/packages/debbugs/debbugs-ug.info
+++ b/packages/debbugs/debbugs-ug.info
@@ -1,4 +1,4 @@
-This is debbugs-ug.info, produced by makeinfo version 5.0 from
+This is debbugs-ug.info, produced by makeinfo version 5.2 from
 debbugs-ug.texi.
 
 Copyright (C) 2015 Free Software Foundation, Inc.
@@ -299,7 +299,8 @@ maintained by the user.
 ('debbugs-gnu-handled', the bug has been modified recently),
 MidnightBlue ('debbugs-gnu-pending', the bug is pending), orange
 ('debbugs-gnu-stale', the bug has not been touched for a while), and
-DarkGrey ('debbugs-gnu-done', the bug is closed).
+DarkGrey ('debbugs-gnu-done', the bug is closed).  Archived bugs are
+shown with inverse face ('debbugs-gnu-archived').
 
    The bug report buffers have enabled the minor 'debbugs-gnu-mode'.
 This enables the following key strokes:
@@ -380,10 +381,13 @@ server.  Their format is described in
 
    A control message can be initiated in the tabulated list of bugs, in
 the list of org TODO items, or in the GNUS ephemeral group opened for
-the messages belonging to a given bug.  In the minibuffer, the following
-control messages can be requested (assuming that 12345 is the bug the
-control message is intended for).  The strings show the exact format of
-the control messages.
+the messages belonging to a given bug.  Control messages can be sent to
+unarchived bugs only, in case a bug is archived the control message
+'unarchive' must be sent first.
+
+   In the minibuffer, the following control messages can be requested
+(assuming that 12345 is the bug the control message is intended for).
+The strings show the exact format of the control messages.
 
 'block'
 'unblock'
@@ -530,21 +534,21 @@ Key Index
 \0\b[index\0\b]
 * Menu:
 
-* 'B':                                   Tabulated Lists.      (line 44)
-* 'b':                                   Tabulated Lists.      (line 45)
-* 'C':                                   Tabulated Lists.      (line 57)
+* 'B':                                   Tabulated Lists.      (line 45)
+* 'b':                                   Tabulated Lists.      (line 46)
+* 'C':                                   Tabulated Lists.      (line 58)
 * 'C-c # C':                             TODO Items.           (line 30)
 * 'C-c # d':                             TODO Items.           (line 24)
 * 'C-c # t':                             TODO Items.           (line 27)
-* 'd':                                   Tabulated Lists.      (line 38)
-* 'g':                                   Tabulated Lists.      (line 41)
-* '<mouse-1>':                           Tabulated Lists.      (line 34)
-* '<mouse-2>':                           Tabulated Lists.      (line 36)
-* '<RET>':                               Tabulated Lists.      (line 34)
-* 's':                                   Tabulated Lists.      (line 48)
-* 't':                                   Tabulated Lists.      (line 51)
+* 'd':                                   Tabulated Lists.      (line 39)
+* 'g':                                   Tabulated Lists.      (line 42)
+* '<mouse-1>':                           Tabulated Lists.      (line 35)
+* '<mouse-2>':                           Tabulated Lists.      (line 37)
+* '<RET>':                               Tabulated Lists.      (line 35)
+* 's':                                   Tabulated Lists.      (line 49)
+* 't':                                   Tabulated Lists.      (line 52)
 * '<TAB>':                               TODO Items.           (line 21)
-* 'x':                                   Tabulated Lists.      (line 54)
+* 'x':                                   Tabulated Lists.      (line 55)
 
 
 \1f
@@ -556,11 +560,11 @@ Ref: Searching Bugs-Footnote-1\7f10016
 Ref: Searching Bugs-Footnote-2\7f10104
 Node: Layout\7f10195
 Node: Tabulated Lists\7f10670
-Node: TODO Items\7f13104
-Node: Control Messages\7f14369
-Node: Minor Mode\7f16529
-Node: Command Index\7f17467
-Node: Variable Index\7f18128
-Node: Key Index\7f18717
+Node: TODO Items\7f13173
+Node: Control Messages\7f14438
+Node: Minor Mode\7f16733
+Node: Command Index\7f17671
+Node: Variable Index\7f18332
+Node: Key Index\7f18921
 \1f
 End Tag Table

diff --git a/packages/debbugs/debbugs-ug.texi b/packages/debbugs/debbugs-ug.texi
index d3c85a58a87769d7417ace98ea5899413424d70e..d96c62b12ac4bae63a2abe117176f5bb5b38c942 100644 (file)
--- a/packages/debbugs/debbugs-ug.texi
+++ b/packages/debbugs/debbugs-ug.texi
@@ -310,7 +310,8 @@ ForestGreen (@code{debbugs-gnu-handled}, the bug has been modified
 recently), MidnightBlue (@code{debbugs-gnu-pending}, the bug is
 pending), orange (@code{debbugs-gnu-stale}, the bug has not been
 touched for a while), and DarkGrey (@code{debbugs-gnu-done}, the bug
-is closed).
+is closed).  Archived bugs are shown with inverse face
+(@code{debbugs-gnu-archived}).
 
 The bug report buffers have enabled the minor
 @code{debbugs-gnu-mode}.  This enables the following key strokes:
@@ -445,10 +446,13 @@ server.  Their format is described in
 
 A control message can be initiated in the tabulated list of bugs, in
 the list of org TODO items, or in the GNUS ephemeral group opened for
-the messages belonging to a given bug.  In the minibuffer, the
-following control messages can be requested (assuming that 12345 is
-the bug the control message is intended for).  The strings show the
-exact format of the control messages.
+the messages belonging to a given bug.  Control messages can be sent
+to unarchived bugs only, in case a bug is archived the control message
+@samp{unarchive} must be sent first.
+
+In the minibuffer, the following control messages can be requested
+(assuming that 12345 is the bug the control message is intended for).
+The strings show the exact format of the control messages.
 
 @table @samp
 @item block

diff --git a/packages/debbugs/debbugs.el b/packages/debbugs/debbugs.el
index 88b6b9e893746ea05f57cb1869186892b0683aab..c46919397befde58d0a134cd4ed04e5b70756e7d 100644 (file)
--- a/packages/debbugs/debbugs.el
+++ b/packages/debbugs/debbugs.el
@@ -560,7 +560,7 @@ Examples:
          (unless (keywordp kw)
            (error "Wrong keyword: %s" kw))
          (setq key (substring (symbol-name kw) 1))
-         (case kw
+         (cl-case kw
            ;; Phrase condition.
            (:phrase
             ;; It shouldn't happen in an attribute condition.