SL Baur <steve(a)xemacs.org> wrote -
toge <toge(a)accad1.kek.jp> writes:
> BTW, gnus in the X-window mode barks at me unless I also install w3.
> The reason is that gnus wants images.el which is part of w3.
> I guess there are cases where the user wants to use gnus but not w3.
> Can images.el be part of xemacs-base or something, or am I too picky?
Could you please get and post a lisp stack backtrace? Thanks.
(setq debug-on-error t) and recreate the problem.
Yes, here is what the lisp stack backtrace says, when I launch
gnus on XEmacs under X-window, *WHEN* the w3 packages is not
installed.
------ BEGIN -----
Signaling: (file-error "Cannot open load file" "images")
signal(file-error ("Cannot open load file" "images"))
load("images" nil t nil)
require(images)
byte-code("..." [require tm-view running-xemacs images fboundp image-inline-p
#<compiled-function (format) "...(15)" [format image-native-formats find-if
#<compiled-function ... "...(7)" ... 3>] 3> put defun-maybe t
image-register-netpbm-utilities image-register-converter pic ppm "pictoppm" mag
"magtoppm" bitmap-insert-xbm-file #<compiled-function (file)
"...(23)" [make-glyph x file make-extent e gl set-extent-end-glyph] 4>
autoload highlight-headers "highlight-headers"
mime-preview/x-face-function-use-highlight-headers #<compiled-function nil
"...(17)" [highlight-headers re-search-forward "^$" nil t] 6>
add-hook mime-viewer/content-header-filter-hook featurep mule x-face-mule boundp
image-native-formats (xbm) current-load-list #<compiled-function (format)
"...(5)" [format image-native-formats] 2> image-normalize
#<compiled-function (format data) "...(18)" [format xbm vector :data data]
4> exec-installed-p uncompface-program x-face-decode-message-header
image-invalid-glyph-p #<compiled-function (glyph) "..
.(27)" [glyph 0 2 ""] 2> byte-optimizer (nil byte-compile-inline-expand)
error "%s already has a byte-optimizer, can't make it inline"
byte-compile-inline-expand mime-viewer/image-converter-alist nil mapcar
#<compiled-function (rule) "...(42)" [rule format ctype image-inline-p
set-alist mime-viewer/content-filter-alist mime-preview/filter-for-image
mime-viewer/image-converter-alist add-to-list
mime-viewer/default-showing-Content-Type-list] 4> ...] 4)
load-internal("tm-image" nil t nil binary)
load("tm-image" nil t nil)
require(tm-image)
#<compiled-function nil "...(7)" [require tm-image] 2>()
run-hooks(#<compiled-function nil "...(7)" [require tm-image] 2>)
byte-code("..." [provide tm-view run-hooks tm-view-load-hook] 2)
load-internal("tm-view" nil t nil binary)
load("tm-view" nil t nil)
require(tm-view)
byte-code("..." [require sendmail mail-utils mel tl-list tm-view tm-ew-e
signature "$Id: tm-edit.el,v 7.108 1997/05/27 03:22:55 morioka Exp $"
mime-editor/RCS-ID current-load-list get-version-string mime-editor/version "tm-edit
" mime-editor/version-name] 2)
load-internal("tm-edit" nil t nil binary)
load("tm-edit" nil t nil)
require(tm-edit)
byte-code("..." [require tm-edit mime-make-tag "message"
"rfc822" "\n" message-forward-start-separator ""
message-forward-end-separator string-match message-included-forward-headers
"Mime-Version:" "\\|^Mime-Version:" "Content-Type:"
"\\|^Content-Type:" "Content-Transfer-Encoding:"
"\\|^Content-Transfer-Encoding:"] 3)
load-internal("message-mime" nil t nil binary)
load("message-mime" nil t nil)
require(message-mime)
#<compiled-function nil "...(7)" [require message-mime] 2>()
run-hooks(#<compiled-function nil "...(7)" [require message-mime] 2>)
byte-code("..." [run-hooks message-load-hook provide message] 2)
load-internal("message" nil t nil binary)
load("message" nil t nil)
require(message)
byte-code("..." [require custom emacs-major-version 20 gnus-load message
custom-declare-group gnus nil "The coffee-brewing, all singing, all dancing, kitchen
sink newsreader." :group news mail gnus-start "Starting your favorite
newsreader." gnus-start-server "Server options at startup." gnus-group
"Group buffers." :link (custom-manual "(gnus)The Group Buffer")
gnus-group-foreign "Foreign groups." (custom-manual "(gnus)Foreign
Groups") gnus-group-new "Automatic subscription of new groups."
gnus-group-levels "Group levels." (custom-manual "(gnus)Group Levels")
gnus-group-select "Selecting a Group." (custom-manual "(gnus)Selecting a
Group") gnus-group-listing "Showing slices of the group list."
(custom-manual "(gnus)Listing Groups") gnus-group-visual "Sorting the group
buffer." (custom-manual "(gnus)Group Buffer Format") gnus-visual
gnus-group-various "Various group options." (custom-manual "(gnus)Scanning
New Messages") gnus-summary "Summary buffers." (custom-manual
"(gnus)The Summary Buffer") gnus-summary-e
xit "Leaving summary buffers." (custom-manual "(gnus)Exiting the Summary
Buffer") gnus-summary-marks "Marks used in summary buffers." ...] 10)
load-internal("gnus" nil t nil binary)
load("gnus" nil t nil)
require(gnus)
byte-code("..." [require gnus gnus-charset provide gnus-mime
gnus-is-red-gnus-or-later gnus-mime-old call-after-loaded gnus-art #<compiled-function
nil "...(7)" [require gnus-art-mime] 2> gnus-sum #<compiled-function nil
"...(7)" [require gnus-sum-mime] 2> run-hooks gnus-mime-load-hook] 3)
load-internal("gnus-mime" nil t nil binary)
load("gnus-mime" nil t nil)
require(gnus-mime)
tm-setup/load-gnus()
run-hooks(tm-setup/load-gnus)
load-internal("gnus" nil nil nil binary)
load("gnus" nil nil nil)
command-execute(gnus t)
execute-extended-command(nil)
call-interactively(execute-extended-command)
----- END ------
All that it takes to fix this condition is to install images.el and
images.elc from the w3 package into the lisp directory. Nothing else
from w3 are needed.
--
Nobu Toge (toge(a)accad1.kek.jp)