(html-tag-alist): within the <ADDRESS> tag

generated with an <HTML> tag, use `user-mail-address'.
1996-02-08 17:27:23 +00:00 · 1996-02-08 17:27:23 +00:00 · be047262ea
commit be047262ea
parent 43c5ac8cbe
1 changed files with 1 additions and 1 deletions
--- 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")