# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 872484827 0
# Node ID 6713d6efcfdeb74a4bc100a46be18c105061bb0c
# Parent  681265352f07a7ac8237bf6a38cd64de82095bc4
Require cl only at compile time.
(gnus-parent-id): Don't use last with 2 args.

diff -r 681265352f07 -r 6713d6efcfde lisp/gnus/gnus-util.el
--- a/lisp/gnus/gnus-util.el	Mon Aug 25 04:50:34 1997 +0000
+++ b/lisp/gnus/gnus-util.el	Mon Aug 25 04:53:47 1997 +0000
@@ -31,7 +31,7 @@
 ;;; Code:
 
 (require 'custom)
-(require 'cl)
+(eval-when-compile (require 'cl))
 (require 'nnheader)
 (require 'timezone)
 (require 'message)
@@ -457,7 +457,9 @@
 If N, return the Nth ancestor instead."
   (when references
     (let ((ids (inline (gnus-split-references references))))
-      (car (last ids (or n 1))))))
+      (while (nthcdr (or n 1) ids)
+	(setq ids (cdr ids)))
+      (car ids))))
 
 (defsubst gnus-buffer-live-p (buffer)
   "Say whether BUFFER is alive or not."