Bind mail-header-separator when compiling.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9060488..1d4e643 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-04-29  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * canlock.el: Bind mail-header-separator when compiling (XEmacs
+       provides it in mail-lib/auto-autoloads.el).
+
 2003-04-29  Simon Josefsson  <jas@extundo.com>
 
        * mml2015.el (mml2015-pgg-sign): Use mml-sender instead of

diff --git a/lisp/canlock.el b/lisp/canlock.el
index e307ae2..7912f3d 100644 (file)
--- a/lisp/canlock.el
+++ b/lisp/canlock.el
@@ -47,6 +47,9 @@
 (autoload 'base64-encode-string "base64")
 (autoload 'mail-fetch-field "mail-utils")
 
+(eval-when-compile
+  (defvar mail-header-separator))
+
 (defgroup canlock nil
   "The Cancel-Lock feature."
   :group 'applications)