From 5d4ff287d2ad52060c40de711d2f2ebf61fb5a5a Mon Sep 17 00:00:00 2001 From: yamaoka Date: Sun, 17 Jan 1999 23:34:02 +0000 Subject: [PATCH] * (message-reply): Accept references as a new optional arg. (message-followup): Likewise. (message-wide-reply): Likewise. --- lisp/message.el | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/lisp/message.el b/lisp/message.el index 21576e3..ae5a9ad 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -6,6 +6,7 @@ ;; Shuhei KOBAYASHI ;; Keiichi Suzuki ;; Katsumi Yamaoka +;; Kiyokazu SUTO ;; Keywords: mail, news, MIME ;; This file is part of GNU Emacs. @@ -3619,12 +3620,12 @@ OTHER-HEADERS is an alist of header/value pairs." (Subject . ,(or subject "")))))) ;;;###autoload -(defun message-reply (&optional to-address wide) +(defun message-reply (&optional to-address wide references) "Start editing a reply to the article in the current buffer." (interactive) (let ((cur (current-buffer)) from subject date reply-to to cc - references message-id follow-to + message-id follow-to (inhibit-point-motion-hooks t) mct never-mct gnus-warning) (save-restriction @@ -3647,7 +3648,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 (message-fetch-field "references") + references (or 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. @@ -3727,19 +3728,19 @@ OTHER-HEADERS is an alist of header/value pairs." cur))) ;;;###autoload -(defun message-wide-reply (&optional to-address) +(defun message-wide-reply (&optional to-address references) "Make a \"wide\" reply to the message in the current buffer." (interactive) - (message-reply to-address t)) + (message-reply to-address t references)) ;;;###autoload -(defun message-followup (&optional to-newsgroups) +(defun message-followup (&optional to-newsgroups references) "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 - references message-id follow-to + message-id follow-to (inhibit-point-motion-hooks t) (message-this-is-news t) followup-to distribution newsgroups gnus-warning posted-to) @@ -3755,7 +3756,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 (message-fetch-field "references") + references (or 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