projects
/
elisp
/
gnus.git-
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
3ddc294
)
Synch to No Gnus 200502150608.
author
yamaoka
<yamaoka>
Tue, 15 Feb 2005 11:15:41 +0000
(11:15 +0000)
committer
yamaoka
<yamaoka>
Tue, 15 Feb 2005 11:15:41 +0000
(11:15 +0000)
lisp/ChangeLog
patch
|
blob
|
history
lisp/gnus-group.el
patch
|
blob
|
history
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.
* 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.
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)
(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)))
(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
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)
err)
(setq found (cond ((= (setq char (read-char)) ?m) 'mbox)
((= char ?b) 'babyl)