# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 872367817 0
# Node ID 8d840c4548c093272f1a8e1a326f4d2ff301bdb9
# Parent  892a0977245716825c04102830a54521b1cb78ac
Require cl at compile time.

diff -r 892a09772457 -r 8d840c4548c0 lisp/gnus/gnus-bcklg.el
--- a/lisp/gnus/gnus-bcklg.el	Sat Aug 23 19:10:42 1997 +0000
+++ b/lisp/gnus/gnus-bcklg.el	Sat Aug 23 20:23:37 1997 +0000
@@ -25,6 +25,8 @@
 
 ;;; Code:
 
+(eval-when-compile (require 'cl))
+
 (require 'gnus)
 
 ;;;
diff -r 892a09772457 -r 8d840c4548c0 lisp/gnus/gnus-cache.el
--- a/lisp/gnus/gnus-cache.el	Sat Aug 23 19:10:42 1997 +0000
+++ b/lisp/gnus/gnus-cache.el	Sat Aug 23 20:23:37 1997 +0000
@@ -25,6 +25,8 @@
 
 ;;; Code:
 
+(eval-when-compile (require 'cl))
+
 (require 'gnus)
 (require 'gnus-int)
 (require 'gnus-range)
diff -r 892a09772457 -r 8d840c4548c0 lisp/gnus/gnus-demon.el
--- a/lisp/gnus/gnus-demon.el	Sat Aug 23 19:10:42 1997 +0000
+++ b/lisp/gnus/gnus-demon.el	Sat Aug 23 20:23:37 1997 +0000
@@ -25,6 +25,8 @@
 
 ;;; Code:
 
+(eval-when-compile (require 'cl))
+
 (require 'gnus)
 (require 'gnus-int)
 (require 'nnheader)
diff -r 892a09772457 -r 8d840c4548c0 lisp/gnus/gnus-dup.el
--- a/lisp/gnus/gnus-dup.el	Sat Aug 23 19:10:42 1997 +0000
+++ b/lisp/gnus/gnus-dup.el	Sat Aug 23 20:23:37 1997 +0000
@@ -30,6 +30,8 @@
 
 ;;; Code:
 
+(eval-when-compile (require 'cl))
+
 (require 'gnus)
 (require 'gnus-art)
 
diff -r 892a09772457 -r 8d840c4548c0 lisp/gnus/gnus-range.el
--- a/lisp/gnus/gnus-range.el	Sat Aug 23 19:10:42 1997 +0000
+++ b/lisp/gnus/gnus-range.el	Sat Aug 23 20:23:37 1997 +0000
@@ -25,6 +25,8 @@
 
 ;;; Code:
 
+(eval-when-compile (require 'cl))
+
 ;;; List and range functions
 
 (defun gnus-last-element (list)
@@ -207,7 +209,7 @@
 		    (setcar ranges (cons (car ranges)
 					 (cadr ranges)))
 		    (setcdr ranges (cddr ranges)))
-		(when (= (1+ (car ranges)) (caadr ranges))
+		(when (= (1+ (car ranges)) (car (cadr ranges)))
 		  (setcar (cadr ranges) (car ranges))
 		  (setcar ranges (cadr ranges))
 		  (setcdr ranges (cddr ranges)))))
@@ -216,8 +218,8 @@
 		(when (= (1+ (cdar ranges)) (cadr ranges))
 		  (setcdr (car ranges) (cadr ranges))
 		  (setcdr ranges (cddr ranges)))
-	      (when (= (1+ (cdar ranges)) (caadr ranges))
-		(setcdr (car ranges) (cdadr ranges))
+	      (when (= (1+ (cdar ranges)) (car (cadr ranges)))
+		(setcdr (car ranges) (cdr (cadr ranges)))
 		(setcdr ranges (cddr ranges))))))
 	(setq ranges (cdr ranges)))
       out)))
diff -r 892a09772457 -r 8d840c4548c0 lisp/gnus/nnheader.el
--- a/lisp/gnus/nnheader.el	Sat Aug 23 19:10:42 1997 +0000
+++ b/lisp/gnus/nnheader.el	Sat Aug 23 20:23:37 1997 +0000
@@ -37,6 +37,8 @@
 
 ;;; Code:
 
+(eval-when-compile (require 'cl))
+
 (require 'mail-utils)
 
 (defvar nnheader-max-head-length 4096