[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-group.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-group.el |
Date: |
Sat, 19 Feb 2005 08:24:16 -0500 |
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)