From 08dd267c19fcc224a48c2f5a5c0dacb7f8b8acea Mon Sep 17 00:00:00 2001 From: Vincent Ambo Date: Fri, 27 Dec 2019 19:16:04 +0100 Subject: [PATCH] chore(dottime.el): Remove advice for notmuch date rendering This code has moved into a patch for notmuch itself. --- tools/emacs-pkgs/dottime/dottime.el | 21 +-------------------- 1 file changed, 1 insertion(+), 20 deletions(-) diff --git a/tools/emacs-pkgs/dottime/dottime.el b/tools/emacs-pkgs/dottime/dottime.el index 508ee5b69..3500b1c9f 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)