diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-08-25 04:53:47 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-08-25 04:53:47 +0000 |
| commit | 3c395710695349bb8c9bac651b6222c625b816ff (patch) | |
| tree | 3250833308edfe94a26826f16f93ebf509111b71 | |
| parent | 61a771db99ed4137462d8dc468a390838fa3bc16 (diff) | |
| download | emacs-3c395710695349bb8c9bac651b6222c625b816ff.tar.gz | |
Require cl only at compile time.
(gnus-parent-id): Don't use last with 2 args.
| -rw-r--r-- | lisp/gnus/gnus-util.el | 6 |
1 files changed, 4 insertions, 2 deletions
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." |