(rmail-decode-babyl-format):

To prevent locking, bind buffer-file-name to nil.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 1ca210efd894ae64794b448612128cc08d7757cc..a0e339527168959bdb2df1f071ba3f4c266a7257 100644 (file)
--- 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