1 files changed, 3 insertions, 3 deletions

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index e5a61a2e197..03cc374d6bb 100644
--- 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