From c193648d30dcab79fc5b76b46a251132f98da86e Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 30 Sep 1998 09:02:30 +0000 Subject: [PATCH] (message-reply): Use `make-full-mail-header'. (message-followup): Likewise. --- lisp/message.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/message.el b/lisp/message.el index 1e1ac50..e3c0872 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -3628,7 +3628,8 @@ OTHER-HEADERS is an alist of header/value pairs." (if wide to-address nil))) (setq message-reply-headers - (vector 0 subject from date message-id references 0 0 "")) + (make-full-mail-header + 0 subject from date message-id references 0 0 "")) (message-setup `((Subject . ,subject) @@ -3753,7 +3754,8 @@ responses here are directed to other newsgroups.")) cur) (setq message-reply-headers - (vector 0 subject from date message-id references 0 0 "")))) + (make-full-mail-header + 0 subject from date message-id references 0 0 "")))) ;;;###autoload -- 1.7.10.4