;; color mail
;; - joneworlds@mailbox.org

;; I download and read my mail in emacs, in old-fashined RMAIL.
;; It's not so hard to extend and customize.  I like it for that.

;; Here's one thing I do, which hopefully inspires some ideas of your
;; own.  RMAIL runs from a hook whenever it shows an email on the
;; screen.  So I added something of my own to that hook.  I change the
;; background color of the screen to something else if it's a kind of
;; mail I rarely want to look at. This way if I see my screen change
;; color, I can quickly hit "d" and move on to the next piece of mail.
;; Combine that with RMAIL's automatic filing thing, and I don't even
;; lose those mails.
;;
;; I think outlook had conditional formatting to do this.

(add-hook 'rmail-show-message-hook 'jw-color-mail)

(defun jw-color-mail ()
    (goto-char (point-min))
    (cond ((search-forward "<something@somewhere.org>" nil t)
           (face-remap-add-relative 'default :background "lemon chiffon"))
          ((search-forward "<list@something.com>" nil t)
           (face-remap-add-relative 'default :background "light blue"))
          (t
           (face-remap-add-relative 'default :background "white"))))

(setq rmail-automatic-folder-directives
      (list
       (list "~/chatter.mbox" "subject" "bc-talk")
       (list "~/chatter.mbox" "subject" "alumni")))