diff options
| author | Richard M. Stallman | 2002-01-11 21:23:40 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-01-11 21:23:40 +0000 |
| commit | 19032340d1766b66bb1ef1c5b617e06929a67b00 (patch) | |
| tree | 612bdde0619fa0c9180c5074c36c39b0a38a3ca4 /lisp | |
| parent | 1fa1cb1bf694a967e7773d0b6c300252095b451d (diff) | |
| download | emacs-19032340d1766b66bb1ef1c5b617e06929a67b00.tar.gz emacs-19032340d1766b66bb1ef1c5b617e06929a67b00.zip | |
(rmail-decode-babyl-format): Disable undo around the decode-coding-region call.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mail/rmail.el | 3 |
1 files changed, 2 insertions, 1 deletions
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\^_"))) | |||
| 790 | (unless (memq coding-system | 790 | (unless (memq coding-system |
| 791 | '(undecided undecided-unix)) | 791 | '(undecided undecided-unix)) |
| 792 | (set-buffer-modified-p t) ; avoid locking when decoding | 792 | (set-buffer-modified-p t) ; avoid locking when decoding |
| 793 | (decode-coding-region from to coding-system) | 793 | (let ((buffer-undo-list t)) |
| 794 | (decode-coding-region from to coding-system)) | ||
| 794 | (setq coding-system last-coding-system-used)) | 795 | (setq coding-system last-coding-system-used)) |
| 795 | (set-buffer-modified-p modifiedp) | 796 | (set-buffer-modified-p modifiedp) |
| 796 | (setq buffer-file-coding-system nil) | 797 | (setq buffer-file-coding-system nil) |