[elpa] externals/debbugs 7c93f92: Add pseudo package "spam" to debbugs

[Michael Albinus]

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

    Add pseudo package "spam" to debbugs
    
    * debbugs-gnu.el (debbugs-gnu-default-packages): Add pseudo package "spam".
    (debbugs-gnu-applicable-packages): New defconst.
    (debbugs-gnu-search, debbugs-gnu)
    (debbugs-gnu-make-control-message, debbugs-gnu-usertags): Use it.
    (debbugs-gnu-make-control-message): Complete package names when
    reading data for "reassign".
    (debbugs-gnu-default-suppress-bugs, debbugs-gnu-current-filter):
    Adapt docstring.
    
    * debbugs-ug.texi (Control Messages): Mention pseudo package "spam".
---
 debbugs-gnu.el  | 33 ++++++++++++++--------
 debbugs-ug.info | 86 +++++++++++++++++++++++++++++----------------------------
 debbugs-ug.texi |  4 ++-
 3 files changed, 69 insertions(+), 54 deletions(-)

diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index 2fd3e74..ab0cde2 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -300,21 +300,29 @@ If nil, the value of `send-mail-function' is used 
instead."
              (const "parted")
              (const "sed")
              (const ,(propertize
+                     "spam"
+                     'face 'debbugs-gnu-done
+                     'help-echo "This is a pseudo package for spam."))
+             (const ,(propertize
                      "test"
                      'face 'debbugs-gnu-done
-                     'help-echo "This is a pseudo-package for test."))
+                     'help-echo "This is a pseudo package for test."))
              (const "vc-dwim")
              (const "woodchuck"))
-  :version "27.1")
+  :version "27.2")
 
 (defconst debbugs-gnu-all-packages
   (mapcar #'cadr (cdr (get 'debbugs-gnu-default-packages 'custom-type)))
   "List of all possible package names.")
 
+(defconst debbugs-gnu-applicable-packages
+  (remove "spam" debbugs-gnu-all-packages)
+  "List of all applicable package names.")
+
 (defcustom debbugs-gnu-default-suppress-bugs
   '((pending . "done"))
   "A list of specs for bugs to be suppressed.
-An element of this list is a cons cell \(KEY . REGEXP\), with key
+An element of this list is a cons cell (KEY . REGEXP), with key
 being returned by `debbugs-get-status', and REGEXP a regular
 expression matching the corresponding value, a string.  Showing
 suppressed bugs is toggled by `debbugs-gnu-toggle-suppress'."
@@ -400,7 +408,7 @@ It has the same format as 
`debbugs-gnu-default-suppress-bugs'.")
 It will be applied client-side, when parsing the results of
 `debbugs-get-status'.  It has a similar format as
 `debbugs-gnu-default-suppress-bugs'.  In case of keys representing
