From 6b7ffa9c92c36b38bb98d880ee98726199eee45f Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 23 Feb 1998 15:04:06 +0000 Subject: [PATCH] (message-fill-references): Abolish unused local variables. --- lisp/message.el | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) 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)) -- 1.7.10.4