[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))))
- [elpa] externals/debbugs 74b2e16 093/311: * Debbugs.wsdl: Add get_usertag specification., (continued)
- [elpa] externals/debbugs 74b2e16 093/311: * Debbugs.wsdl: Add get_usertag specification., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 2e4ea48 098/311: * debbugs-gnu.el (debbugs-gnu-usertags): Rename argument to USERS, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs d80d972 099/311: * debbugs.el:, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 7693594 101/311: Fix the copyright section to point out that it's not part of Emacs., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 294b51c 102/311: Don't explicitly bind mouse-1., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 9896d90 103/311: Revert the previous copyright change., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 6a96eb7 109/311: * debbugs-gnu.el (debbugs-gnu-default-packages): Add packages., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 9668e1f 110/311: Fix typo., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 799bc0e 111/311: * debbugs-org.el: New file., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs d710aff 114/311: * debbugs-org.el (debbugs-org-show-reports): Add a minor mode header line., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 99fd49a 115/311: * debbugs-gnu.el (debbugs-gnu): Handle SUPPRESS properly.,
Stefan Monnier <=
- [elpa] externals/debbugs e7d2d81 118/311: * debbugs-org.el (debbugs-org-ids): Declare it buffer-local., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 9b62ae8 119/311: * debbugs-org.el (debbugs-org-show-next-reports): Use `org-sbe' if available., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs c0648d6 121/311: * README: Fix command invocation., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 394f5ff 122/311: * debbugs/debbugs-gnu.el (debbugs-gnu-default-packages): Remove w32, ns., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 2e43897 127/311: Also suppress all locally tagged bug reports, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs cfb0bdb 128/311: Really allow narrowing to subject fields, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 3cf7c83 129/311: Make an empty `/' command display all the bugs, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs a0b4b2e 131/311: Require compile before using variables from that package, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs c9989ec 133/311: New manual debbugs-ug.texi, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 9ba8dcc 139/311: Minor improvements to debbugs-reference.el, Stefan Monnier, 2020/11/29