about summary refs log tree commit diff
path: root/tools/emacs-pkgs/dottime
diff options
context:
space:
mode:
Diffstat (limited to 'tools/emacs-pkgs/dottime')
-rw-r--r--tools/emacs-pkgs/dottime/dottime.el21
1 files changed, 1 insertions, 20 deletions
diff --git a/tools/emacs-pkgs/dottime/dottime.el b/tools/emacs-pkgs/dottime/dottime.el
index 508ee5b6937b..3500b1c9f489 100644
--- a/tools/emacs-pkgs/dottime/dottime.el
+++ b/tools/emacs-pkgs/dottime/dottime.el
@@ -77,25 +77,6 @@
             (telega-ins-fmt "%02d·%02d" (nth 2 dtime) (nth 1 dtime))
           (funcall orig timestamp))))
 
-    (advice-add 'telega-ins--date :around #'telega-ins--dottime-advice))
-
-  ;; Amend the time display in notmuch to use dottime.
-  (when (featurep 'notmuch)
-    (require '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)))
+    (advice-add 'telega-ins--date :around #'telega-ins--dottime-advice)))
 
 (provide 'dottime)