Silence sieve-manage.el compilation.

* lisp/gnus/sieve-manage.el: Require 'cl when compiling, for caddr.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 31b7e5d4217c45a9228578d4babdf8b851b7213f..9cc8462e12b9f77aabc96af80e73c49dda208e06 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,5 +1,7 @@
 2010-11-01  Glenn Morris  <rgm@gnu.org>
 
+       * sieve-manage.el: Require 'cl when compiling.
+
        * gnus-util.el (iswitchb-read-buffer): Declare rather than autoload.
        (gnus-iswitchb-completing-read): Require iswitchb.
        (gnus-select-frame-set-input-focus): Silence compiler.

diff --git a/lisp/gnus/sieve-manage.el b/lisp/gnus/sieve-manage.el
index 5b5439fab7327c784309e0c51d489abf174336fe..a3647061d15906709a9d6111a9cfeae0062f1f03 100644 (file)
--- a/lisp/gnus/sieve-manage.el
+++ b/lisp/gnus/sieve-manage.el
@@ -1,7 +1,7 @@
 ;;; sieve-manage.el --- Implementation of the managesive protocol in elisp
 
-;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007,
-;;   2008, 2009, 2010  Free Software Foundation, Inc.
+;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009,
+;;   2010  Free Software Foundation, Inc.
 
 ;; Author: Simon Josefsson <simon@josefsson.org>
 
@@ -79,6 +79,7 @@
   (require 'password))
 
 (eval-when-compile
+  (require 'cl)                                ; caddr
   (require 'sasl)
   (require 'starttls))
 (autoload 'sasl-find-mechanism "sasl")