Update comment about _XOPEN_SOURCE.

[bpt/emacs.git] / lisp / gnusmail.el

diff --git a/lisp/gnusmail.el b/lisp/gnusmail.el
index bc906d5..293bde5 100644 (file)
--- a/lisp/gnusmail.el
+++ b/lisp/gnusmail.el
@@ -99,11 +99,7 @@ Optional argument YANK means yank original article."
   (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."
@@ -152,7 +148,8 @@ The command \\[mh-yank-cur-msg] yank the original message into current buffer."
     (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))