diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-11-29 21:12:28 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-11-29 21:12:28 +0000 |
| commit | c5f7d53647e21064fa47a60c099663763c39b3ca (patch) | |
| tree | 064a8627879e30ad98b86717256df07dbf2d120d /lisp/autoinsert.el | |
| parent | 764b077c71e0de421364d4c83295a1c1f7ae2dcc (diff) | |
| download | emacs-c5f7d53647e21064fa47a60c099663763c39b3ca.tar.gz | |
(auto-insert-alist): Use user-mail-address.
Diffstat (limited to 'lisp/autoinsert.el')
| -rw-r--r-- | lisp/autoinsert.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/autoinsert.el b/lisp/autoinsert.el index 6e9dae1ce1a..21e83da9794 100644 --- a/lisp/autoinsert.el +++ b/lisp/autoinsert.el @@ -151,7 +151,7 @@ If this contains a %s, that will be replaced by the matching rule." ;; Author: " (user-full-name) '(if (search-backward "&" (save-excursion (beginning-of-line 1) (point)) t) (replace-match (capitalize (user-login-name)) t t)) -'(end-of-line 1) " <" (user-login-name) ?@ (system-name) "> +'(end-of-line 1) " <" (progn user-mail-address) "> ;; Keywords: " '(require 'finder) ;;'(setq v1 (apply 'vector (mapcar 'car finder-known-keywords))) |