diff options
| author | Miles Bader <[email protected]> | 2005-02-13 08:47:45 +0000 |
|---|---|---|
| committer | Miles Bader <[email protected]> | 2005-02-13 08:47:45 +0000 |
| commit | d31fa104a1009de730e74befec2b4512b729a0c9 (patch) | |
| tree | b21a3a6904307319837bcf240f5cc0aae301447f /lisp/gnus/gnus.el | |
| parent | 9b981cb6861358a05a241509d73f2b8ea25c64ce (diff) | |
Revision: [email protected]/emacs--cvs-trunk--0--patch-96
Move Gnus images into etc/images
2005-02-13 Reiner Steib <[email protected]>
* 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.
Diffstat (limited to 'lisp/gnus/gnus.el')
| -rw-r--r-- | lisp/gnus/gnus.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el index 674c8d2c0a..f5dcd296d2 100644 --- a/lisp/gnus/gnus.el +++ b/lisp/gnus/gnus.el @@ -326,7 +326,8 @@ be set in `.emacs' instead." (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 @@ be set in `.emacs' instead." ((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 |