--- time.el117	Wed May  7 13:12:46 2003
+++ time.el	Mon Aug  4 21:17:33 2003
@@ -871,7 +871,9 @@
                normally be a small icon which changes depending if 
                there is new mail or not.
 	      
-mail-text:     The same as above, but will not use a glyph"
+mail-text:     The same as above, but will not use a glyph
+
+hostname:      This prints out the system's hostname"
   :group 'display-time
   :type '(repeat (choice :tag "Symbol/String"
 			 (const :tag "Date" date)
@@ -895,6 +897,7 @@
 			 (const :tag "Load (text)" load-text)
 			 (const :tag "Mail sign" mail)
 			 (const :tag "Mail sign (text)" mail-text)
+			 (const :tag "Hostname" host)
 			 (string :tag "String"))))
 
 (defun display-time-evaluate-list ()
@@ -956,6 +959,8 @@
 	    ((eq elem 'mail-text)
 	     (push (if mail (display-time-mail-sign t)
 		     (display-time-no-mail-sign t)) tmp))
+	    ((eq elem 'host)
+	     (push (format " %s" (getenv "HOST")) tmp))
 	    ))
     ;; We know that we have a list containing only of strings if
     ;; display-time-echo-area is t. So we construct this string from