diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-02-08 17:27:23 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-02-08 17:27:23 +0000 |
| commit | be047262ea2dd47eb76ec67ae53b85a85ce12e53 (patch) | |
| tree | 4f2bcd380b12cc5144b01187a04d0d7998867acc /lisp/textmodes | |
| parent | 43c5ac8cbeefe03996401ea7d472e040ca0e62f2 (diff) | |
| download | emacs-be047262ea2dd47eb76ec67ae53b85a85ce12e53.tar.gz | |
(html-tag-alist): within the <ADDRESS> tag
generated with an <HTML> tag, use `user-mail-address'.
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/sgml-mode.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el index e4daa3f65dc..e9f8324ae2c 100644 --- a/lisp/textmodes/sgml-mode.el +++ b/lisp/textmodes/sgml-mode.el @@ -957,7 +957,7 @@ This takes effect when first loading the library.") "<title>" (setq str (read-input "Title: ")) "</title>\n" "<body>\n<h1>" str "</h1>\n" _ "\n<address>\n<a href=\"mailto:" - (user-login-name) ?@ (system-name) + user-mail-address "\">" (user-full-name) "</a>\n</address>")) ("i") ("ins") |