From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 11 Jan 2002 21:23:40 +0000 (+0000)
Subject: (rmail-decode-babyl-format): Disable undo around the decode-coding-region call.
X-Git-Tag: ttn-vms-21-2-B4~17216
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=19032340d1766b66bb1ef1c5b617e06929a67b00;p=emacs.git

(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 8da949e59c3..118a39d331d 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -790,7 +790,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)