From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 25 Aug 1997 04:53:47 +0000 (+0000)
Subject: Require cl only at compile time.
X-Git-Tag: emacs-20.1~425
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f26c6ccdcba4529ec3e078aa3be4dec532b5ab78;p=emacs.git

Require cl only at compile time.
(gnus-parent-id): Don't use last with 2 args.
---

diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el
index e5c6b0e0a94..0393d07ee9a 100644
--- a/lisp/gnus/gnus-util.el
+++ b/lisp/gnus/gnus-util.el
@@ -31,7 +31,7 @@
 ;;; Code:
 
 (require 'custom)
-(require 'cl)
+(eval-when-compile (require 'cl))
 (require 'nnheader)
 (require 'timezone)
 (require 'message)
@@ -457,7 +457,9 @@ jabbering all the time."
 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."