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. |
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 |
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 |
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))) |
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 |
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 |
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 |
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 |