420 |
(other :tag "when asked" ask)) |
(other :tag "when asked" ask)) |
421 |
:group 'rmail) |
:group 'rmail) |
422 |
|
|
423 |
|
(defvar rmail-enable-mime-composing nil |
424 |
|
"*If non-nil, RMAIL uses `rmail-insert-mime-forwarded-message-function' to forward.") |
425 |
|
|
426 |
;;;###autoload |
;;;###autoload |
427 |
(defvar rmail-show-mime-function nil |
(defvar rmail-show-mime-function nil |
428 |
"Function to show MIME decoded message of RMAIL file. |
"Function to show MIME decoded message of RMAIL file. |
432 |
;;;###autoload |
;;;###autoload |
433 |
(defvar rmail-insert-mime-forwarded-message-function nil |
(defvar rmail-insert-mime-forwarded-message-function nil |
434 |
"Function to insert a message in MIME format so it can be forwarded. |
"Function to insert a message in MIME format so it can be forwarded. |
435 |
This function is called if `rmail-enable-mime' is non-nil. |
This function is called if `rmail-enable-mime' or |
436 |
|
`rmail-enable-mime-composing' is non-nil. |
437 |
It is called with one argument FORWARD-BUFFER, which is a |
It is called with one argument FORWARD-BUFFER, which is a |
438 |
buffer containing the message to forward. The current buffer |
buffer containing the message to forward. The current buffer |
439 |
is the outgoing mail buffer.") |
is the outgoing mail buffer.") |
3257 |
(save-excursion |
(save-excursion |
3258 |
;; Insert after header separator--before signature if any. |
;; Insert after header separator--before signature if any. |
3259 |
(goto-char (mail-text-start)) |
(goto-char (mail-text-start)) |
3260 |
(if rmail-enable-mime |
(if (or rmail-enable-mime rmail-enable-mime-composing) |
3261 |
(funcall rmail-insert-mime-forwarded-message-function |
(funcall rmail-insert-mime-forwarded-message-function |
3262 |
forward-buffer) |
forward-buffer) |
3263 |
(insert "------- Start of forwarded message -------\n") |
(insert "------- Start of forwarded message -------\n") |