From: Glenn Morris <rgm@gnu.org>
Date: Sat, 21 Nov 2009 02:36:54 +0000 (+0000)
Subject: (rmail-mime): Decode in fundamental-mode.  (Bug#4993)
X-Git-Tag: emacs-pretest-23.1.90~288
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d73a0317a0478d1b1ab11cfaf479fe08ea23c0e7;p=emacs.git

(rmail-mime): Decode in fundamental-mode.  (Bug#4993)
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ba2f222cf8f..365442c2a62 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2009-11-21  Glenn Morris  <rgm@gnu.org>
+
+	* mail/rmailmm.el (rmail-mime): Decode in fundamental-mode.  (Bug#4993)
+
 2009-11-20  Ken Brown  <kbrown@cornell.edu>  (tiny change)
 
 	* net/browse-url.el (browse-url-default-windows-browser): Use
diff --git a/lisp/mail/rmailmm.el b/lisp/mail/rmailmm.el
index 29aa869523e..41704cf5187 100644
--- a/lisp/mail/rmailmm.el
+++ b/lisp/mail/rmailmm.el
@@ -451,10 +451,14 @@ attachments as specfied by `rmail-mime-attachment-dirs-alist'."
     (set-buffer buf)
     (setq buffer-undo-list t)
     (let ((inhibit-read-only t))
+      ;; Decoding the message in fundamental mode for speed, only
+      ;; switching to rmail-mime-mode at the end for display.  Eg
+      ;; quoted-printable-decode-region gets very slow otherwise (Bug#4993).
+      (fundamental-mode)
       (erase-buffer)
       (insert data)
-      (rmail-mime-mode)
       (rmail-mime-show t)
+      (rmail-mime-mode)
       (set-buffer-modified-p nil))
     (view-buffer buf)))