# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 922471089 0
# Node ID f4dd298e46a3f5c94451b39f4df831e6e8777c57
# Parent  e8b7cb3fac8c1e99ecdddd3dbe05a366bba85c0e
(rmail-decode-babyl-format):
To prevent locking, bind buffer-file-name to nil.

diff -r e8b7cb3fac8c -r f4dd298e46a3 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Fri Mar 26 17:55:42 1999 +0000
+++ b/lisp/mail/rmail.el	Fri Mar 26 17:58:09 1999 +0000
@@ -659,9 +659,9 @@
       (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