From: morioka <morioka>
Date: Wed, 4 Feb 1998 07:49:57 +0000 (+0000)
Subject: (message-followup): Use `std11-fill-msg-id-list-string'.
X-Git-Tag: gnus-6_7-tomo-199811302358~225
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5fe72209e67e2a5844bbdf5a3945c1e2438e6a93;p=elisp%2Fgnus.git-

(message-followup): Use `std11-fill-msg-id-list-string'.
---

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")