aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/mail/rmail.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 010d8e3ad14..55543f251d6 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -4590,7 +4590,8 @@ Argument MIME is non-nil if this is a mime message."
4590 (current-buffer)))) 4590 (current-buffer))))
4591 4591
4592 (list armor-start (- (point-max) after-end) mime 4592 (list armor-start (- (point-max) after-end) mime
4593 armor-end-regexp))) 4593 armor-end-regexp
4594 (buffer-substring armor-start (- (point-max) after-end)))))
4594 4595
4595(declare-function rmail-mime-entity-truncated "rmailmm" (entity)) 4596(declare-function rmail-mime-entity-truncated "rmailmm" (entity))
4596 4597
@@ -4652,7 +4653,7 @@ Argument MIME is non-nil if this is a mime message."
4652 ;; Found as expected -- now replace it with the decrypt. 4653 ;; Found as expected -- now replace it with the decrypt.
4653 (when armor-end 4654 (when armor-end
4654 (delete-region armor-start armor-end) 4655 (delete-region armor-start armor-end)
4655 (insert-buffer-substring from-buffer (nth 0 d) (nth 1 d))) 4656 (insert (nth 4 d)))
4656 4657
4657 ;; Change the mime type (if this is in a mime part) 4658 ;; Change the mime type (if this is in a mime part)
4658 ;; so this part will display by default 4659 ;; so this part will display by default