From: yamaoka <yamaoka>
Date: Tue, 15 Feb 2005 11:15:41 +0000 (+0000)
Subject: Synch to No Gnus 200502150608.
X-Git-Tag: t-gnus-6_17_4-quimby-~557
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=86a2aad7a5492d71bf74e971252d9ef4f52359f3;p=elisp%2Fgnus.git-

Synch to No Gnus 200502150608.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d5d5f10..c985453 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -35,6 +35,11 @@
 
 	* gnus-agent.el: Remove garbage made while merging the Emacs trunk.
 
+2005-02-14  Reiner Steib  <Reiner.Steib@gmx.de>
+
+	* gnus-group.el (gnus-group-make-doc-group): Mention prefix
+	argument in doc string.  Make query for type more clear.
+
 2005-02-09  Kim F. Storm  <storm@cua.dk>
 
 	Change Emacs release version from 21.4 to 22.1 throughout.
diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 0bf8437..98262a8 100644
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -2594,7 +2594,9 @@ group already exists:
   (gnus-group-position-point))
 
 (defun gnus-group-make-doc-group (file type)
-  "Create a group that uses a single file as the source."
+  "Create a group that uses a single file as the source.
+
+If called with a prefix argument, ask for the file type."
   (interactive
    (list (read-file-name "File name: ")
 	 (and current-prefix-arg 'ask)))
@@ -2603,7 +2605,7 @@ group already exists:
 	  char found)
       (while (not found)
 	(message
-	 "%sFile type (mbox, babyl, digest, forward, mmdf, guess) [mbdfag]: "
+	 "%sFile type (mbox, babyl, digest, forward, mmdf, guess) [m, b, d, f, a, g]: "
 	 err)
 	(setq found (cond ((= (setq char (read-char)) ?m) 'mbox)
 			  ((= char ?b) 'babyl)