Commits

Anonymous committed 72d7397

Avoid prompting mail address at load time <1062108021.18368.26.camel@bobcat.mine.nu>.

  • Participants
  • Parent commits 7a3b91a

Comments (0)

Files changed (2)

+2003-08-29  Ville Skyttä  <scop@xemacs.org>
+
+	* psgml-html.el: Bring FSF's address up to date.
+	(psgml-html): Include self in the hypermedia customization group.
+	(html-helper-address-string): Don't query the address here.
+
 2003-03-09  Ben Wing  <ben@xemacs.org>
 
 	* Makefile:

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)