1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
;;; cmail-icons-init.el
(cond ((string-match "^xemacs" (symbol-name debian-emacs-flavor))
(defun cmail-make-toolbar-icon (name)
"Create toolbar icon."
(let ((filename)
(ext (if (featurep 'xpm) ".xpm" ".xbm")))
(setq filename (concat name ext))
(setq filename
(expand-file-name filename cmail-glyph-directory))
(toolbar-make-button-list filename)))
(setq cmail-glyph-directory "/usr/X11R6/include/X11/pixmaps"
cmail-toolbar-get-mail-icon
(cmail-make-toolbar-icon "get-mail")
cmail-toolbar-write-mail-icon
(cmail-make-toolbar-icon "write-mail")
cmail-toolbar-folders-icon
(cmail-make-toolbar-icon "cmail-folders")
cmail-toolbar-reply-icon
(cmail-make-toolbar-icon "reply")
cmail-toolbar-reply-include-icon
(cmail-make-toolbar-icon "reply-include")
cmail-toolbar-follow-icon
(cmail-make-toolbar-icon "follow")
cmail-toolbar-follow-include-icon
(cmail-make-toolbar-icon "follow-include")
cmail-toolbar-forward-icon
(cmail-make-toolbar-icon "forward")
cmail-toolbar-delete-icon
(cmail-make-toolbar-icon "delete")
cmail-toolbar-update-icon
(cmail-make-toolbar-icon "update")
cmail-toolbar-copy-icon
(cmail-make-toolbar-icon "copy")
cmail-toolbar-rename-icon
(cmail-make-toolbar-icon "rename"))))
;;; cmail-icons-init.el ends here
|
