[elpa] externals/debbugs 636511a 232/311: Support "forwarded" in debbugs

[Stefan Monnier]

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

    Support "forwarded" in debbugs
    
    * packages/debbugs/debbugs-gnu.el (debbugs-gnu-forwarded): New defface.
    (debbugs-gnu-show-reports, debbugs-gnu-state-preference): Use it.
    (debbugs-gnu-send-control-message): Handle "forwarded" and
    "notforwarded".
    
    * packages/debbugs/debbugs-ug.texi (Control Messages):
    Add "forwarded" and "notforwarded".
---
 debbugs-gnu.el  | 14 ++++++++++++--
 debbugs-ug.info | 40 +++++++++++++++++++++++-----------------
 debbugs-ug.texi |  8 +++++++-
 3 files changed, 42 insertions(+), 20 deletions(-)

diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index 0b9184a..991e5a0 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -318,6 +318,9 @@ If this is `rmail', use Rmail instead."
 (defface debbugs-gnu-done '((t (:foreground "DarkGrey")))
   "Face for closed bug reports.")
 
+(defface debbugs-gnu-forwarded '((t (:foreground "yellow")))
+  "Face for forwarded bug reports.")
+
 (defface debbugs-gnu-tagged '((t (:foreground "red")))
   "Face for reports that have been tagged locally.")
 
@@ -763,6 +766,8 @@ are taken from the cache instead."
                'debbugs-gnu-archived)
               ((equal (cdr (assq 'pending status)) "done")
                'debbugs-gnu-done)
+              ((equal (cdr (assq 'pending status)) "forwarded")
+               'debbugs-gnu-forwarded)
               ((member "pending" (cdr (assq 'keywords status)))
                'debbugs-gnu-pending)
               ;; For some new bugs `date' and `log_modified' may
@@ -1017,7 +1022,8 @@ The following commands are available:
     (debbugs-gnu-stale . 2)
     (debbugs-gnu-handled . 3)
     (debbugs-gnu-pending . 4)
-    (debbugs-gnu-done . 5)))
+    (debbugs-gnu-forwarded . 5)
+    (debbugs-gnu-done . 6)))
 
 (defun debbugs-gnu-get-state-preference (face-string)
   (or (cdr (assq (get-text-property 0 'face face-string)
@@ -1478,6 +1484,7 @@ removed instead."
            "merge" "forcemerge"
            "block" "unblock"
            "owner" "noowner"
+           "forwarded" "notforwarded"
            "invalid"
            "reassign"
            "retitle"
@@ -1523,7 +1530,8 @@ removed instead."
              mail-header-separator
              "\n"
              (cond
-              ((member message '("unarchive" "unmerge" "reopen" "noowner"))
+              ((member message '("unarchive" "unmerge" "reopen"
+                                 "noowner" "notforwarded"))
                (format "%s %d\n" message id))
               ((member message '("merge" "forcemerge"))
                (format
@@ -1555,6 +1563,8 @@ removed instead."
                (format "retitle %d %s\n" id (read-string "New title: ")))
               ((equal message "reassign")
                (format "reassign %d %s\n" id (read-string "Package(s): ")))
+              ((equal message "forwarded")
+               (format "forwarded %d %s\n" id (read-string "Forwarded to: ")))
               ((equal message "close")
                (format "close %d %s\n" id (or version "")))
               ((equal message "done")
diff --git a/debbugs-ug.info b/debbugs-ug.info
index 097d71d..7e3901d 100644
--- a/debbugs-ug.info
+++ b/debbugs-ug.info
@@ -1,4 +1,4 @@
-This is debbugs-ug.info, produced by makeinfo version 6.4.90 from
+This is debbugs-ug.info, produced by makeinfo version 6.5 from
 debbugs-ug.texi.
 
 Copyright (C) 2015-2018 Free Software Foundation, Inc.
@@ -482,6 +482,11 @@ The strings show the exact format of the control messages.
      The second argument in the close message, the Emacs version, is
      read interactively if the bugs belongs to the '"emacs"' package.
 
+'forwarded'
+     "forwarded 12345 ADDRESS"
+
+     The address, an email address or a URL, is read interactively.
+
 'forcemerge'
 'merge'
      "forcemerge|merge 12345 54321"
@@ -495,7 +500,8 @@ The strings show the exact format of the control messages.
      "close 12345"
 
 'noowner'
-     "noowner 12345"
+'notforwarded'
+     "noowner|notforwarded 12345"
 
 'owner'
      "owner 12345 !"
@@ -629,7 +635,7 @@ Variable Index
 * debbugs-gnu-default-severities:        Retrieving Bugs.   (line  63)
 * debbugs-gnu-default-suppress-bugs:     Retrieving Bugs.   (line  44)
 * debbugs-gnu-mail-backend:              Tabulated Lists.   (line  79)
-* debbugs-gnu-send-mail-function:        Control Messages.  (line 114)
+* debbugs-gnu-send-mail-function:        Control Messages.  (line 120)
 * debbugs-gnu-suppress-closed:           Tabulated Lists.   (line  76)
 * debbugs-gnu-trunk-directory:           Applying Patches.  (line  18)
 * debbugs-org-severity-priority:         TODO Items.        (line  10)
@@ -667,19 +673,19 @@ Key Index
 
 
 Tag Table:
-Node: Top1100
-Node: Retrieving Bugs2638
-Node: Searching Bugs6871
-Ref: Searching Bugs-Footnote-111184
-Ref: Searching Bugs-Footnote-211272
-Node: Presenting Bugs11363
-Node: Tabulated Lists11939
-Node: TODO Items15614
-Node: Control Messages16670
-Node: Applying Patches19713
-Node: Minor Mode21079
-Node: Command Index22135
-Node: Variable Index22924
-Node: Key Index23998
+Node: Top1097
+Node: Retrieving Bugs2635
+Node: Searching Bugs6868
+Ref: Searching Bugs-Footnote-111181
+Ref: Searching Bugs-Footnote-211269
+Node: Presenting Bugs11360
+Node: Tabulated Lists11936
+Node: TODO Items15611
+Node: Control Messages16667
+Node: Applying Patches19851
+Node: Minor Mode21217
+Node: Command Index22273
+Node: Variable Index23062
+Node: Key Index24136
 
 End Tag Table
diff --git a/debbugs-ug.texi b/debbugs-ug.texi
index ae3f2f1..bf6de82 100644
--- a/debbugs-ug.texi
+++ b/debbugs-ug.texi
@@ -547,6 +547,11 @@ If the command invoking the control message has been 
prefixed with
 The second argument in the close message, the Emacs version, is read
 interactively if the bugs belongs to the @code{"emacs"} package.
 
+@item forwarded
+"forwarded 12345 @var{address}"
+
+The address, an email address or a URL, is read interactively.
+
 @item forcemerge
 @itemx merge
 "forcemerge|merge 12345 54321"
@@ -560,7 +565,8 @@ of comma-separated bug numbers.
 "close 12345"
 
 @item noowner
-"noowner 12345"
+@itemx notforwarded
+"noowner|notforwarded 12345"
 
 @item owner
 "owner 12345 !"