File xemacs-packages-extra-20060510-egg-wnn-host-uni... of Package xemacs-packages-extra

Overview Repositories Revisions Requests Users Attributes Meta

File xemacs-packages-extra-20060510-egg-wnn-host-unix-79826.patch of Package xemacs-packages-extra

--- xemacs-sumo-20060510/mule-packages/egg-its/egg-wnn.el~	2000-10-06 12:18:34.000000000 +0300
+++ xemacs-sumo-20060510/mule-packages/egg-its/egg-wnn.el	2006-09-03 02:22:54.000000000 +0300
@@ -699,7 +699,7 @@
   (let ((wnn-server-type 'jserver)) (close-wnn))
   (setq jserver-list
 	(make-host-list
-	 name (or jserver-list (list (or wnn-host-name (getenv "JSERVER") "localhost"))))))
+	 name (or jserver-list (list (or wnn-host-name (getenv "JSERVER") "unix"))))))
 
 (fset 'set-jserver-host-name (symbol-function 'set-wnn-host-name))
 
@@ -709,7 +709,7 @@
   (let ((wnn-server-type 'cserver)) (close-wnn))
   (setq cserver-list
 	(make-host-list
-	 name (or cserver-list (list (or cwnn-host-name (getenv "CSERVER") "localhost"))))))
+	 name (or cserver-list (list (or cwnn-host-name (getenv "CSERVER") "unix"))))))
 
 (fset 'set-cserver-host-name (symbol-function 'set-cwnn-host-name))
 
@@ -719,7 +719,7 @@
   (let ((wnn-server-type 'kserver)) (close-wnn))
   (setq kserver-list
 	(make-host-list
-	 name (or kserver-list (list (or kwnn-host-name (getenv "KSERVER") "localhost"))))))
+	 name (or kserver-list (list (or kwnn-host-name (getenv "KSERVER") "unix"))))))
 
 (fset 'set-kserver-host-name (symbol-function 'set-kwnn-host-name))
 
@@ -728,13 +728,13 @@
       (let ((hostlist
 	     (cond ((eq wnn-server-type 'jserver)
 		    (or jserver-list
-			(list (or wnn-host-name (getenv "JSERVER") "localhost"))))
+			(list (or wnn-host-name (getenv "JSERVER") "unix"))))
 		   ((eq wnn-server-type 'cserver)
 		    (or cserver-list
-			(list (or cwnn-host-name (getenv "CSERVER") "localhost"))))
+			(list (or cwnn-host-name (getenv "CSERVER") "unix"))))
 		   ((eq wnn-server-type 'kserver)
 		    (or kserver-list
-			(list (or kwnn-host-name (getenv "KSERVER") "localhost"))))))
+			(list (or kwnn-host-name (getenv "KSERVER") "unix"))))))
 	    (loginname (user-login-name)))
 	(catch 'succ
 	  (while hostlist

Places

File xemacs-packages-extra-20060510-egg-wnn-host-unix-79826.patch of Package xemacs-packages-extra

Places