[elpa] externals/debbugs 32e1d6bc1e 1/2: Show stale marked bugs

[Michael Albinus]

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

    Show stale marked bugs
    
    * debbugs-gnu.el (debbugs-gnu-marked-stale): New defface.
    (debbugs-gnu-show-reports, debbugs-gnu--update-tag-mark-face): Use it.
    
    * debbugs-ug.texi (Tabulated Lists): Mention it.
---
 debbugs-gnu.el  | 15 ++++++++++++---
 debbugs-ug.texi |  4 +++-
 2 files changed, 15 insertions(+), 4 deletions(-)

diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index dedd4336f4..85f0c807d2 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -403,6 +403,11 @@ If this is `rmail', use Rmail instead."
 (defface debbugs-gnu-marked '((t (:background "DarkGrey")))
   "Face for reports that have been marked locally.")
 
+(defface debbugs-gnu-marked-stale
+  '((t (:inherit debbugs-gnu-marked :slant italic)))
+  "Face for reports that have been marked locally.
+They haven't been touched more than a week.")
+
 (defface debbugs-gnu-title '((t (:height 1.2 :bold t)))
   "Face for titles.")
 
@@ -1035,7 +1040,8 @@ are taken from the cache instead."
              (cond
               ;; Marked bugs.
               ((memq id debbugs-gnu-local-marks)
-               'debbugs-gnu-marked)
+                (if (< age week)
+                   'debbugs-gnu-marked 'debbugs-gnu-marked-stale))
               ;; Mark owned bugs.
               ((and (stringp owner)
                     (string-equal owner user-mail-address))
@@ -1487,7 +1493,9 @@ interest to you."
        (let ((owner (if (alist-get 'owner (car entry))
                         (car (debbugs-gnu--split-address
                               (decode-coding-string
-                               (alist-get 'owner (car entry)) 'utf-8))))))
+                               (alist-get 'owner (car entry)) 'utf-8)))))
+              (age (- (float-time) (or (alist-get 'log_modified (car entry)) 
0)))
+             (week (* 60 60 24 7)))
          (aset (cadr entry) 0
                (propertize
                 (format "%5d" id)
@@ -1503,7 +1511,8 @@ interest to you."
                 (cond
                  ;; Marked bugs.
                  ((memq id debbugs-gnu-local-marks)
-                  'debbugs-gnu-marked)
+                   (if (< age week)
+                      'debbugs-gnu-marked 'debbugs-gnu-marked-stale))
                  ;; Mark owned bugs.
                  ((and (stringp owner) (string-equal owner user-mail-address))
                   'debbugs-gnu-tagged)
diff --git a/debbugs-ug.texi b/debbugs-ug.texi
index 9ae619623d..e654793bdd 100644
--- a/debbugs-ug.texi
+++ b/debbugs-ug.texi
@@ -431,7 +431,9 @@ is closed).  Archived bugs are shown with inverse face
 (@code{debbugs-gnu-archived}).
 
 A DarkGrey background color (@code{debbugs-gnu-marked}) in the title
-column shows bugs which have been marked locally.
+column shows bugs which have been marked locally.  The title text is
+italic (@code{debbugs-gnu-marked-stale}) if the marked bug hasn't been
+touched for more than a week.
 
 The minor mode @code{debbugs-gnu-mode} is active in bug report
 buffers.  This enables the following key strokes: