2502 |
(gnus-group-position-point)) |
(gnus-group-position-point)) |
2503 |
|
|
2504 |
(defun gnus-group-make-doc-group (file type) |
(defun gnus-group-make-doc-group (file type) |
2505 |
"Create a group that uses a single file as the source." |
"Create a group that uses a single file as the source. |
2506 |
|
|
2507 |
|
If called with a prefix argument, ask for the file type." |
2508 |
(interactive |
(interactive |
2509 |
(list (read-file-name "File name: ") |
(list (read-file-name "File name: ") |
2510 |
(and current-prefix-arg 'ask))) |
(and current-prefix-arg 'ask))) |
2513 |
char found) |
char found) |
2514 |
(while (not found) |
(while (not found) |
2515 |
(message |
(message |
2516 |
"%sFile type (mbox, babyl, digest, forward, mmdf, guess) [mbdfag]: " |
"%sFile type (mbox, babyl, digest, forward, mmdf, guess) [m, b, d, f, a, g]: " |
2517 |
err) |
err) |
2518 |
(setq found (cond ((= (setq char (read-char)) ?m) 'mbox) |
(setq found (cond ((= (setq char (read-char)) ?m) 'mbox) |
2519 |
((= char ?b) 'babyl) |
((= char ?b) 'babyl) |