Commit f26c6ccd authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

Require cl only at compile time.

(gnus-parent-id): Don't use last with 2 args.
parent 0df953b6
......@@ -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."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment