From: yamaoka <yamaoka>
Date: Tue, 19 Jan 1999 08:12:57 +0000 (+0000)
Subject: * (message-reply): Cancel the last change.
X-Git-Tag: gnus-6_10-199901191900~2
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b46b926ca55e53c2b336f25cc10eb478e8ae974c;p=elisp%2Fgnus.git-

* (message-reply): Cancel the last change.
(message-followup): Cancel the last change.
(message-wide-reply): Cancel the last change.
---

diff --git a/lisp/message.el b/lisp/message.el
index ae5a9ad..21576e3 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -6,7 +6,6 @@
 ;;         Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
 ;;         Keiichi Suzuki   <kei-suzu@mail.wbs.ne.jp>
 ;;         Katsumi Yamaoka  <yamaoka@jpl.org>
-;;         Kiyokazu SUTO    <suto@merry.xmath.ous.ac.jp>
 ;; Keywords: mail, news, MIME
 
 ;; This file is part of GNU Emacs.
@@ -3620,12 +3619,12 @@ OTHER-HEADERS is an alist of header/value pairs."
 		     (Subject . ,(or subject ""))))))
 
 ;;;###autoload
-(defun message-reply (&optional to-address wide references)
+(defun message-reply (&optional to-address wide)
   "Start editing a reply to the article in the current buffer."
   (interactive)
   (let ((cur (current-buffer))
 	from subject date reply-to to cc
-	message-id follow-to
+	references message-id follow-to
 	(inhibit-point-motion-hooks t)
 	mct never-mct gnus-warning)
     (save-restriction
@@ -3648,7 +3647,7 @@ OTHER-HEADERS is an alist of header/value pairs."
 	    cc (message-fetch-field "cc")
 	    mct (message-fetch-field "mail-copies-to")
 	    reply-to (message-fetch-field "reply-to")
-	    references (or references (message-fetch-field "references"))
+	    references (message-fetch-field "references")
 	    message-id (message-fetch-field "message-id" t))
       ;; Remove any (buggy) Re:'s that are present and make a
       ;; proper one.
@@ -3728,19 +3727,19 @@ OTHER-HEADERS is an alist of header/value pairs."
      cur)))
 
 ;;;###autoload
-(defun message-wide-reply (&optional to-address references)
+(defun message-wide-reply (&optional to-address)
   "Make a \"wide\" reply to the message in the current buffer."
   (interactive)
-  (message-reply to-address t references))
+  (message-reply to-address t))
 
 ;;;###autoload
-(defun message-followup (&optional to-newsgroups references)
+(defun message-followup (&optional to-newsgroups)
   "Follow up to the message in the current buffer.
 If TO-NEWSGROUPS, use that as the new Newsgroups line."
   (interactive)
   (let ((cur (current-buffer))
 	from subject date reply-to mct
-	message-id follow-to
+	references message-id follow-to
 	(inhibit-point-motion-hooks t)
 	(message-this-is-news t)
 	followup-to distribution newsgroups gnus-warning posted-to)
@@ -3756,7 +3755,7 @@ If TO-NEWSGROUPS, use that as the new Newsgroups line."
       (setq from (message-fetch-field "from")
 	    date (message-fetch-field "date")
 	    subject (or (message-fetch-field "subject") "none")
-	    references (or references (message-fetch-field "references"))
+	    references (message-fetch-field "references")
 	    message-id (message-fetch-field "message-id" t)
 	    followup-to (message-fetch-field "followup-to")
 	    newsgroups (message-fetch-field "newsgroups")