branch: externals/debbugs
commit 2e438977e587997da4d0baa9a982f14e5ca45de2
Author: Lars Magne Ingebrigtsen <[email protected]>
Commit: Lars Magne Ingebrigtsen <[email protected]>
Also suppress all locally tagged bug reports
---
debbugs-gnu.el | 15 ++++++++-------
1 file changed, 8 insertions(+), 7 deletions(-)
diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index 95e60ac..24d8e4b 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -728,13 +728,14 @@ Used instead of `tabulated-list-print-entry'."
(memq (cdr (assq 'id list-id)) debbugs-gnu-current-limit))
;; Filter suppressed bugs.
(or (not (widget-get debbugs-gnu-current-widget :suppress))
- (not (catch :suppress
- (dolist (check debbugs-gnu-default-suppress-bugs)
- (when
- (string-match
- (cdr check)
- (or (cdr (assq (car check) list-id)) ""))
- (throw :suppress t))))))
+ (and (not (memq (cdr (assq 'id list-id)) debbugs-gnu-local-tags))
+ (not (catch :suppress
+ (dolist (check debbugs-gnu-default-suppress-bugs)
+ (when
+ (string-match
+ (cdr check)
+ (or (cdr (assq (car check) list-id)) ""))
+ (throw :suppress t)))))))
;; Filter search list.
(not (catch :suppress
(dolist (check
