504 |
'mh-foldertoolbar-help |
'mh-foldertoolbar-help |
505 |
:help mh-tool-bar-item-help)) |
:help mh-tool-bar-item-help)) |
506 |
tool-bar-map)) |
tool-bar-map)) |
507 |
|
|
508 |
(setq mh-folder-seq-tool-bar-map |
(setq mh-folder-seq-tool-bar-map |
509 |
(let ((tool-bar-map (copy-keymap mh-folder-tool-bar-map))) |
(let ((tool-bar-map (copy-keymap mh-folder-tool-bar-map))) |
510 |
(if (member mh-tool-bar-item-widen mh-tool-bar-folder-buttons) |
(if (member mh-tool-bar-item-widen mh-tool-bar-folder-buttons) |
1589 |
(t (:italic t))) |
(t (:italic t))) |
1590 |
"Face for highlighting body text in MH-Folder buffers." |
"Face for highlighting body text in MH-Folder buffers." |
1591 |
:group 'mh-folder-faces) |
:group 'mh-folder-faces) |
1592 |
|
|
1593 |
(defvar mh-folder-cur-msg-face 'mh-folder-cur-msg-face |
(defvar mh-folder-cur-msg-face 'mh-folder-cur-msg-face |
1594 |
"Face for the current message line in MH-Folder buffers.") |
"Face for the current message line in MH-Folder buffers.") |
1595 |
(defface mh-folder-cur-msg-face |
(defface mh-folder-cur-msg-face |