From: morioka <morioka>
Date: Mon, 23 Feb 1998 15:04:06 +0000 (+0000)
Subject: (message-fill-references): Abolish unused local variables.
X-Git-Tag: gnus-6_7-tomo-199811302358~158
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;ds=sidebyside;h=6b7ffa9c92c36b38bb98d880ee98726199eee45f;p=elisp%2Fgnus.git-

(message-fill-references): Abolish unused local variables.
---

diff --git a/lisp/message.el b/lisp/message.el
index 2bb0627..f6e3fa8 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3131,14 +3131,11 @@ Headers already prepared in the buffer are not modified."
     (forward-line 1)))
 
 (defun message-fill-references (header value)
-  (let ((begin (point))
-	(fill-column 990)
-	(fill-prefix "\t"))
-    (insert (capitalize (symbol-name header))
-	    ": "
-	    (std11-fill-msg-id-list-string
-	     (if (consp value) (car value) value))
-	    "\n")))
+  (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))