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 | 94e5223ab031aa7f60045ef9e5f00160c71f0f6e (patch) | |
tree | 4f31e858f1dde9f1e8a0c22a69eab4b328c7c369 | |
parent | d91f15d45569bf6a20d2774cdb434c09134c47eb (diff) | |
download | emacs-94e5223ab031aa7f60045ef9e5f00160c71f0f6e.tar.gz |
(html-tag-alist): within the <ADDRESS> tag
generated with an <HTML> tag, use `user-mail-address'.
-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") |