From: Dave Love <fx@gnu.org>
Date: Fri, 10 Nov 2000 18:01:58 +0000 (+0000)
Subject: (gnus-start-news-server): Use expand-file-name, not
X-Git-Tag: emacs-pretest-21.0.90~158
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=31f35b6f94447fba95fc1f19bb5ec91a88cd8cc6;p=emacs.git

(gnus-start-news-server): Use expand-file-name, not
concat.
---

diff --git a/lisp/gnus/gnus-int.el b/lisp/gnus/gnus-int.el
index bdd0227b848..d5a507599f9 100644
--- a/lisp/gnus/gnus-int.el
+++ b/lisp/gnus/gnus-int.el
@@ -70,8 +70,7 @@ If CONFIRM is non-nil, the user will be asked for an NNTP server."
 			   (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)))))