* message.el (message-shorten-1): Use list.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ce9e5e9..8ad94a8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+1999-12-02 00:27:46  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * message.el (message-shorten-1): Use list.
+
 1999-12-01 21:59:36  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-msg.el (gnus-configure-posting-styles): Ignore nil

diff --git a/lisp/message.el b/lisp/message.el
index 20f430c..595b6fe 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3205,8 +3205,8 @@ Headers already prepared in the buffer are not modified."
 
 (defun message-shorten-1 (list cut surplus)
   ;; Cut SURPLUS elements out of LIST, beginning with CUTth one.
-  (setcdr (nthcdr (- cut 2) refs)
-         (nthcdr (+ (- cut 2) surplus 1) refs)))
+  (setcdr (nthcdr (- cut 2) list)
+         (nthcdr (+ (- cut 2) surplus 1) list)))
 
 (defun message-shorten-references (header references)
   "Trim REFERENCES to be less than 31 Message-ID long, and fold them.