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

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

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

revision 1.95 by miles, Mon Sep 19 10:14:33 2005 UTC revision 1.96 by rfrancoise, Sat Sep 24 13:46:19 2005 UTC
# Line 3255  This format is defined by the `gnus-arti Line 3255  This format is defined by the `gnus-arti
3255                        ((null split-name)                        ((null split-name)
3256                         (read-file-name                         (read-file-name
3257                          (concat prompt " (default "                          (concat prompt " (default "
3258                                  (file-name-nondirectory default-name) ") ")                                  (file-name-nondirectory default-name) "): ")
3259                          (file-name-directory default-name)                          (file-name-directory default-name)
3260                          default-name))                          default-name))
3261                        ;; A single group name is returned.                        ;; A single group name is returned.
# Line 3265  This format is defined by the `gnus-arti Line 3265  This format is defined by the `gnus-arti
3265                                        (symbol-value variable)))                                        (symbol-value variable)))
3266                         (read-file-name                         (read-file-name
3267                          (concat prompt " (default "                          (concat prompt " (default "
3268                                  (file-name-nondirectory default-name) ") ")                                  (file-name-nondirectory default-name) "): ")
3269                          (file-name-directory default-name)                          (file-name-directory default-name)
3270                          default-name))                          default-name))
3271                        ;; A single split name was found                        ;; A single split name was found
# Line 3278  This format is defined by the `gnus-arti Line 3278  This format is defined by the `gnus-arti
3278                                           ((file-exists-p name) name)                                           ((file-exists-p name) name)
3279                                           (t gnus-article-save-directory))))                                           (t gnus-article-save-directory))))
3280                           (read-file-name                           (read-file-name
3281                            (concat prompt " (default " name ") ")                            (concat prompt " (default " name "): ")
3282                            dir name)))                            dir name)))
3283                        ;; A list of splits was found.                        ;; A list of splits was found.
3284                        (t                        (t
# Line 3289  This format is defined by the `gnus-arti Line 3289  This format is defined by the `gnus-arti
3289                             (setq result                             (setq result
3290                                   (expand-file-name                                   (expand-file-name
3291                                    (read-file-name                                    (read-file-name
3292                                     (concat prompt " (`M-p' for defaults) ")                                     (concat prompt " (`M-p' for defaults): ")
3293                                     gnus-article-save-directory                                     gnus-article-save-directory
3294                                     (car split-name))                                     (car split-name))
3295                                    gnus-article-save-directory)))                                    gnus-article-save-directory)))
# Line 3323  This format is defined by the `gnus-arti Line 3323  This format is defined by the `gnus-arti
3323  Optional argument FILENAME specifies file name.  Optional argument FILENAME specifies file name.
3324  Directory to save to is default to `gnus-article-save-directory'."  Directory to save to is default to `gnus-article-save-directory'."
3325    (setq filename (gnus-read-save-file-name    (setq filename (gnus-read-save-file-name
3326                    "Save %s in rmail file:" filename                    "Save %s in rmail file" filename
3327                    gnus-rmail-save-name gnus-newsgroup-name                    gnus-rmail-save-name gnus-newsgroup-name
3328                    gnus-current-headers 'gnus-newsgroup-last-rmail))                    gnus-current-headers 'gnus-newsgroup-last-rmail))
3329    (gnus-eval-in-buffer-window gnus-save-article-buffer    (gnus-eval-in-buffer-window gnus-save-article-buffer
# Line 3338  Directory to save to is default to `gnus Line 3338  Directory to save to is default to `gnus
3338  Optional argument FILENAME specifies file name.  Optional argument FILENAME specifies file name.
3339  Directory to save to is default to `gnus-article-save-directory'."  Directory to save to is default to `gnus-article-save-directory'."
3340    (setq filename (gnus-read-save-file-name    (setq filename (gnus-read-save-file-name
3341                    "Save %s in Unix mail file:" filename                    "Save %s in Unix mail file" filename
3342                    gnus-mail-save-name gnus-newsgroup-name                    gnus-mail-save-name gnus-newsgroup-name
3343                    gnus-current-headers 'gnus-newsgroup-last-mail))                    gnus-current-headers 'gnus-newsgroup-last-mail))
3344    (gnus-eval-in-buffer-window gnus-save-article-buffer    (gnus-eval-in-buffer-window gnus-save-article-buffer
# Line 3357  Directory to save to is default to `gnus Line 3357  Directory to save to is default to `gnus
3357  Optional argument FILENAME specifies file name.  Optional argument FILENAME specifies file name.
3358  Directory to save to is default to `gnus-article-save-directory'."  Directory to save to is default to `gnus-article-save-directory'."
3359    (setq filename (gnus-read-save-file-name    (setq filename (gnus-read-save-file-name
3360                    "Save %s in file:" filename                    "Save %s in file" filename
3361                    gnus-file-save-name gnus-newsgroup-name                    gnus-file-save-name gnus-newsgroup-name
3362                    gnus-current-headers 'gnus-newsgroup-last-file))                    gnus-current-headers 'gnus-newsgroup-last-file))
3363    (gnus-eval-in-buffer-window gnus-save-article-buffer    (gnus-eval-in-buffer-window gnus-save-article-buffer
# Line 3381  The directory to save in defaults to `gn Line 3381  The directory to save in defaults to `gn
3381  Optional argument FILENAME specifies file name.  Optional argument FILENAME specifies file name.
3382  The directory to save in defaults to `gnus-article-save-directory'."  The directory to save in defaults to `gnus-article-save-directory'."
3383    (setq filename (gnus-read-save-file-name    (setq filename (gnus-read-save-file-name
3384                    "Save %s body in file:" filename                    "Save %s body in file" filename
3385                    gnus-file-save-name gnus-newsgroup-name                    gnus-file-save-name gnus-newsgroup-name
3386                    gnus-current-headers 'gnus-newsgroup-last-file))                    gnus-current-headers 'gnus-newsgroup-last-file))
3387    (gnus-eval-in-buffer-window gnus-save-article-buffer    (gnus-eval-in-buffer-window gnus-save-article-buffer

Legend:
Removed from v.1.95  
changed lines
  Added in v.1.96

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