/[emacs]/emacs/lisp/gnus/gnus-group.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-group.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.34 by kfstorm, Wed Feb 9 15:50:38 2005 UTC revision 1.35 by miles, Sat Feb 19 13:24:15 2005 UTC
# Line 2502  group already exists: Line 2502  group already exists:
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)))
# Line 2511  group already exists: Line 2513  group already exists:
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)

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26