annotate lisp/mh-e/mh-tool-bar.el @ 102250:1107d3965884

Mention problems with username in the MS-DOS port on MS-Windows.
author Eli Zaretskii <eliz@gnu.org>
date Tue, 24 Feb 2009 19:09:03 +0000
parents 8273fdb2fa74
children 1d1d5d9bd884
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
1 ;;; mh-tool-bar.el --- MH-E tool bar support
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
2
101485
8273fdb2fa74 Follow Glenn's lead and update format of Copyright.
Bill Wohler <wohler@newt.com>
parents: 100908
diff changeset
3 ;; Copyright (C) 2002, 2003, 2005, 2006, 2007, 2008, 2009
8273fdb2fa74 Follow Glenn's lead and update format of Copyright.
Bill Wohler <wohler@newt.com>
parents: 100908
diff changeset
4 ;; Free Software Foundation, Inc.
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
5
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
6 ;; Author: Satyaki Das <satyaki@theforce.stanford.edu>
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
7 ;; Maintainer: Bill Wohler <wohler@newt.com>
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
8 ;; Keywords: mail
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
9 ;; See: mh-e.el
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
10
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
11 ;; This file is part of GNU Emacs.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
12
94663
90c9ebd43589 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79713
diff changeset
13 ;; GNU Emacs is free software: you can redistribute it and/or modify
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
14 ;; it under the terms of the GNU General Public License as published by
94663
90c9ebd43589 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79713
diff changeset
15 ;; the Free Software Foundation, either version 3 of the License, or
90c9ebd43589 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79713
diff changeset
16 ;; (at your option) any later version.
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
17
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
18 ;; GNU Emacs is distributed in the hope that it will be useful,
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
21 ;; GNU General Public License for more details.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
22
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
23 ;; You should have received a copy of the GNU General Public License
94663
90c9ebd43589 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79713
diff changeset
24 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
25
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
26 ;;; Commentary:
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
27
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
28 ;;; Change Log:
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
29
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
30 ;;; Code:
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
31
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
32 (require 'mh-e)
68597
04d228a1b5c8 * mh-tool-bar.el: Add conditional require of 'tool-bar or 'toolbar
Mark D. Baushke <mdb@gnu.org>
parents: 68470
diff changeset
33 (mh-do-in-gnu-emacs
04d228a1b5c8 * mh-tool-bar.el: Add conditional require of 'tool-bar or 'toolbar
Mark D. Baushke <mdb@gnu.org>
parents: 68470
diff changeset
34 (require 'tool-bar))
04d228a1b5c8 * mh-tool-bar.el: Add conditional require of 'tool-bar or 'toolbar
Mark D. Baushke <mdb@gnu.org>
parents: 68470
diff changeset
35 (mh-do-in-xemacs
04d228a1b5c8 * mh-tool-bar.el: Add conditional require of 'tool-bar or 'toolbar
Mark D. Baushke <mdb@gnu.org>
parents: 68470
diff changeset
36 (require 'toolbar))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
37
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
38 ;;; Tool Bar Commands
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
39
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
40 (defun mh-tool-bar-search (&optional arg)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
41 "Interactively call `mh-tool-bar-search-function'.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
42 Optional argument ARG is not used."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
43 (interactive "P")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
44 (call-interactively mh-tool-bar-search-function))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
45
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
46 (defun mh-tool-bar-customize ()
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
47 "Call `mh-customize' from the tool bar."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
48 (interactive)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
49 (mh-customize t))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
50
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
51 (defun mh-tool-bar-folder-help ()
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
52 "Visit \"(mh-e)Top\"."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
53 (interactive)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
54 (info "(mh-e)Top")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
55 (delete-other-windows))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
56
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
57 (defun mh-tool-bar-letter-help ()
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
58 "Visit \"(mh-e)Editing Drafts\"."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
59 (interactive)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
60 (info "(mh-e)Editing Drafts")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
61 (delete-other-windows))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
62
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
63 (defmacro mh-tool-bar-reply-generator (function recipient folder-buffer-flag)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
64 "Generate FUNCTION that replies to RECIPIENT.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
65 If FOLDER-BUFFER-FLAG is nil then the function generated...
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
66 When INCLUDE-FLAG is non-nil, include message body being replied to."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
67 `(defun ,function (&optional arg)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
68 ,(format "Reply to \"%s\".\nWhen ARG is non-nil include message in reply."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
69 recipient)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
70 (interactive "P")
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
71 ,(if folder-buffer-flag nil '(set-buffer mh-show-folder-buffer))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
72 (mh-reply (mh-get-msg-num nil) ,recipient arg)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
73
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
74 (mh-tool-bar-reply-generator mh-tool-bar-reply-from "from" t)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
75 (mh-tool-bar-reply-generator mh-show-tool-bar-reply-from "from" nil)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
76 (mh-tool-bar-reply-generator mh-tool-bar-reply-to "to" t)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
77 (mh-tool-bar-reply-generator mh-show-tool-bar-reply-to "to" nil)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
78 (mh-tool-bar-reply-generator mh-tool-bar-reply-all "all" t)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
79 (mh-tool-bar-reply-generator mh-show-tool-bar-reply-all "all" nil)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
80
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
81
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
82
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
83 ;;; Tool Bar Creation
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
84
70145
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
85 ;; Shush compiler.
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
86 (defvar image-load-path)
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
87
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
88 (defmacro mh-tool-bar-define (defaults &rest buttons)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
89 "Define a tool bar for MH-E.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
90 DEFAULTS is the list of buttons that are present by default. It
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
91 is a list of lists where the sublists are of the following form:
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
92
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
93 (:KEYWORD FUNC1 FUNC2 FUNC3 ...)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
94
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
95 Here :KEYWORD is one of :folder or :letter. If it is :folder then
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
96 the default buttons in the folder and show mode buffers are being
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
97 specified. If it is :letter then the default buttons in the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
98 letter mode are listed. FUNC1, FUNC2, FUNC3, ... are the names of
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
99 the functions that the buttons would execute.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
100
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
101 Each element of BUTTONS is a list consisting of four mandatory
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
102 items and one optional item as follows:
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
103
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
104 (FUNCTION MODES ICON DOC &optional ENABLE-EXPR)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
105
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
106 where,
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
107
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
108 FUNCTION is the name of the function that will be executed when
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
109 the button is clicked.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
110
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
111 MODES is a list of symbols. List elements must be from \"folder\",
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
112 \"letter\" and \"sequence\". If \"folder\" is present then the button is
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
113 available in the folder and show buffer. If the name of FUNCTION is
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
114 of the form \"mh-foo\", where foo is some arbitrary string, then we
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
115 check if the function `mh-show-foo' exists. If it exists then that
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
116 function is used in the show buffer. Otherwise the original function
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
117 `mh-foo' is used in the show buffer as well. Presence of \"sequence\"
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
118 is handled similar to the above. The only difference is that the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
119 button is shown only when the folder is narrowed to a sequence. If
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
120 \"letter\" is present in MODES, then the button is available during
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
121 draft editing and runs FUNCTION when clicked.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
122
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
123 ICON is the icon that is drawn in the button.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
124
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
125 DOC is the documentation for the button. It is used in tool-tips and
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
126 in providing other help to the user. GNU Emacs uses only the first
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
127 line of the string. So the DOC should be formatted such that the
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
128 first line is useful and complete without the rest of the string.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
129
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
130 Optional item ENABLE-EXPR is an arbitrary lisp expression. If it
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
131 evaluates to nil, then the button is deactivated, otherwise it is
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
132 active. If it isn't present then the button is always active."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
133 ;; The following variable names have been carefully chosen to make code
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
134 ;; generation easier. Modifying the names should be done carefully.
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
135 (let (folder-buttons folder-docs folder-button-setter sequence-button-setter
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
136 show-buttons show-button-setter show-seq-button-setter
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
137 letter-buttons letter-docs letter-button-setter
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
138 folder-defaults letter-defaults
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
139 folder-vectors show-vectors letter-vectors)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
140 (dolist (x defaults)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
141 (cond ((eq (car x) :folder) (setq folder-defaults (cdr x)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
142 ((eq (car x) :letter) (setq letter-defaults (cdr x)))))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
143 (dolist (button buttons)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
144 (unless (and (listp button)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
145 (or (equal (length button) 4) (equal (length button) 5)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
146 (error "Incorrect MH-E tool-bar button specification: %s" button))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
147 (let* ((name (nth 0 button))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
148 (name-str (symbol-name name))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
149 (icon (nth 2 button))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
150 (xemacs-icon (mh-do-in-xemacs
71599
c7f90876123f (mh-tool-bar-define): Fix XEmacs' vector-list so it refers to the
Bill Wohler <wohler@newt.com>
parents: 70145
diff changeset
151 `(cdr (assoc (quote ,(intern icon)) mh-xemacs-icon-map))))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
152 (full-doc (nth 3 button))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
153 (doc (if (string-match "\\(.*\\)\n" full-doc)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
154 (match-string 1 full-doc)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
155 full-doc))
70114
29c303bc6423 (mh-tool-bar-define): Fix enable-expr so that one can permenently
Bill Wohler <wohler@newt.com>
parents: 69728
diff changeset
156 (enable-expr (if (eql (length button) 4) t (nth 4 button)))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
157 (modes (nth 1 button))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
158 functions show-sym)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
159 (when (memq 'letter modes) (setq functions `(:letter ,name)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
160 (when (or (memq 'folder modes) (memq 'sequence modes))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
161 (setq functions
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
162 (append `(,(if (memq 'folder modes) :folder :sequence) ,name)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
163 functions))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
164 (setq show-sym
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
165 (if (string-match "^mh-\\(.*\\)$" name-str)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
166 (intern (concat "mh-show-" (match-string 1 name-str)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
167 name))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
168 (setq functions
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
169 (append `(,(if (memq 'folder modes) :show :show-seq)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
170 ,(if (fboundp show-sym) show-sym name))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
171 functions)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
172 (do ((functions functions (cddr functions)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
173 ((null functions))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
174 (let* ((type (car functions))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
175 (function (cadr functions))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
176 (type1 (substring (symbol-name type) 1))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
177 (vector-list (cond ((eq type :show) 'show-vectors)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
178 ((eq type :show-seq) 'show-vectors)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
179 ((eq type :letter) 'letter-vectors)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
180 (t 'folder-vectors)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
181 (list (cond ((eq type :letter) 'mh-tool-bar-letter-buttons)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
182 (t 'mh-tool-bar-folder-buttons)))
70145
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
183 (key (intern (concat "mh-" type1 "-tool-bar-" name-str)))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
184 (setter (intern (concat type1 "-button-setter")))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
185 (mbuttons (cond ((eq type :letter) 'letter-buttons)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
186 ((eq type :show) 'show-buttons)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
187 ((eq type :show-seq) 'show-buttons)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
188 (t 'folder-buttons)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
189 (docs (cond ((eq mbuttons 'letter-buttons) 'letter-docs)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
190 ((eq mbuttons 'folder-buttons) 'folder-docs))))
71599
c7f90876123f (mh-tool-bar-define): Fix XEmacs' vector-list so it refers to the
Bill Wohler <wohler@newt.com>
parents: 70145
diff changeset
191 (add-to-list vector-list `(vector ,xemacs-icon ',function t ,full-doc))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
192 (add-to-list
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
193 setter `(when (member ',name ,list)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
194 (mh-funcall-if-exists
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
195 tool-bar-add-item ,icon ',function ',key
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
196 :help ,doc :enable ',enable-expr)))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
197 (add-to-list mbuttons name)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
198 (if docs (add-to-list docs doc))))))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
199 (setq folder-buttons (nreverse folder-buttons)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
200 letter-buttons (nreverse letter-buttons)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
201 show-buttons (nreverse show-buttons)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
202 letter-docs (nreverse letter-docs)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
203 folder-docs (nreverse folder-docs)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
204 folder-vectors (nreverse folder-vectors)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
205 show-vectors (nreverse show-vectors)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
206 letter-vectors (nreverse letter-vectors))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
207 (dolist (x folder-defaults)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
208 (unless (memq x folder-buttons)
69245
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
209 (error "Folder defaults contains unknown button %s" x)))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
210 (dolist (x letter-defaults)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
211 (unless (memq x letter-buttons)
69245
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
212 (error "Letter defaults contains unknown button %s" x)))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
213 `(eval-when (compile load eval)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
214 ;; GNU Emacs tool bar specific code
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
215 (mh-do-in-gnu-emacs
70145
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
216 (defun mh-buffer-exists-p (mode)
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
217 "Test whether a buffer with major mode MODE is present."
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
218 (loop for buf in (buffer-list)
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
219 when (with-current-buffer buf
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
220 (eq major-mode mode))
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
221 return t))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
222 ;; Tool bar initialization functions
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
223 (defun mh-tool-bar-folder-buttons-init ()
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
224 (when (mh-buffer-exists-p 'mh-folder-mode)
70145
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
225 (let* ((load-path (mh-image-load-path-for-library "mh-e"
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
226 "mh-logo.xpm"))
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
227 (image-load-path (cons (car load-path)
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
228 (when (boundp 'image-load-path)
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
229 image-load-path))))
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
230 (setq mh-folder-tool-bar-map
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
231 (let ((tool-bar-map (make-sparse-keymap)))
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
232 ,@(nreverse folder-button-setter)
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
233 tool-bar-map))
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
234 (setq mh-folder-seq-tool-bar-map
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
235 (let ((tool-bar-map (copy-keymap mh-folder-tool-bar-map)))
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
236 ,@(nreverse sequence-button-setter)
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
237 tool-bar-map))
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
238 (setq mh-show-tool-bar-map
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
239 (let ((tool-bar-map (make-sparse-keymap)))
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
240 ,@(nreverse show-button-setter)
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
241 tool-bar-map))
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
242 (setq mh-show-seq-tool-bar-map
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
243 (let ((tool-bar-map (copy-keymap mh-show-tool-bar-map)))
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
244 ,@(nreverse show-seq-button-setter)
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
245 tool-bar-map)))))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
246 (defun mh-tool-bar-letter-buttons-init ()
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
247 (when (mh-buffer-exists-p 'mh-letter-mode)
70145
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
248 (let* ((load-path (mh-image-load-path-for-library "mh-e"
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
249 "mh-logo.xpm"))
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
250 (image-load-path (cons (car load-path)
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
251 (when (boundp 'image-load-path)
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
252 image-load-path))))
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
253 (setq mh-letter-tool-bar-map
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
254 (let ((tool-bar-map (make-sparse-keymap)))
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
255 ,@(nreverse letter-button-setter)
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
256 tool-bar-map)))))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
257 ;; Custom setter functions
70145
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
258 (defun mh-tool-bar-update (mode default-map sequence-map)
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
259 "Update `tool-bar-map' in all buffers of MODE.
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
260 Use SEQUENCE-MAP if display is limited; DEFAULT-MAP otherwise."
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
261 (loop for buf in (buffer-list)
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
262 do (with-current-buffer buf
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
263 (if (eq mode major-mode)
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
264 (let ((map (if mh-folder-view-stack
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
265 sequence-map
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
266 default-map)))
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
267 ;; Yes, make-local-variable is necessary since we
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
268 ;; get here during initialization when loading
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
269 ;; mh-e.el, after the +inbox buffer has been
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
270 ;; created, but before mh-folder-mode has run and
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
271 ;; created the local map.
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
272 (set (make-local-variable 'tool-bar-map) map))))))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
273 (defun mh-tool-bar-folder-buttons-set (symbol value)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
274 "Construct tool bar for `mh-folder-mode' and `mh-show-mode'."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
275 (set-default symbol value)
70145
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
276 (mh-tool-bar-folder-buttons-init)
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
277 (mh-tool-bar-update 'mh-folder-mode mh-folder-tool-bar-map
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
278 mh-folder-seq-tool-bar-map)
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
279 (mh-tool-bar-update 'mh-show-mode mh-show-tool-bar-map
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
280 mh-show-seq-tool-bar-map))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
281 (defun mh-tool-bar-letter-buttons-set (symbol value)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
282 "Construct tool bar for `mh-letter-mode'."
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
283 (set-default symbol value)
70145
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
284 (mh-tool-bar-letter-buttons-init)
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
285 (mh-tool-bar-update 'mh-letter-mode mh-letter-tool-bar-map
00cb3fe5fed5 * mh-tool-bar.el (image-load-path): Define to shush compiler.
Bill Wohler <wohler@newt.com>
parents: 70114
diff changeset
286 mh-letter-tool-bar-map)))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
287 ;; XEmacs specific code
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
288 (mh-do-in-xemacs
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
289 (defvar mh-tool-bar-folder-vector-map
71599
c7f90876123f (mh-tool-bar-define): Fix XEmacs' vector-list so it refers to the
Bill Wohler <wohler@newt.com>
parents: 70145
diff changeset
290 (list ,@(loop for button in folder-buttons
c7f90876123f (mh-tool-bar-define): Fix XEmacs' vector-list so it refers to the
Bill Wohler <wohler@newt.com>
parents: 70145
diff changeset
291 for vector in folder-vectors
c7f90876123f (mh-tool-bar-define): Fix XEmacs' vector-list so it refers to the
Bill Wohler <wohler@newt.com>
parents: 70145
diff changeset
292 collect `(cons ',button ,vector))))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
293 (defvar mh-tool-bar-show-vector-map
71599
c7f90876123f (mh-tool-bar-define): Fix XEmacs' vector-list so it refers to the
Bill Wohler <wohler@newt.com>
parents: 70145
diff changeset
294 (list ,@(loop for button in show-buttons
c7f90876123f (mh-tool-bar-define): Fix XEmacs' vector-list so it refers to the
Bill Wohler <wohler@newt.com>
parents: 70145
diff changeset
295 for vector in show-vectors
c7f90876123f (mh-tool-bar-define): Fix XEmacs' vector-list so it refers to the
Bill Wohler <wohler@newt.com>
parents: 70145
diff changeset
296 collect `(cons ',button ,vector))))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
297 (defvar mh-tool-bar-letter-vector-map
71599
c7f90876123f (mh-tool-bar-define): Fix XEmacs' vector-list so it refers to the
Bill Wohler <wohler@newt.com>
parents: 70145
diff changeset
298 (list ,@(loop for button in letter-buttons
c7f90876123f (mh-tool-bar-define): Fix XEmacs' vector-list so it refers to the
Bill Wohler <wohler@newt.com>
parents: 70145
diff changeset
299 for vector in letter-vectors
c7f90876123f (mh-tool-bar-define): Fix XEmacs' vector-list so it refers to the
Bill Wohler <wohler@newt.com>
parents: 70145
diff changeset
300 collect `(cons ',button ,vector))))
c7f90876123f (mh-tool-bar-define): Fix XEmacs' vector-list so it refers to the
Bill Wohler <wohler@newt.com>
parents: 70145
diff changeset
301 (defvar mh-tool-bar-folder-buttons)
c7f90876123f (mh-tool-bar-define): Fix XEmacs' vector-list so it refers to the
Bill Wohler <wohler@newt.com>
parents: 70145
diff changeset
302 (defvar mh-tool-bar-show-buttons)
c7f90876123f (mh-tool-bar-define): Fix XEmacs' vector-list so it refers to the
Bill Wohler <wohler@newt.com>
parents: 70145
diff changeset
303 (defvar mh-tool-bar-letter-buttons)
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
304 ;; Custom setter functions
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
305 (defun mh-tool-bar-letter-buttons-set (symbol value)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
306 (set-default symbol value)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
307 (when mh-xemacs-has-tool-bar-flag
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
308 (setq mh-tool-bar-letter-buttons
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
309 (loop for b in value
71599
c7f90876123f (mh-tool-bar-define): Fix XEmacs' vector-list so it refers to the
Bill Wohler <wohler@newt.com>
parents: 70145
diff changeset
310 collect (cdr
c7f90876123f (mh-tool-bar-define): Fix XEmacs' vector-list so it refers to the
Bill Wohler <wohler@newt.com>
parents: 70145
diff changeset
311 (assoc b mh-tool-bar-letter-vector-map))))))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
312 (defun mh-tool-bar-folder-buttons-set (symbol value)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
313 (set-default symbol value)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
314 (when mh-xemacs-has-tool-bar-flag
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
315 (setq mh-tool-bar-folder-buttons
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
316 (loop for b in value
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
317 collect (cdr (assoc b mh-tool-bar-folder-vector-map))))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
318 (setq mh-tool-bar-show-buttons
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
319 (loop for b in value
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
320 collect (cdr (assoc b mh-tool-bar-show-vector-map))))))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
321 (defun mh-tool-bar-init (mode)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
322 "Install tool bar in MODE."
71599
c7f90876123f (mh-tool-bar-define): Fix XEmacs' vector-list so it refers to the
Bill Wohler <wohler@newt.com>
parents: 70145
diff changeset
323 (when mh-xemacs-use-tool-bar-flag
c7f90876123f (mh-tool-bar-define): Fix XEmacs' vector-list so it refers to the
Bill Wohler <wohler@newt.com>
parents: 70145
diff changeset
324 (let ((tool-bar (cond ((eq mode :folder)
c7f90876123f (mh-tool-bar-define): Fix XEmacs' vector-list so it refers to the
Bill Wohler <wohler@newt.com>
parents: 70145
diff changeset
325 mh-tool-bar-folder-buttons)
c7f90876123f (mh-tool-bar-define): Fix XEmacs' vector-list so it refers to the
Bill Wohler <wohler@newt.com>
parents: 70145
diff changeset
326 ((eq mode :letter)
c7f90876123f (mh-tool-bar-define): Fix XEmacs' vector-list so it refers to the
Bill Wohler <wohler@newt.com>
parents: 70145
diff changeset
327 mh-tool-bar-letter-buttons)
c7f90876123f (mh-tool-bar-define): Fix XEmacs' vector-list so it refers to the
Bill Wohler <wohler@newt.com>
parents: 70145
diff changeset
328 ((eq mode :show)
c7f90876123f (mh-tool-bar-define): Fix XEmacs' vector-list so it refers to the
Bill Wohler <wohler@newt.com>
parents: 70145
diff changeset
329 mh-tool-bar-show-buttons)))
c7f90876123f (mh-tool-bar-define): Fix XEmacs' vector-list so it refers to the
Bill Wohler <wohler@newt.com>
parents: 70145
diff changeset
330 (height 37)
c7f90876123f (mh-tool-bar-define): Fix XEmacs' vector-list so it refers to the
Bill Wohler <wohler@newt.com>
parents: 70145
diff changeset
331 (width 40)
c7f90876123f (mh-tool-bar-define): Fix XEmacs' vector-list so it refers to the
Bill Wohler <wohler@newt.com>
parents: 70145
diff changeset
332 (buffer (current-buffer)))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
333 (cond
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
334 ((eq mh-xemacs-tool-bar-position 'top)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
335 (set-specifier top-toolbar tool-bar buffer)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
336 (set-specifier top-toolbar-visible-p t)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
337 (set-specifier top-toolbar-height height))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
338 ((eq mh-xemacs-tool-bar-position 'bottom)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
339 (set-specifier bottom-toolbar tool-bar buffer)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
340 (set-specifier bottom-toolbar-visible-p t)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
341 (set-specifier bottom-toolbar-height height))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
342 ((eq mh-xemacs-tool-bar-position 'left)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
343 (set-specifier left-toolbar tool-bar buffer)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
344 (set-specifier left-toolbar-visible-p t)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
345 (set-specifier left-toolbar-width width))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
346 ((eq mh-xemacs-tool-bar-position 'right)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
347 (set-specifier right-toolbar tool-bar buffer)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
348 (set-specifier right-toolbar-visible-p t)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
349 (set-specifier right-toolbar-width width))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
350 (t (set-specifier default-toolbar tool-bar buffer)))))))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
351 ;; Declare customizable tool bars
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
352 (custom-declare-variable
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
353 'mh-tool-bar-folder-buttons
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
354 '(list ,@(mapcar (lambda (x) `(quote ,x)) folder-defaults))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
355 "List of buttons to include in MH-Folder tool bar."
70114
29c303bc6423 (mh-tool-bar-define): Fix enable-expr so that one can permenently
Bill Wohler <wohler@newt.com>
parents: 69728
diff changeset
356 :group 'mh-tool-bar
29c303bc6423 (mh-tool-bar-define): Fix enable-expr so that one can permenently
Bill Wohler <wohler@newt.com>
parents: 69728
diff changeset
357 :set 'mh-tool-bar-folder-buttons-set
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
358 :type '(set ,@(loop for x in folder-buttons
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
359 for y in folder-docs
69728
fb125d0913e5 * mh-e.el (mh-defcustom, mh-defface, mh-defgroup): Macros to remove
Bill Wohler <wohler@newt.com>
parents: 69714
diff changeset
360 collect `(const :tag ,y ,x)))
fb125d0913e5 * mh-e.el (mh-defcustom, mh-defface, mh-defgroup): Macros to remove
Bill Wohler <wohler@newt.com>
parents: 69714
diff changeset
361 ;;:package-version '(MH-E "7.1")
fb125d0913e5 * mh-e.el (mh-defcustom, mh-defface, mh-defgroup): Macros to remove
Bill Wohler <wohler@newt.com>
parents: 69714
diff changeset
362 )
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
363 (custom-declare-variable
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
364 'mh-tool-bar-letter-buttons
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
365 '(list ,@(mapcar (lambda (x) `(quote ,x)) letter-defaults))
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
366 "List of buttons to include in MH-Letter tool bar."
70114
29c303bc6423 (mh-tool-bar-define): Fix enable-expr so that one can permenently
Bill Wohler <wohler@newt.com>
parents: 69728
diff changeset
367 :group 'mh-tool-bar
29c303bc6423 (mh-tool-bar-define): Fix enable-expr so that one can permenently
Bill Wohler <wohler@newt.com>
parents: 69728
diff changeset
368 :set 'mh-tool-bar-letter-buttons-set
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
369 :type '(set ,@(loop for x in letter-buttons
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
370 for y in letter-docs
69728
fb125d0913e5 * mh-e.el (mh-defcustom, mh-defface, mh-defgroup): Macros to remove
Bill Wohler <wohler@newt.com>
parents: 69714
diff changeset
371 collect `(const :tag ,y ,x)))
fb125d0913e5 * mh-e.el (mh-defcustom, mh-defface, mh-defgroup): Macros to remove
Bill Wohler <wohler@newt.com>
parents: 69714
diff changeset
372 ;;:package-version '(MH-E "7.1")
71599
c7f90876123f (mh-tool-bar-define): Fix XEmacs' vector-list so it refers to the
Bill Wohler <wohler@newt.com>
parents: 70145
diff changeset
373 ))))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
374
71599
c7f90876123f (mh-tool-bar-define): Fix XEmacs' vector-list so it refers to the
Bill Wohler <wohler@newt.com>
parents: 70145
diff changeset
375 ;; The icon names are duplicated in the Makefile and mh-xemacs.el.
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
376 (mh-tool-bar-define
69714
7ff38193167f Use clipboard-kill-region, clipboard-kill-ring-save, and
Bill Wohler <wohler@newt.com>
parents: 69245
diff changeset
377 ((:folder mh-inc-folder mh-mime-save-parts
7ff38193167f Use clipboard-kill-region, clipboard-kill-ring-save, and
Bill Wohler <wohler@newt.com>
parents: 69245
diff changeset
378 mh-previous-undeleted-msg mh-page-msg
7ff38193167f Use clipboard-kill-region, clipboard-kill-ring-save, and
Bill Wohler <wohler@newt.com>
parents: 69245
diff changeset
379 mh-next-undeleted-msg mh-delete-msg mh-refile-msg
69245
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
380 mh-undo mh-execute-commands mh-toggle-tick mh-reply
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
381 mh-alias-grab-from-field mh-send mh-rescan-folder
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
382 mh-tool-bar-search mh-visit-folder
69714
7ff38193167f Use clipboard-kill-region, clipboard-kill-ring-save, and
Bill Wohler <wohler@newt.com>
parents: 69245
diff changeset
383 mh-tool-bar-customize mh-tool-bar-folder-help
7ff38193167f Use clipboard-kill-region, clipboard-kill-ring-save, and
Bill Wohler <wohler@newt.com>
parents: 69245
diff changeset
384 mh-widen)
7ff38193167f Use clipboard-kill-region, clipboard-kill-ring-save, and
Bill Wohler <wohler@newt.com>
parents: 69245
diff changeset
385 (:letter mh-send-letter save-buffer mh-fully-kill-draft
7ff38193167f Use clipboard-kill-region, clipboard-kill-ring-save, and
Bill Wohler <wohler@newt.com>
parents: 69245
diff changeset
386 mh-compose-insertion ispell-message undo
7ff38193167f Use clipboard-kill-region, clipboard-kill-ring-save, and
Bill Wohler <wohler@newt.com>
parents: 69245
diff changeset
387 clipboard-kill-region clipboard-kill-ring-save
7ff38193167f Use clipboard-kill-region, clipboard-kill-ring-save, and
Bill Wohler <wohler@newt.com>
parents: 69245
diff changeset
388 clipboard-yank mh-tool-bar-customize
7ff38193167f Use clipboard-kill-region, clipboard-kill-ring-save, and
Bill Wohler <wohler@newt.com>
parents: 69245
diff changeset
389 mh-tool-bar-letter-help))
69245
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
390 ;; Folder/Show buffer buttons
69714
7ff38193167f Use clipboard-kill-region, clipboard-kill-ring-save, and
Bill Wohler <wohler@newt.com>
parents: 69245
diff changeset
391 (mh-inc-folder (folder) "mail/inbox" "Incorporate new mail in Inbox
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
392 This button runs `mh-inc-folder' which drags any
69245
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
393 new mail into your Inbox folder")
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
394 (mh-mime-save-parts (folder) "attach" "Save MIME parts from this message
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
395 This button runs `mh-mime-save-parts' which saves a message's
69245
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
396 different parts into separate files")
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
397 (mh-previous-undeleted-msg (folder) "left-arrow"
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
398 "Go to the previous undeleted message
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
399 This button runs `mh-previous-undeleted-msg'")
69714
7ff38193167f Use clipboard-kill-region, clipboard-kill-ring-save, and
Bill Wohler <wohler@newt.com>
parents: 69245
diff changeset
400 (mh-page-msg (folder) "next-page" "Page the current message forwards
69245
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
401 This button runs `mh-page-msg'")
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
402 (mh-next-undeleted-msg (folder) "right-arrow" "Go to the next undeleted message
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
403 The button runs `mh-next-undeleted-msg'")
69714
7ff38193167f Use clipboard-kill-region, clipboard-kill-ring-save, and
Bill Wohler <wohler@newt.com>
parents: 69245
diff changeset
404 (mh-delete-msg (folder) "delete" "Mark this message for deletion
69245
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
405 This button runs `mh-delete-msg'")
69714
7ff38193167f Use clipboard-kill-region, clipboard-kill-ring-save, and
Bill Wohler <wohler@newt.com>
parents: 69245
diff changeset
406 (mh-refile-msg (folder) "mail/move" "Refile this message
69245
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
407 This button runs `mh-refile-msg'")
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
408 (mh-undo (folder) "undo" "Undo last operation
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
409 This button runs `undo'"
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
410 (mh-outstanding-commands-p))
69714
7ff38193167f Use clipboard-kill-region, clipboard-kill-ring-save, and
Bill Wohler <wohler@newt.com>
parents: 69245
diff changeset
411 (mh-execute-commands (folder) "data-save" "Perform moves and deletes
69245
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
412 This button runs `mh-execute-commands'"
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
413 (mh-outstanding-commands-p))
69714
7ff38193167f Use clipboard-kill-region, clipboard-kill-ring-save, and
Bill Wohler <wohler@newt.com>
parents: 69245
diff changeset
414 (mh-toggle-tick (folder) "mail/flag-for-followup" "Toggle tick mark
69245
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
415 This button runs `mh-toggle-tick'")
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
416 (mh-toggle-showing (folder) "show" "Toggle showing message
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
417 This button runs `mh-toggle-showing'")
69714
7ff38193167f Use clipboard-kill-region, clipboard-kill-ring-save, and
Bill Wohler <wohler@newt.com>
parents: 69245
diff changeset
418 (mh-reply (folder) "mail/reply" "Reply to this message
7ff38193167f Use clipboard-kill-region, clipboard-kill-ring-save, and
Bill Wohler <wohler@newt.com>
parents: 69245
diff changeset
419 This button runs `mh-reply'")
69245
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
420 (mh-tool-bar-reply-from (folder) "mail/reply-from" "Reply to \"from\"")
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
421 (mh-tool-bar-reply-to (folder) "mail/reply-to" "Reply to \"to\"")
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
422 (mh-tool-bar-reply-all (folder) "mail/reply-all" "Reply to \"all\"")
69714
7ff38193167f Use clipboard-kill-region, clipboard-kill-ring-save, and
Bill Wohler <wohler@newt.com>
parents: 69245
diff changeset
423 (mh-alias-grab-from-field (folder) "contact" "Create alias for sender
69245
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
424 This button runs `mh-alias-grab-from-field'"
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
425 (and (mh-extract-from-header-value)
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
426 (not (mh-alias-for-from-p))))
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
427 (mh-send (folder) "mail/compose" "Compose new message
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
428 This button runs `mh-send'")
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
429 (mh-rescan-folder (folder) "refresh" "Rescan this folder
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
430 This button runs `mh-rescan-folder'")
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
431 (mh-pack-folder (folder) "mail/repack" "Repack this folder
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
432 This button runs `mh-pack-folder'")
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
433 (mh-tool-bar-search (folder) "search" "Search
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
434 This button runs `mh-tool-bar-search-function'")
69714
7ff38193167f Use clipboard-kill-region, clipboard-kill-ring-save, and
Bill Wohler <wohler@newt.com>
parents: 69245
diff changeset
435 (mh-visit-folder (folder) "open" "Visit other folder
69245
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
436 This button runs `mh-visit-folder'")
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
437 ;; Letter buffer buttons
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
438 (mh-send-letter (letter) "mail/send" "Send this letter")
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
439 (save-buffer (letter) "save" "Save current buffer to its file"
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
440 (buffer-modified-p))
69714
7ff38193167f Use clipboard-kill-region, clipboard-kill-ring-save, and
Bill Wohler <wohler@newt.com>
parents: 69245
diff changeset
441 (mh-fully-kill-draft (letter) "delete" "Kill this draft")
7ff38193167f Use clipboard-kill-region, clipboard-kill-ring-save, and
Bill Wohler <wohler@newt.com>
parents: 69245
diff changeset
442 (mh-compose-insertion (letter) "attach" "Insert attachment")
7ff38193167f Use clipboard-kill-region, clipboard-kill-ring-save, and
Bill Wohler <wohler@newt.com>
parents: 69245
diff changeset
443 (ispell-message (letter) "spell" "Check spelling")
69245
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
444 (undo (letter) "undo" "Undo last operation")
69714
7ff38193167f Use clipboard-kill-region, clipboard-kill-ring-save, and
Bill Wohler <wohler@newt.com>
parents: 69245
diff changeset
445 (clipboard-kill-region (letter) "cut"
7ff38193167f Use clipboard-kill-region, clipboard-kill-ring-save, and
Bill Wohler <wohler@newt.com>
parents: 69245
diff changeset
446 "Cut (kill) text in region")
7ff38193167f Use clipboard-kill-region, clipboard-kill-ring-save, and
Bill Wohler <wohler@newt.com>
parents: 69245
diff changeset
447 (clipboard-kill-ring-save (letter) "copy"
7ff38193167f Use clipboard-kill-region, clipboard-kill-ring-save, and
Bill Wohler <wohler@newt.com>
parents: 69245
diff changeset
448 "Copy text in region")
7ff38193167f Use clipboard-kill-region, clipboard-kill-ring-save, and
Bill Wohler <wohler@newt.com>
parents: 69245
diff changeset
449 (clipboard-yank (letter) "paste"
7ff38193167f Use clipboard-kill-region, clipboard-kill-ring-save, and
Bill Wohler <wohler@newt.com>
parents: 69245
diff changeset
450 "Paste (yank) text cut or copied earlier")
69245
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
451 ;; Common buttons
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
452 (mh-tool-bar-customize (folder letter) "preferences" "MH-E Preferences")
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
453 (mh-tool-bar-folder-help (folder) "help" "Help! (general help)
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
454 This button runs `info'")
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
455 (mh-tool-bar-letter-help (letter) "help" "Help! (general help)
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
456 This button runs `info'")
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
457 ;; Folder narrowed to sequence buttons
69714
7ff38193167f Use clipboard-kill-region, clipboard-kill-ring-save, and
Bill Wohler <wohler@newt.com>
parents: 69245
diff changeset
458 (mh-widen (sequence) "zoom-out" "Widen from the sequence
69245
f3bbf5f32462 * mh-folder.el (mh-tool-bar-init): Autoload.
Bill Wohler <wohler@newt.com>
parents: 68597
diff changeset
459 This button runs `mh-widen'"))
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
460
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
461 (provide 'mh-tool-bar)
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
462
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
463 ;; Local Variables:
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
464 ;; indent-tabs-mode: nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
465 ;; sentence-end-double-space: nil
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
466 ;; End:
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
467
68470
4bd450a8dbe2 Add arch tagline
Miles Bader <miles@gnu.org>
parents: 68465
diff changeset
468 ;; arch-tag: 28c2436d-bb8d-486a-a8d7-5a4d9cae3513
68465
37d03b3298bf The Great Cleanup
Bill Wohler <wohler@newt.com>
parents:
diff changeset
469 ;;; mh-tool-bar.el ends here