From 31f35b6f94447fba95fc1f19bb5ec91a88cd8cc6 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Fri, 10 Nov 2000 18:01:58 +0000 Subject: [PATCH] (gnus-start-news-server): Use expand-file-name, not concat. --- lisp/gnus/gnus-int.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) 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)))))