emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/debbugs 99fd49a 115/311: * debbugs-gnu.el (debbugs-gnu)


From: Stefan Monnier
Subject: [elpa] externals/debbugs 99fd49a 115/311: * debbugs-gnu.el (debbugs-gnu): Handle SUPPRESS properly.
Date: Sun, 29 Nov 2020 18:41:52 -0500 (EST)

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

    * debbugs-gnu.el (debbugs-gnu): Handle SUPPRESS properly.
    
    * debbugs-org.el (debbugs-org): Add SUPPRESS argument.
---
 debbugs-gnu.el | 3 +++
 debbugs-org.el | 7 ++++++-
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index 213eaaf..d59fab7 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -464,6 +464,9 @@ marked as \"client-side filter\"."
       (add-to-list 'debbugs-gnu-current-query (cons 'package package))))
   (when archivedp
     (add-to-list 'debbugs-gnu-current-query '(archive . "1")))
+  (when suppress
+    (add-to-list 'debbugs-gnu-current-query '(status . "open"))
+    (add-to-list 'debbugs-gnu-current-query '(status . "forwarded")))
   (dolist (tag (if (consp tags) tags (list tags)))
     (when (not (zerop (length tag)))
       (add-to-list 'debbugs-gnu-current-query (cons 'tag tag))))
diff --git a/debbugs-org.el b/debbugs-org.el
index 2d83a81..e2f39ca 100644
--- a/debbugs-org.el
+++ b/debbugs-org.el
@@ -199,7 +199,7 @@ returned."
     (setq debbugs-gnu-current-query nil)))
 
 ;;;###autoload
-(defun debbugs-org (severities &optional packages archivedp tags)
+(defun debbugs-org (severities &optional packages archivedp suppress tags)
   "List all outstanding bugs."
   (interactive
    (let (severities archivedp)
@@ -216,6 +216,8 @@ returned."
        debbugs-gnu-default-packages)
       (when current-prefix-arg
        (setq archivedp (y-or-n-p "Show archived bugs?")))
+      (when (and current-prefix-arg (not archivedp))
+       (y-or-n-p "Suppress unwanted bugs?"))
       ;; This one must be asked for severity "tagged".
       (when (member "tagged" severities)
        (split-string (read-string "User tag(s): ") "," t)))))
@@ -236,6 +238,9 @@ returned."
       (add-to-list 'debbugs-gnu-current-query (cons 'package package))))
   (when archivedp
     (add-to-list 'debbugs-gnu-current-query '(archive . "1")))
+  (when suppress
+    (add-to-list 'debbugs-gnu-current-query '(status . "open"))
+    (add-to-list 'debbugs-gnu-current-query '(status . "forwarded")))
   (dolist (tag (if (consp tags) tags (list tags)))
     (when (not (zerop (length tag)))
       (add-to-list 'debbugs-gnu-current-query (cons 'tag tag))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]