Commit d31fa104 authored by Miles Bader's avatar Miles Bader
Browse files

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.
parent 9b981cb6
File suppressed by a .gitattributes entry or the file's encoding is unsupported.
File suppressed by a .gitattributes entry or the file's encoding is unsupported.
File suppressed by a .gitattributes entry or the file's encoding is unsupported.
File suppressed by a .gitattributes entry or the file's encoding is unsupported.
2005-02-13 Reiner Steib <Reiner.Steib@gmx.de>
* gnus.el (gnus-group-startup-message): Search for gnus images in
etc/images/gnus.
* mm-util.el (mm-find-charset-region): Likewise.
* smiley.el (smiley-data-directory): Search for smilies in
etc/images/smilies.
2005-02-09 Kim F. Storm <storm@cua.dk>
Change Emacs release version from 21.4 to 22.1 throughout.
......
......@@ -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
......
;;; mm-util.el --- Utility functions for Mule and low level things
;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004
;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005
;; Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
......@@ -901,7 +901,7 @@ If INHIBIT is non-nil, inhibit `mm-inhibit-file-name-handlers'."
(file-directory-p
(setq dir (concat (file-name-directory
(directory-file-name path))
"etc/" (or package "gnus/")))))
"etc/images/" (or package "gnus/")))))
(push dir result))
(push path result))))
......
......@@ -44,7 +44,7 @@
:group 'gnus-visual)
;; Maybe this should go.
(defcustom smiley-data-directory (nnheader-find-etc-directory "smilies")
(defcustom smiley-data-directory (nnheader-find-etc-directory "images/smilies")
"*Location of the smiley faces files."
:type 'directory
:group 'smiley)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment