[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-group.el

[Miles Bader]

Index: emacs/lisp/gnus/gnus-group.el
diff -c emacs/lisp/gnus/gnus-group.el:1.34 emacs/lisp/gnus/gnus-group.el:1.35
*** emacs/lisp/gnus/gnus-group.el:1.34  Wed Feb  9 15:50:38 2005
--- emacs/lisp/gnus/gnus-group.el       Sat Feb 19 13:24:15 2005
***************
*** 2502,2508 ****
    (gnus-group-position-point))
  
  (defun gnus-group-make-doc-group (file type)
!   "Create a group that uses a single file as the source."
    (interactive
     (list (read-file-name "File name: ")
         (and current-prefix-arg 'ask)))
--- 2502,2510 ----
    (gnus-group-position-point))
  
  (defun gnus-group-make-doc-group (file type)
!   "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)))
***************
*** 2511,2517 ****
          char found)
        (while (not found)
        (message
!        "%sFile type (mbox, babyl, digest, forward, mmdf, guess) [mbdfag]: "
         err)
        (setq found (cond ((= (setq char (read-char)) ?m) 'mbox)
                          ((= char ?b) 'babyl)
--- 2513,2519 ----
          char found)
        (while (not found)
        (message
!        "%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)