diff options
| author | Richard M. Stallman | 1996-02-08 17:27:23 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-02-08 17:27:23 +0000 |
| commit | be047262ea2dd47eb76ec67ae53b85a85ce12e53 (patch) | |
| tree | 4f2bcd380b12cc5144b01187a04d0d7998867acc | |
| parent | 43c5ac8cbeefe03996401ea7d472e040ca0e62f2 (diff) | |
| download | emacs-be047262ea2dd47eb76ec67ae53b85a85ce12e53.tar.gz emacs-be047262ea2dd47eb76ec67ae53b85a85ce12e53.zip | |
(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.") | |||
| 957 | "<title>" (setq str (read-input "Title: ")) "</title>\n" | 957 | "<title>" (setq str (read-input "Title: ")) "</title>\n" |
| 958 | "<body>\n<h1>" str "</h1>\n" _ | 958 | "<body>\n<h1>" str "</h1>\n" _ |
| 959 | "\n<address>\n<a href=\"mailto:" | 959 | "\n<address>\n<a href=\"mailto:" |
| 960 | (user-login-name) ?@ (system-name) | 960 | user-mail-address |
| 961 | "\">" (user-full-name) "</a>\n</address>")) | 961 | "\">" (user-full-name) "</a>\n</address>")) |
| 962 | ("i") | 962 | ("i") |
| 963 | ("ins") | 963 | ("ins") |