From b46b926ca55e53c2b336f25cc10eb478e8ae974c Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 19 Jan 1999 08:12:57 +0000 Subject: [PATCH] * (message-reply): Cancel the last change. (message-followup): Cancel the last change. (message-wide-reply): Cancel the last change. --- lisp/message.el | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) 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 ;; Keiichi Suzuki ;; Katsumi Yamaoka -;; Kiyokazu SUTO ;; 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") -- 1.7.10.4