Mercurial > emacs

changeset 19523:6713d6efcfde

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Require cl only at compile time. (gnus-parent-id): Don't use last with 2 args.
author Richard M. Stallman <rms@gnu.org>
date Mon, 25 Aug 1997 04:53:47 +0000
parents 681265352f07
children f7cceca576e3
files lisp/gnus/gnus-util.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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."