* dns.el: Fix misplaced eval-when-compile.

* gnus-util.el: Require alist and provide tm-view when compiling with XEmacs.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 17fad0a..374dedf 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2003-12-03  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * dns.el: Fix misplaced eval-when-compile.
+
+       * gnus-util.el: Require alist and provide tm-view when compiling
+       with XEmacs.
+
 2003-12-03  Steve Youngs  <sryoungs@bigpond.net.au>
 
        * gnus-xmas.el: Add autoloads for macros defined in gnus.el.

diff --git a/lisp/dns.el b/lisp/dns.el
index be0aec8..5d572fa 100644 (file)
--- a/lisp/dns.el
+++ b/lisp/dns.el
@@ -281,8 +281,9 @@ If TCP-P, the first two bytes of the package with be the length field."
       (setq dns-servers (nreverse dns-servers)))))
 
 ;;; Interface functions.
-(when (featurep 'xemacs)
-  (eval-when-compile (require 'gnus-xmas)))
+(eval-when-compile
+  (when (featurep 'xemacs)
+    (require 'gnus-xmas)))
 
 (defmacro dns-make-network-process (server)
   (if (featurep 'xemacs)

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index cf2977f..912bc51 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -803,6 +803,9 @@ with potentially long computations."
 ;;; Functions for saving to babyl/mail files.
 
 (eval-when-compile
+  (when (featurep 'xemacs)
+    (require 'alist)
+    (provide 'tm-view))
   (require 'rmail)
   (autoload 'rmail-update-summary "rmailsum")
   (defvar rmail-default-rmail-file)