changeset 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 074ad4abf8e0
children 8ee80e8c9093
files lisp/gnus/ChangeLog lisp/gnus/gnus-group.el
diffstat 2 files changed, 10 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog	Thu Nov 09 14:23:43 2000 +0000
+++ b/lisp/gnus/ChangeLog	Thu Nov 09 14:32:25 2000 +0000
@@ -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)
--- 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))