697 |
(gnus-summary-reply-with-original n t)) |
(gnus-summary-reply-with-original n t)) |
698 |
|
|
699 |
(defun gnus-summary-mail-forward (&optional arg post) |
(defun gnus-summary-mail-forward (&optional arg post) |
700 |
"Forward the current message to another user. |
"Forward the current message to another user. |
701 |
If ARG is nil, see `message-forward-as-mime' and `message-forward-show-mml'; |
If ARG is nil, see `message-forward-as-mime' and `message-forward-show-mml'; |
702 |
if ARG is 1, decode the message and forward directly inline; |
if ARG is 1, decode the message and forward directly inline; |
703 |
if ARG is 2, forward message as an rfc822 MIME section; |
if ARG is 2, forward message as an rfc822 MIME section; |
708 |
(interactive "P") |
(interactive "P") |
709 |
(let ((message-forward-as-mime message-forward-as-mime) |
(let ((message-forward-as-mime message-forward-as-mime) |
710 |
(message-forward-show-mml message-forward-show-mml)) |
(message-forward-show-mml message-forward-show-mml)) |
711 |
(cond |
(cond |
712 |
((null arg)) |
((null arg)) |
713 |
((eq arg 1) (setq message-forward-as-mime nil |
((eq arg 1) (setq message-forward-as-mime nil |
714 |
message-forward-show-mml t)) |
message-forward-show-mml t)) |