# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 973879318 0
# Node ID e16be74deee23ac1ca3cf16d0dbf71cd409bce13
# Parent  940adf5fe1c09dee09543e27834cd8fb2ab8fd8b
(gnus-start-news-server): Use expand-file-name, not
concat.

diff -r 940adf5fe1c0 -r e16be74deee2 lisp/gnus/gnus-int.el
--- a/lisp/gnus/gnus-int.el	Fri Nov 10 18:00:36 2000 +0000
+++ b/lisp/gnus/gnus-int.el	Fri Nov 10 18:01:58 2000 +0000
@@ -70,8 +70,7 @@
 			   (list 'nnmh-directory
 				 (file-name-as-directory
 				  (expand-file-name
-				   (concat "~/" (substring
-						 gnus-nntp-server 1)))))
+				   (substring gnus-nntp-server 1) "~/")))
 			   (list 'nnmh-get-new-mail nil)))
 		    (t
 		     (list 'nntp gnus-nntp-server)))))