diff options
author | Richard M. Stallman <rms@gnu.org> | 2013-01-13 14:46:27 -0500 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 2013-01-13 14:46:27 -0500 |
commit | 4c0a6d4abd953b38a3716fbdfd59d7449744e907 (patch) | |
tree | f166e62295b3a48aeb91c54effa5afae637b7a8f /lisp/mail/rmailmm.el | |
parent | ad33a799f8e261accd73631cf8c7af061dfe5f95 (diff) | |
download | emacs-4c0a6d4abd953b38a3716fbdfd59d7449744e907.tar.gz |
Fix bug that f in Rmail, in some situations, would insert entire Rmail file.
Diffstat (limited to 'lisp/mail/rmailmm.el')
-rw-r--r-- | lisp/mail/rmailmm.el | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/lisp/mail/rmailmm.el b/lisp/mail/rmailmm.el index 566dec1ad39..350e3dacbcf 100644 --- a/lisp/mail/rmailmm.el +++ b/lisp/mail/rmailmm.el @@ -1365,14 +1365,15 @@ The arguments ARG and STATE have no effect in this case." (defun rmail-insert-mime-forwarded-message (forward-buffer) "Insert the message in FORWARD-BUFFER as a forwarded message. This is the usual value of `rmail-insert-mime-forwarded-message-function'." - (let ((message-buffer - (with-current-buffer forward-buffer - (if rmail-buffer-swapped - rmail-view-buffer - forward-buffer)))) - (save-restriction - (narrow-to-region (point) (point)) - (message-forward-make-body-mime message-buffer)))) + (let (contents-buffer start end) + (with-current-buffer forward-buffer + (setq contents-buffer + (if rmail-buffer-swapped + rmail-view-buffer + forward-buffer) + start (rmail-msgbeg rmail-current-message) + end (rmail-msgend rmail-current-message))) + (message-forward-make-body-mime contents-buffer start end))) (setq rmail-insert-mime-forwarded-message-function 'rmail-insert-mime-forwarded-message) |