diff options
| author | Jim Blandy <[email protected]> | 1991-03-01 21:55:53 +0000 |
|---|---|---|
| committer | Jim Blandy <[email protected]> | 1991-03-01 21:55:53 +0000 |
| commit | 3bfd7edbe7d3b56abc5a2ecb097e3cd594e3bf19 (patch) | |
| tree | 43c1fa962bf9b7ba0ed56d206a77d630147c955c /lisp/mail/rmailout.el | |
| parent | 56d506fcff55e31114063320005b319f1665eaa7 (diff) | |
*** empty log message ***
Diffstat (limited to 'lisp/mail/rmailout.el')
| -rw-r--r-- | lisp/mail/rmailout.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el index a02c2260fd..a4018b5cf5 100644 --- a/lisp/mail/rmailout.el +++ b/lisp/mail/rmailout.el @@ -50,7 +50,9 @@ starting with the current one. Deleted messages are skipped and don't count." (setq tail (cdr tail)))) ;; If not suggestions, use same file as last time. (or answer rmail-last-rmail-file))))) - (setq file-name (expand-file-name file-name)) + (setq file-name + (expand-file-name file-name + (file-name-directory rmail-last-rmail-file))) (setq rmail-last-rmail-file file-name) (rmail-maybe-set-message-counters) (or (get-file-buffer file-name) @@ -129,7 +131,10 @@ starting with the current one. Deleted messages are skipped and don't count." ": ")) (and rmail-last-file (file-name-directory rmail-last-file)) rmail-last-file))) - (setq file-name (expand-file-name file-name)) + (setq file-name + (expand-file-name file-name + (and rmail-last-file + (file-name-directory rmail-last-file)))) (setq rmail-last-file file-name) (while (> count 0) (let ((rmailbuf (current-buffer)) |