[elpa] master 68ffccc: Some minor changes in debbugs

[Michael Albinus]

branch: master
commit 68ffccc845493d95ef26d990c732ffcb21450e0e
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    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'.
---
 packages/debbugs/debbugs-gnu.el  |    7 ++++-
 packages/debbugs/debbugs-ug.info |   50 ++++++++++++++++++++-----------------
 packages/debbugs/debbugs-ug.texi |   14 +++++++----
 packages/debbugs/debbugs.el      |    2 +-
 4 files changed, 43 insertions(+), 30 deletions(-)

diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index 6d71802..210554f 100644
--- 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 c0526a6..25b92ea 100644
--- 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
 [index]
 * 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)
 
 
 
@@ -556,11 +560,11 @@ Ref: Searching Bugs-Footnote-110016
 Ref: Searching Bugs-Footnote-210104
 Node: Layout10195
 Node: Tabulated Lists10670
-Node: TODO Items13104
-Node: Control Messages14369
-Node: Minor Mode16529
-Node: Command Index17467
-Node: Variable Index18128
-Node: Key Index18717
+Node: TODO Items13173
+Node: Control Messages14438
+Node: Minor Mode16733
+Node: Command Index17671
+Node: Variable Index18332
+Node: Key Index18921
 
 End Tag Table
diff --git a/packages/debbugs/debbugs-ug.texi b/packages/debbugs/debbugs-ug.texi
index d3c85a5..d96c62b 100644
--- 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
address@hidden 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 88b6b9e..c469193 100644
--- 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.