home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / functions / my-mail-aliases.el < prev    next >
Encoding:
Text File  |  1993-02-01  |  1.5 KB  |  54 lines
  1. ; Path: hal.com!olivea!pagesat!netsys!ukma!psuvax1!atlantis.psu.edu!howland.reston.ans.net!paladin.american.edu!europa.asd.contel.com!uunet!Cadence.COM!daled
  2. ; From: daled@cadence.com (Dale DePriest)
  3. ; Newsgroups: gnu.emacs.sources
  4. ; Subject: mail aliases
  5. ; Date: 20 Jan 93 19:56:05 GMT
  6. ; Organization: Cadence Design Systems
  7. ; 
  8. ; The routine permits you to see the expansion of the aliases at any time
  9. ; during the composition of your mail.  I have bound it to C-c C-a with
  10. ; the meaning alias expansion.  The aliases themselves are already supported
  11. ; is sent.  I only provided a hook to permit you to see them ahead of time.
  12. ; 
  13. ; ---Cut here-------------
  14.  
  15. ;; LCD Archive Entry:
  16. ;; my-mail-aliases|Dale DePriest|daled@cadence.com|
  17. ;; Expand aliases in outgoung mail headers.|
  18. ;; 93-01-20||~/functions/my-mail-aliases.el.Z|
  19.  
  20. (setq mail-mode-hook '(lambda ()
  21.     (define-key mail-mode-map "\C-c\C-a" 'my-mail-aliases)))
  22.  
  23. (defun my-mail-aliases ()
  24. "Expand local mail aliases so user can view them."
  25.   (interactive)
  26. (if mail-aliases
  27.   (save-excursion
  28.   (goto-char (point-min))
  29.   (re-search-forward
  30.      (concat "^" (regexp-quote mail-header-separator) "\n"))
  31.      (replace-match "\n")
  32.      (backward-char 1)
  33.   (setq delimline (point-marker))
  34.   (expand-mail-aliases (point-min) delimline)
  35.   (goto-char delimline)
  36.   (insert mail-header-separator ""))))
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50. --
  51.     _      _     Dale DePriest          San Jose, California
  52.    /`) _  //     daled@Cadence.COM        voice: (408) 428-5249
  53.  o/_/ (_(_X_(`     
  54.