rmail-current-message))
(make-local-variable 'kill-buffer-hook)
(add-hook 'kill-buffer-hook 'rmail-view-kill-rmail-buffer)
+ (make-local-variable 'revert-buffer-function)
+ (setq revert-buffer-function 'rmail-revert)
(let ((mode-line
(with-current-buffer abuf
(setq rmail-view-buffer buf)
(mime-insert-entity (with-current-buffer forward-buffer
mime-message-structure)))
+(defun rmail-insert-mime-resent-message (forward-buffer)
+ (mime-insert-entity (with-current-buffer forward-buffer
+ mime-message-structure)))
+
(defun rmail-enable-mime ()
(interactive)
(setq rmail-enable-mime t)
and LIMIT is the end position of header.
If the search succeeds, return non-nil. Otherwise, return nil."
(save-excursion
- (rmail-decode-header " *RMAIL-temp-VIEW*" (current-buffer) (point) end)
+ (rmail-decode-header " *RMAIL-temp-VIEW*" (current-buffer) (point) limit)
(goto-char (point-min))
(prog1 (re-search-forward regexp nil t)
(kill-buffer " *RMAIL-temp-VIEW*"))))
(function rmail-show-mime-message)
rmail-insert-mime-forwarded-message-function
(function rmail-insert-mime-forwarded-message)
+ rmail-insert-mime-resent-message-function
+ (function rmail-insert-mime-resent-message)
rmail-search-mime-message-function
(function rmail-search-mime-message)
rmail-search-mime-header-function