Commit 62fe59e7 authored by Katsumi Yamaoka's avatar Katsumi Yamaoka
Browse files

Don't load tm and apel XEmacs packages when compiling.

parent 08b47d3d
2010-04-27 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-util.el: Don't load tm and apel XEmacs packages when compiling.
2010-04-23 Stefan Monnier <monnier@iro.umontreal.ca>
* mm-util.el (mm-find-buffer-file-coding-system):
......
......@@ -1070,23 +1070,15 @@ with potentially long computations."
;;; 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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment