diff options
| author | Kenichi Handa | 2001-03-16 05:52:16 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2001-03-16 05:52:16 +0000 |
| commit | 3a85a1794abe1c8391dd82fa561a53b63be00fa2 (patch) | |
| tree | a6bb0749ca44579f81ed7d13843930caef7effa0 | |
| parent | c8d4a9bbf91f3e43d42c3f61ce55f15e53309b7d (diff) | |
| download | emacs-3a85a1794abe1c8391dd82fa561a53b63be00fa2.tar.gz emacs-3a85a1794abe1c8391dd82fa561a53b63be00fa2.zip | |
(rmail-insert-inbox-text): Call expand-file-name before
substitute-in-file-name to handle double slashes in FILE correctly.
| -rw-r--r-- | lisp/mail/rmail.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 400f2ecee2c..927ac482bba 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el | |||
| @@ -1376,7 +1376,7 @@ It returns t if it got any new messages." | |||
| 1376 | (if popmail | 1376 | (if popmail |
| 1377 | (setq renamep t) | 1377 | (setq renamep t) |
| 1378 | (setq file (file-truename | 1378 | (setq file (file-truename |
| 1379 | (expand-file-name (substitute-in-file-name file))))) | 1379 | (substitute-in-file-name (expand-file-name file))))) |
| 1380 | (setq tofile (expand-file-name | 1380 | (setq tofile (expand-file-name |
| 1381 | ;; Generate name to move to from inbox name, | 1381 | ;; Generate name to move to from inbox name, |
| 1382 | ;; in case of multiple inboxes that need moving. | 1382 | ;; in case of multiple inboxes that need moving. |