diff options
| author | Richard M. Stallman | 1998-11-29 21:12:28 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-11-29 21:12:28 +0000 |
| commit | c5f7d53647e21064fa47a60c099663763c39b3ca (patch) | |
| tree | 064a8627879e30ad98b86717256df07dbf2d120d | |
| parent | 764b077c71e0de421364d4c83295a1c1f7ae2dcc (diff) | |
| download | emacs-c5f7d53647e21064fa47a60c099663763c39b3ca.tar.gz emacs-c5f7d53647e21064fa47a60c099663763c39b3ca.zip | |
(auto-insert-alist): Use user-mail-address.
| -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." | |||
| 151 | ;; Author: " (user-full-name) | 151 | ;; Author: " (user-full-name) |
| 152 | '(if (search-backward "&" (save-excursion (beginning-of-line 1) (point)) t) | 152 | '(if (search-backward "&" (save-excursion (beginning-of-line 1) (point)) t) |
| 153 | (replace-match (capitalize (user-login-name)) t t)) | 153 | (replace-match (capitalize (user-login-name)) t t)) |
| 154 | '(end-of-line 1) " <" (user-login-name) ?@ (system-name) "> | 154 | '(end-of-line 1) " <" (progn user-mail-address) "> |
| 155 | ;; Keywords: " | 155 | ;; Keywords: " |
| 156 | '(require 'finder) | 156 | '(require 'finder) |
| 157 | ;;'(setq v1 (apply 'vector (mapcar 'car finder-known-keywords))) | 157 | ;;'(setq v1 (apply 'vector (mapcar 'car finder-known-keywords))) |