(news-mail-reply)
(gnus-overload-functions)
(if yank
- (let ((last (point)))
- (goto-char (point-max))
- (mail-yank-original nil)
- (goto-char last)
- )))
+ (mail-yank-original nil)))
(defun gnus-mail-forward-using-mail ()
"Forward the current message to another user using mail."
(save-restriction
(gnus-article-show-all-headers) ;I don't think this is really needed.
(setq from (gnus-fetch-field "from")
- subject (let ((subject (gnus-fetch-field "subject")))
+ subject (let ((subject (or (gnus-fetch-field "subject")
+ "(None)")))
(if (and subject
(not (string-match "^[Rr][Ee]:.+$" subject)))
(concat "Re: " subject) subject))