[elpa] externals/standard-themes c7ffa300e6 67/74: Revise all mail colours and mappings

[ELPA Syncer]

branch: externals/standard-themes
commit c7ffa300e649105d1fc26e6a92b2d05c47c9f10c
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Revise all mail colours and mappings
---
 standard-dark-theme.el  | 12 +++++++-----
 standard-light-theme.el | 12 +++++++-----
 standard-themes.el      | 16 ++++++++--------
 3 files changed, 22 insertions(+), 18 deletions(-)

diff --git a/standard-dark-theme.el b/standard-dark-theme.el
index cb259cfc0a..74c9c4c48c 100644
--- a/standard-dark-theme.el
+++ b/standard-dark-theme.el
@@ -190,12 +190,14 @@
       (accent-2 green)
       (accent-3 magenta-cooler)
 
-      (mail-0 blue-warmer)
+      (mail-0 red-cooler)
       (mail-1 magenta-warmer)
-      (mail-2 green-cooler)
-      (mail-3 yellow-warmer)
-      (mail-4 blue-cooler)
-      (mail-5 cyan)
+      (mail-2 green)
+      (mail-3 cyan-cooler)
+      (mail-4 blue-warmer)
+      (mail-recipient blue)
+      (mail-subject magenta-cooler)
+      (mail-other cyan)
 
       (rainbow-0 "#afeeee")
       (rainbow-1 cyan-warmer)
diff --git a/standard-light-theme.el b/standard-light-theme.el
index 8fe4f37079..b8dc598288 100644
--- a/standard-light-theme.el
+++ b/standard-light-theme.el
@@ -190,12 +190,14 @@
       (accent-2 green)
       (accent-3 magenta-cooler)
 
-      (mail-0 blue-warmer)
+      (mail-0 red-cooler)
       (mail-1 magenta)
-      (mail-2 green-cooler)
-      (mail-3 yellow)
-      (mail-4 blue)
-      (mail-5 cyan)
+      (mail-2 green)
+      (mail-3 cyan-cooler)
+      (mail-4 blue-warmer)
+      (mail-recipient blue)
+      (mail-subject magenta-cooler)
+      (mail-other cyan)
 
       (rainbow-0 "#191970")
       (rainbow-1 blue-cooler)
diff --git a/standard-themes.el b/standard-themes.el
index 50613da52f..17d4ad8a91 100644
--- a/standard-themes.el
+++ b/standard-themes.el
@@ -794,7 +794,7 @@ Helper function for `standard-themes-preview-colors'."
     `(link ((,c ,@(standard-themes--link link link-faint border))))
     `(link-visited ((,c ,@(standard-themes--link link-alt link-alt-faint 
border))))
     `(minibuffer-prompt ((,c ,@(standard-themes--prompt prompt bg-prompt 
fg-main))))
-    `(mm-command-output ((,c :foreground ,mail-5))) ; like message-mml
+    `(mm-command-output ((,c :foreground ,mail-4))) ; like message-mml
     `(pgtk-im-0 ((,c :inherit secondary-selection)))
     `(read-multiple-choice-face ((,c :inherit warning :background 
,bg-warning)))
     `(rectangle-preview ((,c :inherit secondary-selection)))
@@ -1498,12 +1498,12 @@ Helper function for `standard-themes-preview-colors'."
     `(message-cited-text-4 ((,c :foreground ,mail-3)))
     `(message-header-name ((,c :inherit bold)))
     `(message-header-newsgroups ((,c :inherit message-header-other)))
-    `(message-header-to ((,c :inherit bold :foreground ,mail-2)))
-    `(message-header-cc ((,c :foreground ,mail-2)))
-    `(message-header-subject ((,c :inherit bold :foreground ,mail-1)))
-    `(message-header-xheader ((,c :foreground ,mail-3)))
-    `(message-header-other ((,c :foreground ,mail-4)))
-    `(message-mml ((,c :foreground ,mail-5)))
+    `(message-header-to ((,c :inherit bold :foreground ,mail-recipient)))
+    `(message-header-cc ((,c :foreground ,mail-recipient)))
+    `(message-header-subject ((,c :inherit bold :foreground ,mail-subject)))
+    `(message-header-xheader ((,c :inherit message-header-other)))
+    `(message-header-other ((,c :foreground ,mail-other)))
+    `(message-mml ((,c :foreground ,mail-4)))
     `(message-separator ((,c :background ,bg-alt)))
 ;;;; mode-line
     `(mode-line ((,c :inherit standard-themes-ui-variable-pitch
@@ -1579,7 +1579,7 @@ Helper function for `standard-themes-preview-colors'."
     `(neo-vc-user-face ((,c :inherit warning)))
 ;;;; notmuch
     `(notmuch-crypto-decryption ((,c :inherit bold)))
-    `(notmuch-crypto-part-header ((,c :foreground ,mail-5))) ; like 
`message-mml'
+    `(notmuch-crypto-part-header ((,c :foreground ,mail-4))) ; like 
`message-mml'
     `(notmuch-crypto-signature-bad ((,c :inherit error)))
     `(notmuch-crypto-signature-good ((,c :inherit success)))
     `(notmuch-crypto-signature-good-key ((,c :inherit success)))