-a date, value is the cons cell \(BEFORE . AFTER\).")
+a date, value is the cons cell (BEFORE . AFTER).")
 
 (defvar debbugs-gnu-current-suppress nil
   "Whether bugs shall be suppressed.
@@ -514,7 +522,7 @@ depend on PHRASE being a string, or nil.  See Info node
           (setq
            packages
            (completing-read-multiple
-            "Enter packages: " debbugs-gnu-all-packages nil t
+            "Enter packages: " debbugs-gnu-applicable-packages nil t
             (string-join debbugs-gnu-default-packages ","))))
 
          ((equal key "archive")
@@ -655,7 +663,7 @@ Shall be bound in `debbugs-org-*' functions.")
       ;; The next parameters are asked only when there is a prefix.
       (if current-prefix-arg
          (completing-read-multiple
-          "Packages: " debbugs-gnu-all-packages nil t
+          "Packages: " debbugs-gnu-applicable-packages nil t
           (string-join debbugs-gnu-default-packages ","))
        debbugs-gnu-default-packages)
       (when current-prefix-arg
@@ -743,7 +751,7 @@ Shall be bound in `debbugs-org-*' functions.")
     (cond
      ;; If the query is just a list of bug numbers, we return them.
      (bugs (cdr bugs))
-     ;; If the query contains the pseudo-severity "tagged", we return
+     ;; If the query contains the pseudo severity "tagged", we return
      ;; just the local tagged bugs.
      (local-tags (copy-sequence debbugs-gnu-local-tags))
      ;; A full text query.
@@ -1919,7 +1927,11 @@ removed instead."
         ((equal message "forwarded")
          (format "forwarded %d %s\n" bugid (read-string "Forward to: ")))
         ((equal message "reassign")
-         (format "reassign %d %s\n" bugid (read-string "Package(s): ")))
+         (format
+         "reassign %d %s\n" bugid
+         (completing-read-multiple
+          "Package(s): " debbugs-gnu-all-packages nil nil
+          (string-join (alist-get 'package status) ","))))
         ((equal message "close")
          (format "close %d %s\n" bugid version))
         ((equal message "done")
@@ -1941,8 +1953,7 @@ removed instead."
          (format "user %s\nusertag %d %s\n"
                  (completing-read
                   "Package name or email address: "
-                  (append
-                   debbugs-gnu-all-packages (list user-mail-address))
+                  (append debbugs-gnu-applicable-packages (list 
user-mail-address))
                   nil nil (car debbugs-gnu-default-packages))
                  bugid (read-string "User tag: ")))
        ;; "patch", "wontfix", "moreinfo", "unreproducible", "notabug",
@@ -2257,7 +2268,7 @@ successfully sent."
    (if current-prefix-arg
        (completing-read-multiple
        "Package name(s) or email address: "
-       (append debbugs-gnu-all-packages (list user-mail-address)) nil nil
+       (append debbugs-gnu-applicable-packages (list user-mail-address)) nil 
nil
        (string-join debbugs-gnu-default-packages ","))
      debbugs-gnu-default-packages))
 
diff --git a/debbugs-ug.info b/debbugs-ug.info
index 0527db8..eb3c36f 100644
--- a/debbugs-ug.info
+++ b/debbugs-ug.info
@@ -590,7 +590,9 @@ meaning of the control messages, *Note Mail Command Index::.
 'reassign'
      "reassign 12345 PACKAGE"
 
-     The package name on the GNU Debbugs server is read interactively.
+     The comma-separated package names on the GNU Debbugs server are
+     read interactively.  Reassigning to the pseudo package '"spam"'
+     let the bug disappear from the bug database.
 
 'reopen'
      "reopen 12345"
@@ -802,7 +804,7 @@ Variable Index
 * debbugs-gnu-mail-backend:              Tabulated Lists.   (line 104)
 * debbugs-gnu-persistency-file:          Tabulated Lists.   (line  98)
 * debbugs-gnu-read-commit-range-hook:    Posting Patches.   (line  11)
-* debbugs-gnu-send-mail-function:        Control Messages.  (line 133)
+* debbugs-gnu-send-mail-function:        Control Messages.  (line 135)
 * debbugs-gnu-suppress-closed:           Tabulated Lists.   (line 101)
 * debbugs-gnu-trunk-directory:           Applying Patches.  (line  18)
 * debbugs-org-severity-priority:         TODO Items.        (line  10)
@@ -1198,46 +1200,46 @@ Node: Presenting Bugs12909
 Node: Tabulated Lists13575
 Node: TODO Items18336
 Node: Control Messages19744
-Node: Applying Patches23259
-Node: Posting Patches24641
-Node: Customizing debbugs-gnu-pick-commits27126
-Node: Minor Mode27826
-Node: Command Index29100
-Node: Variable Index30370
-Node: Key Index31957
-Node: Mail Command Index33878
-Ref: Mail Command Index: reassign34031
-Ref: Mail Command Index: reopen34797
-Ref: Mail Command Index: found35951
-Ref: Mail Command Index: notfound37032
-Ref: Mail Command Index: fixed37441
-Ref: Mail Command Index: notfixed37887
-Ref: Mail Command Index: submitter38510
-Ref: Mail Command Index: forwarded38904
-Ref: Mail Command Index: notforwarded39522
-Ref: Mail Command Index: retitle39723
-Ref: Mail Command Index: severity40107
-Ref: Mail Command Index: clone40438
-Ref: Mail Command Index: merge41202
-Ref: Mail Command Index: forcemerge42589
-Ref: Mail Command Index: unmerge43033
-Ref: Mail Command Index: tags43736
-Ref: Mail Command Index: block44802
-Ref: Mail Command Index: unblock44839
-Ref: Mail Command Index: close45324
-Ref: Mail Command Index: package45974
-Ref: Mail Command Index: owner46586
-Ref: Mail Command Index: noowner46949
-Ref: Mail Command Index: archive47122
-Ref: Mail Command Index: unarchive47263
-Ref: Mail Command Index: #47556
-Ref: Mail Command Index: quit47816
-Ref: Mail Command Index: stop47823
-Ref: Mail Command Index: thank47830
-Ref: Mail Command Index: thanks47838
-Ref: Mail Command Index: thankyou47847
-Ref: Mail Command Index: thank you47858
-Ref: Mail Command Index: --47870
+Node: Applying Patches23376
+Node: Posting Patches24758
+Node: Customizing debbugs-gnu-pick-commits27243
+Node: Minor Mode27943
+Node: Command Index29217
+Node: Variable Index30487
+Node: Key Index32074
+Node: Mail Command Index33995
+Ref: Mail Command Index: reassign34148
+Ref: Mail Command Index: reopen34914
+Ref: Mail Command Index: found36068
+Ref: Mail Command Index: notfound37149
+Ref: Mail Command Index: fixed37558
+Ref: Mail Command Index: notfixed38004
+Ref: Mail Command Index: submitter38627
+Ref: Mail Command Index: forwarded39021
+Ref: Mail Command Index: notforwarded39639
+Ref: Mail Command Index: retitle39840
+Ref: Mail Command Index: severity40224
+Ref: Mail Command Index: clone40555
+Ref: Mail Command Index: merge41319
+Ref: Mail Command Index: forcemerge42706
+Ref: Mail Command Index: unmerge43150
+Ref: Mail Command Index: tags43853
+Ref: Mail Command Index: block44919
+Ref: Mail Command Index: unblock44956
+Ref: Mail Command Index: close45441
+Ref: Mail Command Index: package46091
+Ref: Mail Command Index: owner46703
+Ref: Mail Command Index: noowner47066
+Ref: Mail Command Index: archive47239
+Ref: Mail Command Index: unarchive47380
+Ref: Mail Command Index: #47673
+Ref: Mail Command Index: quit47933
+Ref: Mail Command Index: stop47940
+Ref: Mail Command Index: thank47947
+Ref: Mail Command Index: thanks47955
+Ref: Mail Command Index: thankyou47964
+Ref: Mail Command Index: thank you47975
+Ref: Mail Command Index: --47987
 
 End Tag Table
 
diff --git a/debbugs-ug.texi b/debbugs-ug.texi
index 4538894..b10779b 100644
--- a/debbugs-ug.texi
+++ b/debbugs-ug.texi
@@ -683,7 +683,9 @@ of comma-separated bug numbers.
 @item reassign
 "reassign 12345 @var{package}"
 
-The package name on the GNU Debbugs server is read interactively.
+The comma-separated package names on the GNU Debbugs server are read
+interactively.  Reassigning to the pseudo package @code{"spam"} let
+the bug disappear from the bug database.
 
 @item reopen
 "reopen 12345"