From: shuhei-k <shuhei-k>
Date: Sun, 23 Aug 1998 05:51:55 +0000 (+0000)
Subject: (message-fill-references): Reverted.
X-Git-Tag: semi-mule-199811302358~16
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ff73d05219589e2c0092b3baa3d93f0a8c785f5b;p=elisp%2Fgnus.git-

(message-fill-references): Reverted.
---

diff --git a/lisp/message.el b/lisp/message.el
index fdcc5ce..d8f55d0 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3217,6 +3217,13 @@ Headers already prepared in the buffer are not modified."
     (widen)
     (forward-line 1)))
 
+(defun message-fill-references (header value)
+  (insert (capitalize (symbol-name header))
+	  ": "
+	  (std11-fill-msg-id-list-string
+	  (if (consp value) (car value) value))
+	  "\n"))
+
 (defun message-fill-header (header value)
   (let ((begin (point))
 	(fill-column 78)