(rmail-decode-babyl-format): Disable undo around the decode-coding-region call.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 7895d344377582198a19918fdd611a566f6640e1..a2bd399bf8f16e08d8189ee5290357eb0f3e5e1e 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -792,7 +792,8 @@ Note:    it means the file has no messages in it.\n\^_")))
     (unless (memq coding-system
                  '(undecided undecided-unix))
       (set-buffer-modified-p t)                ; avoid locking when decoding
-      (decode-coding-region from to coding-system)
+      (let ((buffer-undo-list t))
+       (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)