Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-toolbar.el @ 118:7d55a9ba150c r20-1b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b11
author cvs
date Mon, 13 Aug 2007 09:24:17 +0200
parents 4be1180a9e89
children 1370575f1259
comparison
equal deleted inserted replaced
117:578fd4947a72 118:7d55a9ba150c
23 [vm-toolbar-next-icon 23 [vm-toolbar-next-icon
24 vm-toolbar-next-command 24 vm-toolbar-next-command
25 (vm-toolbar-any-messages-p) 25 (vm-toolbar-any-messages-p)
26 "Go to the next message.\n 26 "Go to the next message.\n
27 The command `vm-toolbar-next-command' is run, which is normally 27 The command `vm-toolbar-next-command' is run, which is normally
28 bound to `vm-next-message'. 28 fbound to `vm-next-message'.
29 You can make this button run some other command by using a Lisp 29 You can make this button run some other command by using a Lisp
30 s-expression like this one in your .vm file: 30 s-expression like this one in your .vm file:
31 (fset 'vm-toolbar-next-command 'some-other-command)"]) 31 (fset 'vm-toolbar-next-command 'some-other-command)"])
32 (defvar vm-toolbar-next-icon nil) 32 (defvar vm-toolbar-next-icon nil)
33 (or (fboundp 'vm-toolbar-next-command) 33 (or (fboundp 'vm-toolbar-next-command)
37 [vm-toolbar-previous-icon 37 [vm-toolbar-previous-icon
38 vm-toolbar-previous-command 38 vm-toolbar-previous-command
39 (vm-toolbar-any-messages-p) 39 (vm-toolbar-any-messages-p)
40 "Go to the previous message.\n 40 "Go to the previous message.\n
41 The command `vm-toolbar-previous-command' is run, which is normally 41 The command `vm-toolbar-previous-command' is run, which is normally
42 bound to `vm-previous-message'. 42 fbound to `vm-previous-message'.
43 You can make this button run some other command by using a Lisp 43 You can make this button run some other command by using a Lisp
44 s-expression like this one in your .vm file: 44 s-expression like this one in your .vm file:
45 (fset 'vm-toolbar-previous-command 'some-other-command)"]) 45 (fset 'vm-toolbar-previous-command 'some-other-command)"])
46 (defvar vm-toolbar-previous-icon nil) 46 (defvar vm-toolbar-previous-icon nil)
47 (or (fboundp 'vm-toolbar-previous-command) 47 (or (fboundp 'vm-toolbar-previous-command)
56 56
57 (defvar vm-toolbar-file-button 57 (defvar vm-toolbar-file-button
58 [vm-toolbar-file-icon vm-toolbar-file-command (vm-toolbar-any-messages-p) 58 [vm-toolbar-file-icon vm-toolbar-file-command (vm-toolbar-any-messages-p)
59 "Save the current message to a folder.\n 59 "Save the current message to a folder.\n
60 The command `vm-toolbar-file-command' is run, which is normally 60 The command `vm-toolbar-file-command' is run, which is normally
61 bound to `vm-save-message'. 61 fbound to `vm-save-message'.
62 You can make this button run some other command by using a Lisp 62 You can make this button run some other command by using a Lisp
63 s-expression like this one in your .vm file: 63 s-expression like this one in your .vm file:
64 (fset 'vm-toolbar-file-command 'some-other-command)"]) 64 (fset 'vm-toolbar-file-command 'some-other-command)"])
65 (defvar vm-toolbar-file-icon nil) 65 (defvar vm-toolbar-file-icon nil)
66 (or (fboundp 'vm-toolbar-file-command) 66 (or (fboundp 'vm-toolbar-file-command)
69 (defvar vm-toolbar-getmail-button 69 (defvar vm-toolbar-getmail-button
70 [vm-toolbar-getmail-icon vm-toolbar-getmail-command 70 [vm-toolbar-getmail-icon vm-toolbar-getmail-command
71 (vm-toolbar-mail-waiting-p) 71 (vm-toolbar-mail-waiting-p)
72 "Retrieve spooled mail for the current folder.\n 72 "Retrieve spooled mail for the current folder.\n
73 The command `vm-toolbar-getmail-command' is run, which is normally 73 The command `vm-toolbar-getmail-command' is run, which is normally
74 bound to `vm-get-new-mail'. 74 fbound to `vm-get-new-mail'.
75 You can make this button run some other command by using a Lisp 75 You can make this button run some other command by using a Lisp
76 s-expression like this one in your .vm file: 76 s-expression like this one in your .vm file:
77 (fset 'vm-toolbar-getmail-command 'some-other-command)"]) 77 (fset 'vm-toolbar-getmail-command 'some-other-command)"])
78 (defvar vm-toolbar-getmail-icon nil) 78 (defvar vm-toolbar-getmail-icon nil)
79 (or (fboundp 'vm-toolbar-getmail-command) 79 (or (fboundp 'vm-toolbar-getmail-command)
83 [vm-toolbar-print-icon 83 [vm-toolbar-print-icon
84 vm-toolbar-print-command 84 vm-toolbar-print-command
85 (vm-toolbar-any-messages-p) 85 (vm-toolbar-any-messages-p)
86 "Print the current message.\n 86 "Print the current message.\n
87 The command `vm-toolbar-print-command' is run, which is normally 87 The command `vm-toolbar-print-command' is run, which is normally
88 bound to `vm-print-message'. 88 fbound to `vm-print-message'.
89 You can make this button run some other command by using a Lisp 89 You can make this button run some other command by using a Lisp
90 s-expression like this one in your .vm file: 90 s-expression like this one in your .vm file:
91 (fset 'vm-toolbar-print-command 'some-other-command)"]) 91 (fset 'vm-toolbar-print-command 'some-other-command)"])
92 (defvar vm-toolbar-print-icon nil) 92 (defvar vm-toolbar-print-icon nil)
93 (or (fboundp 'vm-toolbar-print-command) 93 (or (fboundp 'vm-toolbar-print-command)
95 95
96 (defvar vm-toolbar-visit-button 96 (defvar vm-toolbar-visit-button
97 [vm-toolbar-visit-icon vm-toolbar-visit-command t 97 [vm-toolbar-visit-icon vm-toolbar-visit-command t
98 "Visit a different folder.\n 98 "Visit a different folder.\n
99 The command `vm-toolbar-visit-command' is run, which is normally 99 The command `vm-toolbar-visit-command' is run, which is normally
100 bound to `vm-visit-folder'. 100 fbound to `vm-visit-folder'.
101 You can make this button run some other command by using a Lisp 101 You can make this button run some other command by using a Lisp
102 s-expression like this one in your .vm file: 102 s-expression like this one in your .vm file:
103 (fset 'vm-toolbar-visit-command 'some-other-command)"]) 103 (fset 'vm-toolbar-visit-command 'some-other-command)"])
104 (defvar vm-toolbar-visit-icon nil) 104 (defvar vm-toolbar-visit-icon nil)
105 (or (fboundp 'vm-toolbar-visit-command) 105 (or (fboundp 'vm-toolbar-visit-command)
109 [vm-toolbar-reply-icon 109 [vm-toolbar-reply-icon
110 vm-toolbar-reply-command 110 vm-toolbar-reply-command
111 (vm-toolbar-any-messages-p) 111 (vm-toolbar-any-messages-p)
112 "Reply to the current message.\n 112 "Reply to the current message.\n
113 The command `vm-toolbar-reply-command' is run, which is normally 113 The command `vm-toolbar-reply-command' is run, which is normally
114 bound to `vm-followup-include-text'. 114 fbound to `vm-followup-include-text'.
115 You can make this button run some other command by using a Lisp 115 You can make this button run some other command by using a Lisp
116 s-expression like this one in your .vm file: 116 s-expression like this one in your .vm file:
117 (fset 'vm-toolbar-reply-command 'some-other-command)"]) 117 (fset 'vm-toolbar-reply-command 'some-other-command)"])
118 (defvar vm-toolbar-reply-icon nil) 118 (defvar vm-toolbar-reply-icon nil)
119 (or (fboundp 'vm-toolbar-reply-command) 119 (or (fboundp 'vm-toolbar-reply-command)
121 121
122 (defvar vm-toolbar-compose-button 122 (defvar vm-toolbar-compose-button
123 [vm-toolbar-compose-icon vm-toolbar-compose-command t 123 [vm-toolbar-compose-icon vm-toolbar-compose-command t
124 "Compose a new message.\n 124 "Compose a new message.\n
125 The command `vm-toolbar-compose-command' is run, which is normally 125 The command `vm-toolbar-compose-command' is run, which is normally
126 bound to `vm-mail'. 126 fbound to `vm-mail'.
127 You can make this button run some other command by using a Lisp 127 You can make this button run some other command by using a Lisp
128 s-expression like this one in your .vm file: 128 s-expression like this one in your .vm file:
129 (fset 'vm-toolbar-compose-command 'some-other-command)"]) 129 (fset 'vm-toolbar-compose-command 'some-other-command)"])
130 (defvar vm-toolbar-compose-icon nil) 130 (defvar vm-toolbar-compose-icon nil)
131 (or (fboundp 'vm-toolbar-compose-command) 131 (or (fboundp 'vm-toolbar-compose-command)
139 displayed that you need to click on to view the object. See the 139 displayed that you need to click on to view the object. See the
140 documentation for the variables vm-mime-internal-content-types 140 documentation for the variables vm-mime-internal-content-types
141 and vm-mime-external-content-types-alist to see how to control 141 and vm-mime-external-content-types-alist to see how to control
142 whether you see buttons or objects.\n 142 whether you see buttons or objects.\n
143 The command `vm-toolbar-decode-mime-command' is run, which is normally 143 The command `vm-toolbar-decode-mime-command' is run, which is normally
144 bound to `vm-decode-mime-messages'. 144 fbound to `vm-decode-mime-messages'.
145 You can make this button run some other command by using a Lisp 145 You can make this button run some other command by using a Lisp
146 s-expression like this one in your .vm file: 146 s-expression like this one in your .vm file:
147 (fset 'vm-toolbar-decode-mime-command 'some-other-command)"]) 147 (fset 'vm-toolbar-decode-mime-command 'some-other-command)"])
148 (defvar vm-toolbar-decode-mime-icon nil) 148 (defvar vm-toolbar-decode-mime-icon nil)
149 (or (fboundp 'vm-toolbar-decode-mime-command) 149 (or (fboundp 'vm-toolbar-decode-mime-command)
188 (defvar vm-toolbar-quit-button 188 (defvar vm-toolbar-quit-button
189 [vm-toolbar-quit-icon vm-toolbar-quit-command 189 [vm-toolbar-quit-icon vm-toolbar-quit-command
190 (vm-toolbar-can-quit-p) 190 (vm-toolbar-can-quit-p)
191 "Quit visiting this folder.\n 191 "Quit visiting this folder.\n
192 The command `vm-toolbar-quit-command' is run, which is normally 192 The command `vm-toolbar-quit-command' is run, which is normally
193 bound to `vm-quit'. 193 fbound to `vm-quit'.
194 You can make this button run some other command by using a Lisp 194 You can make this button run some other command by using a Lisp
195 s-expression like this one in your .vm file: 195 s-expression like this one in your .vm file:
196 (fset 'vm-toolbar-quit-command 'some-other-command)"]) 196 (fset 'vm-toolbar-quit-command 'some-other-command)"])
197 (defvar vm-toolbar-quit-icon nil) 197 (defvar vm-toolbar-quit-icon nil)
198 (or (fboundp 'vm-toolbar-quit-command) 198 (or (fboundp 'vm-toolbar-quit-command)