From 5fe72209e67e2a5844bbdf5a3945c1e2438e6a93 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 4 Feb 1998 07:49:57 +0000 Subject: [PATCH] (message-followup): Use `std11-fill-msg-id-list-string'. --- lisp/message.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/message.el b/lisp/message.el index 1c155ee..1151192 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -3404,9 +3404,9 @@ Headers already prepared in the buffer are not modified." `((Subject . ,subject) ,@follow-to ,@(if (or references message-id) - `((References . ,(concat (or references "") (and references " ") - (or message-id "")))) - nil)) + `((References . ,(std11-fill-msg-id-list-string + (concat references message-id))))) + ) cur))) ;;;###autoload @@ -3512,8 +3512,8 @@ responses here are directed to other newsgroups.")) `((Newsgroups . ,newsgroups)))) ,@(and distribution (list (cons 'Distribution distribution))) ,@(if (or references message-id) - `((References . ,(concat (or references "") (and references " ") - (or message-id ""))))) + `((References . ,(std11-fill-msg-id-list-string + (concat references message-id))))) ,@(when (and mct (not (equal (downcase mct) "never"))) (list (cons 'Cc (if (equal (downcase mct) "always") -- 1.7.10.4