Mercurial > emacs

diff lisp/gnus/gnus.el @ 60029:210af0ad3d35

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-96 Move Gnus images into etc/images 2005-02-13 Reiner Steib <Reiner.Steib@gmx.de> * lisp/gnus/gnus.el (gnus-group-startup-message): Search for gnus images in etc/images/gnus. * lisp/gnus/mm-util.el (mm-find-charset-region): Likewise. * lisp/gnus/smiley.el (smiley-data-directory): Search for smilies in etc/images/smilies.
author Miles Bader <miles@gnu.org>
date Sun, 13 Feb 2005 08:47:45 +0000
parents aac0a33f5772
children b070535d2416 7e3f621f1dd4
line wrap: on
line diff
--- a/lisp/gnus/gnus.el	Sun Feb 13 07:12:33 2005 +0000
+++ b/lisp/gnus/gnus.el	Sun Feb 13 08:47:45 2005 +0000
@@ -326,7 +326,8 @@
   (defvar gnus-mode-line-image-cache t)
   (if (fboundp 'find-image)
       (defun gnus-mode-line-buffer-identification (line)
-	(let ((str (car-safe line)))
+	(let ((str (car-safe line))
+	      (load-path (mm-image-load-path)))
 	  (if (and (stringp str)
 		   (string-match "^Gnus:" str))
 	      (progn (add-text-properties
@@ -875,7 +876,7 @@
    ((and
      (fboundp 'find-image)
      (display-graphic-p)
-     (let* ((data-directory (nnheader-find-etc-directory "gnus"))
+     (let* ((data-directory (nnheader-find-etc-directory "images/gnus"))
 	    (image (find-image
 		    `((:type xpm :file "gnus.xpm"
 			     :color-symbols