X-Git-Url: https://www.fleuret.org/cgi-bin/gitweb/gitweb.cgi?p=elisp.git;a=blobdiff_plain;f=enotes.el;h=48c4ed3f0299db3644175b1fbc16851a9de55ffe;hp=63c44316797204bae2547e73018eb62a7fa6c005;hb=HEAD;hpb=584a68541bddfe84ef40780bcc6f60171bf649f0

diff --git a/enotes.el b/enotes.el
index 63c4431..48c4ed3 100644
--- a/enotes.el
+++ b/enotes.el
@@ -455,7 +455,7 @@ heuristic. Improvements are welcome"
          (format "in %dmin" (/ second 60)))
         ((< second enotes/day-duration)
          (format "in %dh" (/ second 3600)))
-        ((< second enotes/month-duration)
+        ((< second (* 3 enotes/month-duration))
          (format "in %d day%s" (/ second 86400)
                  (if (> (ftruncate (/ second 86400)) 1)
                      "s" "")))
@@ -480,10 +480,12 @@ heuristic. Improvements are welcome"
      ;; The small color tag
 
      (if (enotes/get-color note)
-         (propertize " " 'face (cons 'background-color
-                                     (enotes/get-color note)))
+         (propertize " "
+                     'face (cons 'background-color (enotes/get-color note)))
        " ")
 
+     (if (equal (enotes/get-event-time note) (enotes/get-warning-time note)) "+" " ")
+
      " ")
 
     'field 'title)