🚀 go-pugleaf

>>>>> morgan@isp.net (Morgan Fletcher) writes:

> ... using different colors & fonts for different components of the 
> message, and causing all URLs to be designated as a "button", in that 
> the URL would be colored differently, and a click would launch some web 
> browser with that URL.

...

> With these changes, I think mh-e would improve a lot.

These *have* been implemented!  =)  If you have emacs 19.30, you'll find
that the package goto-addr does exactly what you want.  Otherwise, you'll
find goto-addr at the elisp archive (though I'm not sure it's the most
recent version).  In fact, browse-url does what you want; goto-addr adds
the functionality of making e-mail addresses "buttons" as well.

As for the different colored headers, I believe this elisp code will do
what you'd like for the header (but I've only tested it with the
font-lock.el that comes with emacs 19.30)...

Eric

;;; Code

(defvar mail-header-keywords
  '(
    ("^[ \t]+\\(.+\\)$"
     (1 slate-gray1-normal t))
    ("^\\([^: ]*\\): \\(.*\\)"
     (1 moccasin-bold t)
     (2 slate-gray1-normal t))
    ("^\\(From\\|Sender\\|Reply-To\\|Resent-From\\): \\(.*\\)"
     2 light-goldenrod-bold t)
    ("^\\(To\\|Apparently-To\\|[Cc]c\\|Resent-To\\): \\(.*\\)"
     2 light-salmon-bold t)
    ("^\\(Subject\\): \\(.*\\)" 2 aquamarine-bold t)
    ("^\\(Newsgroups\\): \\(.*\\)" 2 khaki1-bold t)
    )
  "Additions to font-lock-keywords for mail headers.")

(defun my-mh-show-mode-x-hook ()
  (require 'font-lock)
  (let ((font-lock-verbose nil)
	(font-lock-keywords-only t))
    (let ((font-lock-keywords
	      (append mail-header-keywords font-lock-keywords)))
      (font-lock-fontify-region
       (goto-char (point-min))
       (re-search-forward "^$" nil t)))))

(if window-system
  (add-hook 'mh-show-mode-hook 'my-mh-show-mode-x-hook))

;;; code ends here