psgml / psgml-html.el

Diff from to

File psgml-html.el

 ;; You should have received a copy of the GNU General Public License
 ;; along with XEmacs; see the file COPYING.  If not, write to the Free
-;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
+;; MA 02111-1307, USA.
 ;;; Synched up with: FSF 19.30.
 ;;; Code:
 (defvar html-auto-sgml-entity-conversion nil
-  "*Control automatic sgml entity to ISO-8859-1 conversion")
+  "*Control automatic SGML entity to ISO-8859-1 conversion.")
 (provide 'psgml-html)
 (require 'psgml)
   :prefix "html-helper-"
   :prefix "psgml-html-"
   :group 'html
+  :group 'hypermedia
   :group 'psgml)
-;; Set this to be whatever signature you want on the bottom of your pages.
 (defcustom html-helper-address-string
-  (concat "<a href=\"mailto:" (user-mail-address) "\">"
-	  (user-full-name) "</a>")
+  (concat "<a href=\"mailto:"
+	  (or user-mail-address
+	      (concat (user-login-name) "@"
+		      (or mail-host-address (system-name))))
+	  "\">" (user-full-name) "</a>")
   "*The default author string of each file."
   :type 'string
   :group 'psgml-html)