diff options
Diffstat (limited to 'tools/emacs-pkgs/dottime')
| -rw-r--r-- | tools/emacs-pkgs/dottime/dottime.el | 21 |
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) |