Commit c6e7b580 authored by Dave Love's avatar Dave Love
Browse files

(gnus-group-make-directory-group)

(gnus-group-fetch-faq): Use expand-file-name.
(gnus-group-fetch-faq): Simplify completing-read form.
parent def5ff36
2000-11-09 Dave Love <fx@gnu.org>
* gnus-group.el (gnus-group-make-directory-group)
(gnus-group-fetch-faq): Use expand-file-name.
(gnus-group-fetch-faq): Simplify completing-read form.
* mm-bodies.el (mm-encode-body): Use mm-multibyte-p, don't just
test for Mule.
* message.el (tool-bar-map): Defvar when compiling.
* gnus-setup.el (running-xemacs, gnus-use-installed-tm)
......
......@@ -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 @@ mail messages or news articles in files that have numeric names."
(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 @@ to use."
(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 @@ to use."
(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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment