Mercurial > hg > xemacs-beta

comparison lisp/gnus/messagexmas.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 0293115a14e9
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
23 23
24 ;;; Commentary: 24 ;;; Commentary:
25 25
26 ;;; Code: 26 ;;; Code:
27 27
28 (require 'nnheader)
29
28 (defvar message-xmas-dont-activate-region nil 30 (defvar message-xmas-dont-activate-region nil
29 "If t, don't activate region after yanking.") 31 "If t, don't activate region after yanking.")
30 32
31 (defvar message-xmas-glyph-directory nil 33 (defvar message-xmas-glyph-directory nil
32 "*Directory where Message logos and icons are located. 34 "*Directory where Message logos and icons are located.
46 [message-help (Info-goto-node "(Message)Top") t "Message help"]) 48 [message-help (Info-goto-node "(Message)Top") t "Message help"])
47 "The message buffer toolbar.") 49 "The message buffer toolbar.")
48 50
49 (defun message-xmas-find-glyph-directory (&optional package) 51 (defun message-xmas-find-glyph-directory (&optional package)
50 (setq package (or package "message")) 52 (setq package (or package "message"))
51 (let ((path load-path) 53 (let ((dir (symbol-value
52 (dir (symbol-value 54 (intern-soft (concat package "-xmas-glyph-directory")))))
53 (intern-soft (concat package "-xmas-glyph-directory"))))
54 result)
55 (if (and (stringp dir) (file-directory-p dir)) 55 (if (and (stringp dir) (file-directory-p dir))
56 dir 56 dir
57 ;; We try to find the dir by looking at the load path, 57 (nnheader-find-etc-directory package))))
58 ;; stripping away the last component and adding "etc/".
59 (while path
60 (if (and (car path)
61 (file-exists-p
62 (setq dir (concat
63 (file-name-directory
64 (directory-file-name (car path)))
65 "etc/" (or package "message") "/")))
66 (file-directory-p dir))
67 (setq result dir
68 path nil)
69 (setq path (cdr path))))
70 result)))
71 58
72 (defun message-xmas-setup-toolbar (bar &optional force package) 59 (defun message-xmas-setup-toolbar (bar &optional force package)
73 (let ((dir (message-xmas-find-glyph-directory package)) 60 (let ((dir (message-xmas-find-glyph-directory package))
74 (xpm (if (featurep 'xpm) "xpm" "xbm")) 61 (xpm (if (featurep 'xpm) "xpm" "xbm"))
75 icon up down disabled name) 62 icon up down disabled name)