Synch to No Gnus 200502150608.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d5d5f10..c985453 100644 (file)
--- 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 (file)
--- 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)