*** empty log message ***

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

diff --git a/lisp/gnusmail.el b/lisp/gnusmail.el
index 5277acf..293bde5 100644 (file)
--- a/lisp/gnusmail.el
+++ b/lisp/gnusmail.el
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 1990, 1993 Free Software Foundation, Inc.
 
-;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
+;; Author: Masanobu UMEDA <umerin@mse.kyutech.ac.jp>
 ;; Keywords: news
 
 ;; This file is part of GNU Emacs.
@@ -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))