          ;; comint
          (comint-highlight-prompt ((t (:foreground ,blue))))
          ;; compilation
-         (compilation-info ((t (:foreground ,green :bold t))))
-         (compilation-warning ((t (:foreground ,orange :bold t))))
+         (compilation-info ((t (:foreground ,green :weight ,bold))))
+         (compilation-warning ((t (:foreground ,orange :weight ,bold))))
          ;; customize
          (custom-button
           ((t (:background ,base02

  (interactive "Slight or dark? ")
  (flet ((find-color (name)
           (let ((index (if (or (<= (display-color-cells) 256)
                                color-theme-solarized-degrade)
                            2
                          1)))
             (nth index (assoc name color-theme-solarized-colors)))))
    (let ((base03  (find-color 'base03))
          (base02  (find-color 'base02))
          (base01  (find-color 'base01))
          (base00  (find-color 'base00))
          (base0   (find-color 'base0))
          (base1   (find-color 'base1))
          (base2   (find-color 'base2))
          (base3   (find-color 'base3))
          (yellow  (find-color 'yellow))
          (orange  (find-color 'orange))
          (red     (find-color 'red))
          (magenta (find-color 'magenta))
          (violet  (find-color 'violet))
          (blue    (find-color 'blue))
          (cyan    (find-color 'cyan))
          (green   (find-color 'green)))
      (when (eq 'light mode)
        (rotatef base03 base3)
        (rotatef base02 base2)

         (gnus-cite-9 ((t (:foreground ,base2))))
         (gnus-cite-10 ((t (:foreground ,base3))))
         (gnus-cite-11 ((t (:foreground ,blue))))
         (gnus-group-mail-1 ((t (:foreground ,base3 :weight ,bold))))
         (gnus-group-mail-1-empty ((t (:foreground ,base3))))
         (gnus-group-mail-2 ((t (:foreground ,base2 :weight ,bold))))
         (gnus-group-mail-2-empty ((t (:foreground ,base2))))
         (gnus-group-mail-3 ((t (:foreground ,magenta :weight ,bold))))
         (gnus-group-mail-3-empty ((t (:foreground ,magenta))))
         (gnus-group-mail-low ((t (:foreground ,base00 :weight ,bold))))
         (gnus-group-mail-low-empty ((t (:foreground ,base00))))
         (gnus-group-news-1 ((t (:foreground ,base1 :weight ,bold))))
         (gnus-group-news-1-empty ((t (:foreground ,base1))))
         (gnus-group-news-2 ((t (:foreground ,blue :weight ,bold))))
         (gnus-group-news-2-empty ((t (:foreground ,blue))))
         (gnus-group-news-low ((t (:foreground ,violet :weight ,bold))))
         (gnus-group-news-low-empty ((t (:foreground ,violet))))
         (gnus-header-content ((t (:foreground ,cyan :slant ,italic))))
         (gnus-header-from ((t (:foreground ,base2))))
         (gnus-header-name ((t (:foreground ,blue))))
         (gnus-header-newsgroups ((t (:foreground ,green :slant ,italic))))
         (gnus-header-subject ((t (:foreground ,base1))))
         (gnus-server-agent ((t (:foreground ,base3 :weight ,bold))))
         (gnus-server-closed ((t (:foreground ,base1 :slant ,italic))))
         (gnus-server-denied ((t (:foreground ,base2 :weight ,bold))))
         (gnus-server-offline ((t (:foreground ,green :weight ,bold))))
         (gnus-server-opened ((t (:foreground ,cyan :weight ,bold))))
         (gnus-splash ((t (:foreground ,base2))))
         (gnus-summary-high-ancient ((t (:foreground ,magenta :weight ,bold))))
         (gnus-summary-high-read ((t (:foreground ,base1 :weight ,bold))))
         (gnus-summary-high-ticked ((t (:foreground ,base3 :weight ,bold))))
         (gnus-summary-high-undownloaded
          ((t (:foreground ,base2 :weight ,bold))))
         (gnus-summary-low-ancient ((t (:foreground ,magenta :slant ,italic))))
         (gnus-summary-low-read ((t (:foreground ,base1 :slant ,italic))))
         (gnus-summary-low-ticked ((t (:foreground ,base3 :slant ,italic))))
         (gnus-summary-low-undownloaded
          ((t (:foreground ,base2 :slant ,italic))))
         (gnus-summary-normal-ancient ((t (:foreground ,magenta))))
         (gnus-summary-normal-read ((t (:foreground ,base1))))
         (gnus-summary-normal-ticked ((t (:foreground ,base3))))
