diff options
| author | Dave Love | 2000-11-10 18:01:58 +0000 |
|---|---|---|
| committer | Dave Love | 2000-11-10 18:01:58 +0000 |
| commit | 31f35b6f94447fba95fc1f19bb5ec91a88cd8cc6 (patch) | |
| tree | 559653dce6d5b340e9d453ce872ff3c19ce77741 | |
| parent | ce2a8a6a938b759d84aa33eb6e06e0e0109b64b6 (diff) | |
| download | emacs-31f35b6f94447fba95fc1f19bb5ec91a88cd8cc6.tar.gz emacs-31f35b6f94447fba95fc1f19bb5ec91a88cd8cc6.zip | |
(gnus-start-news-server): Use expand-file-name, not
concat.
| -rw-r--r-- | lisp/gnus/gnus-int.el | 3 |
1 files changed, 1 insertions, 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." | |||
| 70 | (list 'nnmh-directory | 70 | (list 'nnmh-directory |
| 71 | (file-name-as-directory | 71 | (file-name-as-directory |
| 72 | (expand-file-name | 72 | (expand-file-name |
| 73 | (concat "~/" (substring | 73 | (substring gnus-nntp-server 1) "~/"))) |
| 74 | gnus-nntp-server 1))))) | ||
| 75 | (list 'nnmh-get-new-mail nil))) | 74 | (list 'nnmh-get-new-mail nil))) |
| 76 | (t | 75 | (t |
| 77 | (list 'nntp gnus-nntp-server))))) | 76 | (list 'nntp gnus-nntp-server))))) |