diff --git a/modules/email/mu4e/autoload/email.el b/modules/email/mu4e/autoload/email.el index 7efe18789..966eb8b1a 100644 --- a/modules/email/mu4e/autoload/email.el +++ b/modules/email/mu4e/autoload/email.el @@ -123,14 +123,6 @@ will also be the width of all other printable characters." mu4e-headers-signed-mark (cons "s" (+mu4e-normalised-icon "certificate" :height 0.7 :color "dpurple")) mu4e-headers-unread-mark (cons "u" (+mu4e-normalised-icon "eye-slash" :v-adjust 0.05)))) -;;;###autoload -(defun +mu4e-header-colorize (str) - (let* ((str-sum (apply #'+ (mapcar (lambda (c) (% c 3)) str))) - (color (nth (% str-sum (length +mu4e-header-colorized-faces)) - +mu4e-header-colorized-faces))) - (put-text-property 0 (length str) 'face color str) - str)) - ;;;###autoload (defun +mu4e-colorize-str (str &optional unique herring) "Apply a face from `+mu4e-header-colorized-faces' to STR.