Mercurial > emacs
diff lisp/gnus/gnus-group.el @ 33344:ae432b5b679d
(gnus-group-make-directory-group)
(gnus-group-fetch-faq): Use expand-file-name.
(gnus-group-fetch-faq): Simplify completing-read form.
author | Dave Love <fx@gnu.org> |
---|---|
date | Thu, 09 Nov 2000 14:32:25 +0000 |
parents | cc349ec3a7a7 |
children | 83221012a4f7 |
line wrap: on
line diff
--- a/lisp/gnus/gnus-group.el Thu Nov 09 14:23:43 2000 +0000 +++ b/lisp/gnus/gnus-group.el Thu Nov 09 14:32:25 2000 +0000 @@ -3,7 +3,6 @@ ;; Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> -;; Maintainer: bugs@gnus.org ;; Keywords: news ;; This file is part of GNU Emacs. @@ -2344,8 +2343,7 @@ (while (or (not group) (gnus-gethash group gnus-newsrc-hashtb)) (setq group (gnus-group-prefixed-name - (concat (file-name-as-directory (directory-file-name dir)) - ext) + (expand-file-name ext dir) '(nndir ""))) (setq ext (format "<%d>" (setq i (1+ i))))) (gnus-group-make-group @@ -3281,7 +3279,7 @@ (when current-prefix-arg (completing-read "Faq dir: " (and (listp gnus-group-faq-directory) - (mapcar (lambda (file) (list file)) + (mapcar #'list gnus-group-faq-directory)))))) (unless group (error "No group name given")) @@ -3292,7 +3290,7 @@ (while (and (not found) (setq dir (pop dirs))) (let ((name (gnus-group-real-name group))) - (setq file (concat (file-name-as-directory dir) name))) + (setq file (expand-file-name name dir))) (if (not (file-exists-p file)) (gnus-message 1 "No such file: %s" file) (let ((enable-local-variables nil))