X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/622b8ccb37cf5eb7daebd3c5b3c3a03713815839..4aea9615e0c5a16b0434f0f811198f34b4f48309:/packages/debbugs/debbugs-gnu.el

diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index 8ec7a3279..dd1fe3346 100644
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/debbugs-gnu.el
@@ -205,6 +205,12 @@
 	      (const "tagged"))
   :version "24.1")
 
+(defcustom debbugs-gnu-suppress-closed t
+  "If non-nil, don't show closed bugs."
+  :group 'debbugs-gnu
+  :type 'boolean
+  :version "25.2")
+
 (defconst debbugs-gnu-all-severities
   (mapcar 'cadr (cdr (get 'debbugs-gnu-default-severities 'custom-type)))
   "*List of all possible severities.")
@@ -362,7 +368,10 @@ marked as \"client-side filter\"."
 	    (setq phrase nil)
 	  (add-to-list 'debbugs-gnu-current-query (cons 'phrase phrase)))
 	;; We suppress closed bugs if there is no phrase.
-	(setq debbugs-gnu-current-suppress (null phrase))
+	(setq debbugs-gnu-current-suppress
+	      (if (not debbugs-gnu-suppress-closed)
+		  nil
+		(null phrase)))
 
 	;; The other queries.
 	(catch :finished
@@ -506,7 +515,8 @@ marked as \"client-side filter\"."
       (insert-file-contents debbugs-gnu-persistency-file)
       (eval (read (current-buffer)))))
   ;; Per default, we suppress retrieved unwanted bugs.
-  (when (called-interactively-p 'any)
+  (when (and (called-interactively-p 'any)
+	     debbugs-gnu-suppress-closed)
     (setq debbugs-gnu-current-suppress t))
 
   ;; Add queries.
@@ -668,8 +678,11 @@ are taken from the cache instead."
 		'debbugs-gnu-done)
 	       ((member "pending" (cdr (assq 'keywords status)))
 		'debbugs-gnu-pending)
-	       ((= (cdr (assq 'date status))
-		   (cdr (assq 'log_modified status)))
+	       ;; For some new bugs `date' and `log_modified' may
+	       ;; differ in 1 second.
+	       ((< (abs (- (cdr (assq 'date status))
+			   (cdr (assq 'log_modified status))))
+		   3)
 		'debbugs-gnu-new)
 	       ((< (- (float-time)
 		      (cdr (assq 'log_modified status)))