Re: Problem running gnus when image is not already loaded

[Reiner Steib <reinersteib+gmane@imap.cc>]

On Sat, Feb 02 2008, Harald Hanche-Olsen wrote:

> I noticed just now that you put the code to force the loading of
> whatever library find-image comes from before the test
> (display-graphic-p).  I think it should go after, since it makes
> little sense to force the loading of this library if the user is
> running emacs in a terminal.

Correct.  Thanks again.  I will install the following, unless someone
points out a problem or offers a better way.

--8<---------------cut here---------------start------------->8---
--- gnus.el.~7.77.~	2008-01-20 10:27:58.000000000 +0100
+++ gnus.el	2008-02-02 19:09:41.000000000 +0100
@@ -1003,6 +1003,12 @@
    ((and
      (fboundp 'find-image)
      (display-graphic-p)
+     (or
+      ;; Make sure the library defining `image-load-path' is loaded now
+      ;; (`find-image' is autoloaded).  Else, we may get "defvar ignored
+      ;; because image-load-path is let-bound".
+      (find-image '(nil (:type xpm :file "gnus.xpm")))
+      t)
      (let* ((data-directory (nnheader-find-etc-directory "images/gnus"))
 	    (image-load-path (cond (data-directory
 				    (list data-directory))
--8<---------------cut here---------------end--------------->8---

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/