From 86a2aad7a5492d71bf74e971252d9ef4f52359f3 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 15 Feb 2005 11:15:41 +0000 Subject: [PATCH] Synch to No Gnus 200502150608. --- lisp/ChangeLog | 5 +++++ lisp/gnus-group.el | 6 ++++-- 2 files changed, 9 insertions(+), 2 deletions(-) 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 + + * 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 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) -- 1.7.10.4