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

[Romain Francoise]

Index: emacs/lisp/gnus/gnus-art.el
diff -c emacs/lisp/gnus/gnus-art.el:1.95 emacs/lisp/gnus/gnus-art.el:1.96
*** emacs/lisp/gnus/gnus-art.el:1.95    Mon Sep 19 10:14:33 2005
--- emacs/lisp/gnus/gnus-art.el Sat Sep 24 13:46:19 2005
***************
*** 3255,3261 ****
                      ((null split-name)
                       (read-file-name
                        (concat prompt " (default "
!                               (file-name-nondirectory default-name) ") ")
                        (file-name-directory default-name)
                        default-name))
                      ;; A single group name is returned.
--- 3255,3261 ----
                      ((null split-name)
                       (read-file-name
                        (concat prompt " (default "
!                               (file-name-nondirectory default-name) "): ")
                        (file-name-directory default-name)
                        default-name))
                      ;; A single group name is returned.
***************
*** 3265,3271 ****
                                      (symbol-value variable)))
                       (read-file-name
                        (concat prompt " (default "
!                               (file-name-nondirectory default-name) ") ")
                        (file-name-directory default-name)
                        default-name))
                      ;; A single split name was found
--- 3265,3271 ----
                                      (symbol-value variable)))
                       (read-file-name
                        (concat prompt " (default "
!                               (file-name-nondirectory default-name) "): ")
                        (file-name-directory default-name)
                        default-name))
                      ;; A single split name was found
***************
*** 3278,3284 ****
                                         ((file-exists-p name) name)
                                         (t gnus-article-save-directory))))
                         (read-file-name
!                         (concat prompt " (default " name ") ")
                          dir name)))
                      ;; A list of splits was found.
                      (t
--- 3278,3284 ----
                                         ((file-exists-p name) name)
                                         (t gnus-article-save-directory))))
                         (read-file-name
!                         (concat prompt " (default " name "): ")
                          dir name)))
                      ;; A list of splits was found.
                      (t
***************
*** 3289,3295 ****
                           (setq result
                                 (expand-file-name
                                  (read-file-name
!                                  (concat prompt " (`M-p' for defaults) ")
                                   gnus-article-save-directory
                                   (car split-name))
                                  gnus-article-save-directory)))
--- 3289,3295 ----
                           (setq result
                                 (expand-file-name
                                  (read-file-name
!                                  (concat prompt " (`M-p' for defaults): ")
                                   gnus-article-save-directory
                                   (car split-name))
                                  gnus-article-save-directory)))
***************
*** 3323,3329 ****
  Optional argument FILENAME specifies file name.
  Directory to save to is default to `gnus-article-save-directory'."
    (setq filename (gnus-read-save-file-name
!                 "Save %s in rmail file:" filename
                  gnus-rmail-save-name gnus-newsgroup-name
                  gnus-current-headers 'gnus-newsgroup-last-rmail))
    (gnus-eval-in-buffer-window gnus-save-article-buffer
--- 3323,3329 ----
  Optional argument FILENAME specifies file name.
  Directory to save to is default to `gnus-article-save-directory'."
    (setq filename (gnus-read-save-file-name
!                 "Save %s in rmail file" filename
                  gnus-rmail-save-name gnus-newsgroup-name
                  gnus-current-headers 'gnus-newsgroup-last-rmail))
    (gnus-eval-in-buffer-window gnus-save-article-buffer
***************
*** 3338,3344 ****
  Optional argument FILENAME specifies file name.
  Directory to save to is default to `gnus-article-save-directory'."
    (setq filename (gnus-read-save-file-name
!                 "Save %s in Unix mail file:" filename
                  gnus-mail-save-name gnus-newsgroup-name
                  gnus-current-headers 'gnus-newsgroup-last-mail))
    (gnus-eval-in-buffer-window gnus-save-article-buffer
--- 3338,3344 ----
  Optional argument FILENAME specifies file name.
  Directory to save to is default to `gnus-article-save-directory'."
    (setq filename (gnus-read-save-file-name
!                 "Save %s in Unix mail file" filename
                  gnus-mail-save-name gnus-newsgroup-name
                  gnus-current-headers 'gnus-newsgroup-last-mail))
    (gnus-eval-in-buffer-window gnus-save-article-buffer
***************
*** 3357,3363 ****
  Optional argument FILENAME specifies file name.
  Directory to save to is default to `gnus-article-save-directory'."
    (setq filename (gnus-read-save-file-name
!                 "Save %s in file:" filename
                  gnus-file-save-name gnus-newsgroup-name
                  gnus-current-headers 'gnus-newsgroup-last-file))
    (gnus-eval-in-buffer-window gnus-save-article-buffer
--- 3357,3363 ----
  Optional argument FILENAME specifies file name.
  Directory to save to is default to `gnus-article-save-directory'."
    (setq filename (gnus-read-save-file-name
!                 "Save %s in file" filename
                  gnus-file-save-name gnus-newsgroup-name
                  gnus-current-headers 'gnus-newsgroup-last-file))
    (gnus-eval-in-buffer-window gnus-save-article-buffer
***************
*** 3381,3387 ****
  Optional argument FILENAME specifies file name.
  The directory to save in defaults to `gnus-article-save-directory'."
    (setq filename (gnus-read-save-file-name
!                 "Save %s body in file:" filename
                  gnus-file-save-name gnus-newsgroup-name
                  gnus-current-headers 'gnus-newsgroup-last-file))
    (gnus-eval-in-buffer-window gnus-save-article-buffer
--- 3381,3387 ----
  Optional argument FILENAME specifies file name.
  The directory to save in defaults to `gnus-article-save-directory'."
    (setq filename (gnus-read-save-file-name
!                 "Save %s body in file" filename
                  gnus-file-save-name gnus-newsgroup-name
                  gnus-current-headers 'gnus-newsgroup-last-file))
    (gnus-eval-in-buffer-window gnus-save-article-buffer