From db0e5441660f798b7c66703779763545f9d2594c Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 26 Mar 1999 17:58:09 +0000 Subject: [PATCH] (rmail-decode-babyl-format): To prevent locking, bind buffer-file-name to nil. --- lisp/mail/rmail.el | 6 +++--- 1 file 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 -- 2.39.2