(let ((message-buffer
(with-current-buffer forward-buffer
(if rmail-buffer-swapped
- forward-buffer
- rmail-view-buffer))))
+ rmail-view-buffer
+ forward-buffer))))
(save-restriction
(narrow-to-region (point) (point))
(message-forward-make-body-mime message-buffer))))