feat(dottime.el): Support dottime display in notmuch thread view r/310

Advises notmuch to display `Date` headers using dottime.

1 files changed, 19 insertions, 1 deletions

diff --git a/tools/emacs-pkgs/dottime/dottime.el b/tools/emacs-pkgs/dottime/dottime.el
index 79ad86e844d4..1e02ece8cffa 100644
--- a/tools/emacs-pkgs/dottime/dottime.el
+++ b/tools/emacs-pkgs/dottime/dottime.el
@@ -66,7 +66,7 @@
 ;;
 ;; This will never display offsets in the chat window, as those are
 ;; always visible in the modeline anyways.
-(when (-contains? features 'telega)
+(when (featurep 'telega)
   (defun telega-ins--dottime-advice (orig timestamp)
     (let* ((dtime (decode-time timestamp t))
            (current-ts (time-to-seconds (current-time)))
@@ -78,4 +78,22 @@
 
   (advice-add 'telega-ins--date :around #'telega-ins--dottime-advice))
 
+;; Amend the time display in notmuch to use dottime.
+(when (featurep 'notmuch)
+  (defun notmuch-show--dottime-date-advice (orig header header-value)
+    (if (equal "Date" header)
+        ;; Unfortunately the header insertion functions do not have access
+        ;; to the message object, which means that the only information we
+        ;; have about the timestamp is its string rendering.
+        (-let* (((sec min hour day mon year dow dst tz)
+                 (parse-time-string header-value)))
+          (insert header ": "
+                  (dottime-format (encode-time sec min hour day mon year tz)
+                                  tz "%a, %Y-")
+                  "\n"))
+
+      (funcall orig header header-value)))
+
+  (advice-add 'notmuch-show-insert-header :around #'notmuch-show--dottime-date-advice))
+
 (provide 'dottime)