1 |
;;; mailabbrev.el --- abbrev-expansion of mail aliases |
;;; mailabbrev.el --- abbrev-expansion of mail aliases |
2 |
|
|
3 |
;; Copyright (C) 1985, 86, 87, 92, 93, 96, 1997, 2000, 2002 |
;; Copyright (C) 1985, 86, 87, 92, 93, 96, 1997, 2000, 2002, 2003 |
4 |
;; Free Software Foundation, Inc. |
;; Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Author: Jamie Zawinski <jwz@lucid.com>, now <jwz@jwz.org> |
;; Author: Jamie Zawinski <jwz@lucid.com>, now <jwz@jwz.org> |
111 |
;; (add-hook |
;; (add-hook |
112 |
;; 'mail-mode-hook |
;; 'mail-mode-hook |
113 |
;; (lambda () |
;; (lambda () |
114 |
;; (substitute-key-definition 'next-line 'mail-abbrev-next-line |
;; (define-key mail-mode-map [remap next-line] 'mail-abbrev-next-line) |
115 |
;; mail-mode-map global-map) |
;; (define-key mail-mode-map [remap end-of-buffer] 'mail-abbrev-end-of-buffer))) |
|
;; (substitute-key-definition 'end-of-buffer 'mail-abbrev-end-of-buffer |
|
|
;; mail-mode-map global-map))) |
|
116 |
;; |
;; |
117 |
;; If you want multiple addresses separated by a string other than ", " then |
;; If you want multiple addresses separated by a string other than ", " then |
118 |
;; you can set the variable mail-alias-separator-string to it. This has to |
;; you can set the variable mail-alias-separator-string to it. This has to |
411 |
(w (aref (standard-syntax-table) ?w))) |
(w (aref (standard-syntax-table) ?w))) |
412 |
(map-char-table |
(map-char-table |
413 |
(function (lambda (key value) |
(function (lambda (key value) |
414 |
|
(if (null value) |
415 |
|
;; Fetch the inherited value |
416 |
|
(setq value (aref tab key))) |
417 |
(if (equal value _) |
(if (equal value _) |
418 |
(set-char-table-range tab key w)))) |
(set-char-table-range tab key w)))) |
419 |
tab) |
tab) |
420 |
(modify-syntax-entry ?@ "w" tab) |
(modify-syntax-entry ?@ "w" tab) |
421 |
|
(modify-syntax-entry ?% "w" tab) |
422 |
|
(modify-syntax-entry ?! "w" tab) |
423 |
|
(modify-syntax-entry ?. "w" tab) |
424 |
|
(modify-syntax-entry ?_ "w" tab) |
425 |
|
(modify-syntax-entry ?- "w" tab) |
426 |
(setq mail-abbrev-syntax-table tab)))) |
(setq mail-abbrev-syntax-table tab)))) |
427 |
|
|
428 |
(defun mail-abbrev-in-expansion-header-p () |
(defun mail-abbrev-in-expansion-header-p () |