Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
62fe59e7
Commit
62fe59e7
authored
Apr 27, 2010
by
Katsumi Yamaoka
Browse files
Don't load tm and apel XEmacs packages when compiling.
parent
08b47d3d
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
13 additions
and
17 deletions
+13
-17
lisp/gnus/ChangeLog
lisp/gnus/ChangeLog
+4
-0
lisp/gnus/gnus-util.el
lisp/gnus/gnus-util.el
+9
-17
No files found.
lisp/gnus/ChangeLog
View file @
62fe59e7
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):
...
...
lisp/gnus/gnus-util.el
View file @
62fe59e7
...
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment