(gnus-group-make-directory-group)

(gnus-group-fetch-faq): Use expand-file-name.
(gnus-group-fetch-faq): Simplify completing-read form.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 55342810a79a02b388eea397126e2e8b2e2c4ae6..c53be3a0352c93345a35f26f0c581eb6667cf47a 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,5 +1,12 @@
 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)

diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index ab752dcb0ccf3b39181cad1b53b8fd49dccc2b75..2a50e83287af64c7aeb56a904f16af25cb7e33fd 100644 (file)
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -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))