emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

nit(mu4e): clean up formatting/indentation

Browse source
This commit is contained in:
TEC 2022-09-20 22:16:53 +08:00 • committed by Henrik Lissner
parent e96624926d
commit 8b422877b4
1 changed files with 19 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

38
modules/email/mu4e/autoload/email.el
View file

@ -157,23 +157,23 @@ a quoted symbol for a alist of current strings and faces provided."
'face 'face
(list (list
(if (not unique) (if (not unique)
(+mu4e--str-color-face herring str) (+mu4e--str-color-face herring str)
(let ((unique-alist (eval unique))) (let ((unique-alist (eval unique)))
(unless (assoc herring unique-alist) (unless (assoc herring unique-alist)
(if (> (length unique-alist) (length +mu4e-header-colorized-faces)) (if (> (length unique-alist) (length +mu4e-header-colorized-faces))
(push (cons herring (+mu4e--str-color-face herring)) unique-alist) (push (cons herring (+mu4e--str-color-face herring)) unique-alist)
(let ((offset 0) color color?) (let ((offset 0) color color?)
(while (not color) (while (not color)
(setq color? (+mu4e--str-color-face herring offset)) (setq color? (+mu4e--str-color-face herring offset))
(if (not (rassoc color? unique-alist)) (if (not (rassoc color? unique-alist))
(setq color color?) (setq color color?)
(setq offset (1+ offset)) (setq offset (1+ offset))
(when (> offset (length +mu4e-header-colorized-faces)) (when (> offset (length +mu4e-header-colorized-faces))
(message "Warning: +mu4e-colorize-str was called with non-unique-alist UNIQUE-alist alist.") (message "Warning: +mu4e-colorize-str was called with non-unique-alist UNIQUE-alist alist.")
(setq color (+mu4e--str-color-face herring))))) (setq color (+mu4e--str-color-face herring)))))
(push (cons herring color) unique-alist))) (push (cons herring color) unique-alist)))
(set unique unique-alist)) (set unique unique-alist))
(cdr (assoc herring unique-alist)))) (cdr (assoc herring unique-alist))))
'default) 'default)
str) str)
str) str)
@ -373,6 +373,6 @@ preferred alias"
(let ((to (mapcar #'cdr (mu4e-message-field mu4e-compose-parent-message :to))) (let ((to (mapcar #'cdr (mu4e-message-field mu4e-compose-parent-message :to)))
(from (mapcar #'cdr (mu4e-message-field mu4e-compose-parent-message :from)))) (from (mapcar #'cdr (mu4e-message-field mu4e-compose-parent-message :from))))
(or (car (seq-intersection to addresses)) (or (car (seq-intersection to addresses))
(car (seq-intersection from addresses)) (car (seq-intersection from addresses))
(completing-read "From: " addresses))) (completing-read "From: " addresses)))
(completing-read "From: " addresses))))) (completing-read "From: " addresses)))))