diff options
| author | Richard M. Stallman | 2013-01-13 14:46:27 -0500 |
|---|---|---|
| committer | Richard M. Stallman | 2013-01-13 14:46:27 -0500 |
| commit | 4c0a6d4abd953b38a3716fbdfd59d7449744e907 (patch) | |
| tree | f166e62295b3a48aeb91c54effa5afae637b7a8f /lisp/mail | |
| parent | ad33a799f8e261accd73631cf8c7af061dfe5f95 (diff) | |
| download | emacs-4c0a6d4abd953b38a3716fbdfd59d7449744e907.tar.gz emacs-4c0a6d4abd953b38a3716fbdfd59d7449744e907.zip | |
Fix bug that f in Rmail, in some situations, would insert entire Rmail file.
Diffstat (limited to 'lisp/mail')
| -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." | |||
| 1365 | (defun rmail-insert-mime-forwarded-message (forward-buffer) | 1365 | (defun rmail-insert-mime-forwarded-message (forward-buffer) |
| 1366 | "Insert the message in FORWARD-BUFFER as a forwarded message. | 1366 | "Insert the message in FORWARD-BUFFER as a forwarded message. |
| 1367 | This is the usual value of `rmail-insert-mime-forwarded-message-function'." | 1367 | This is the usual value of `rmail-insert-mime-forwarded-message-function'." |
| 1368 | (let ((message-buffer | 1368 | (let (contents-buffer start end) |
| 1369 | (with-current-buffer forward-buffer | 1369 | (with-current-buffer forward-buffer |
| 1370 | (if rmail-buffer-swapped | 1370 | (setq contents-buffer |
| 1371 | rmail-view-buffer | 1371 | (if rmail-buffer-swapped |
| 1372 | forward-buffer)))) | 1372 | rmail-view-buffer |
| 1373 | (save-restriction | 1373 | forward-buffer) |
| 1374 | (narrow-to-region (point) (point)) | 1374 | start (rmail-msgbeg rmail-current-message) |
| 1375 | (message-forward-make-body-mime message-buffer)))) | 1375 | end (rmail-msgend rmail-current-message))) |
| 1376 | (message-forward-make-body-mime contents-buffer start end))) | ||
| 1376 | 1377 | ||
| 1377 | (setq rmail-insert-mime-forwarded-message-function | 1378 | (setq rmail-insert-mime-forwarded-message-function |
| 1378 | 'rmail-insert-mime-forwarded-message) | 1379 | 'rmail-insert-mime-forwarded-message) |