changeset 14518:5b2bc060c90d

(html-tag-alist): within the <ADDRESS> tag generated with an <HTML> tag, use `user-mail-address'.
author Richard M. Stallman <rms@gnu.org>
date Thu, 08 Feb 1996 17:27:23 +0000
parents 8b88e5c2a6d5
children 7efdb933356e
files lisp/textmodes/sgml-mode.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/sgml-mode.el	Thu Feb 08 10:27:24 1996 +0000
+++ b/lisp/textmodes/sgml-mode.el	Thu Feb 08 17:27:23 1996 +0000
@@ -957,7 +957,7 @@
 	       "<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")