changeset 33377:e16be74deee2

(gnus-start-news-server): Use expand-file-name, not concat.
author Dave Love <fx@gnu.org>
date Fri, 10 Nov 2000 18:01:58 +0000
parents 940adf5fe1c0
children ab964e52e0ba
files lisp/gnus/gnus-int.el
diffstat 1 files changed, 1 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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)))))