🚀 go-pugleaf

The routine permits you to see the expansion of the aliases at any time
during the composition of your mail.  I have bound it to C-c C-a with
the meaning alias expansion.  The aliases themselves are already supported
from entires in .mailrc and send mail will already expand them as the mail
is sent.  I only provided a hook to permit you to see them ahead of time.

---Cut here-------------
(setq mail-mode-hook '(lambda ()
	(define-key mail-mode-map "\C-c\C-a" 'my-mail-aliases)))

(defun my-mail-aliases ()
"Expand local mail aliases so user can view them."
  (interactive)
(if mail-aliases
  (save-excursion
  (goto-char (point-min))
  (re-search-forward
     (concat "^" (regexp-quote mail-header-separator) "\n"))
     (replace-match "\n")
     (backward-char 1)
  (setq delimline (point-marker))
  (expand-mail-aliases (point-min) delimline)
  (goto-char delimline)
  (insert mail-header-separator ""))))













--
    _      _     Dale DePriest  		San Jose, California
   /`) _  //     daled@Cadence.COM		voice: (408) 428-5249
 o/_/ (_(_X_(`