diff options
| -rw-r--r-- | lisp/mail/rmail.el | 5 |
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 |