diff options
| author | Karl Heuer | 1999-03-26 17:58:09 +0000 |
|---|---|---|
| committer | Karl Heuer | 1999-03-26 17:58:09 +0000 |
| commit | db0e5441660f798b7c66703779763545f9d2594c (patch) | |
| tree | 86122635d119ca652496df169dfcec16f07f20e6 | |
| parent | 90d456d2972a4b77637eeba4cce4f2697efb3a32 (diff) | |
| download | emacs-db0e5441660f798b7c66703779763545f9d2594c.tar.gz emacs-db0e5441660f798b7c66703779763545f9d2594c.zip | |
(rmail-decode-babyl-format):
To prevent locking, bind buffer-file-name to nil.
| -rw-r--r-- | lisp/mail/rmail.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 1ca210efd89..a0e33952716 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el | |||
| @@ -659,9 +659,9 @@ Note: it means the file has no messages in it.\n\^_"))) | |||
| 659 | (setq coding-system (detect-coding-region from to t))) | 659 | (setq coding-system (detect-coding-region from to t))) |
| 660 | (unless (memq coding-system | 660 | (unless (memq coding-system |
| 661 | '(undecided undecided-unix)) | 661 | '(undecided undecided-unix)) |
| 662 | (set-buffer-modified-p t) ; avoid locking when decoding | 662 | (let (buffer-file-truename) ; Avoid locking when decoding. |
| 663 | (decode-coding-region from to coding-system) | 663 | (decode-coding-region from to coding-system) |
| 664 | (setq coding-system last-coding-system-used)) | 664 | (setq coding-system last-coding-system-used))) |
| 665 | (set-buffer-modified-p modifiedp) | 665 | (set-buffer-modified-p modifiedp) |
| 666 | (setq buffer-file-coding-system nil) | 666 | (setq buffer-file-coding-system nil) |
| 667 | (setq save-buffer-coding-system | 667 | (setq save-buffer-coding-system |