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