[Emacs-diffs] /srv/bzr/emacs/trunk r100048: Don't load tm and apel XEmacs packages when compiling.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 100048
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Tue 2010-04-27 06:40:58 +0000
message:
  Don't load tm and apel XEmacs packages when compiling.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-util.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-04-23 16:15:51 +0000
+++ b/lisp/gnus/ChangeLog       2010-04-27 06:40:58 +0000
@@ -1,3 +1,7 @@
+2010-04-27  Katsumi Yamaoka  <address@hidden>
+
+       * gnus-util.el: Don't load tm and apel XEmacs packages when compiling.
+
 2010-04-23  Stefan Monnier  <address@hidden>
 
        * mm-util.el (mm-find-buffer-file-coding-system):

=== modified file 'lisp/gnus/gnus-util.el'
--- a/lisp/gnus/gnus-util.el    2010-03-19 02:55:37 +0000
+++ b/lisp/gnus/gnus-util.el    2010-04-27 06:40:58 +0000
@@ -1070,23 +1070,15 @@
 ;;; Functions for saving to babyl/mail files.
 
 (eval-when-compile
-  (condition-case nil
-      (progn
-       (require 'rmail)
-       (autoload 'rmail-update-summary "rmailsum"))
-    (error
-     (define-compiler-macro rmail-select-summary (&rest body)
-       ;; Rmail of the XEmacs version is supplied by the package, and
-       ;; requires tm and apel packages.  However, there may be those
-       ;; who haven't installed those packages.  This macro helps such
-       ;; people even if they install those packages later.
-       `(eval '(rmail-select-summary ,@body)))
-     ;; If there's rmail but there's no tm (or there's apel of the
-     ;; mainstream, not the XEmacs version), loading rmail of the XEmacs
-     ;; version fails halfway, however it provides the rmail-select-summary
-     ;; macro which uses the following functions:
-     (autoload 'rmail-summary-displayed "rmail")
-     (autoload 'rmail-maybe-display-summary "rmail"))))
+  (if (featurep 'xemacs)
+      ;; Don't load tm and apel XEmacs packages that provide some
+      ;; Emacs emulating functions and variables.
+      (let ((features features))
+       (provide 'tm-view)
+       (unless (fboundp 'set-alist) (defalias 'set-alist 'ignore))
+       (require 'rmail)) ;; It requires tm-view that loads apel.
+    (require 'rmail))
+  (autoload 'rmail-update-summary "rmailsum"))
 
 (defvar mm-text-coding-system)