(rmail-decode-babyl-format): Undo previous change.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index e5a61a2e1975f19ef3f0c39dbb5f0f9d39ed470c..03cc374d6bb9a742a60f20dbef26174739e7b24f 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -665,9 +665,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))
-      (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 t)                ; 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