From b407405820e18d71d3649f3aa6050cd85b337e2a Mon Sep 17 00:00:00 2001
From: yamaoka <yamaoka>
Date: Tue, 29 Apr 2003 12:32:11 +0000
Subject: [PATCH] * dgnushack.el: Autoload font-lock for XEmacs -no-autoloads.

* pop3.el: Require `advice' for compiling it in Gnus.

* canlock.el: Bind mail-header-separator when compiling.
---
 ChangeLog         |    6 ++++++
 lisp/ChangeLog    |    5 +++++
 lisp/canlock.el   |    3 +++
 lisp/dgnushack.el |    2 ++
 lisp/pop3.el      |    5 ++++-
 5 files changed, 20 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index d8cca3f..026c198 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2003-04-29  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* lisp/dgnushack.el: Autoload font-lock for XEmacs -no-autoloads.
+
+	* lisp/pop3.el: Require `advice' for compiling it in Gnus.
+
 2003-04-28  Reiner Steib  <Reiner.Steib@gmx.de>
 
 	* GNUS-NEWS: Fixed X-Draft-Headers entry.
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9060488..1d4e643 100644
--- 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
--- 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)
diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index e8612f5..e48b6bb 100644
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -482,6 +482,7 @@ Try to re-configure with --with-addpath=FLIM_PATH and run make again.
     (autoload 'delete-annotation "annotations")
     (autoload 'dolist "cl-macs" nil nil 'macro)
     (autoload 'enriched-decode "enriched")
+    (autoload 'font-lock-mode "font-lock" nil t)
     (autoload 'info "info" nil t)
     (autoload 'make-annotation "annotations")
     (autoload 'make-display-table "disp-table")
@@ -500,6 +501,7 @@ Try to re-configure with --with-addpath=FLIM_PATH and run make again.
     (autoload 'sort-numeric-fields "sort" nil t)
     (autoload 'sort-subr "sort")
     (autoload 'trace-function-background "trace" nil t)
+    (autoload 'turn-on-font-lock "font-lock" nil t)
     (autoload 'w3-do-setup "w3")
     (autoload 'w3-prepare-buffer "w3-display")
     (autoload 'w3-region "w3-display" nil t)
diff --git a/lisp/pop3.el b/lisp/pop3.el
index f2230c4..2b1373e 100644
--- a/lisp/pop3.el
+++ b/lisp/pop3.el
@@ -45,7 +45,10 @@
 
 ;;; Code:
 
-(eval-when-compile (require 'cl))
+(eval-when-compile
+  (require 'cl)
+  ;; For compiling this module in Gnus with XEmacs -no-autoloads.
+  (require 'advice))
 
 ;; as-binary-process, open-network-stream-as-binary, write-region-as-binary
 (require 'pces)
-- 
1.7.10.4