diff options
| author | Karl Heuer <kwzh@gnu.org> | 1999-03-26 17:58:09 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1999-03-26 17:58:09 +0000 |
| commit | db0e5441660f798b7c66703779763545f9d2594c (patch) | |
| tree | 86122635d119ca652496df169dfcec16f07f20e6 /lisp | |
| parent | 90d456d2972a4b77637eeba4cce4f2697efb3a32 (diff) | |
| download | emacs-db0e5441660f798b7c66703779763545f9d2594c.tar.gz | |
(rmail-decode-babyl-format):
To prevent locking, bind buffer-file-name to nil.
Diffstat (limited to 'lisp')
| -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\^_"))) (setq coding-system (detect-coding-region from to t))) (unless (memq coding-system '(undecided undecided-unix)) - (set-buffer-modified-p t) ; avoid locking when decoding - (decode-coding-region from to coding-system) - (setq coding-system last-coding-system-used)) + (let (buffer-file-truename) ; Avoid locking when decoding. + (decode-coding-region from to coding-system) + (setq coding-system last-coding-system-used))) (set-buffer-modified-p modifiedp) (setq buffer-file-coding-system nil) (setq save-buffer-coding-system |