|
0
|
1 ;;; VM user and internal variable initialization
|
|
98
|
2 ;;; Copyright (C) 1989-1997 Kyle E. Jones
|
|
0
|
3 ;;;
|
|
|
4 ;;; This program is free software; you can redistribute it and/or modify
|
|
|
5 ;;; it under the terms of the GNU General Public License as published by
|
|
|
6 ;;; the Free Software Foundation; either version 1, or (at your option)
|
|
|
7 ;;; any later version.
|
|
|
8 ;;;
|
|
|
9 ;;; This program is distributed in the hope that it will be useful,
|
|
|
10 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
11 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
12 ;;; GNU General Public License for more details.
|
|
|
13 ;;;
|
|
|
14 ;;; You should have received a copy of the GNU General Public License
|
|
|
15 ;;; along with this program; if not, write to the Free Software
|
|
|
16 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
|
17
|
|
|
18 (provide 'vm-vars)
|
|
|
19
|
|
|
20 (defvar vm-init-file "~/.vm"
|
|
|
21 "*Startup file for VM that is loaded the first time you run VM
|
|
|
22 in an Emacs session.")
|
|
|
23
|
|
98
|
24 (defvar vm-preferences-file "~/.vm.preferences"
|
|
0
|
25 "*Secondary startup file for VM, loaded after vm-init-file.
|
|
|
26 This file is written and overwritten by VM and is not meant for
|
|
98
|
27 users to edit directly.")
|
|
0
|
28
|
|
|
29 (defvar vm-primary-inbox "~/INBOX"
|
|
|
30 "*Mail is moved from the system mailbox to this file for reading.")
|
|
|
31
|
|
|
32 (defvar vm-crash-box "~/INBOX.CRASH"
|
|
|
33 "*File in which to store mail temporarily while it is transferred from
|
|
|
34 the system mailbox to the primary inbox. If a crash occurs
|
|
|
35 during this mail transfer, any missing mail will be found in this
|
|
|
36 file. VM will do crash recovery from this file automatically at
|
|
|
37 startup, as necessary.")
|
|
|
38
|
|
|
39 (defvar vm-keep-crash-boxes nil
|
|
|
40 "*Non-nil value should be a string specifying a directory where
|
|
|
41 your crash boxes should be moved after VM has copied new mail
|
|
|
42 out of them. This is a safety measure. In at least one case a
|
|
|
43 pointer corruption bug inside Emacs has caused VM to believe that
|
|
|
44 it had copied information out of the crash box when it in fact
|
|
|
45 had not. VM then deleted the crash box, losing the batch of
|
|
|
46 incoming mail. This is an exceedingly rare problem, but if you
|
|
|
47 want to avoid losing mail if it happens, set vm-keep-crash-boxes
|
|
|
48 to point to a directory in the same filesystem as all your
|
|
|
49 crash boxes. Each saved crash box will have a unique name based
|
|
|
50 on the current date and time the box was saved. You will need to
|
|
|
51 clean out this directory from time to time; VM does not do so.
|
|
|
52
|
|
|
53 A nil value means VM should just delete crash boxes after it
|
|
|
54 has copied out the mail.")
|
|
|
55
|
|
|
56 ;; use this function to access vm-spool-files on the fly. this
|
|
|
57 ;; allows us to use environmental variables without setting
|
|
|
58 ;; vm-spool-files at load time and thereby making it hard to dump an
|
|
|
59 ;; Emacs containing a preloaded VM.
|
|
|
60 (defun vm-spool-files ()
|
|
|
61 (or vm-spool-files
|
|
|
62 (and (setq vm-spool-files (getenv "MAILPATH"))
|
|
|
63 (setq vm-spool-files
|
|
|
64 (vm-parse vm-spool-files
|
|
|
65 "\\([^:%?]+\\)\\([%?][^:]*\\)?\\(:\\|$\\)")))
|
|
|
66 (and (setq vm-spool-files (getenv "MAIL"))
|
|
|
67 (setq vm-spool-files (list vm-spool-files)))))
|
|
|
68
|
|
|
69 (defvar vm-spool-files nil
|
|
|
70 "*If non-nil this variable's value should be a list of strings
|
|
|
71 or a list of lists.
|
|
|
72
|
|
|
73 If the value is a list of strings, the strings should name files
|
|
|
74 that VM will check for incoming mail instead of the default place
|
|
|
75 VM thinks your system mailbox is. Mail will be moved from these
|
|
|
76 mailboxes to your primary inbox as specified by vm-primary-inbox,
|
|
|
77 using vm-crash-box as a waystation.
|
|
|
78
|
|
|
79 If the value is a list of lists, each sublist should be of the form
|
|
|
80
|
|
|
81 (INBOX SPOOLNAME CRASHBOX)
|
|
|
82
|
|
|
83 INBOX, SPOOLNAME and CRASHBOX are all strings.
|
|
|
84
|
|
|
85 INBOX is the folder where you want your new mail to be moved when
|
|
|
86 you type 'g' (running vm-get-new-mail) in VM. It is where you
|
|
|
87 will read the mail.
|
|
|
88
|
|
|
89 SPOOLNAME is where the mail system leaves your incoming mail,
|
|
|
90 e.g. /var/spool/mail/kyle. It can also be a POP maildrop,
|
|
|
91 provided it can be matched by the value of vm-recognize-pop-maildrops.
|
|
|
92
|
|
|
93 A POP maildrop specification has the following format:
|
|
|
94
|
|
|
95 \"HOST:PORT:AUTH:USER:PASSWORD\"
|
|
|
96
|
|
|
97 HOST is the host name of the POP server
|
|
|
98 PORT is the TCP port number to connect to (should normally be 110).
|
|
|
99 USER is the user name sent to the server.
|
|
|
100 PASSWORD is the secret shared by you and the server for
|
|
|
101 authentication purposes. How is it used depends on the value of
|
|
|
102 the AUTH parameter. If the PASSWORD is \"*\", VM will prompt
|
|
|
103 you for the password the first time you try to retrieve mail from
|
|
|
104 maildrop. If the password is valid, VM will not ask you for the
|
|
|
105 password again during this Emacs session.
|
|
|
106
|
|
|
107 AUTH is the authentication method used to convince the server you
|
|
|
108 should have access to the maildrop. Acceptable values are
|
|
|
109 \"pass\", \"rpop\" and \"apop\". For \"pass\", the PASSWORD is sent to
|
|
|
110 the server with the POP PASS command. For \"rpop\", the PASSWORD
|
|
|
111 should be the string to be sent to the server via the RPOP
|
|
|
112 command. In this case the string is not really a secret;
|
|
|
113 authentication is done by other means. For \"apop\", an MD5 digest
|
|
|
114 of the PASSWORD appended to the server timestamp will be sent to
|
|
|
115 the server with the APOP command. In order to use \"apop\" you
|
|
|
116 will have to set the value of vm-pop-md5-program appropriately to
|
|
|
117 point at the program that will generate the MD5 digest that VM
|
|
|
118 needs.
|
|
|
119
|
|
|
120 CRASHBOX is the temporary file that VM uses to store mail in
|
|
|
121 between the SPOOLNAME and the INBOX. If the system crashes or
|
|
|
122 Emacs dies while mail is being moved, and the new mail is not in
|
|
|
123 the SPOOLNAME or the INBOX, then it will be in the CRASHBOX.
|
|
|
124
|
|
|
125 There can be multiple entries with the same INBOX value, but a
|
|
|
126 particular SPOOLNAME should appear only once. CRASHBOXes should
|
|
|
127 not be shared among different INBOXes, but you can use the same
|
|
|
128 CRASHBOX/INBOX pair with a different SPOOLNAME.
|
|
|
129
|
|
|
130 NOTE: The values of vm-primary-inbox and vm-crash-box are ignored
|
|
|
131 when getting new mail if vm-spool-files is a list of lists.
|
|
|
132
|
|
|
133 vm-spool-files will default to the value of the shell
|
|
|
134 environmental variables MAILPATH or MAIL if either of these
|
|
|
135 variables are defined and no particular value for vm-spool-files
|
|
|
136 has been specified.")
|
|
|
137
|
|
98
|
138 (defvar vm-spool-file-suffixes nil
|
|
|
139 "*List of suffixes to be used to create possible spool file names
|
|
|
140 for folders. Example:
|
|
|
141
|
|
|
142 (setq vm-spool-file-suffixes '(\".spool\" \"-\"))
|
|
|
143
|
|
|
144 If you visit a folder ~/mail/beekeeping, when VM attempts to
|
|
|
145 retrieve new mail for that folder it will look for mail in
|
|
|
146 ~/mail/beekeeping.spool and ~/mail/beekeeping- in addition to
|
|
|
147 scanning vm-spool-files for matches.
|
|
|
148
|
|
|
149 The value of vm-spool-files-suffixes will not be used unless
|
|
|
150 vm-crash-box-suffix is also defined, since a crash box is
|
|
|
151 required for all mail retrieval from spool files.")
|
|
|
152
|
|
|
153 (defvar vm-crash-box-suffix nil
|
|
|
154 "*String suffix used to create possible crash box file names for folders.
|
|
|
155 When VM uses vm-spool-file-suffixes to create a spool file name,
|
|
|
156 it will append the value of vm-crash-box-suffix to the folder's
|
|
|
157 file name to create a crash box name.")
|
|
|
158
|
|
|
159 (defvar vm-make-spool-file-name nil
|
|
|
160 "*Non-nil value should be a function that returns a spool file name
|
|
|
161 for a folder. The function will be called with one argument, the
|
|
|
162 folder's file name. If the folder does not have a file name,
|
|
|
163 the function will not be called.")
|
|
|
164
|
|
|
165 (defvar vm-make-crash-box-name nil
|
|
|
166 "*Non-nil value should be a function that returns a crash box file name
|
|
|
167 for a folder. The function will be called with one argument, the
|
|
|
168 folder's file name. If the folder does not have a file name,
|
|
|
169 the function will not be called.")
|
|
|
170
|
|
0
|
171 (defvar vm-pop-md5-program "md5"
|
|
|
172 "*Program that reads a message on its standard input and writes an
|
|
|
173 MD5 digest on its output.")
|
|
|
174
|
|
100
|
175 (defvar vm-pop-max-message-size nil
|
|
|
176 "*If VM is about to retrieve via POP a message larger than this size
|
|
|
177 (in bytes) it will ask the you whether it should retrieve the message.
|
|
|
178
|
|
|
179 If VM is retrieving mail automatically because vm-auto-get-new-mail is
|
|
|
180 set to a numeric value then you will not be prompted about large messages.
|
|
|
181 This is to avoid prompting you while you're typing in another buffer.
|
|
|
182 In this case the large message will be skipped with a warning
|
|
|
183 message.
|
|
|
184
|
|
|
185 A nil value for vm-pop-max-message-size means no size limit.")
|
|
|
186
|
|
|
187 (defvar vm-pop-messages-per-session nil
|
|
|
188 "*Non-nil value should be a integer specifying how many messages to
|
|
|
189 retrieve per POP session. When you type 'g' to get new mail, VM
|
|
|
190 will only retrieve that many messages from any particular POP maildrop.
|
|
|
191 To retrieve more messages, type 'g' again.
|
|
|
192
|
|
|
193 A nil value means there's no limit.")
|
|
|
194
|
|
|
195 (defvar vm-pop-bytes-per-session nil
|
|
|
196 "*Non-nil value should be a integer specifying how many bytes to
|
|
|
197 retrieve per POP session. When you type 'g' to get new mail, VM
|
|
|
198 will only retrieve messages until the byte limit is reached on
|
|
|
199 any particular POP maildrop. To retrieve more messages, type 'g'
|
|
|
200 again.
|
|
|
201
|
|
|
202 A nil value means there's no limit.")
|
|
|
203
|
|
0
|
204 (defvar vm-recognize-pop-maildrops "^[^:]+:[^:]+:[^:]+:[^:]+:[^:]+"
|
|
|
205 "*Value if non-nil should be a regular expression that matches
|
|
|
206 spool names found in vm-spool-files that should be considered POP
|
|
|
207 maildrops. A nil value tells VM that all the spool names are to
|
|
|
208 be considered files.")
|
|
|
209
|
|
|
210 (defvar vm-auto-get-new-mail t
|
|
|
211 "*Non-nil value causes VM to automatically move mail from spool files
|
|
|
212 to a mail folder when the folder is first visited. Nil means
|
|
|
213 you must always use vm-get-new-mail to pull in newly arrived messages.
|
|
|
214
|
|
|
215 If the value is a number, then it specifies how often (in
|
|
|
216 seconds) VM should check for new mail and try to retrieve it.
|
|
|
217 This is done asynchronously and may occur while you are editing
|
|
|
218 other files. It should not disturb your editing, except perhaps
|
|
98
|
219 for a pause while the check is being done.")
|
|
24
|
220
|
|
100
|
221 (defvar vm-mail-check-interval 300
|
|
|
222 "*Numeric value specifies the number of seconds between checks
|
|
|
223 for new mail. The maildrops for all visited folders are checked.
|
|
175
|
224
|
|
|
225 A nil value means don't check for new mail.
|
|
|
226
|
|
|
227 Note that mail if new mail is found, it is not retrieved. The
|
|
|
228 buffer local variable vm-spooled-mail-waiting is set non-nil in
|
|
|
229 the buffers of those folders that have mail waiting. VM uses
|
|
|
230 the displays \"Mail\" in the mode line of folders that have mail
|
|
|
231 waiting.")
|
|
100
|
232
|
|
|
233 (defvar vm-spooled-mail-waiting nil
|
|
|
234 "Value is non-nil if there is mail waiting for the current folder.
|
|
|
235 This variable's value is local in all buffers.
|
|
|
236 VM maintains this variable, you should not set it.")
|
|
|
237 (make-variable-buffer-local 'vm-spooled-mail-waiting)
|
|
|
238
|
|
0
|
239 (defvar vm-default-folder-type
|
|
|
240 (cond ((not (boundp 'system-configuration))
|
|
|
241 'From_)
|
|
|
242 ((or (string-match "-solaris" system-configuration)
|
|
|
243 (string-match "usg-unix-v" system-configuration)
|
|
|
244 (string-match "-ibm-aix" system-configuration))
|
|
|
245 'From_-with-Content-Length)
|
|
|
246 ((string-match "-sco" system-configuration)
|
|
|
247 'mmdf)
|
|
|
248 (t 'From_))
|
|
|
249 "*Default folder type for empty folders.
|
|
|
250 If VM has to add messages that have no specific folder type to an
|
|
|
251 empty folder, the folder will become this default type.
|
|
|
252 Allowed types are:
|
|
|
253
|
|
|
254 From_
|
|
|
255 From_-with-Content-Length
|
|
|
256 mmdf
|
|
|
257 babyl
|
|
|
258
|
|
|
259 Value must be a symbol, not a string. i.e. write
|
|
|
260
|
|
|
261 (setq vm-default-folder-type 'From_)
|
|
|
262
|
|
|
263 in your .emacs or .vm file.
|
|
|
264
|
|
|
265 If you set this variable's value to From_-with-Content-Length you
|
|
|
266 must set vm-trust-From_-with-Content-Length non-nil.")
|
|
|
267
|
|
|
268 (defvar vm-check-folder-types t
|
|
|
269 "*Non-nil value causes VM to check folder and message types for
|
|
|
270 compatibility before it performs certain operations.
|
|
|
271
|
|
|
272 Before saving a message to a folder, VM will check that the destination folder
|
|
|
273 is of the same type as the message to be saved.
|
|
|
274
|
|
|
275 Before incorporating message into a visited folder, VM will check that the
|
|
|
276 messages are of the same type as that folder.
|
|
|
277
|
|
|
278 A nil value means don't do the checks.
|
|
|
279
|
|
120
|
280 If non-nil, VM will either convert the messages to the appropriate
|
|
|
281 type before saving or incorporating them, or it will signal an
|
|
|
282 error. The value of vm-convert-folder-types determines which
|
|
|
283 action VM will take.")
|
|
0
|
284
|
|
|
285 (defvar vm-convert-folder-types t
|
|
|
286 "*Non-nil value means that when VM checks folder types and finds
|
|
|
287 a mismatch (see vm-check-folder-types), it will convert the
|
|
|
288 source messages to the type of the destination folder, if it can.
|
|
|
289
|
|
|
290 If vm-check-folder-types is nil, then this variable isn't
|
|
|
291 consulted.")
|
|
|
292
|
|
|
293 (defvar vm-trust-From_-with-Content-Length
|
|
|
294 (eq vm-default-folder-type 'From_-with-Content-Length)
|
|
|
295 "*Non-nil value means that if the first message in a folder contains
|
|
|
296 a Content-Length header and begins with \"From \" VM can safely
|
|
|
297 assume that all messages in the folder have Content-Length headers
|
|
|
298 that specify the length of the text section of each message. VM
|
|
|
299 will then use these headers to determine message boundaries
|
|
|
300 instead of the usual way of searching for two newlines followed by a
|
|
|
301 line that begins with \"From \".
|
|
|
302
|
|
|
303 If you set vm-default-folder-type to From_-with-Content-Length you
|
|
|
304 must set this variable non-nil.")
|
|
|
305
|
|
|
306 (defvar vm-visible-headers
|
|
|
307 '("Resent-"
|
|
|
308 "From:" "Sender:"
|
|
|
309 "To:" "Apparently-To:" "Cc:"
|
|
|
310 "Subject:"
|
|
|
311 "Date:")
|
|
|
312 "*List of headers that should be visible when VM first displays a message.
|
|
|
313 These should be listed in the order you wish them presented.
|
|
|
314 Regular expressions are allowed. There's no need to anchor
|
|
|
315 patterns with \"^\", as searches always start at the beginning of
|
|
|
316 a line. Put a colon at the end of patterns to get exact matches.
|
|
|
317 For example, \"Date\" matches \"Date\" and \"Date-Sent\". Header names
|
|
|
318 are always matched case insensitively.
|
|
|
319
|
|
|
320 If the value of vm-invisible-header-regexp is nil, only the
|
|
|
321 headers matched by vm-visible-headers will be displayed.
|
|
|
322 Otherwise all headers are displayed except those matched by
|
|
|
323 vm-invisible-header-regexp. In this case vm-visible-headers
|
|
|
324 specifies the order in which headers are displayed. Headers not
|
|
|
325 matching vm-visible-headers are display last.")
|
|
|
326
|
|
|
327 (defvar vm-invisible-header-regexp nil
|
|
|
328 "*Non-nil value should be a regular expression that tells what headers
|
|
|
329 VM should NOT normally display when presenting a message. All other
|
|
|
330 headers will be displayed. The variable vm-visible-headers specifies
|
|
|
331 the presentation order of headers; headers not matched by
|
|
|
332 vm-visible-headers are displayed last.
|
|
|
333
|
|
|
334 Nil value causes VM to display ONLY those headers specified in
|
|
|
335 vm-visible-headers.")
|
|
|
336
|
|
|
337 (defvar vm-highlighted-header-regexp nil
|
|
|
338 "*Value specifies which headers to highlight.
|
|
|
339 This is a regular expression that matches the names of headers that should
|
|
|
340 be highlighted when a message is first presented. For example setting
|
|
|
341 this variable to \"From:\\\\|Subject:\" causes the From and Subject
|
|
|
342 headers to be highlighted.
|
|
|
343
|
|
|
344 This does not work under version 18 Emacs.
|
|
|
345
|
|
|
346 If you're using XEmacs, you might want to use the builtin
|
|
|
347 `highlight-headers' package instead. If so, then you should set
|
|
|
348 the variable vm-use-lucid-highlighting non-nil. You'll need to
|
|
|
349 set the various variables used by the highlight-headers package
|
|
|
350 to customize highlighting. vm-highlighted-header-regexp is
|
|
|
351 ignored in this case.")
|
|
|
352
|
|
|
353 (defvar vm-use-lucid-highlighting
|
|
|
354 ;; (not (not ...)) to avoid the confusing value of 6.
|
|
|
355 (not (not (string-match "XEmacs" emacs-version)))
|
|
|
356 "*Non-nil means to use the `highlight-headers' package in XEmacs.
|
|
|
357 Nil means just use VM's builtin header highlighting code.
|
|
|
358
|
|
|
359 FSF Emacs always uses VM's builtin highlighting code.")
|
|
|
360
|
|
|
361 (defvar vm-highlighted-header-face 'bold
|
|
|
362 "*Face to be used to highlight headers.
|
|
126
|
363 The headers to highlight are specified by the vm-highlighted-header-regexp
|
|
98
|
364 variable.
|
|
|
365
|
|
|
366 This variable is ignored under XEmacs if vm-use-lucid-highlighting is
|
|
|
367 nil. XEmacs' highlight-headers package is used instead. See the
|
|
|
368 documentation for the function `highlight-headers' to find out how to
|
|
|
369 customize header highlighting using this package.")
|
|
0
|
370
|
|
|
371 (defvar vm-preview-lines 0
|
|
|
372 "*Non-nil value N causes VM to display the visible headers + N lines of text
|
|
|
373 of a message when it is first presented. The message is not actually
|
|
|
374 flagged as read until it is exposed in its entirety.
|
|
|
375
|
|
|
376 A value of t causes VM to display as much of the message as will
|
|
|
377 fit in the window associated with the folder buffer.
|
|
|
378
|
|
|
379 A nil value causes VM not to preview messages; no text lines are hidden and
|
|
|
380 messages are immediately flagged as read.")
|
|
|
381
|
|
|
382 (defvar vm-preview-read-messages nil
|
|
|
383 "*Non-nil value means to preview messages even if they've already been read.
|
|
|
384 A nil value causes VM to preview messages only if new or unread.")
|
|
|
385
|
|
98
|
386 (defvar vm-display-using-mime t
|
|
|
387 "*Non-nil value means VM should display messages using MIME.
|
|
|
388 MIME (Multipurpose Internet Mail Extensions) is a set of
|
|
|
389 extensions to the standard Internet message format that allows
|
|
|
390 reliable tranmission and reception of arbitrary data including
|
|
114
|
391 images, audio and video as well as ordinary text.
|
|
98
|
392
|
|
|
393 A non-nil value for this variable means that VM will recognize
|
|
|
394 MIME encoded messages and display them as specified by the
|
|
|
395 various MIME standards specifications.
|
|
|
396
|
|
|
397 A nil value means VM will not display MIME messages any
|
|
|
398 differently than any other message.")
|
|
|
399
|
|
126
|
400 ;; this is t because at this time (11 April 1997) Solaris is
|
|
|
401 ;; generated too many mangled MIME version headers. For the same
|
|
|
402 ;; reason vm-mime-avoid-folding-content-type is also set to t.
|
|
|
403 (defvar vm-mime-ignore-mime-version t
|
|
114
|
404 "*Non-nil value means ignore the version number in the MIME-Version
|
|
|
405 header. VM only knows how to decode and display MIME version 1.0
|
|
|
406 messages. Some systems scramble the MIME-Version header, causing
|
|
|
407 VM to believe that it cannot display a message that it actually
|
|
|
408 can display. You can set vm-mime-ignore-mime-version non-nil if
|
|
|
409 you use such systems.")
|
|
|
410
|
|
98
|
411 ;; try to avoid bad interaction with TM
|
|
|
412 (defvar vm-send-using-mime (not (featurep 'mime-setup))
|
|
|
413 "*Non-nil value means VM should support sending messages using MIME.
|
|
|
414 MIME (Multipurpose Internet Mail Extensions) is a set of
|
|
|
415 extensions to the standard Internet message format that allows
|
|
|
416 reliable tranmission and reception of arbitrary data including
|
|
|
417 images, audio and video as well as traditional text.
|
|
|
418
|
|
|
419 A non-nil value for this variable means that VM will
|
|
|
420
|
|
|
421 - allow you to attach files and messages to your outbound message.
|
|
|
422 - analyze the composition buffer when you send off a message and
|
|
|
423 encode it as needed.
|
|
|
424
|
|
|
425 A nil value means VM will not offer any support for composing
|
|
|
426 MIME messages.")
|
|
|
427
|
|
136
|
428 (defvar vm-honor-mime-content-disposition nil
|
|
98
|
429 "*Non-nil value means use information from the Content-Disposition header
|
|
|
430 to display MIME messages. The Content-Disposition header
|
|
|
431 specifies whether a MIME object should be displayed inline or
|
|
|
432 treated as an attachment. For VM, ``inline'' display means
|
|
|
433 displaying the object in the Emacs buffer, if possible.
|
|
|
434 Attachments will be displayed as a button that you can use
|
|
|
435 mouse-2 to activate or mouse-3 to pull up a menu of options.")
|
|
|
436
|
|
|
437 (defvar vm-auto-decode-mime-messages nil
|
|
|
438 "*Non-nil value causes MIME decoding to occur automatically
|
|
|
439 when a message containing MIME objects is exposed. A nil value
|
|
|
440 means that you will have to run the `vm-decode-mime-message'
|
|
|
441 command (normally bound to `D') manually to decode and display
|
|
|
442 MIME objects.")
|
|
|
443
|
|
|
444 (defvar vm-auto-displayed-mime-content-types '("text" "multipart")
|
|
|
445 "*List of MIME content types that should be displayed immediately
|
|
|
446 after decoding. Other types will be displayed as a button that
|
|
|
447 the user must activate to display the object.
|
|
|
448
|
|
|
449 A value of t means that all types should be displayed immediately.
|
|
|
450 A nil value means never display MIME objects immediately; only use buttons.
|
|
|
451
|
|
|
452 If the value is a list, it should be a list of strings, which
|
|
|
453 should all be types or type/subtype pairs. Example:
|
|
|
454
|
|
|
455 (setq vm-auto-displayed-mime-content-types '(\"text\" \"image/jpeg\"))
|
|
|
456
|
|
|
457 If a top-level type is listed without a subtype, all subtypes of
|
|
|
458 that type are assumed to be included.
|
|
|
459
|
|
|
460 Note that some types are processed specially, and this variable does not
|
|
|
461 apply to them.
|
|
|
462
|
|
140
|
463 multipart/digest messages are always displayed as a button to
|
|
|
464 avoid automatically visiting a new folder while you are moving
|
|
|
465 around in the current folder.
|
|
118
|
466
|
|
|
467 message/partial messages are always displayed as a button,
|
|
98
|
468 because there always needs to be a way to trigger the assembly
|
|
|
469 of the parts into a full message.
|
|
|
470
|
|
|
471 Any type that cannot be displayed internally or externally will
|
|
|
472 be displayed as a button that allows you to save the body to a
|
|
|
473 file.")
|
|
|
474
|
|
|
475 (defvar vm-mime-internal-content-types t
|
|
|
476 "*List of MIME content types that should be displayed internally
|
|
|
477 if Emacs is capable of doing so. A value of t means that VM
|
|
|
478 should always display an object internally if possible. A nil
|
|
|
479 value means never display MIME objects internally, which means VM
|
|
|
480 have to run an external viewer to display MIME objects.
|
|
|
481
|
|
|
482 If the value is a list, it should be a list of strings. Example:
|
|
|
483
|
|
|
484 (setq vm-mime-internal-content-types '(\"text\" \"image/jpeg\"))
|
|
|
485
|
|
|
486 If a top-level type is listed without a subtype, all subtypes of
|
|
|
487 that type are assumed to be included.
|
|
|
488
|
|
|
489 Note that all multipart types are always handled internally.
|
|
|
490 There is no need to list them here.")
|
|
|
491
|
|
|
492 (defvar vm-mime-external-content-types-alist nil
|
|
|
493 "*Alist of MIME content types and the external programs used to display them.
|
|
|
494 If VM cannot display a type internally or has been instructed not
|
|
|
495 to (see the documentation for the vm-mime-internal-content-types
|
|
|
496 variable) it will try to launch an external program to display that
|
|
|
497 type.
|
|
|
498
|
|
|
499 The alist format is
|
|
|
500
|
|
|
501 ( (TYPE PROGRAM ARG ARG ... ) ... )
|
|
|
502
|
|
|
503 TYPE is a string specifying a MIME type or type/subtype pair.
|
|
|
504 Example \"text\" or \"image/jpeg\". If a top-level type is
|
|
|
505 listed without a subtype, all subtypes of that type are assumed
|
|
|
506 to be included.
|
|
|
507
|
|
|
508 PROGRAM is a string naming a program to run to display an object.
|
|
|
509 Any ARGS will be passed to the program as arguments. The octets
|
|
|
510 that compose the object will be written into a file and the name
|
|
|
511 of the file will be passed to the program as its last argument.
|
|
|
512
|
|
|
513 Example:
|
|
|
514
|
|
|
515 (setq vm-mime-external-content-types-alist
|
|
|
516 '(
|
|
|
517 (\"text/html\" \"netscape\")
|
|
|
518 (\"image/gif\" \"xv\")
|
|
|
519 (\"image/jpeg\" \"xv\")
|
|
|
520 (\"video/mpeg\" \"mpeg_play\")
|
|
|
521 (\"video\" \"xanim\")
|
|
|
522 )
|
|
|
523 )
|
|
|
524
|
|
|
525 The first matching list element will be used.
|
|
|
526
|
|
|
527 No multipart message will ever be sent to an external viewer.")
|
|
|
528
|
|
|
529 (defvar vm-mime-type-converter-alist nil
|
|
|
530 "*Alist of MIME types and programs that can convert between them.
|
|
|
531 If VM cannot display a content type, it will scan this list to
|
|
|
532 see if the type can be converted into a type that it can display.
|
|
|
533
|
|
|
534 The alist format is
|
|
|
535
|
|
|
536 ( (START-TYPE END-TYPE COMMAND-LINE ) ... )
|
|
|
537
|
|
|
538 START-TYPE is a string specifying a MIME type or type/subtype pair.
|
|
|
539 Example \"text\" or \"image/jpeg\". If a top-level type is
|
|
|
540 listed without a subtype, all subtypes of that type are assumed
|
|
|
541 to be included.
|
|
|
542
|
|
|
543 END-TYPE must be an exact type/subtype pair. This is the type
|
|
|
544 to which START-TYPE will be converted.
|
|
|
545
|
|
|
546 COMMAND-LINE is a string giving a command line to be passed to
|
|
|
547 the shell. The octets that compose the object will be written to
|
|
|
548 the standard input of the shell command.
|
|
|
549
|
|
|
550 Example:
|
|
|
551
|
|
|
552 (setq vm-mime-type-converter-alist
|
|
|
553 '(
|
|
|
554 (\"image/jpeg\" \"image/gif\" \"jpeg2gif\")
|
|
|
555 (\"text/html\" \"text/plain\" \"striptags\")
|
|
|
556 )
|
|
|
557 )
|
|
|
558
|
|
|
559 The first matching list element will be used.")
|
|
|
560
|
|
|
561 (defvar vm-mime-alternative-select-method 'best-internal
|
|
|
562 "*Value tells how to choose which multipart/alternative part to display.
|
|
|
563 A MIME message of type multipart/alternative has multiple message
|
|
|
564 parts containing the same information, but each part may be
|
|
|
565 formatted differently. VM will display only one of the parts.
|
|
|
566 This variable tells VM how to choose which part to display.
|
|
|
567
|
|
|
568 A value of 'best means choose the part that is the most faithful to
|
|
|
569 the sender's original content that can be displayed.
|
|
|
570
|
|
|
571 A value of 'best-internal means choose the best part that can be
|
|
|
572 displayed internally, i.e. with the built-in capabilities of Emacs.
|
|
|
573 If none of the parts can be displayed internally, behavior reverts to
|
|
|
574 that of 'best.")
|
|
|
575
|
|
100
|
576 (defvar vm-mime-default-face-charsets '("us-ascii" "iso-8859-1")
|
|
|
577 "*List of character sets that can use the `default' face.
|
|
|
578 For other characters sets VM will have to create a new face and assign
|
|
|
579 a font to it that can be used to display that character set.")
|
|
|
580
|
|
|
581 (defvar vm-mime-charset-font-alist nil
|
|
|
582 "*Assoc list of character sets and fonts that can be used to display them.
|
|
|
583 The format of the list is:
|
|
|
584
|
|
|
585 ( (CHARSET . FONT) ...)
|
|
|
586
|
|
|
587 CHARSET is a string naming a MIME registered character set such
|
|
|
588 as \"iso-8859-5\". Character set names should be specified in
|
|
|
589 lower case.
|
|
|
590
|
|
|
591 FONT is a string naming a font that can be used to display CHARSET.
|
|
|
592
|
|
|
593 An example setup might be:
|
|
|
594
|
|
|
595 (setq vm-mime-charset-font-alist
|
|
|
596 '(
|
|
114
|
597 (\"iso-8859-7\" . \"-*-*-medium-r-normal-*-16-160-72-72-c-80-iso8859-7\")
|
|
100
|
598 )
|
|
|
599 )
|
|
|
600
|
|
|
601 This variable is only useful for character sets whose characters
|
|
|
602 can all be encoded in single 8-bit bytes. Also multiple fonts
|
|
|
603 can only be displayed if you're running under a window system
|
|
|
604 e.g. X windows. So this variable will have no effect if you're
|
|
|
605 running Emacs on a tty.
|
|
|
606
|
|
118
|
607 Note that under FSF Emacs any fonts you use must be the same height
|
|
100
|
608 as your default font. XEmacs does not have this limitation.")
|
|
|
609
|
|
114
|
610 (defvar vm-mime-button-face 'gui-button-face
|
|
98
|
611 "*Face used for text in buttons that trigger the display of MIME objects.")
|
|
|
612
|
|
|
613 (defvar vm-mime-8bit-composition-charset "iso-8859-1"
|
|
|
614 "*Character set that VM should assume if it finds non-US-ASCII characters
|
|
|
615 in a composition buffer. Composition buffers are assumed to use
|
|
|
616 US-ASCII unless the buffer contains a byte with the high bit set.
|
|
|
617 This variable specifies what character set VM should assume if
|
|
100
|
618 such a character is found.
|
|
|
619
|
|
|
620 This variable is unused in XEmacs/MULE. Since multiple character
|
|
|
621 sets can be displayed in a single buffer under MULE, VM will map
|
|
|
622 the file coding system of the buffer to a single MIME character
|
|
118
|
623 set that can display all the buffer's characters.")
|
|
98
|
624
|
|
|
625 (defvar vm-mime-8bit-text-transfer-encoding 'quoted-printable
|
|
|
626 "*Symbol specifying what kind of transfer encoding to use on 8bit
|
|
|
627 text. Characters with the high bit set cannot safely pass
|
|
|
628 through all mail gateways and mail transport software. MIME has
|
|
108
|
629 two transfer encodings that convert 8-bit data to 7-bit for safe
|
|
98
|
630 transport. Quoted-printable leaves the text mostly readable even
|
|
100
|
631 if the recipient does not have a MIME-capable mail reader. BASE64
|
|
|
632 is unreadable without a MIME-capable mail reader, unless your name
|
|
98
|
633 is U3BvY2s=.
|
|
|
634
|
|
|
635 A value of 'quoted-printable, means to use quoted-printable encoding.
|
|
|
636 A value of 'base64 means to use BASE64 encoding.
|
|
|
637 A value of '8bit means to send the message as is.
|
|
|
638
|
|
108
|
639 Note that this variable usually only applies to textual MIME
|
|
|
640 content types. Images, audio, video, etc. typically will have
|
|
|
641 some attribute that makes VM consider them to be \"binary\",
|
|
|
642 which moves them outside the scope of this variable. For
|
|
|
643 example, messages with line lengths of 1000 characters or more
|
|
|
644 are considered binary, as are messages that contain carriage
|
|
|
645 returns (ascii code 13) or NULs (ascii code 0).")
|
|
|
646
|
|
|
647 (defvar vm-mime-composition-armor-from-lines nil
|
|
|
648 "*Non-nil value means \"From \" lines should be armored before sending.
|
|
|
649 A line beginning with \"From \" is considered a message separator
|
|
|
650 by many mail delivery agents. These agents will often insert a >
|
|
|
651 before the word \"From\" to prevent mail readers from being
|
|
|
652 confused. This is proper behavior, but it breaks digitally signed
|
|
|
653 messages, which require bit-perfect transport in order for the
|
|
|
654 message contents to be considered genuine.
|
|
|
655
|
|
|
656 If vm-mime-composition-armor-from-lines is non-nil, a line
|
|
|
657 beginning with \"From \" will cause VM to encode the message
|
|
|
658 using either quoted-printable or BASE64 encoding so that the From
|
|
|
659 line can be protected.")
|
|
98
|
660
|
|
|
661 (defvar vm-mime-attachment-auto-type-alist
|
|
|
662 '(
|
|
|
663 ("\\.jpe?g" . "image/jpeg")
|
|
|
664 ("\\.gif" . "image/gif")
|
|
|
665 ("\\.png" . "image/png")
|
|
100
|
666 ("\\.tiff?" . "image/tiff")
|
|
|
667 ("\\.html?" . "text/html")
|
|
98
|
668 ("\\.au" . "audio/basic")
|
|
|
669 ("\\.mpe?g" . "video/mpeg")
|
|
|
670 ("\\.ps" . "application/postscript")
|
|
|
671 )
|
|
|
672 "*Alist used to guess a MIME content type based on a file name.
|
|
|
673 The list format is
|
|
|
674
|
|
|
675 ((REGEXP . TYPE) ...)
|
|
|
676
|
|
|
677 REGEXP is a string that specifies a regular expression.
|
|
|
678 TYPE is a string specifying a MIME content type.
|
|
|
679
|
|
|
680 When a non-MIME file is attached to a MIME composition buffer,
|
|
|
681 this list will be scanned until a REGEXP matches the file's name.
|
|
|
682 The corresponding TYPE will be offered as a default when you are
|
|
|
683 prompted for the file's type.")
|
|
|
684
|
|
|
685 (defvar vm-mime-max-message-size nil
|
|
|
686 "*Largest MIME message that VM should send without fragmentation.
|
|
|
687 The value should be a integer which specifies the size in bytes.
|
|
|
688 A message larger than this value will be split into multiple parts
|
|
|
689 for transmission using the MIME message/partial type.")
|
|
|
690
|
|
|
691 (defvar vm-mime-attachment-save-directory nil
|
|
|
692 "*Non-nil value is a default directory for saving MIME attachments.
|
|
|
693 When VM prompts you for a target file name when saving a MIME body,
|
|
|
694 any relative pathnames will be relative to this directory.")
|
|
|
695
|
|
120
|
696 (defvar vm-mime-avoid-folding-content-type t
|
|
|
697 "*Non-nil means don't send folded Content- headers in MIME messages.
|
|
98
|
698 `Folded' headers are headers broken into multiple lines as specified
|
|
|
699 in RFC822 for readability and to avoid excessive line lengths. At
|
|
|
700 least one major UNIX vendor ships a version of sendmail that believes
|
|
|
701 a folded Content-Type header is a syntax error, and returns any such
|
|
|
702 message to sender. A typical error message from such a sendmail
|
|
|
703 version is,
|
|
|
704
|
|
|
705 553 header syntax error, line \" charset=us-ascii\"
|
|
|
706
|
|
|
707 If you see one of these, setting vm-mime-avoid-folding-content-type
|
|
|
708 non-nil may let your mail get through.")
|
|
|
709
|
|
|
710 (defvar vm-mime-base64-decoder-program nil
|
|
|
711 "*Non-nil value should be a string that names a MIME base64 decoder.
|
|
|
712 The program should expect to read base64 data on its standard
|
|
|
713 input and write the converted data to its standard output.")
|
|
|
714
|
|
|
715 (defvar vm-mime-base64-decoder-switches nil
|
|
|
716 "*List of command line flags passed to the command named by
|
|
|
717 vm-mime-base64-decoder-program.")
|
|
|
718
|
|
|
719 (defvar vm-mime-base64-encoder-program nil
|
|
|
720 "*Non-nil value should be a string that names a MIME base64 encoder.
|
|
|
721 The program should expect arbitrary data on its standard
|
|
|
722 input and write base64 data to its standard output.")
|
|
|
723
|
|
|
724 (defvar vm-mime-base64-encoder-switches nil
|
|
|
725 "*List of command line flags passed to the command named by
|
|
|
726 vm-mime-base64-encoder-program.")
|
|
|
727
|
|
0
|
728 (defvar vm-auto-next-message t
|
|
|
729 "*Non-nil value causes VM to use vm-next-message to advance to the next
|
|
|
730 message in the folder if the user attempts to scroll past the end of the
|
|
|
731 current messages. A nil value disables this behavior.")
|
|
|
732
|
|
|
733 (defvar vm-honor-page-delimiters nil
|
|
|
734 "*Non-nil value causes VM to honor page delimiters (as specified by the
|
|
|
735 Emacs page-delimiter variable) when scrolling through a message.")
|
|
|
736
|
|
|
737 (defvar vm-default-window-configuration
|
|
|
738 ;; startup = full screan summary
|
|
|
739 ;; quitting = full screen folder
|
|
|
740 ;; reading-message = folder on bottom, summary on top
|
|
|
741 ;; composing-message = full screen composition
|
|
|
742 ;; editing-message = full screen edit
|
|
|
743 ;; vm-summarize = folder on bottom, summary on top
|
|
|
744 '(
|
|
|
745 (startup
|
|
|
746 ((((top . 70) (left . 70)))
|
|
|
747 (((- (0 0 80 10) (0 10 80 40))
|
|
|
748 ((nil summary) (nil message))
|
|
|
749 ((nil nil nil t) (nil nil nil nil))))))
|
|
|
750 (quitting
|
|
|
751 ((((top . 70) (left . 70)))
|
|
|
752 (((0 0 80 40)
|
|
|
753 ((nil message))
|
|
|
754 ((nil nil nil t))))))
|
|
|
755 (reading-message
|
|
|
756 ((((top . 70) (left . 70)))
|
|
|
757 (((- (0 0 80 10) (0 10 80 40))
|
|
|
758 ((nil summary) (nil message))
|
|
|
759 ((nil nil nil t) (nil nil nil nil))))))
|
|
|
760 (composing-message
|
|
|
761 ((((top . 70) (left . 70)))
|
|
|
762 (((0 0 80 40)
|
|
|
763 ((nil composition))
|
|
|
764 ((nil nil nil t))))))
|
|
|
765 (editing-message
|
|
|
766 ((((top . 70) (left . 70)))
|
|
|
767 (((0 0 80 40)
|
|
|
768 ((nil edit))
|
|
|
769 ((nil nil nil t))))))
|
|
|
770 (vm-summarize
|
|
|
771 ((((top . 70) (left . 70)))
|
|
|
772 (((- (0 0 80 10) (0 10 80 40))
|
|
|
773 ((nil summary) (nil message))
|
|
|
774 ((nil nil nil t) (nil nil nil nil))))))
|
|
|
775 )
|
|
|
776 "Default window configuration for VM if the user does not specify one.
|
|
|
777 If you want to completely turn off VM's window configuration
|
|
|
778 feature, set this variable and vm-window-configuration-file to
|
|
|
779 nil in your .vm file.
|
|
|
780
|
|
|
781 If you want to have a different window configuration setup than
|
|
|
782 this, you should not set this variable directly. Rather you
|
|
|
783 should set the variable vm-window-configuration-file to point at
|
|
|
784 a file, and use the command vm-save-window-configuration
|
|
|
785 (normally bound to `WS') to modify part of this configuration to
|
|
|
786 your liking.
|
|
|
787
|
|
|
788 WARNING: Don't point vm-window-configuration-file at your .vm or
|
|
|
789 .emacs file. Your window configuration file should start out as
|
|
|
790 an empty or nonexistent file. VM will repeatedly overwrite this
|
|
|
791 file as you update your window configuration settings, so
|
|
|
792 anything else you put into this file will go away.")
|
|
|
793
|
|
|
794 (defvar vm-window-configuration-file "~/.vm.windows"
|
|
|
795 "*Non-nil value should be a string that tells VM where to load
|
|
|
796 and save your window configuration settings. Your window
|
|
|
797 configuration settings are loaded automatically the first time
|
|
|
798 you run VM in an Emacs session, and tells VM how to set up
|
|
|
799 windows depending on what you are doing inside VM.
|
|
|
800
|
|
|
801 The commands vm-save-window-configuration (normally bound to `WS') and
|
|
|
802 vm-delete-window-configuration (bound to `WD') let you update this
|
|
|
803 information; see their documentation for more information.
|
|
|
804
|
|
|
805 You cannot change your window configuration setup without giving
|
|
|
806 vm-window-configuration-file a non-nil value. A nil value causes
|
|
|
807 VM to use the default window setup specified by the value of
|
|
|
808 vm-default-window-configuration.
|
|
|
809
|
|
|
810 WARNING: Don't point vm-window-configuration-file at your .vm or
|
|
|
811 .emacs file. Your window configuration file should start out as
|
|
|
812 an empty or nonexistent file. VM will repeatedly overwrite this
|
|
|
813 file as you update your window configuration settings, so
|
|
|
814 anything else you put into this file will go away.")
|
|
|
815
|
|
|
816 (defvar vm-confirm-quit 0
|
|
|
817 "*Value of t causes VM to always ask for confirmation before quitting
|
|
|
818 a VM visit of a folder. A nil value means VM will ask only when messages
|
|
|
819 will be lost unwittingly by quitting, i.e. not removed by intentional
|
|
|
820 delete and expunge. A value that is not nil and not t causes VM to ask
|
|
|
821 only when there are unsaved changes to message attributes, or when messages
|
|
|
822 will be unwittingly lost.")
|
|
|
823
|
|
|
824 (defvar vm-folder-directory nil
|
|
|
825 "*Directory where folders of mail are kept.")
|
|
|
826
|
|
|
827 (defvar vm-confirm-new-folders nil
|
|
|
828 "*Non-nil value causes interactive calls to vm-save-message
|
|
|
829 to ask for confirmation before creating a new folder.")
|
|
|
830
|
|
|
831 (defvar vm-delete-empty-folders t
|
|
|
832 "*Non-nil value means remove empty (zero length) folders after saving
|
|
|
833 A value of t means always remove the folders.
|
|
|
834 A value of nil means never remove empty folders.
|
|
|
835 A value that's not t or nil means ask before removing empty folders.")
|
|
|
836
|
|
100
|
837 (defvar vm-flush-interval 90
|
|
0
|
838 "*Non-nil value specifies how often VM flushes its cached internal
|
|
|
839 data. A numeric value gives the number of seconds between
|
|
|
840 flushes. A value of t means flush every time there is a change.
|
|
|
841 Nil means don't do flushing until a message or folder is saved.
|
|
|
842
|
|
|
843 Normally when a message attribute is changed. VM keeps the record
|
|
|
844 of the change in its internal memory and doesn't insert the
|
|
|
845 changed data into the folder buffer until a particular message or
|
|
|
846 the whole folder is saved to disk. This makes normal Emacs
|
|
|
847 auto-saving useless for VM folder buffers because the information
|
|
98
|
848 you'd want to auto-save, i.e. the attribute changes are not in
|
|
0
|
849 the buffer when it is auto-saved.
|
|
|
850
|
|
|
851 Setting vm-flush-interval to a numeric value will cause the VM's
|
|
|
852 internal memory caches to be periodically flushed to the folder
|
|
|
853 buffer. This is done non-obtrusively, so that if you type
|
|
|
854 something while flushing is occurring, the flush will abort
|
|
|
855 cleanly and Emacs will respond to your keystrokes as usual.")
|
|
|
856
|
|
|
857 (defvar vm-visit-when-saving 0
|
|
|
858 "*Value determines whether VM will visit folders when saving messages.
|
|
|
859 `Visiting' means that VM will read the folder into Emacs and append the
|
|
|
860 message to the buffer instead of appending to the folder file directly.
|
|
|
861 This behavior is ideal when folders are encrypted or compressed since
|
|
|
862 appending plaintext directly to such folders is a ghastly mistake.
|
|
|
863
|
|
|
864 A value of t means VM will always visit folders when saving.
|
|
|
865
|
|
|
866 A nil value means VM will never visit folders before saving to them, and
|
|
|
867 VM will generate an error if you attempt to save messages to a folder
|
|
|
868 that is being visited. The latter restriction is necessary to insure
|
|
|
869 that the buffer and disk copies of the folder being visited remain
|
|
|
870 consistent.
|
|
|
871
|
|
|
872 A value that is not nil and not t means VM will save to a folder's
|
|
|
873 buffer if that folder is being visited, otherwise VM saves to the folder
|
|
|
874 file itself.")
|
|
|
875
|
|
|
876 (defvar vm-auto-folder-alist nil
|
|
|
877 "*Non-nil value should be an alist that VM will use to choose a default
|
|
|
878 folder name when messages are saved. The alist should be of the form
|
|
|
879 \((HEADER-NAME-REGEXP
|
|
|
880 (REGEXP . FOLDER-NAME) ...
|
|
|
881 ...))
|
|
|
882 where HEADER-NAME-REGEXP and REGEXP are strings, and FOLDER-NAME
|
|
|
883 is a string or an s-expression that evaluates to a string.
|
|
|
884
|
|
|
885 If any part of the contents of the message header whose name is
|
|
|
886 matched by HEADER-NAME-REGEXP is matched by the regular
|
|
|
887 expression REGEXP, VM will evaluate the corresponding FOLDER-NAME
|
|
|
888 and use the result as the default when prompting for a folder to
|
|
|
889 save the message in. If the resulting folder name is a relative
|
|
|
890 pathname, then it will be rooted in the directory named by
|
|
|
891 vm-folder-directory, or the default-directory of the currently
|
|
|
892 visited folder if vm-folder-directory is nil.
|
|
|
893
|
|
|
894 When FOLDER-NAME is evaluated, the current buffer will contain
|
|
|
895 only the contents of the header matched by HEADER-NAME-REGEXP.
|
|
|
896 It is safe to modify this buffer. You can use the match data
|
|
|
897 from any \\( ... \\) grouping constructs in REGEXP along with the
|
|
|
898 function buffer-substring to build a folder name based on the
|
|
|
899 header information. If the result of evaluating FOLDER-NAME is a
|
|
|
900 list, then the list will be treated as another auto-folder-alist
|
|
|
901 and will be descended recursively.
|
|
|
902
|
|
|
903 Whether REGEXP is matched case sensitively depends on the value
|
|
|
904 of the variable vm-auto-folder-case-fold-search. Header names
|
|
|
905 are always matched case insensitively.")
|
|
|
906
|
|
|
907 (defvar vm-auto-folder-case-fold-search nil
|
|
|
908 "*Non-nil value means VM will ignore case when matching header
|
|
|
909 contents while doing automatic folder selection via the variable
|
|
|
910 vm-auto-folder-alist.")
|
|
|
911
|
|
|
912 (defvar vm-virtual-folder-alist nil
|
|
|
913 "*Non-nil value should be a list of virtual folder definitions.
|
|
|
914
|
|
|
915 A virtual folder is a mapping of messages from one or more real folders
|
|
|
916 into what appears to be a single folder. A virtual folder definition
|
|
|
917 specifies which real folders should be searched for prospective messages
|
|
|
918 and what the inclusion criteria are.
|
|
|
919
|
|
|
920 Each virtual folder definition should have the following form:
|
|
|
921
|
|
|
922 (VIRTUAL-FOLDER-NAME
|
|
|
923 ( (FOLDER-NAME ...)
|
|
|
924 (SELECTOR [ARG ...]) ... )
|
|
|
925 ... )
|
|
|
926
|
|
|
927 VIRTUAL-FOLDER-NAME is the name of the virtual folder being defined.
|
|
|
928 This is the name by which you and VM will refer to this folder.
|
|
|
929
|
|
|
930 FOLDER-NAME should be the name of a real folder. There may be more than
|
|
|
931 one FOLDER-NAME listed, the SELECTORs within that sublist will apply to
|
|
|
932 them all. If FOLDER-NAME is a directory, VM will assume this to mean that
|
|
|
933 all the folders in that directory should be searched.
|
|
|
934
|
|
|
935 The SELECTOR is a Lisp symbol that tells VM how to decide whether a message
|
|
|
936 from one of the folders specified by the FOLDER-NAMEs should be included
|
|
|
937 in the virtual folder. Some SELECTORs require an argument ARG; unless
|
|
|
938 otherwise noted ARG may be omitted.
|
|
|
939
|
|
|
940 The recognized SELECTORs are:
|
|
|
941
|
|
|
942 author - matches message if ARG matches the author; ARG should be a
|
|
|
943 regular expression.
|
|
|
944 and - matches the message if all its argument
|
|
|
945 selectors match the message. Example:
|
|
|
946 (and (author \"Derek McGinty\") (new))
|
|
|
947 matches all new messages from Derek McGinty.
|
|
|
948 `and' takes any number of arguments.
|
|
|
949 any - matches any message.
|
|
|
950 deleted - matches message if it is flagged for deletion.
|
|
|
951 edited - matches message if it has been edited.
|
|
|
952 filed - matched message if it has been saved with its headers.
|
|
|
953 forwarded - matches message if it has been forwarded.
|
|
|
954 header - matches message if ARG matches any part of the header
|
|
|
955 portion of the message; ARG should be a
|
|
|
956 regular expression.
|
|
|
957 label - matches message if message has a label named ARG.
|
|
|
958 less-chars-than - matches message if message has less than ARG
|
|
|
959 characters. ARG should be a number.
|
|
|
960 less-lines-than - matches message if message has less than ARG
|
|
|
961 lines. ARG should be a number.
|
|
|
962 more-chars-than - matches message if message has more than ARG
|
|
|
963 characters. ARG should be a number.
|
|
|
964 more-lines-than - matches message if message has more than ARG
|
|
|
965 lines. ARG should be a number.
|
|
|
966 marked - matches message if it is marked, as with vm-mark-message.
|
|
|
967 new - matches message if it is new.
|
|
|
968 not - matches message only if its selector argument
|
|
|
969 does NOT match the message. Example:
|
|
|
970 (not (deleted))
|
|
|
971 matches messages that are not deleted.
|
|
|
972 or - matches the message if any of its argument
|
|
|
973 selectors match the message. Example:
|
|
|
974 (or (author \"Dave Weckl\") (subject \"drum\"))
|
|
|
975 matches messages from Dave Weckl or messages
|
|
|
976 with the word \"drum\" in their Subject header.
|
|
|
977 `or' takes any number of arguments.
|
|
|
978 read - matches message if it is neither new nor unread.
|
|
|
979 recipient - matches message if ARG matches any part of the recipient
|
|
|
980 list of the message. ARG should be a regular expression.
|
|
|
981 replied - matches message if it has been replied to.
|
|
|
982 sent-after - matches message if it was sent after the date ARG.
|
|
|
983 A fully specified date looks like this:
|
|
|
984 \"31 Dec 1999 23:59:59 GMT\"
|
|
|
985 although the parts can appear in any order.
|
|
|
986 You can leave out any part and it will
|
|
|
987 default to the current date's value for that
|
|
|
988 part, with the exception of the hh:mm:ss
|
|
|
989 part which defaults to midnight.
|
|
|
990 sent-before - matches message if it was sent before the date ARG.
|
|
|
991 A fully specified date looks like this:
|
|
|
992 \"31 Dec 1999 23:59:59 GMT\"
|
|
|
993 although the parts can appear in any order.
|
|
|
994 You can leave out any part and it will
|
|
|
995 default to the current date's value for that
|
|
|
996 part, with the exception of the hh:mm:ss
|
|
|
997 part which defaults to midnight.
|
|
|
998 subject - matches message if ARG matches any part of the message's
|
|
|
999 subject; ARG should be a regular expression.
|
|
|
1000 text - matches message if ARG matches any part of the text
|
|
|
1001 portion of the message; ARG should be a
|
|
|
1002 regular expression.
|
|
|
1003 unread - matches message if it is old but unread.
|
|
|
1004 written - matches message if it has been saved without its headers.
|
|
|
1005 ")
|
|
|
1006
|
|
|
1007 (defvar vm-virtual-mirror t
|
|
|
1008 "*Non-nil value causes the attributes of messages in virtual folders
|
|
|
1009 to mirror the changes in the attributes of the underlying real messages.
|
|
|
1010 Similarly, changes in the attributes of virtual messages will change the
|
|
|
1011 attributes of the underlying real messages. A nil value causes virtual
|
|
|
1012 messages to have their own distinct set of attributes, apart from the
|
|
|
1013 underlying real message.
|
|
|
1014
|
|
|
1015 This variable automatically becomes buffer-local when set in any
|
|
|
1016 fashion. You should set this variable only in your .vm or .emacs
|
|
|
1017 file. Use setq-default. Once VM has been started, you should not
|
|
|
1018 set this variable directly, rather you should use the command
|
|
|
1019 vm-toggle-virtual-mirror, normally bound to `V M'.")
|
|
|
1020 (make-variable-buffer-local 'vm-virtual-mirror)
|
|
|
1021
|
|
|
1022 (defvar vm-folder-read-only nil
|
|
|
1023 "*Non-nil value causes a folder to be considered unmodifiable by VM.
|
|
|
1024 Commands that modify message attributes or messages themselves are disallowed.
|
|
|
1025 Commands that add or delete messages from the folder are disallowed.
|
|
|
1026 Commands that scan or allow the reading of messages are allowed but the
|
|
|
1027 `new' and `unread' message flags are not changed by them.
|
|
|
1028
|
|
|
1029 This variable automatically becomes buffer-local when set in any
|
|
|
1030 fashion. You should set this variable only in your .vm or .emacs
|
|
|
1031 file. Use setq-default. Once VM has been started, you should not
|
|
|
1032 set this variable directly, rather you should use the command
|
|
|
1033 vm-toggle-read-only, normally bound to C-x C-q.")
|
|
|
1034 (make-variable-buffer-local 'vm-folder-read-only)
|
|
|
1035
|
|
|
1036 (defvar vm-included-text-prefix " > "
|
|
|
1037 "*String used to prefix included text in replies.")
|
|
|
1038
|
|
|
1039 (defvar vm-keep-sent-messages 1
|
|
|
1040 "*Non-nil value N causes VM to keep the last N messages sent from within VM.
|
|
|
1041 `Keep' means that VM will not kill the VM mail buffer after you send a message
|
|
|
1042 with C-c C-c (vm-mail-send-and-exit). A value of 0 or nil causes VM never
|
|
|
1043 to keep such buffers. A value of t causes VM never to kill such buffers.
|
|
|
1044
|
|
|
1045 Note that these buffers will vanish once you exit Emacs. To keep a permanent
|
|
|
1046 record of your outgoing mail, use the mail-archive-file-name variable.")
|
|
|
1047
|
|
|
1048 (defvar vm-confirm-mail-send nil
|
|
|
1049 "*Non-nil means ask before sending a mail message.
|
|
|
1050 This affects vm-mail-send and vm-mail-send-and-exit in Mail mode.")
|
|
|
1051
|
|
|
1052 (defvar vm-mail-header-from nil
|
|
|
1053 "*Non-nil value should be a string that will be appear as the body
|
|
|
1054 of the From header in outbound mail messages. A nil value means don't
|
|
|
1055 insert a From header. This variable also controls the inclusion and
|
|
|
1056 format of the Resent-From header, when resending a message with
|
|
|
1057 vm-resend-message.")
|
|
|
1058
|
|
|
1059 (defvar vm-reply-subject-prefix nil
|
|
|
1060 "*Non-nil value should be a string that VM should add to the beginning
|
|
|
1061 of the Subject header in replies, if the string is not already present.
|
|
|
1062 Nil means don't prefix the Subject header.")
|
|
|
1063
|
|
|
1064 (defvar vm-reply-ignored-addresses nil
|
|
|
1065 "*Non-nil value should be a list of regular expressions that match
|
|
|
1066 addresses that VM should automatically remove from the recipient
|
|
|
1067 headers of replies. These addresses are removed from the headers
|
|
|
1068 before you are placed in the message composition buffer. So if
|
|
|
1069 you see an address in the header you don't want you should remove
|
|
|
1070 it yourself.
|
|
|
1071
|
|
|
1072 Case is ignored when matching the addresses.")
|
|
|
1073
|
|
|
1074 (defvar vm-reply-ignored-reply-tos nil
|
|
|
1075 "*Non-nil value should be a list of regular expressions that match
|
|
|
1076 addresses that, if VM finds in a message's Reply-To header, VM
|
|
|
1077 should ignore the Reply-To header and not use it for replies. VM
|
|
|
1078 will use the From header instead.
|
|
|
1079
|
|
|
1080 Case is ignored when matching the addresses.
|
|
|
1081
|
|
|
1082 This variable exists solely to provide a escape chute from
|
|
|
1083 mailing lists that add a Reply-To: mailing list header, thereby
|
|
|
1084 leaving no way to reply to just the author of a message.")
|
|
|
1085
|
|
|
1086 (defvar vm-in-reply-to-format "%i"
|
|
|
1087 "*String which specifies the format of the contents of the In-Reply-To
|
|
|
1088 header that is generated for replies. See the documentation for the
|
|
|
1089 variable vm-summary-format for information on what this string may
|
|
|
1090 contain. The format should *not* end with a newline.
|
|
|
1091 Nil means don't put an In-Reply-To header in replies.")
|
|
|
1092
|
|
|
1093 (defvar vm-included-text-attribution-format "%F writes:\n"
|
|
|
1094 "*String which specifies the format of the attribution that precedes the
|
|
|
1095 included text from a message in a reply. See the documentation for the
|
|
|
1096 variable vm-summary-format for information on what this string may contain.
|
|
|
1097 Nil means don't attribute included text in replies.")
|
|
|
1098
|
|
|
1099 (defvar vm-included-text-headers nil
|
|
|
1100 "*List of headers that should be retained in a message included in
|
|
|
1101 a reply. These should be listed in the order you wish them to
|
|
|
1102 appear in the included text. Regular expressions are allowed.
|
|
|
1103 There's no need to anchor patterns with \"^\", as searches always
|
|
|
1104 start at the beginning of a line. Put a colon at the end of
|
|
|
1105 patterns to get exact matches. (E.g. \"Date\" matches \"Date\"
|
|
|
1106 and \"Date-Sent\".) Header names are always matched case
|
|
|
1107 insensitively.
|
|
|
1108
|
|
|
1109 If the value of vm-included-text-discard-header-regexp is nil,
|
|
|
1110 the headers matched by vm-included-text-headers are the only
|
|
|
1111 headers that will be retained.
|
|
|
1112
|
|
|
1113 If vm-included-text-discard-header-regexp is non-nil, then only
|
|
|
1114 headers matched by that variable will be omitted; all others will
|
|
|
1115 be included. vm-included-text-headers determines the header
|
|
|
1116 order in that case, with headers not matching any in the
|
|
|
1117 vm-included-text-headers list appearing last in the header
|
|
|
1118 section of the included text.")
|
|
|
1119
|
|
|
1120 (defvar vm-included-text-discard-header-regexp nil
|
|
|
1121 "*Non-nil value should be a regular expression header that tells
|
|
|
1122 what headers should not be retained in a message included in a
|
|
|
1123 reply. This variable along with vm-included-text-headers determines
|
|
|
1124 which headers are retained.
|
|
|
1125
|
|
|
1126 If the value of vm-included-text-discard-header-regexp is nil,
|
|
|
1127 the headers matched by vm-included-text-headers are the only headers
|
|
|
1128 that will be retained.
|
|
|
1129
|
|
|
1130 If vm-included-text-discard-header-regexp is non-nil, then only
|
|
|
1131 headers matched by this variable will not be retained; all
|
|
|
1132 others will be included. vm-included-text-headers determines the
|
|
|
1133 header order in that case, with headers not matching any in
|
|
|
1134 the vm-included-text-headers list appearing last in the header
|
|
|
1135 section of the included text.")
|
|
|
1136
|
|
|
1137 (defvar vm-forwarding-subject-format "forwarded message from %F"
|
|
|
1138 "*String which specifies the format of the contents of the Subject
|
|
|
1139 header that is generated for a forwarded message. See the documentation
|
|
|
1140 for the variable vm-summary-format for information on what this string
|
|
|
1141 may contain. The format should *not* end with nor contain a newline.
|
|
|
1142 Nil means leave the Subject header empty when forwarding.")
|
|
|
1143
|
|
|
1144 (defvar vm-forwarded-headers nil
|
|
|
1145 "*List of headers that should be forwarded by vm-forward-message.
|
|
|
1146 These should be listed in the order you wish them to appear in
|
|
|
1147 the forwarded message. Regular expressions are allowed.
|
|
|
1148 There's no need to anchor patterns with \"^\", as searches always
|
|
|
1149 start at the beginning of a line. Put a colon at the end of
|
|
|
1150 patterns to get exact matches. (E.g. \"Date\" matches \"Date\"
|
|
|
1151 and \"Date-Sent\".) Header names are always matched case
|
|
|
1152 insensitively.
|
|
|
1153
|
|
|
1154 If the value of vm-unforwarded-header-regexp is nil, the headers
|
|
|
1155 matched by vm-forwarded-headers are the only headers that will be
|
|
|
1156 forwarded.
|
|
|
1157
|
|
|
1158 If vm-unforwarded-header-regexp is non-nil, then only headers
|
|
|
1159 matched by that variable will be omitted; all others will be
|
|
|
1160 forwarded. vm-forwarded-headers determines the forwarding order
|
|
|
1161 in that case, with headers not matching any in the
|
|
|
1162 vm-forwarded-headers list appearing last in the header section of
|
|
|
1163 the forwarded message.")
|
|
|
1164
|
|
|
1165 (defvar vm-unforwarded-header-regexp "only-drop-this-header"
|
|
|
1166 "*Non-nil value should be a regular expression header that tells
|
|
|
1167 what headers should not be forwarded by vm-forward-message. This
|
|
|
1168 variable along with vm-forwarded-headers determines which headers
|
|
|
1169 are forwarded.
|
|
|
1170
|
|
|
1171 If the value of vm-unforwarded-header-regexp is nil, the headers
|
|
|
1172 matched by vm-forwarded-headers are the only headers that will be
|
|
|
1173 forwarded.
|
|
|
1174
|
|
|
1175 If vm-unforwarded-header-regexp is non-nil, then only headers
|
|
|
1176 matched by this variable will not be forwarded; all others will
|
|
|
1177 be forwarded. vm-forwarded-headers determines the forwarding
|
|
|
1178 order in that case, with headers not matching any in the
|
|
|
1179 vm-forwarded-headers list appearing last in the header section of
|
|
|
1180 the forwarded message.")
|
|
|
1181
|
|
98
|
1182 (defvar vm-forwarding-digest-type "mime"
|
|
0
|
1183 "*Non-nil value should be a string that specifies the type of
|
|
|
1184 message encapsulation format to use when forwarding a message.
|
|
|
1185 Legal values of this variable are:
|
|
|
1186
|
|
|
1187 \"rfc934\"
|
|
|
1188 \"rfc1153\"
|
|
98
|
1189 \"mime\"
|
|
0
|
1190 nil
|
|
|
1191
|
|
|
1192 A nil value means don't use a digest, just mark the beginning and
|
|
|
1193 end of the forwarded message.")
|
|
|
1194
|
|
98
|
1195 (defvar vm-burst-digest-messages-inherit-labels t
|
|
|
1196 "*Non-nil values means messages from a digest inherit the digest's labels.
|
|
|
1197 Labels are added to messages with vm-add-message-labels, normally
|
|
|
1198 bound to `l a'.")
|
|
|
1199
|
|
0
|
1200 (defvar vm-digest-preamble-format "\"%s\" (%F)"
|
|
|
1201 "*String which specifies the format of the preamble lines generated by
|
|
|
1202 vm-send-digest when it is invoked with a prefix argument. One
|
|
|
1203 line will be generated for each message put into the digest. See the
|
|
|
1204 documentation for the variable vm-summary-format for information
|
|
|
1205 on what this string may contain. The format should *not* end
|
|
|
1206 with nor contain a newline.")
|
|
|
1207
|
|
|
1208 (defvar vm-digest-center-preamble t
|
|
|
1209 "*Non-nil value means VM will center the preamble lines that precede
|
|
|
1210 the start of a digest. How the lines will be centered depends on the
|
|
|
1211 ambient value of fill-column. A nil value suppresses centering.")
|
|
|
1212
|
|
|
1213 (defvar vm-digest-identifier-header-format "X-Digest: %s\n"
|
|
|
1214 "*Header to insert into messages burst from a digest.
|
|
114
|
1215 Value should be a format string of the same type as vm-summary-format
|
|
|
1216 that describes a header to be inserted into each message burst from a
|
|
|
1217 digest. The format string must end with a newline.")
|
|
0
|
1218
|
|
98
|
1219 (defvar vm-digest-burst-type "guess"
|
|
0
|
1220 "*Value specifies the default digest type offered by vm-burst-digest
|
|
|
1221 when it asks you what type of digest you want to unpack. Allowed
|
|
|
1222 values of this variable are:
|
|
|
1223
|
|
|
1224 \"rfc934\"
|
|
|
1225 \"rfc1153\"
|
|
98
|
1226 \"mime\"
|
|
0
|
1227 \"guess\"
|
|
|
1228
|
|
98
|
1229 rfc1153 digests have a preamble, followed by a line of exactly 70
|
|
|
1230 dashes, with digested messages separated by lines of exactly 30 dashes.
|
|
|
1231
|
|
|
1232 rfc934 digests separate messages on any line that begins with a few
|
|
|
1233 dashes, but doesn't require lines with only dashes or lines with a
|
|
|
1234 specific number of dashes. In the text of the message, any line
|
|
114
|
1235 beginning with dashes is textually modified to be preceded by a dash
|
|
98
|
1236 and a space to prevent confusion with message separators.
|
|
|
1237
|
|
|
1238 MIME digests use whatever boundary that is specified by the
|
|
|
1239 boundary parameter in the Content-Type header of the digest.
|
|
|
1240
|
|
0
|
1241 If the value is \"guess\", and you take the default
|
|
|
1242 response when vm-burst-digest queries you, VM will try to guess
|
|
|
1243 the digest type.")
|
|
|
1244
|
|
98
|
1245 (defvar vm-digest-send-type "mime"
|
|
0
|
1246 "*String that specifies the type of digest vm-send-digest will use.
|
|
|
1247 Legal values of this variable are:
|
|
|
1248
|
|
|
1249 \"rfc934\"
|
|
|
1250 \"rfc1153\"
|
|
98
|
1251 \"mime\"
|
|
0
|
1252
|
|
|
1253 ")
|
|
|
1254
|
|
|
1255 (defvar vm-rfc934-digest-headers
|
|
|
1256 '("Resent-"
|
|
|
1257 "From:" "Sender:"
|
|
|
1258 "To:" "Cc:"
|
|
|
1259 "Subject:"
|
|
|
1260 "Date:"
|
|
|
1261 "Message-ID:"
|
|
|
1262 "Keywords:")
|
|
|
1263 "*List of headers that should be appear in RFC 934 digests
|
|
|
1264 created by VM. These should be listed in the order you wish them
|
|
|
1265 to appear in the digest. Regular expressions are allowed.
|
|
|
1266 There's no need to anchor patterns with \"^\", as searches always
|
|
|
1267 start at the beginning of a line. Put a colon at the end of
|
|
|
1268 patterns to get exact matches. (E.g. \"Date\" matches \"Date\"
|
|
|
1269 and \"Date-Sent\".) Header names are always matched case
|
|
|
1270 insensitively.
|
|
|
1271
|
|
|
1272 If the value of vm-rfc934-digest-discard-header-regexp is nil, the headers
|
|
|
1273 matched by vm-rfc934-digest-headers are the only headers that will be
|
|
|
1274 kept.
|
|
|
1275
|
|
|
1276 If vm-rfc934-digest-discard-header-regexp is non-nil, then only
|
|
|
1277 headers matched by that variable will be discarded; all others
|
|
|
1278 will be kept. vm-rfc934-digest-headers determines the order of
|
|
|
1279 appearance in that case, with headers not matching any in the
|
|
|
1280 vm-rfc934-digest-headers list appearing last in the headers
|
|
|
1281 of the digestified messages.")
|
|
|
1282
|
|
|
1283 (defvar vm-rfc934-digest-discard-header-regexp nil
|
|
|
1284 "*Non-nil value should be a regular expression header that tells
|
|
|
1285 what headers should not appear in RFC 934 digests created by VM. This
|
|
|
1286 variable along with vm-rfc934-digest-headers determines which headers
|
|
|
1287 are kept and which are discarded.
|
|
|
1288
|
|
|
1289 If the value of vm-rfc934-digest-discard-header-regexp is nil, the headers
|
|
|
1290 matched by vm-rfc934-digest-headers are the only headers that will be
|
|
|
1291 kept.
|
|
|
1292
|
|
|
1293 If vm-rfc934-digest-discard-header-regexp is non-nil, then only
|
|
|
1294 headers matched by this variable will be discarded; all others
|
|
|
1295 will be kept. vm-rfc934-digest-headers determines the order of
|
|
|
1296 appearance in that case, with headers not matching any in the
|
|
|
1297 vm-rfc934-digest-headers list appearing last in the headers
|
|
|
1298 of the digestified messages.")
|
|
|
1299
|
|
|
1300 (defvar vm-rfc1153-digest-headers
|
|
|
1301 '("Resent-"
|
|
|
1302 "Date:"
|
|
|
1303 "From:" "Sender:"
|
|
|
1304 "To:" "Cc:"
|
|
|
1305 "Subject:"
|
|
|
1306 "Message-ID:"
|
|
|
1307 "Keywords:")
|
|
|
1308 "*List of headers that should be appear in RFC 1153 digests
|
|
|
1309 created by VM. These should be listed in the order you wish them
|
|
|
1310 to appear in the digest. Regular expressions are allowed.
|
|
|
1311 There is no need to anchor patterns with \"^\", as searches always
|
|
|
1312 start at the beginning of a line. Put a colon at the end of
|
|
|
1313 patterns to get exact matches. (E.g. \"Date\" matches \"Date\"
|
|
|
1314 and \"Date-Sent\".) Header names are always matched case
|
|
|
1315 insensitively.
|
|
|
1316
|
|
|
1317 If the value of vm-rfc1153-digest-discard-header-regexp is nil, the headers
|
|
|
1318 matched by vm-rfc1153-digest-headers are the only headers that will be
|
|
|
1319 kept.
|
|
|
1320
|
|
|
1321 If vm-rfc1153-digest-discard-header-regexp is non-nil, then only
|
|
|
1322 headers matched by that variable will be discarded; all others
|
|
|
1323 will be kept. vm-rfc1153-digest-headers determines the order of
|
|
|
1324 appearance in that case, with headers not matching any in the
|
|
|
1325 vm-rfc1153-digest-headers list appearing last in the headers of
|
|
|
1326 the digestified messages.")
|
|
|
1327
|
|
|
1328 (defvar vm-rfc1153-digest-discard-header-regexp "\\(X400-\\)?Received:"
|
|
|
1329 "*Non-nil value should be a regular expression header that tells
|
|
|
1330 what headers should not appear in RFC 1153 digests created by VM. This
|
|
|
1331 variable along with vm-rfc1153-digest-headers determines which headers
|
|
|
1332 are kept and which headers are discarded.
|
|
|
1333
|
|
|
1334 If the value of vm-rfc1153-digest-discard-header-regexp is nil, the headers
|
|
|
1335 matched by vm-rfc1153-digest-headers are the only headers that will be
|
|
|
1336 kept.
|
|
|
1337
|
|
|
1338 If vm-rfc1153-digest-discard-header-regexp is non-nil, then only
|
|
|
1339 headers matched by this variable will be discarded; all others
|
|
|
1340 will be kept. vm-rfc1153-digest-headers determines the order of
|
|
|
1341 appearance in that case, with headers not matching any in the
|
|
|
1342 vm-rfc1153-digest-headers list appearing last in the headers of
|
|
|
1343 the digestified messages.")
|
|
|
1344
|
|
98
|
1345 (defvar vm-mime-digest-headers
|
|
|
1346 '("Resent-"
|
|
|
1347 "From:" "Sender:"
|
|
|
1348 "To:" "Cc:"
|
|
|
1349 "Subject:"
|
|
|
1350 "Date:"
|
|
|
1351 "Message-ID:"
|
|
|
1352 "Keywords:"
|
|
|
1353 "MIME-Version:"
|
|
|
1354 "Content-")
|
|
|
1355 "*List of headers that should be appear in MIME digests
|
|
|
1356 created by VM. These should be listed in the order you wish them
|
|
|
1357 to appear in the messages in the digest. Regular expressions are
|
|
|
1358 allowed. There's no need to anchor patterns with \"^\", as
|
|
|
1359 searches always start at the beginning of a line. Put a colon at
|
|
|
1360 the end of patterns to get exact matches. (E.g. \"Date\" matches
|
|
|
1361 \"Date\" and \"Date-Sent\".) Header names are always matched
|
|
|
1362 case insensitively.
|
|
|
1363
|
|
|
1364 If the value of vm-mime-digest-discard-header-regexp is nil, the headers
|
|
|
1365 matched by vm-mime-digest-headers are the only headers that will be
|
|
|
1366 kept.
|
|
|
1367
|
|
|
1368 If vm-mime-digest-discard-header-regexp is non-nil, then only
|
|
|
1369 headers matched by that variable will be discarded; all others
|
|
|
1370 will be kept. vm-mime-digest-headers determines the order of
|
|
|
1371 appearance in that case, with headers not matching any in the
|
|
|
1372 vm-mime-digest-headers list appearing last in the headers
|
|
|
1373 of the digestified messages.")
|
|
|
1374
|
|
|
1375 (defvar vm-mime-digest-discard-header-regexp nil
|
|
|
1376 "*Non-nil value should be a regular expression header that tells
|
|
|
1377 which headers should not appear in MIME digests created
|
|
|
1378 by VM. This variable along with vm-mime-digest-headers
|
|
|
1379 determines which headers are kept and which are discarded.
|
|
|
1380
|
|
|
1381 If the value of vm-mime-digest-discard-header-regexp is nil, the headers
|
|
|
1382 matched by vm-mime-digest-headers are the only headers that will be
|
|
|
1383 kept.
|
|
|
1384
|
|
|
1385 If vm-mime-digest-discard-header-regexp is non-nil, then only
|
|
|
1386 headers matched by this variable will be discarded; all others
|
|
|
1387 will be kept. vm-mime-digest-headers determines the order of
|
|
|
1388 appearance in that case, with headers not matching any in the
|
|
|
1389 vm-mime-digest-headers list appearing last in the headers
|
|
|
1390 of the digestified messages.")
|
|
|
1391
|
|
0
|
1392 (defvar vm-resend-bounced-headers
|
|
98
|
1393 '("MIME-Version:" "Content-"
|
|
0
|
1394 "From:" "Sender:" "Reply-To:"
|
|
|
1395 "To:" "Cc:"
|
|
|
1396 "Subject:"
|
|
|
1397 "Newsgroups:"
|
|
|
1398 "In-Reply-To:" "References:"
|
|
|
1399 "Keywords:"
|
|
|
1400 "X-")
|
|
|
1401 "*List of headers that should be appear in messages resent with
|
|
|
1402 vm-resend-bounced-message. These should be listed in the order you wish them
|
|
|
1403 to appear in the message. Regular expressions are allowed.
|
|
|
1404 There is no need to anchor patterns with \"^\", as searches always
|
|
|
1405 start at the beginning of a line. Put a colon at the end of
|
|
|
1406 patterns to get exact matches. (E.g. \"Date\" matches \"Date\"
|
|
|
1407 and \"Date-Sent\".) Header names are always matched case
|
|
|
1408 insensitively.
|
|
|
1409
|
|
|
1410 If the value of vm-resend-bounced-discard-header-regexp is nil, the headers
|
|
|
1411 matched by vm-resend-bounced-headers are the only headers that will be
|
|
|
1412 kept.
|
|
|
1413
|
|
|
1414 If vm-resend-bounced-discard-header-regexp is non-nil, then only
|
|
|
1415 headers matched by that variable will be discarded; all others
|
|
|
1416 will be kept. vm-resend-bounced-headers determines the order of
|
|
|
1417 appearance in that case, with headers not matching any in the
|
|
|
1418 vm-resend-bounced-headers list appearing last in the headers of
|
|
|
1419 the message.")
|
|
|
1420
|
|
|
1421 (defvar vm-resend-bounced-discard-header-regexp nil
|
|
|
1422 "*Non-nil value should be a regular expression that tells
|
|
|
1423 what headers should not appear in a resent bounced message. This
|
|
|
1424 variable along with vm-resend-bounced-headers determines which headers
|
|
|
1425 are kept and which headers are discarded.
|
|
|
1426
|
|
|
1427 If the value of vm-resend-bounced-discard-header-regexp is nil,
|
|
|
1428 the headers matched by vm-resend-bounced-headers are the only
|
|
|
1429 headers that will be kept.
|
|
|
1430
|
|
|
1431 If vm-resend-bounced-discard-header-regexp is non-nil, then only
|
|
|
1432 headers matched by this variable will be discarded; all others
|
|
|
1433 will be kept. vm-resend-bounced-headers determines the order of
|
|
|
1434 appearance in that case, with headers not matching any in the
|
|
|
1435 vm-resend-bounced-headers list appearing last in the headers of
|
|
|
1436 the message.")
|
|
|
1437
|
|
|
1438 (defvar vm-resend-headers nil
|
|
|
1439 "*List of headers that should be appear in messages resent with
|
|
|
1440 vm-resend-message. These should be listed in the order you wish them
|
|
|
1441 to appear in the message. Regular expressions are allowed.
|
|
|
1442 There is no need to anchor patterns with \"^\", as searches always
|
|
|
1443 start at the beginning of a line. Put a colon at the end of
|
|
|
1444 patterns to get exact matches. (E.g. \"Date\" matches \"Date\"
|
|
|
1445 and \"Date-Sent\".) Header names are always matched case
|
|
|
1446 insensitively.
|
|
|
1447
|
|
|
1448 If the value of vm-resend-discard-header-regexp is nil, the headers
|
|
|
1449 matched by vm-resend-headers are the only headers that will be
|
|
|
1450 kept.
|
|
|
1451
|
|
|
1452 If vm-resend-discard-header-regexp is non-nil, then only
|
|
|
1453 headers matched by that variable will be discarded; all others
|
|
|
1454 will be kept. vm-resend-headers determines the order of
|
|
|
1455 appearance in that case, with headers not matching any in the
|
|
|
1456 vm-resend-headers list appearing last in the headers of
|
|
|
1457 the message.")
|
|
|
1458
|
|
|
1459 (defvar vm-resend-discard-header-regexp "\\(\\(X400-\\)?Received:\\|Resent-\\)"
|
|
|
1460 "*Non-nil value should be a regular expression that tells
|
|
|
1461 what headers should not appear in a resent message. This
|
|
98
|
1462 variable along with vm-resend-headers determines which
|
|
0
|
1463 headers are kept and which headers are discarded.
|
|
|
1464
|
|
|
1465 If the value of vm-resend-discard-header-regexp is nil,
|
|
|
1466 the headers matched by vm-resend-headers are the only
|
|
|
1467 headers that will be kept.
|
|
|
1468
|
|
|
1469 If vm-resend-discard-header-regexp is non-nil, then only
|
|
|
1470 headers matched by this variable will be discarded; all others
|
|
|
1471 will be kept. vm-resend-headers determines the order of
|
|
|
1472 appearance in that case, with headers not matching any in the
|
|
|
1473 vm-resend-headers list appearing last in the headers of
|
|
|
1474 the message.")
|
|
|
1475
|
|
|
1476 (defvar vm-summary-format "%n %*%a %-17.17F %-3.3m %2d %4l/%-5c %I\"%s\"\n"
|
|
|
1477 "*String which specifies the message summary line format.
|
|
|
1478 The string may contain the printf-like `%' conversion specifiers which
|
|
|
1479 substitute information about the message into the final summary line.
|
|
|
1480
|
|
|
1481 Recognized specifiers are:
|
|
|
1482 a - attribute indicators (always four characters wide)
|
|
|
1483 The first char is `D', `N', `U' or ` ' for deleted, new, unread
|
|
|
1484 and read messages respectively.
|
|
|
1485 The second char is `F', `W' or ` ' for filed (saved) or written
|
|
|
1486 messages.
|
|
|
1487 The third char is `R', `Z' or ` ' for messages replied to,
|
|
|
1488 and forwarded messages.
|
|
|
1489 The fourth char is `E' if the message has been edited, ` ' otherwise.
|
|
|
1490 A - longer version of attributes indicators (seven characters wide)
|
|
|
1491 The first char is `D', `N', `U' or ` ' for deleted, new, unread
|
|
|
1492 and read messages respectively.
|
|
|
1493 The second is `r' or ` ', for message replied to.
|
|
|
1494 The third is `z' or ` ', for messages forwarded.
|
|
|
1495 The fourth is `b' or ` ', for messages redistributed.
|
|
|
1496 The fifth is `f' or ` ', for messages filed.
|
|
|
1497 The sixth is `w' or ` ', for messages written.
|
|
|
1498 The seventh is `e' or ` ', for messages that have been edited.
|
|
|
1499 c - number of characters in message (ignoring headers)
|
|
|
1500 d - numeric day of month message sent
|
|
|
1501 f - author's address
|
|
|
1502 F - author's full name (same as f if full name not found)
|
|
|
1503 h - hour:min:sec message sent
|
|
|
1504 H - hour:min message sent
|
|
|
1505 i - message ID
|
|
|
1506 I - thread indentation
|
|
|
1507 l - number of lines in message (ignoring headers)
|
|
|
1508 L - labels (as a comma list)
|
|
|
1509 m - month message sent
|
|
|
1510 M - numeric month message sent (January = 1)
|
|
|
1511 n - message number
|
|
|
1512 s - message subject
|
|
|
1513 t - addresses of the recipients of the message, in a comma-separated list
|
|
|
1514 T - full names of the recipients of the message, in a comma-separated list
|
|
|
1515 If a full name cannot be found, the corresponding address is used
|
|
|
1516 instead.
|
|
|
1517 U - user defined specifier. The next character in the format
|
|
|
1518 string should be a letter. VM will call the function
|
|
|
1519 vm-summary-function-<letter> (e.g. vm-summary-function-A for
|
|
|
1520 \"%UA\") in the folder buffer with the message being summarized
|
|
|
1521 bracketed by (point-min) and (point-max). The function
|
|
|
1522 will be passed a message struct as an argument.
|
|
|
1523 The function should return a string, which VM will insert into
|
|
|
1524 the summary as it would for information from any other summary
|
|
|
1525 specifier.
|
|
|
1526 w - day of the week message sent
|
|
|
1527 y - year message sent
|
|
|
1528 z - timezone of date when the message was sent
|
|
|
1529 * - `*' if the message is marked, ` ' otherwise
|
|
|
1530
|
|
|
1531 Use %% to get a single %.
|
|
|
1532
|
|
|
1533 A numeric field width may be given between the `%' and the specifier;
|
|
|
1534 this causes right justification of the substituted string. A negative field
|
|
|
1535 width causes left justification.
|
|
|
1536
|
|
|
1537 The field width may be followed by a `.' and a number specifying
|
|
|
1538 the maximum allowed length of the substituted string. If the
|
|
|
1539 string is longer than this value the right end of the string is
|
|
|
1540 truncated. If the value is negative, the string is truncated on
|
|
98
|
1541 the left instead of the right.
|
|
0
|
1542
|
|
|
1543 The summary format need not be one line per message but it must end with
|
|
|
1544 a newline, otherwise the message pointer will not be displayed correctly
|
|
|
1545 in the summary window.")
|
|
|
1546
|
|
|
1547 (defvar vm-summary-arrow "->"
|
|
|
1548 "*String that is displayed to the left of the summary of the
|
|
|
1549 message VM consider to be the current message. The value takes
|
|
|
1550 effect when the summary buffer is created. Changing this
|
|
|
1551 variable's value has no effect on existing summary buffers.")
|
|
|
1552
|
|
|
1553 (defvar vm-summary-highlight-face 'bold
|
|
|
1554 "*Face to use to highlight the summary entry for the current message.
|
|
|
1555 Nil means don't highlight the current message's summary entry.")
|
|
|
1556
|
|
98
|
1557 (defvar vm-mouse-track-summary t
|
|
|
1558 "*Non-nil value means highlight summary lines as the mouse passes
|
|
|
1559 over them.")
|
|
|
1560
|
|
0
|
1561 (defvar vm-summary-show-threads nil
|
|
|
1562 "*Non-nil value means VM should display and maintain
|
|
|
1563 message thread trees in the summary buffer. This means that
|
|
|
1564 messages with a common ancestor will be displayed contiguously in
|
|
|
1565 the summary. (If you have vm-move-messages-physically set
|
|
|
1566 non-nil the folder itself will be reordered to match the thread
|
|
|
1567 ordering.) If you use the `%I' summary format specifier in your
|
|
|
1568 vm-summary-format, indentation will be provided as described in the
|
|
|
1569 documentation for vm-summary-thread-indent-level (which see).
|
|
|
1570
|
|
|
1571 A nil value means don't display thread information. The `%I'
|
|
|
1572 specifier does nothing in the summary format.
|
|
|
1573
|
|
|
1574 This variable automatically becomes buffer-local when set in any
|
|
|
1575 fashion. You should set this variable only in your .vm or .emacs
|
|
|
1576 file. Use setq-default. Once VM has been started, you should not
|
|
|
1577 set this variable directly, rather you should use the command
|
|
|
1578 vm-toggle-threads-display, normally bound to C-t.")
|
|
|
1579 (make-variable-buffer-local 'vm-summary-show-threads)
|
|
|
1580
|
|
|
1581 (defvar vm-summary-thread-indent-level 2
|
|
|
1582 "*Value should be a number that specifies how much
|
|
|
1583 indentation the '%I' summary format specifier should provide per
|
|
|
1584 thread level. A message's `thread level' refers to the number of
|
|
|
1585 direct ancestors from the message to the oldest ancestor the
|
|
|
1586 message has that is in the current folder. For example, the
|
|
|
1587 first message of a thread is generally a message about a new
|
|
|
1588 topic, e.g. a message that is not a reply to some other message.
|
|
|
1589 Therefore it has no ancestor and would cause %I to generate no
|
|
|
1590 indentation. A reply to this message will be indented by the value
|
|
|
1591 of vm-summary-thread-indent-level. A reply to that reply will be
|
|
|
1592 indented twice the value of vm-summary-thread-indent-level.")
|
|
|
1593
|
|
|
1594 (defvar vm-thread-using-subject t
|
|
|
1595 "*Non-nil value causes VM to use the Subject header to thread messages.
|
|
|
1596 Messages with the same subject will be grouped together.
|
|
|
1597
|
|
|
1598 A nil value means VM will disregard the Subject header when
|
|
|
1599 threading messages.")
|
|
|
1600
|
|
|
1601 (defvar vm-summary-uninteresting-senders nil
|
|
|
1602 "*Non-nil value should be a regular expression that matches
|
|
|
1603 addresses that you don't consider interesting enough to
|
|
|
1604 appear in the summary. When such senders would be displayed by
|
|
|
1605 the %F or %f summary format specifiers VM will substitute the
|
|
|
1606 value of vm-summary-uninteresting-senders-arrow (default \"To:
|
|
|
1607 \") followed by what would be shown by the %T and %t specifiers
|
|
|
1608 respectively.")
|
|
|
1609
|
|
|
1610 (defvar vm-summary-uninteresting-senders-arrow "To: "
|
|
|
1611 "*String to display before the string that is displayed instead of an
|
|
|
1612 \"uninteresting\" sender. See vm-summary-uninteresting-senders.")
|
|
|
1613
|
|
|
1614 (defvar vm-auto-center-summary nil
|
|
|
1615 "*Value controls whether VM will keep the summary arrow vertically
|
|
|
1616 centered within the summary window. A value of t causes VM to always
|
|
|
1617 keep arrow centered. A value of nil means VM will never bother centering
|
|
|
1618 the arrow. A value that is not nil and not t causes VM to center the
|
|
|
1619 arrow only if the summary window is not the only existing window.")
|
|
|
1620
|
|
|
1621 (defvar vm-subject-ignored-prefix "^\\(re: *\\)+"
|
|
|
1622 "*Non-nil value should be a regular expression that matches
|
|
|
1623 strings at the beginning of the Subject header that you want VM to ignore
|
|
|
1624 when threading, sorting, marking, and killing messages by subject.
|
|
|
1625
|
|
|
1626 Matches are done case-insensitively.")
|
|
|
1627
|
|
|
1628 (defvar vm-subject-ignored-suffix "\\( (fwd)\\| \\)+$"
|
|
|
1629 "*Non-nil value should be a regular expression that matches
|
|
|
1630 strings at the end of the Subject header that you want VM to ignore
|
|
|
1631 when threading, sorting, marking and killing messages by subject.
|
|
|
1632
|
|
|
1633 Matches are done case-insensitively.")
|
|
|
1634
|
|
|
1635 (defvar vm-mutable-windows pop-up-windows
|
|
|
1636 "*This variable's value controls VM's window usage.
|
|
|
1637
|
|
|
1638 A non-nil value gives VM free run of the Emacs display; it will commandeer
|
|
|
1639 the entire screen for its purposes.
|
|
|
1640
|
|
|
1641 A value of nil restricts VM's window usage to the window from which
|
|
|
1642 it was invoked. VM will not create, delete, or use any other windows,
|
|
|
1643 nor will it resize its own window.")
|
|
|
1644
|
|
155
|
1645 (defvar vm-mutable-frames t
|
|
0
|
1646 "*Non-nil value means VM is allowed to create and destroy frames
|
|
155
|
1647 to display and undisplay buffers. Whether VM actually does
|
|
|
1648 so depends on the value of the variables with names prefixed by
|
|
|
1649 `vm-frame-per-'.
|
|
0
|
1650
|
|
|
1651 VM can create a frame to display a buffer, and delete frame to
|
|
|
1652 undisplay a buffer. A nil value means VM should not create or
|
|
|
1653 delete frames.
|
|
|
1654
|
|
155
|
1655 This variable used to have a different meaning but it was changed
|
|
|
1656 to better reflect what users expected. This variable is now a
|
|
|
1657 frame analogue of vm-mutable-windows.
|
|
0
|
1658
|
|
|
1659 This variable does not apply to the VM commands whose
|
|
155
|
1660 names end in -other-frame, which always create a new frame.")
|
|
20
|
1661
|
|
98
|
1662 (defvar vm-raise-frame-at-startup t
|
|
|
1663 "*Specifies whether VM should raise its frame at startup.
|
|
|
1664 A value of nil means never raise the frame.
|
|
|
1665 A value of t means always raise the frame.
|
|
|
1666 Other values are reserved for future use.")
|
|
|
1667
|
|
0
|
1668 (defvar vm-frame-per-folder t
|
|
|
1669 "*Non-nil value causes the folder visiting commands to visit in a new frame.
|
|
|
1670 Nil means the commands will use the current frame. This variable
|
|
|
1671 does not apply to the VM commands whose names end in
|
|
|
1672 -other-frame, which always create a new frame.
|
|
|
1673
|
|
155
|
1674 This variable has no meaning if you're not running under an Emacs
|
|
|
1675 capable of displaying multiple real or virtual frames. Note that
|
|
|
1676 Emacs supports multiple virtual frames on dumb terminals, and
|
|
|
1677 VM will use them.")
|
|
0
|
1678
|
|
|
1679 (defvar vm-frame-per-summary nil
|
|
|
1680 "*Non-nil value causes VM to display the folder summary in its own frame.
|
|
|
1681 Nil means the vm-summarize command will use the current frame.
|
|
|
1682 This variable does not apply to vm-summarize-other-frame, which
|
|
|
1683 always create a new frame.
|
|
|
1684
|
|
155
|
1685 This variable has no meaning if you're not running under an Emacs
|
|
|
1686 capable of displaying multiple real or virtual frames. Note that
|
|
|
1687 Emacs supports multiple virtual frames on dumb terminals, and
|
|
|
1688 VM will use them.")
|
|
0
|
1689
|
|
|
1690 (defvar vm-frame-per-composition t
|
|
|
1691 "*Non-nil value causes the mail composition commands to open a new frame.
|
|
|
1692 Nil means the commands will use the current frame. This variable
|
|
|
1693 does not apply to the VM commands whose names end in
|
|
|
1694 -other-frame, which always create a new frame.
|
|
|
1695
|
|
155
|
1696 This variable has no meaning if you're not running under an Emacs
|
|
|
1697 capable of displaying multiple real or virtual frames. Note that
|
|
|
1698 Emacs supports multiple virtual frames on dumb terminals, and
|
|
|
1699 VM will use them.")
|
|
0
|
1700
|
|
|
1701 (defvar vm-frame-per-edit t
|
|
|
1702 "*Non-nil value causes vm-edit-message to open a new frame.
|
|
|
1703 Nil means the vm-edit-message will use the current frame. This
|
|
|
1704 variable does not apply to vm-edit-message-other-frame, which
|
|
|
1705 always create a new frame.
|
|
|
1706
|
|
155
|
1707 This variable has no meaning if you're not running under an Emacs
|
|
|
1708 capable of displaying multiple real or virtual frames. Note that
|
|
|
1709 Emacs support multiple virtual frames on dumb terminals, and
|
|
|
1710 VM will use them.")
|
|
|
1711
|
|
|
1712 (defvar vm-frame-per-help nil
|
|
|
1713 "*Non-nil value causes VM to open a new frame to display help buffers.
|
|
|
1714 Nil means the VM will use the current frame.
|
|
|
1715
|
|
|
1716 This variable has no meaning if you're not running under an Emacs
|
|
|
1717 capable of displaying multiple real or virtual frames. Note that
|
|
|
1718 Emacs supports multiple virtual frames on dumb terminals, and
|
|
|
1719 VM will use them.")
|
|
20
|
1720
|
|
98
|
1721 (defvar vm-frame-per-completion t
|
|
|
1722 "*Non-nil value causes VM to open a new frame on mouse
|
|
|
1723 initiated completing reads. A mouse initiated completing read
|
|
|
1724 occurs when you invoke a VM command using the mouse, either with a
|
|
|
1725 menu or a toolbar button. That command must then prompt you for
|
|
|
1726 information, and there must be a limited set of proper responses.
|
|
|
1727
|
|
|
1728 If these conditions are met and vm-frame-per-completion's value
|
|
|
1729 is non-nil, VM will create a new frame containing a list of
|
|
|
1730 responses that you can select with the mouse.
|
|
|
1731
|
|
|
1732 A nil value means the current frame will be used to display the
|
|
|
1733 list of choices.
|
|
|
1734
|
|
|
1735 This variable has no meaning if you're not running Emacs native
|
|
|
1736 under X Windows or some other window system that allows multiple
|
|
155
|
1737 real Emacs frames. Note that Emacs supports virtual frames under
|
|
|
1738 ttys but VM will not use these to display completion information.")
|
|
98
|
1739
|
|
76
|
1740 (defvar vm-frame-parameter-alist nil
|
|
0
|
1741 "*Non-nil value is an alist of types and lists of frame parameters.
|
|
|
1742 This list tells VM what frame parameters to associate with each
|
|
|
1743 new frame it creates of a specific type.
|
|
|
1744
|
|
|
1745 The alist should be of this form
|
|
|
1746
|
|
98
|
1747 ((SYMBOL PARAMLIST) (SYMBOL2 PARAMLIST2) ...)
|
|
|
1748
|
|
|
1749 SYMBOL must be one of `completion', `composition', `edit',
|
|
|
1750 `folder', `primary-folder' or `summary'. It specifies the type
|
|
|
1751 of frame that the following PARAMLIST applies to.
|
|
|
1752
|
|
|
1753 `completion' specifies parameters for frames that display list of
|
|
|
1754 choices generated by a mouse-initiated completing read.
|
|
|
1755 (See vm-frame-per-completion.)
|
|
0
|
1756 `composition' specifies parameters for mail composition frames.
|
|
|
1757 `edit' specifies parameters for message edit frames
|
|
|
1758 (e.g. created by vm-edit-message-other-frame)
|
|
|
1759 `folder' specifies parameters for frames created by `vm' and the
|
|
|
1760 `vm-visit-' commands.
|
|
|
1761 `primary-folder' specifies parameters for the frame created by running
|
|
|
1762 `vm' without any arguments.
|
|
98
|
1763 `summary' specifies parameters for frames that display a summary buffer
|
|
0
|
1764 (e.g. created by vm-summarize-other-frame)
|
|
|
1765
|
|
|
1766 PARAMLIST is a list of pairs as described in the documentation for
|
|
155
|
1767 the function `make-frame'.")
|
|
0
|
1768
|
|
|
1769 (defvar vm-search-other-frames t
|
|
|
1770 "*Non-nil means VM should search frames other than the selected frame
|
|
|
1771 when looking for a window that is already displaying a buffer that
|
|
|
1772 VM wants to display or undisplay.")
|
|
|
1773
|
|
100
|
1774 (defvar vm-image-directory
|
|
|
1775 (expand-file-name (concat data-directory "vm/"))
|
|
|
1776 "*Value specifies the directory VM should find its artwork.")
|
|
|
1777
|
|
0
|
1778 (defvar vm-use-toolbar
|
|
|
1779 '(next previous delete/undelete autofile file
|
|
|
1780 reply compose print visit quit nil help)
|
|
|
1781 "*Non-nil value causes VM to provide a toolbar interface.
|
|
|
1782 Value should be a list of symbols that will determine which
|
|
100
|
1783 toolbar buttons will appear and in what order. Valid symbol
|
|
0
|
1784 value within the list are:
|
|
|
1785
|
|
98
|
1786 autofile
|
|
|
1787 compose
|
|
|
1788 delete/undelete
|
|
|
1789 file
|
|
100
|
1790 getmail
|
|
98
|
1791 help
|
|
|
1792 mime
|
|
|
1793 next
|
|
|
1794 previous
|
|
|
1795 print
|
|
|
1796 quit
|
|
|
1797 reply
|
|
|
1798 visit
|
|
|
1799 nil
|
|
0
|
1800
|
|
|
1801 If nil appears in the list, it should appear exactly once. All
|
|
|
1802 buttons after nil in the list will be displayed flushright in
|
|
100
|
1803 top/bottom toolbars and flushbottom in left/right toolbars.
|
|
0
|
1804
|
|
|
1805 This variable only has meaning under XEmacs 19.12 and beyond.
|
|
|
1806 See also vm-toolbar-orientation to control where the toolbar is placed.")
|
|
|
1807
|
|
|
1808 (defvar vm-toolbar-orientation 'left
|
|
|
1809 "*Value is a symbol that specifies where the VM toolbar is located.
|
|
|
1810 Legal values are `left', `right' `top' and `bottom'. Any other
|
|
|
1811 value will be interpreted as `top'.
|
|
|
1812
|
|
|
1813 This variable only has meaning under XEmacs 19.12 and beyond.")
|
|
|
1814
|
|
100
|
1815 (defvar vm-toolbar-pixmap-directory vm-image-directory
|
|
0
|
1816 "*Value specifies the directory VM should find its toolbar pixmaps.")
|
|
|
1817
|
|
76
|
1818 (defvar vm-toolbar nil
|
|
|
1819 "*Non-nil value should be a list of toolbar button descriptors.
|
|
|
1820 See the documentation for the variable default-toolbar for a
|
|
|
1821 definition of what a toolbar button descriptor is.
|
|
|
1822
|
|
|
1823 If vm-toolbar is set non-nil VM will use its value as a toolbar
|
|
|
1824 instantiator instead of the usual beavior of building a button
|
|
|
1825 list based on the value of vm-use-toolbar. vm-use-toolbar still
|
|
|
1826 must be set non-nil for a toolbar to appear, however.
|
|
|
1827
|
|
|
1828 Consider this variable experimental; it may not be supported forever.")
|
|
|
1829
|
|
98
|
1830 (defvar vm-use-menus
|
|
|
1831 (nconc (list 'folder 'motion 'send 'mark 'label 'sort 'virtual)
|
|
|
1832 (cond ((string-match ".*-.*-\\(win95\\|nt\\)" system-configuration)
|
|
|
1833 nil)
|
|
|
1834 (t (list 'undo)))
|
|
|
1835 (list 'dispose)
|
|
|
1836 (cond ((string-match ".*-.*-\\(win95\\|nt\\)" system-configuration)
|
|
|
1837 nil)
|
|
|
1838 (t (list 'emacs)))
|
|
|
1839 (list nil 'help))
|
|
0
|
1840 "*Non-nil value causes VM to provide a menu interface.
|
|
|
1841 A value that is a list causes VM to install its own menubar.
|
|
|
1842 A value of 1 causes VM to install a \"VM\" item in the Emacs menubar.
|
|
|
1843
|
|
|
1844 If the value of vm-use-menus is a list, it should be a list of
|
|
|
1845 symbols. The symbols and the order that they are listed
|
|
|
1846 determine what menus will be in the menubar and how they are
|
|
|
1847 ordered. Valid symbols values are:
|
|
|
1848
|
|
|
1849 dispose
|
|
|
1850 emacs
|
|
|
1851 folder
|
|
|
1852 help
|
|
|
1853 label
|
|
|
1854 mark
|
|
|
1855 motion
|
|
|
1856 send
|
|
|
1857 sort
|
|
|
1858 undo
|
|
|
1859 virtual
|
|
|
1860 nil
|
|
|
1861
|
|
|
1862 If nil appears in the list, it should appear exactly once. All
|
|
|
1863 menus after nil in the list will be displayed flushright in
|
|
|
1864 menubar.
|
|
|
1865
|
|
|
1866 This variable only has meaning in Emacs environments where menus
|
|
|
1867 are provided, which usually means Emacs has to be running under a
|
|
|
1868 window system.")
|
|
|
1869
|
|
98
|
1870 (defvar vm-popup-menu-on-mouse-3 t
|
|
|
1871 "*Non-nil value means VM should provide context-sensitive menus on mouse-3.
|
|
|
1872 A nil value means VM should not change the binding of mouse-3.")
|
|
|
1873
|
|
0
|
1874 (defvar vm-warp-mouse-to-new-frame nil
|
|
|
1875 "*Non-nil value causes VM to move the mouse cursor into newly created frames.
|
|
|
1876 This is useful to give the new frame the focus under some window managers
|
|
|
1877 that randomly place newly created frames.
|
|
|
1878
|
|
|
1879 Nil means don't move the mouse cursor.")
|
|
|
1880
|
|
98
|
1881 (defvar vm-url-browser
|
|
|
1882 (cond ((fboundp 'w3-fetch-other-frame)
|
|
|
1883 'w3-fetch-other-frame)
|
|
|
1884 ((fboundp 'w3-fetch)
|
|
|
1885 'w3-fetch)
|
|
|
1886 (t 'vm-mouse-send-url-to-netscape))
|
|
|
1887 "*Non-nil value means VM should enable URL passing.
|
|
|
1888 This means that VM will search for URLs (Uniform Resource
|
|
0
|
1889 Locators) in messages and make it possible for you to pass them
|
|
|
1890 to a World Wide Web browser.
|
|
|
1891
|
|
|
1892 Clicking mouse-2 on the URL will send it to the browser.
|
|
|
1893
|
|
98
|
1894 By default clicking mouse-3 on the URL will pop up a menu of
|
|
|
1895 browsers and you can pick which one you want to use. If
|
|
|
1896 vm-popup-menu-on-mouse-3 is set to nil, you will not see the menu.
|
|
0
|
1897
|
|
|
1898 Moving point to a character within the URL and pressing RETURN
|
|
98
|
1899 will send the URL to the browser.
|
|
0
|
1900
|
|
|
1901 If the value of vm-url-browser is a string, it should specify
|
|
|
1902 name of an external browser to run. The URL will be passed to
|
|
|
1903 the program as its first argument.
|
|
|
1904
|
|
98
|
1905 If the value of vm-url-browser is a symbol, it should specify a
|
|
0
|
1906 Lisp function to call. The URL will be passed to the program as
|
|
|
1907 its first and only argument. Use
|
|
|
1908
|
|
|
1909 (setq vm-url-browser 'vm-mouse-send-url-to-netscape)
|
|
|
1910
|
|
|
1911 for Netscape, and
|
|
|
1912
|
|
|
1913 (setq vm-url-browser 'vm-mouse-send-url-to-mosaic)
|
|
|
1914
|
|
|
1915 for Mosaic. The advantage of using them is that they will display
|
|
|
1916 an URL using on existing Mosaic or Netscape process, if possible.
|
|
|
1917
|
|
98
|
1918 A nil value means VM should not enable URL passing to browsers.")
|
|
0
|
1919
|
|
|
1920 (defvar vm-highlight-url-face 'bold-italic
|
|
|
1921 "*Non-nil value should be a face to use display URLs found in messages.
|
|
|
1922 Nil means don't highlight URLs.")
|
|
|
1923
|
|
|
1924 (defvar vm-url-search-limit 12000
|
|
|
1925 "*Non-nil numeric value tells VM how hard to search for URLs.
|
|
|
1926 The number specifies the maximum message size in characters that
|
|
|
1927 VM will search for URLs. For message larger than this value, VM
|
|
|
1928 will search from the beginning of the mssage to a point
|
|
|
1929 vm-url-search-limit / 2 characters into the message. Then VM will
|
|
|
1930 search from a point vm-url-search-limit / 2 characters from the
|
|
|
1931 end of the message to the end of message.")
|
|
|
1932
|
|
|
1933 (defvar vm-display-xfaces nil
|
|
|
1934 "*Non-nil means display images as specifies in X-Face headers.
|
|
|
1935 This requires at least XEmacs 19.12 with native xface support compiled in.")
|
|
|
1936
|
|
|
1937 (defvar vm-startup-with-summary t
|
|
|
1938 "*Value tells VM whether to generate a summary when a folder is visited.
|
|
|
1939 Nil means don't automatically generate a summary.
|
|
|
1940
|
|
|
1941 A value of t means always generate a summary.
|
|
|
1942
|
|
|
1943 A positive numeric value N means only generate a summary if there
|
|
|
1944 are N or more messages.
|
|
|
1945
|
|
|
1946 A negative numeric value -N means only generate a summary if
|
|
|
1947 there are N or less messages.")
|
|
|
1948
|
|
|
1949 (defvar vm-follow-summary-cursor t
|
|
|
1950 "*Non-nil value causes VM to select the message under the cursor in the
|
|
|
1951 summary window before executing commands that operate on the current message.
|
|
|
1952 This occurs only when the summary buffer window is the selected window.")
|
|
|
1953
|
|
|
1954 (defvar vm-jump-to-new-messages t
|
|
|
1955 "*Non-nil value causes VM to jump to the first new message
|
|
|
1956 whenever such messages arrive in a folder or the first time a
|
|
|
1957 folder is visited.
|
|
|
1958
|
|
|
1959 See also vm-jump-to-unread-messages.")
|
|
|
1960
|
|
|
1961 (defvar vm-jump-to-unread-messages t
|
|
|
1962 "*Non-nil value causes VM to jump to the first unread message
|
|
|
1963 whenever such messages arrive in a folder or the first time a
|
|
|
1964 folder is visited. New messages are considered unread in this
|
|
|
1965 context so new messages will be jumped to as well.
|
|
|
1966
|
|
|
1967 The value of vm-jump-to-new-messages takes precedence over the
|
|
|
1968 setting of this variable. So if there are unread messages and
|
|
|
1969 new messages VM will jump to the first new message, even if an
|
|
|
1970 unread message appears before it in the folder, provided
|
|
|
1971 vm-jump-to-new-messages is non-nil.")
|
|
|
1972
|
|
|
1973 (defvar vm-skip-deleted-messages t
|
|
|
1974 "*Non-nil value causes VM's `n' and 'p' commands to skip over
|
|
|
1975 deleted messages. A value of t causes deleted messages to always be skipped.
|
|
|
1976 A value that is not nil and not t causes deleted messages to be skipped only
|
|
|
1977 if there are other messages that are not flagged for deletion in the desired
|
|
|
1978 direction of motion.")
|
|
|
1979
|
|
|
1980 (defvar vm-skip-read-messages nil
|
|
|
1981 "*Non-nil value causes VM's `n' and `p' commands to skip over
|
|
|
1982 messages that have already been read, in favor of new or unread messages.
|
|
|
1983 A value of t causes read messages to always be skipped. A value that is
|
|
|
1984 not nil and not t causes read messages to be skipped only if there are
|
|
|
1985 unread messages in the desired direction of motion.")
|
|
|
1986
|
|
|
1987 (defvar vm-move-after-deleting nil
|
|
|
1988 "*Non-nil value causes VM's `d' command to automatically invoke
|
|
|
1989 vm-next-message or vm-previous-message after deleting, to move
|
|
|
1990 past the deleted messages. A value of t means motion should
|
|
|
1991 honor the value of vm-circular-folders. A value that is not t
|
|
|
1992 and not nil means that motion should be done as if
|
|
|
1993 vm-circular-folders is set to nil.")
|
|
|
1994
|
|
|
1995 (defvar vm-move-after-undeleting nil
|
|
|
1996 "*Non-nil value causes VM's `u' command to automatically invoke
|
|
|
1997 vm-next-message or vm-previous-message after undeleting, to move
|
|
|
1998 past the undeleted messages. A value of t means motion should
|
|
|
1999 honor the value of vm-circular-folders. A value that is not t
|
|
|
2000 and not nil means that motion should be done as if
|
|
|
2001 vm-circular-folders is set to nil.")
|
|
|
2002
|
|
98
|
2003 (defvar vm-move-after-killing nil
|
|
|
2004 "*Non-nil value causes VM's `k' command to automatically invoke
|
|
|
2005 vm-next-message or vm-previous-message after killing messages, to try
|
|
|
2006 to move past the deleted messages. A value of t means motion
|
|
|
2007 should honor the value of vm-circular-folders. A value that is
|
|
|
2008 not t and not nil means that motion should be done as if
|
|
|
2009 vm-circular-folders is set to nil.")
|
|
|
2010
|
|
0
|
2011 (defvar vm-delete-after-saving nil
|
|
|
2012 "*Non-nil value causes VM automatically to mark messages for deletion
|
|
|
2013 after successfully saving them to a folder.")
|
|
|
2014
|
|
|
2015 (defvar vm-delete-after-archiving nil
|
|
|
2016 "*Non-nil value causes VM automatically to mark messages for deletion
|
|
|
2017 after successfully auto-archiving them with the vm-auto-archive-messages
|
|
|
2018 command.")
|
|
|
2019
|
|
|
2020 (defvar vm-delete-after-bursting nil
|
|
|
2021 "*Non-nil value causes VM automatically to mark a message for deletion
|
|
|
2022 after it has been successfully burst by the vm-burst-digest command.")
|
|
|
2023
|
|
|
2024 (defvar vm-circular-folders 0
|
|
|
2025 "*Value determines whether VM folders will be considered circular by
|
|
|
2026 various commands. `Circular' means VM will wrap from the end of the folder
|
|
|
2027 to the start and vice versa when moving the message pointer, or deleting,
|
|
|
2028 undeleting or saving messages before or after the current message.
|
|
|
2029
|
|
|
2030 A value of t causes all VM commands to consider folders circular.
|
|
|
2031
|
|
|
2032 A value of nil causes all of VM commands to signal an error if the start
|
|
|
2033 or end of the folder would have to be passed to complete the command.
|
|
|
2034 For movement commands, this occurs after the message pointer has been
|
|
|
2035 moved as far as possible in the specified direction. For other commands,
|
|
|
2036 the error occurs before any part of the command has been executed, i.e.
|
|
|
2037 no deletions, saves, etc. will be done unless they can be done in their
|
|
|
2038 entirety.
|
|
|
2039
|
|
|
2040 A value that is not nil and not t causes only VM's movement commands to
|
|
|
2041 consider folders circular. Saves, deletes and undelete commands will
|
|
|
2042 behave the same as if the value is nil.")
|
|
|
2043
|
|
|
2044 (defvar vm-search-using-regexps nil
|
|
|
2045 "*Non-nil value causes VM's search command to interpret user input as a
|
|
|
2046 regular expression instead of as a literal string.")
|
|
|
2047
|
|
|
2048 (defvar vm-move-messages-physically nil
|
|
|
2049 "*Non-nil value causes VM's commands that change the message order
|
|
|
2050 of a folder to always move the physical messages involved and not
|
|
|
2051 just change the presentation order. Nil means that commands just
|
|
|
2052 change the order in which VM displays messages and leave the
|
|
|
2053 folder itself undisturbed.")
|
|
|
2054
|
|
|
2055 (defvar vm-edit-message-mode 'text-mode
|
|
|
2056 "*Major mode to use when editing messages in VM.")
|
|
|
2057
|
|
|
2058 (defvar vm-print-command lpr-command
|
|
|
2059 "*Command VM uses to print messages.")
|
|
|
2060
|
|
|
2061 (defvar vm-print-command-switches lpr-switches
|
|
98
|
2062 "*List of command line flags passed to the command named by vm-print-command.
|
|
0
|
2063 VM uses vm-print-command to print messages.")
|
|
|
2064
|
|
|
2065 (defvar vm-berkeley-mail-compatibility
|
|
|
2066 (memq system-type '(berkeley-unix netbsd))
|
|
|
2067 "*Non-nil means to read and write BSD Mail(1) style Status: headers.
|
|
|
2068 This makes sense if you plan to use VM to read mail archives created by
|
|
|
2069 Mail.")
|
|
|
2070
|
|
|
2071 (defvar vm-strip-reply-headers nil
|
|
|
2072 "*Non-nil value causes VM to strip away all comments and extraneous text
|
|
|
2073 from the headers generated in reply messages. If you use the \"fakemail\"
|
|
98
|
2074 program as distributed with Emacs, you probably want to set this variable
|
|
0
|
2075 to t, because as of Emacs v18.52 \"fakemail\" could not handle unstripped
|
|
|
2076 headers.")
|
|
|
2077
|
|
|
2078 (defvar vm-select-new-message-hook nil
|
|
|
2079 "*List of hook functions called every time a message with the 'new'
|
|
|
2080 attribute is made to be the current message. When the hooks are run the
|
|
|
2081 current buffer will be the folder containing the message and the
|
|
|
2082 start and end of the message will be bracketed by (point-min) and
|
|
|
2083 (point-max).")
|
|
|
2084
|
|
|
2085 (defvar vm-select-unread-message-hook nil
|
|
|
2086 "*List of hook functions called every time a message with the 'unread'
|
|
|
2087 attribute is made to be the current message. When the hooks are run the
|
|
|
2088 current buffer will be the folder containing the message and the
|
|
|
2089 start and end of the message will be bracketed by (point-min) and
|
|
|
2090 (point-max).")
|
|
|
2091
|
|
|
2092 (defvar vm-select-message-hook nil
|
|
|
2093 "*List of hook functions called every time a message
|
|
|
2094 is made to be the current message. When the hooks are run the
|
|
|
2095 current buffer will be the folder containing the message and the
|
|
|
2096 start and end of the message will be bracketed by (point-min) and
|
|
|
2097 (point-max).")
|
|
|
2098
|
|
|
2099 (defvar vm-arrived-message-hook nil
|
|
|
2100 "*List of hook functions called once for each message gathered from
|
|
|
2101 the system mail spool, or from another folder with
|
|
|
2102 vm-get-new-mail, or from a digest with vm-burst-digest. When the
|
|
|
2103 hooks are run the current buffer will be the folder containing
|
|
|
2104 the message and the start and end of the message will be
|
|
|
2105 bracketed by (point-min) and (point-max).")
|
|
|
2106
|
|
|
2107 (defvar vm-arrived-messages-hook nil
|
|
|
2108 "*List of hook functions called after VM has gathered a group of
|
|
|
2109 messages from the system mail spool, or from another folder with
|
|
|
2110 vm-get-new-mail, or from a digest with vm-burst-digest. When the
|
|
|
2111 hooks are run, the new messages will have already been added to
|
|
|
2112 the message list but may not yet appear in the summary. When the
|
|
|
2113 hooks are run the current buffer will be the folder containing
|
|
|
2114 the messages.")
|
|
|
2115
|
|
|
2116 (defvar vm-reply-hook nil
|
|
|
2117 "*List of hook functions to be run after a Mail mode
|
|
|
2118 composition buffer has been created for a reply. VM runs this
|
|
|
2119 hook and then runs vm-mail-mode-hook before leaving the user in
|
|
|
2120 the Mail mode buffer.")
|
|
|
2121
|
|
|
2122 (defvar vm-forward-message-hook nil
|
|
|
2123 "*List of hook functions to be run after a Mail mode
|
|
|
2124 composition buffer has been created to forward a message. VM
|
|
|
2125 runs this hook and then runs vm-mail-mode-hook before leaving the
|
|
|
2126 user in the Mail mode buffer.")
|
|
|
2127
|
|
|
2128 (defvar vm-resend-bounced-message-hook nil
|
|
|
2129 "*List of hook functions to be run after a Mail mode
|
|
|
2130 composition buffer has been created to resend a bounced message.
|
|
|
2131 VM runs this hook and then runs vm-mail-mode-hook before leaving
|
|
|
2132 the user in the Mail mode buffer.")
|
|
|
2133
|
|
|
2134 (defvar vm-resend-message-hook nil
|
|
|
2135 "*List of hook functions to be run after a Mail mode
|
|
|
2136 composition buffer has been created to resend a message.
|
|
|
2137 VM runs this hook and then runs vm-mail-mode-hook before leaving
|
|
|
2138 the user in the Mail mode buffer.")
|
|
|
2139
|
|
|
2140 (defvar vm-send-digest-hook nil
|
|
|
2141 "*List of hook functions to be run after a Mail mode
|
|
|
2142 composition buffer has been created to send a digest.
|
|
|
2143 VM runs this hook and then runs vm-mail-mode-hook before leaving
|
|
|
2144 the user in the Mail mode buffer.")
|
|
|
2145
|
|
|
2146 (defvar vm-mail-hook nil
|
|
|
2147 "*List of hook functions to be run after a Mail mode
|
|
|
2148 composition buffer has been created to send a non specialized
|
|
|
2149 message, i.e. a message that is not a reply, forward, digest,
|
|
|
2150 etc. VM runs this hook and then runs vm-mail-mode-hook before
|
|
|
2151 leaving the user in the Mail mode buffer.")
|
|
|
2152
|
|
|
2153 (defvar vm-summary-update-hook nil
|
|
|
2154 "*List of hook functions called just after VM updates an existing
|
|
|
2155 entry a folder summary.")
|
|
|
2156
|
|
|
2157 (defvar vm-summary-redo-hook nil
|
|
|
2158 "*List of hook functions called just after VM adds or deletes
|
|
|
2159 entries from a folder summary.")
|
|
|
2160
|
|
|
2161 (defvar vm-visit-folder-hook nil
|
|
|
2162 "*List of hook functions called just after VM visits a folder.
|
|
|
2163 It doesn't matter if the folder buffer already exists, this hook
|
|
|
2164 is run each time vm or vm-visit-folder is called interactively.
|
|
|
2165 It is NOT run after vm-mode is called.")
|
|
|
2166
|
|
|
2167 (defvar vm-retrieved-spooled-mail-hook nil
|
|
|
2168 "*List of hook functions called just after VM has retrieved
|
|
|
2169 a group of messages from your system mailbox(es). When these
|
|
|
2170 hooks are run, the messages have been added to the folder buffer
|
|
|
2171 but not the message list or summary. When the hooks are run, the
|
|
|
2172 current buffer will be the folder where the messages were
|
|
|
2173 incorporated.")
|
|
|
2174
|
|
|
2175 (defvar vm-edit-message-hook nil
|
|
|
2176 "*List of hook functions to be run just before a message is edited.
|
|
|
2177 This is the last thing vm-edit-message does before leaving the user
|
|
|
2178 in the edit buffer.")
|
|
|
2179
|
|
|
2180 (defvar vm-mail-mode-hook nil
|
|
|
2181 "*List of hook functions to be run after a Mail mode
|
|
|
2182 composition buffer has been created. This is the last thing VM
|
|
|
2183 does before leaving the user in the Mail mode buffer.")
|
|
|
2184
|
|
|
2185 (defvar vm-mode-hook nil
|
|
|
2186 "*List of hook functions to run when a buffer enters vm-mode.
|
|
|
2187 These hook functions should generally be used to set key bindings
|
|
|
2188 and local variables.")
|
|
|
2189
|
|
|
2190 (defvar vm-mode-hooks nil
|
|
|
2191 "*Old name for vm-mode-hook.
|
|
|
2192 Supported for backward compatibility.
|
|
|
2193 You should use the new name.")
|
|
|
2194
|
|
|
2195 (defvar vm-summary-mode-hook nil
|
|
|
2196 "*List of hook functions to run when a VM summary buffer is created.
|
|
|
2197 The current buffer will be that buffer when the hooks are run.")
|
|
|
2198
|
|
|
2199 (defvar vm-summary-mode-hooks nil
|
|
|
2200 "*Old name for vm-summary-mode-hook.
|
|
|
2201 Supported for backward compatibility.
|
|
|
2202 You should use the new name.")
|
|
|
2203
|
|
|
2204 (defvar vm-virtual-mode-hook nil
|
|
|
2205 "*List of hook functions to run when a VM virtual folder buffer is created.
|
|
|
2206 The current buffer will be that buffer when the hooks are run.")
|
|
|
2207
|
|
114
|
2208 (defvar vm-presentation-mode-hook nil
|
|
|
2209 "*List of hook functions to run when a VM presentation buffer is created.
|
|
|
2210 The current buffer will be that buffer when the hooks are run.
|
|
|
2211 Presentation buffers are used to display messages when some type of decoding
|
|
|
2212 must be done to the message to make it presentable. E.g. MIME decoding.")
|
|
|
2213
|
|
0
|
2214 (defvar vm-quit-hook nil
|
|
|
2215 "*List of hook functions to run when you quit VM.
|
|
|
2216 This applies to any VM quit command.")
|
|
|
2217
|
|
|
2218 (defvar vm-summary-pointer-update-hook nil
|
|
|
2219 "*List of hook functions to run when VM summary pointer is updated.
|
|
|
2220 When the hooks are run, the current buffer will be the summary buffer.")
|
|
|
2221
|
|
|
2222 (defvar vm-display-buffer-hook nil
|
|
|
2223 "*List of hook functions that are run every time VM wants to
|
|
|
2224 display a buffer. When the hooks are run the current buffer will
|
|
|
2225 be the buffer that VM wants to display. The hooks are expected
|
|
|
2226 to select a window and VM will display the buffer in that
|
|
|
2227 window.
|
|
|
2228
|
|
|
2229 If you use display hooks, you should not use VM's builtin window
|
|
|
2230 configuration system as the result is likely to be confusing.")
|
|
|
2231
|
|
|
2232 (defvar vm-undisplay-buffer-hook nil
|
|
|
2233 "*List of hook functions that are run every time VM wants to
|
|
|
2234 remove a buffer from the display. When the hooks are run the
|
|
|
2235 current buffer will be the buffer that VM wants to disappear.
|
|
|
2236 The hooks are expected to do the work of removing the buffer from
|
|
|
2237 the display. The hook functions should not kill the buffer.
|
|
|
2238
|
|
|
2239 If you use undisplay hooks, you should not use VM's builtin
|
|
|
2240 window configuration system as the result is likely to be
|
|
|
2241 confusing.")
|
|
|
2242
|
|
|
2243 (defvar vm-iconify-frame-hook nil
|
|
|
2244 "*List of hook functions that are run whenever VM iconifies a frame.")
|
|
|
2245
|
|
|
2246 (defvar vm-menu-setup-hook nil
|
|
76
|
2247 "*List of hook functions that are run just after all menus are initialized.")
|
|
20
|
2248
|
|
98
|
2249 (defvar vm-mime-display-function nil
|
|
|
2250 "*If non-nil, this should name a function to be called inside
|
|
|
2251 vm-decode-mime-message to do the MIME display the current
|
|
|
2252 message. The function is called with no arguments, and at the
|
|
|
2253 time of the call the current buffer will be the `presentation'
|
|
|
2254 buffer for the folder, which is a temporary buffer that VM uses
|
|
|
2255 for the display of MIME messages. A copy of the current message
|
|
|
2256 will be in the presentation buffer at that time. The normal work
|
|
|
2257 that vm-decode-mime-message would do is not done, because this
|
|
|
2258 function is expected to subsume all of it.")
|
|
|
2259
|
|
0
|
2260 (defvar mail-yank-hooks nil
|
|
|
2261 "Hooks called after a message is yanked into a mail composition.
|
|
|
2262
|
|
|
2263 (This hook is deprecated, you should use mail-citation-hook instead.)
|
|
|
2264
|
|
|
2265 Value is a list of functions to be run.
|
|
|
2266 Each hook function can find the newly yanked message between point and mark.
|
|
|
2267 Each hook function should return with point and mark around the yanked message.
|
|
|
2268
|
|
|
2269 See the documentation for vm-yank-message to see when VM will run
|
|
|
2270 these hooks.")
|
|
|
2271
|
|
|
2272 (defvar mail-citation-hook nil
|
|
|
2273 "*Hook for modifying a citation just inserted in the mail buffer.
|
|
|
2274 Each hook function can find the citation between (point) and (mark t).
|
|
|
2275 And each hook function should leave point and mark around the citation
|
|
|
2276 text as modified.
|
|
|
2277
|
|
|
2278 If this hook is entirely empty (nil), a default action is taken
|
|
|
2279 instead of no action.")
|
|
|
2280
|
|
|
2281 (defvar mail-default-headers nil
|
|
|
2282 "*A string containing header lines, to be inserted in outgoing messages.
|
|
|
2283 It is inserted before you edit the message,
|
|
|
2284 so you can edit or delete these lines.")
|
|
|
2285
|
|
|
2286 (defvar mail-signature nil
|
|
|
2287 "*Text inserted at end of mail buffer when a message is initialized.
|
|
|
2288 If t, it means to insert the contents of the file `~/.signature'.")
|
|
|
2289
|
|
|
2290 (defvar vm-rename-current-buffer-function nil
|
|
|
2291 "*Non-nil value should be a function to call to rename a buffer.
|
|
|
2292 Value should be something that can be passed to `funcall'. If
|
|
|
2293 this variable is non-nil, VM will use this function instead of
|
|
|
2294 its own buffer renaming code. The buffer to be renamed will be
|
|
|
2295 the current buffer when the function is called.")
|
|
|
2296
|
|
|
2297 (defvar mode-popup-menu nil
|
|
|
2298 "The mode-specific popup menu. Automatically buffer local.
|
|
|
2299 By default, when you press mouse-3 in VM, this menu is popped up.")
|
|
|
2300 (make-variable-buffer-local 'mode-popup-menu)
|
|
|
2301
|
|
|
2302 (defvar vm-movemail-program "movemail"
|
|
|
2303 "*Name of program to use to move mail from the system spool
|
|
|
2304 to another location. Normally this should be the movemail program
|
|
|
2305 distributed with Emacs.")
|
|
|
2306
|
|
|
2307 (defvar vm-netscape-program "netscape"
|
|
|
2308 "*Name of program to use to run Netscape.
|
|
|
2309 vm-mouse-send-url-to-netscape uses this.")
|
|
|
2310
|
|
114
|
2311 (defvar vm-netscape-program-switches nil
|
|
|
2312 "*List of command line switches to pass to Netscape.")
|
|
|
2313
|
|
0
|
2314 (defvar vm-mosaic-program "Mosaic"
|
|
|
2315 "*Name of program to use to run Mosaic.
|
|
|
2316 vm-mouse-send-url-to-mosaic uses this.")
|
|
|
2317
|
|
114
|
2318 (defvar vm-mosaic-program-switches nil
|
|
|
2319 "*List of command line switches to pass to Mosaic.")
|
|
|
2320
|
|
118
|
2321 (defvar vm-temp-file-directory
|
|
|
2322 (or (and (file-directory-p "/tmp") "/tmp")
|
|
|
2323 (and (file-directory-p "C:\\") "C:\\")
|
|
|
2324 "/tmp")
|
|
98
|
2325 "*Name of a directory where VM can put temporary files.
|
|
|
2326 This name must not end with a slash.")
|
|
|
2327
|
|
0
|
2328 (defvar vm-tale-is-an-idiot nil
|
|
|
2329 "*Non-nil value causes vm-mail-send to check multi-line recipient
|
|
|
2330 headers of outbound mail for lines that don't end with a
|
|
|
2331 comma. If such a line is found, an error is signaled and the
|
|
|
2332 mail is not sent.")
|
|
|
2333
|
|
|
2334 (defvar vm-maintainer-address "bug-vm@uunet.uu.net"
|
|
|
2335 "Where to send VM bug reports.")
|
|
|
2336
|
|
|
2337 (defvar vm-mode-map
|
|
|
2338 (let ((map (make-sparse-keymap)))
|
|
|
2339 ;; unneeded now that VM buffers all have buffer-read-only == t.
|
|
|
2340 ;; (suppress-keymap map)
|
|
|
2341 (define-key map "h" 'vm-summarize)
|
|
|
2342 (define-key map "\M-n" 'vm-next-unread-message)
|
|
|
2343 (define-key map "\M-p" 'vm-previous-unread-message)
|
|
|
2344 (define-key map "n" 'vm-next-message)
|
|
|
2345 (define-key map "p" 'vm-previous-message)
|
|
|
2346 (define-key map "N" 'vm-next-message-no-skip)
|
|
|
2347 (define-key map "P" 'vm-previous-message-no-skip)
|
|
|
2348 (define-key map "\C-\M-n" 'vm-move-message-forward)
|
|
|
2349 (define-key map "\C-\M-p" 'vm-move-message-backward)
|
|
|
2350 (define-key map "\t" 'vm-goto-message-last-seen)
|
|
|
2351 (define-key map "\r" 'vm-goto-message)
|
|
|
2352 (define-key map "^" 'vm-goto-parent-message)
|
|
|
2353 (define-key map "t" 'vm-expose-hidden-headers)
|
|
|
2354 (define-key map " " 'vm-scroll-forward)
|
|
|
2355 (define-key map "b" 'vm-scroll-backward)
|
|
157
|
2356 (define-key map 'delete 'vm-scroll-backward)
|
|
155
|
2357 (define-key map 'backspace 'vm-scroll-backward)
|
|
98
|
2358 (define-key map "D" 'vm-decode-mime-message)
|
|
0
|
2359 (define-key map "d" 'vm-delete-message)
|
|
|
2360 (define-key map "\C-d" 'vm-delete-message-backward)
|
|
|
2361 (define-key map "u" 'vm-undelete-message)
|
|
|
2362 (define-key map "U" 'vm-unread-message)
|
|
|
2363 (define-key map "e" 'vm-edit-message)
|
|
|
2364 (define-key map "a" 'vm-set-message-attributes)
|
|
|
2365 (define-key map "j" 'vm-discard-cached-data)
|
|
|
2366 (define-key map "k" 'vm-kill-subject)
|
|
|
2367 (define-key map "f" 'vm-followup)
|
|
|
2368 (define-key map "F" 'vm-followup-include-text)
|
|
|
2369 (define-key map "r" 'vm-reply)
|
|
|
2370 (define-key map "R" 'vm-reply-include-text)
|
|
|
2371 (define-key map "\M-r" 'vm-resend-bounced-message)
|
|
|
2372 (define-key map "B" 'vm-resend-message)
|
|
|
2373 (define-key map "z" 'vm-forward-message)
|
|
|
2374 (define-key map "c" 'vm-continue-composing-message)
|
|
|
2375 (define-key map "@" 'vm-send-digest)
|
|
|
2376 (define-key map "*" 'vm-burst-digest)
|
|
|
2377 (define-key map "m" 'vm-mail)
|
|
|
2378 (define-key map "g" 'vm-get-new-mail)
|
|
|
2379 (define-key map "G" 'vm-sort-messages)
|
|
|
2380 (define-key map "v" 'vm-visit-folder)
|
|
|
2381 (define-key map "s" 'vm-save-message)
|
|
|
2382 (define-key map "w" 'vm-save-message-sans-headers)
|
|
|
2383 (define-key map "A" 'vm-auto-archive-messages)
|
|
|
2384 (define-key map "S" 'vm-save-folder)
|
|
|
2385 (define-key map "|" 'vm-pipe-message-to-command)
|
|
|
2386 (define-key map "#" 'vm-expunge-folder)
|
|
|
2387 (define-key map "q" 'vm-quit)
|
|
|
2388 (define-key map "x" 'vm-quit-no-change)
|
|
|
2389 (define-key map "i" 'vm-iconify-frame)
|
|
|
2390 (define-key map "?" 'vm-help)
|
|
|
2391 (define-key map "\C-_" 'vm-undo)
|
|
|
2392 (define-key map "\C-xu" 'vm-undo)
|
|
|
2393 (define-key map "!" 'shell-command)
|
|
|
2394 (define-key map "<" 'vm-beginning-of-message)
|
|
|
2395 (define-key map ">" 'vm-end-of-message)
|
|
|
2396 (define-key map "\M-s" 'vm-isearch-forward)
|
|
|
2397 (define-key map "=" 'vm-summarize)
|
|
|
2398 (define-key map "L" 'vm-load-init-file)
|
|
|
2399 (define-key map "l" (make-sparse-keymap))
|
|
|
2400 (define-key map "la" 'vm-add-message-labels)
|
|
|
2401 (define-key map "ld" 'vm-delete-message-labels)
|
|
|
2402 (define-key map "V" (make-sparse-keymap))
|
|
|
2403 (define-key map "VV" 'vm-visit-virtual-folder)
|
|
|
2404 (define-key map "VC" 'vm-create-virtual-folder)
|
|
|
2405 (define-key map "VA" 'vm-apply-virtual-folder)
|
|
|
2406 (define-key map "VM" 'vm-toggle-virtual-mirror)
|
|
|
2407 (define-key map "V?" 'vm-virtual-help)
|
|
|
2408 (define-key map "M" (make-sparse-keymap))
|
|
|
2409 (define-key map "MN" 'vm-next-command-uses-marks)
|
|
|
2410 (define-key map "Mn" 'vm-next-command-uses-marks)
|
|
|
2411 (define-key map "MM" 'vm-mark-message)
|
|
|
2412 (define-key map "MU" 'vm-unmark-message)
|
|
|
2413 (define-key map "Mm" 'vm-mark-all-messages)
|
|
|
2414 (define-key map "Mu" 'vm-clear-all-marks)
|
|
|
2415 (define-key map "MC" 'vm-mark-matching-messages)
|
|
|
2416 (define-key map "Mc" 'vm-unmark-matching-messages)
|
|
|
2417 (define-key map "MT" 'vm-mark-thread-subtree)
|
|
|
2418 (define-key map "Mt" 'vm-unmark-thread-subtree)
|
|
|
2419 (define-key map "MS" 'vm-mark-messages-same-subject)
|
|
|
2420 (define-key map "Ms" 'vm-unmark-messages-same-subject)
|
|
|
2421 (define-key map "MA" 'vm-mark-messages-same-author)
|
|
|
2422 (define-key map "Ma" 'vm-unmark-messages-same-author)
|
|
98
|
2423 (define-key map "MR" 'vm-mark-summary-region)
|
|
|
2424 (define-key map "Mr" 'vm-unmark-summary-region)
|
|
0
|
2425 (define-key map "M?" 'vm-mark-help)
|
|
|
2426 (define-key map "W" (make-sparse-keymap))
|
|
|
2427 (define-key map "WW" 'vm-apply-window-configuration)
|
|
|
2428 (define-key map "WS" 'vm-save-window-configuration)
|
|
|
2429 (define-key map "WD" 'vm-delete-window-configuration)
|
|
|
2430 (define-key map "W?" 'vm-window-help)
|
|
|
2431 (define-key map "\C-t" 'vm-toggle-threads-display)
|
|
|
2432 (define-key map "\C-x\C-s" 'vm-save-buffer)
|
|
|
2433 (define-key map "\C-x\C-w" 'vm-write-file)
|
|
|
2434 (define-key map "\C-x\C-q" 'vm-toggle-read-only)
|
|
|
2435 (define-key map "%" 'vm-change-folder-type)
|
|
|
2436 (define-key map "\M-C" 'vm-show-copying-restrictions)
|
|
|
2437 (define-key map "\M-W" 'vm-show-no-warranty)
|
|
|
2438 ;; suppress-keymap provides these, but now that we don't use
|
|
|
2439 ;; suppress-keymap anymore...
|
|
|
2440 (define-key map "0" 'digit-argument)
|
|
|
2441 (define-key map "1" 'digit-argument)
|
|
|
2442 (define-key map "2" 'digit-argument)
|
|
|
2443 (define-key map "3" 'digit-argument)
|
|
|
2444 (define-key map "4" 'digit-argument)
|
|
|
2445 (define-key map "5" 'digit-argument)
|
|
|
2446 (define-key map "6" 'digit-argument)
|
|
|
2447 (define-key map "7" 'digit-argument)
|
|
|
2448 (define-key map "8" 'digit-argument)
|
|
|
2449 (define-key map "9" 'digit-argument)
|
|
|
2450 (define-key map "-" 'negative-argument)
|
|
118
|
2451 (cond ((fboundp 'set-keymap-name)
|
|
|
2452 (set-keymap-name map 'vm-mode-map)
|
|
|
2453 (set-keymap-name (lookup-key map "l")
|
|
|
2454 "VM mode message labels map")
|
|
|
2455 (set-keymap-name (lookup-key map "V")
|
|
|
2456 "VM mode virtual folders map")
|
|
|
2457 (set-keymap-name (lookup-key map "M")
|
|
|
2458 "VM mode message marks map")
|
|
|
2459 (set-keymap-name (lookup-key map "W")
|
|
|
2460 "VM mode window configuration map")))
|
|
|
2461
|
|
0
|
2462 map )
|
|
|
2463 "Keymap for VM mode.")
|
|
|
2464
|
|
|
2465 (defvar vm-summary-mode-map vm-mode-map
|
|
|
2466 "Keymap for VM Summary mode")
|
|
|
2467
|
|
|
2468 (defvar vm-mail-mode-map
|
|
|
2469 (let ((map (make-sparse-keymap)))
|
|
|
2470 (define-key map "\C-c\C-v" vm-mode-map)
|
|
98
|
2471 (define-key map "\C-c\C-p" 'vm-mime-preview-composition)
|
|
|
2472 (define-key map "\C-c\C-e" 'vm-mime-encode-composition)
|
|
|
2473 (define-key map "\C-c\C-a" 'vm-mime-attach-file)
|
|
126
|
2474 ;; (define-key map "\C-c\C-m" 'vm-mime-attach-mime-file)
|
|
0
|
2475 (define-key map "\C-c\C-y" 'vm-yank-message)
|
|
|
2476 (define-key map "\C-c\C-s" 'vm-mail-send)
|
|
|
2477 (define-key map "\C-c\C-c" 'vm-mail-send-and-exit)
|
|
118
|
2478 (cond ((fboundp 'set-keymap-name)
|
|
|
2479 (set-keymap-name map 'vm-mail-mode-map)))
|
|
0
|
2480 map )
|
|
118
|
2481 "Keymap for VM Mail mode buffers.
|
|
|
2482 Its parent keymap is mail-mode-map.")
|
|
0
|
2483
|
|
|
2484 (defvar vm-edit-message-map
|
|
|
2485 (let ((map (make-sparse-keymap)))
|
|
|
2486 (define-key map "\C-c\C-v" vm-mode-map)
|
|
|
2487 (define-key map "\C-c\e" 'vm-edit-message-end)
|
|
|
2488 (define-key map "\C-c\C-c" 'vm-edit-message-end)
|
|
|
2489 (define-key map "\C-c\C-]" 'vm-edit-message-abort)
|
|
118
|
2490 (cond ((fboundp 'set-keymap-name)
|
|
|
2491 (set-keymap-name map 'vm-edit-message-map)))
|
|
0
|
2492 map )
|
|
|
2493 "Keymap for the buffers created by VM's vm-edit-message command.")
|
|
|
2494
|
|
|
2495 (defvar vm-folder-history nil
|
|
|
2496 "List of folders visited this Emacs session.")
|
|
|
2497
|
|
|
2498 ;; internal vars
|
|
|
2499 (defvar vm-folder-type nil)
|
|
|
2500 (make-variable-buffer-local 'vm-folder-type)
|
|
|
2501 (defvar vm-message-list nil)
|
|
|
2502 (make-variable-buffer-local 'vm-message-list)
|
|
|
2503 (defvar vm-virtual-folder-definition nil)
|
|
|
2504 (make-variable-buffer-local 'vm-virtual-folder-definition)
|
|
|
2505 (defvar vm-virtual-buffers nil)
|
|
|
2506 (make-variable-buffer-local 'vm-virtual-buffers)
|
|
|
2507 (defvar vm-real-buffers nil)
|
|
|
2508 (make-variable-buffer-local 'vm-real-buffers)
|
|
|
2509 (defvar vm-message-pointer nil)
|
|
|
2510 (make-variable-buffer-local 'vm-message-pointer)
|
|
|
2511 (defvar vm-message-order-changed nil)
|
|
|
2512 (make-variable-buffer-local 'vm-message-order-changed)
|
|
|
2513 (defvar vm-message-order-header-present nil)
|
|
|
2514 (make-variable-buffer-local 'vm-message-order-header-present)
|
|
|
2515 (defvar vm-last-message-pointer nil)
|
|
|
2516 (make-variable-buffer-local 'vm-last-message-pointer)
|
|
|
2517 (defvar vm-mail-buffer nil)
|
|
|
2518 (make-variable-buffer-local 'vm-mail-buffer)
|
|
98
|
2519 (defvar vm-presentation-buffer nil)
|
|
|
2520 (make-variable-buffer-local 'vm-presentation-buffer)
|
|
|
2521 (defvar vm-presentation-buffer-handle nil)
|
|
|
2522 (make-variable-buffer-local 'vm-presentation-buffer-handle)
|
|
|
2523 (defvar vm-mime-decoded nil)
|
|
|
2524 (make-variable-buffer-local 'vm-mime-decoded)
|
|
0
|
2525 (defvar vm-summary-buffer nil)
|
|
|
2526 (make-variable-buffer-local 'vm-summary-buffer)
|
|
|
2527 (defvar vm-summary-pointer nil)
|
|
|
2528 (make-variable-buffer-local 'vm-summary-pointer)
|
|
|
2529 (defvar vm-system-state nil)
|
|
|
2530 (make-variable-buffer-local 'vm-system-state)
|
|
|
2531 (defvar vm-undo-record-list nil)
|
|
|
2532 (make-variable-buffer-local 'vm-undo-record-list)
|
|
|
2533 (defvar vm-saved-undo-record-list nil)
|
|
|
2534 (make-variable-buffer-local 'vm-saved-undo-record-list)
|
|
|
2535 (defvar vm-undo-record-pointer nil)
|
|
|
2536 (make-variable-buffer-local 'vm-undo-record-pointer)
|
|
|
2537 (defvar vm-last-save-folder nil)
|
|
|
2538 (make-variable-buffer-local 'vm-last-save-folder)
|
|
|
2539 (defvar vm-last-written-file nil)
|
|
|
2540 (make-variable-buffer-local 'vm-last-written-file)
|
|
|
2541 (defvar vm-last-visit-folder nil)
|
|
|
2542 (defvar vm-last-pipe-command nil)
|
|
|
2543 (make-variable-buffer-local 'vm-last-pipe-command)
|
|
|
2544 (defvar vm-messages-not-on-disk 0)
|
|
|
2545 (make-variable-buffer-local 'vm-messages-not-on-disk)
|
|
|
2546 (defvar vm-totals nil)
|
|
|
2547 (make-variable-buffer-local 'vm-totals)
|
|
|
2548 (defvar vm-modification-counter 0)
|
|
|
2549 (make-variable-buffer-local 'vm-modification-counter)
|
|
|
2550 (defvar vm-flushed-modification-counter nil)
|
|
|
2551 (make-variable-buffer-local 'vm-flushed-modification-counter)
|
|
98
|
2552 (defvar vm-tempfile-counter 0)
|
|
0
|
2553 (defvar vm-messages-needing-summary-update nil)
|
|
|
2554 (defvar vm-buffers-needing-display-update nil)
|
|
|
2555 (defvar vm-numbering-redo-start-point nil)
|
|
|
2556 (make-variable-buffer-local 'vm-numbering-redo-start-point)
|
|
|
2557 (defvar vm-numbering-redo-end-point nil)
|
|
|
2558 (make-variable-buffer-local 'vm-numbering-redo-end-point)
|
|
|
2559 (defvar vm-summary-redo-start-point nil)
|
|
|
2560 (make-variable-buffer-local 'vm-summary-redo-start-point)
|
|
|
2561 (defvar vm-need-summary-pointer-update nil)
|
|
|
2562 (make-variable-buffer-local 'vm-need-summary-pointer-update)
|
|
|
2563 (defvar vm-thread-obarray nil)
|
|
|
2564 (make-variable-buffer-local 'vm-thread-obarray)
|
|
|
2565 (defvar vm-thread-subject-obarray nil)
|
|
|
2566 (make-variable-buffer-local 'vm-thread-subject-obarray)
|
|
|
2567 (defvar vm-label-obarray nil)
|
|
|
2568 (make-variable-buffer-local 'vm-label-obarray)
|
|
|
2569 (defvar vm-block-new-mail nil)
|
|
|
2570 (make-variable-buffer-local 'vm-block-new-mail)
|
|
|
2571 (defvar vm-saved-buffer-modified-p nil)
|
|
|
2572 (make-variable-buffer-local 'vm-saved-buffer-modified-p)
|
|
|
2573 (defvar vm-kept-mail-buffers nil)
|
|
|
2574 (defvar vm-inhibit-write-file-hook nil)
|
|
100
|
2575 ;; used to choose between the default and
|
|
|
2576 ;; mail-extract-address-components but I don't see the utility of
|
|
|
2577 ;; it anymore. It tries to be too smart.
|
|
|
2578 ;;(defvar vm-chop-full-name-function 'vm-choose-chop-full-name-function)
|
|
|
2579 (defvar vm-chop-full-name-function 'vm-default-chop-full-name)
|
|
0
|
2580 (defvar vm-session-beginning t)
|
|
|
2581 (defvar vm-init-file-loaded nil)
|
|
|
2582 (defvar vm-window-configurations nil)
|
|
|
2583 (defvar vm-window-configuration nil)
|
|
|
2584 (defvar vm-message-id-number 0)
|
|
|
2585 (defconst vm-spool-directory
|
|
|
2586 (or (and (boundp 'rmail-spool-directory) rmail-spool-directory)
|
|
|
2587 "/usr/spool/mail/"))
|
|
|
2588 (defconst vm-content-length-search-regexp "^Content-Length:.*\n\\|\\(\n\n\\)")
|
|
|
2589 (defconst vm-content-length-header "Content-Length:")
|
|
|
2590 (defconst vm-attributes-header-regexp
|
|
|
2591 "^X-VM-\\(Attributes\\|v5-Data\\):\\(.*\n\\([ \t].*\n\\)*\\)")
|
|
|
2592 (defconst vm-attributes-header "X-VM-v5-Data:")
|
|
|
2593 (defconst vm-message-order-header-regexp "^X-VM-Message-Order:")
|
|
|
2594 (defconst vm-message-order-header "X-VM-Message-Order:")
|
|
|
2595 (defconst vm-bookmark-header-regexp "^X-VM-Bookmark:")
|
|
|
2596 (defconst vm-bookmark-header "X-VM-Bookmark:")
|
|
|
2597 (defconst vm-summary-header-regexp "^X-VM-Summary-Format:")
|
|
|
2598 (defconst vm-summary-header "X-VM-Summary-Format:")
|
|
|
2599 (defconst vm-vheader-header-regexp "^X-VM-VHeader:")
|
|
|
2600 (defconst vm-vheader-header "X-VM-VHeader:")
|
|
|
2601 (defconst vm-labels-header-regexp "^X-VM-Labels:")
|
|
|
2602 (defconst vm-labels-header "X-VM-Labels:")
|
|
|
2603 (defconst vm-berkeley-mail-status-header "Status: ")
|
|
|
2604 (defconst vm-berkeley-mail-status-header-regexp "^Status: \\(..?\\)\n")
|
|
|
2605 (defvar vm-matched-header-vector (make-vector 6 nil))
|
|
|
2606 (defconst vm-supported-folder-types
|
|
|
2607 '("From_" "From_-with-Content-Length" "mmdf" "babyl"))
|
|
|
2608 (defconst vm-supported-window-configurations
|
|
98
|
2609 '(
|
|
|
2610 ("default")
|
|
0
|
2611 ("startup")
|
|
|
2612 ("quitting")
|
|
|
2613 ("composing-message")
|
|
|
2614 ("editing-message")
|
|
|
2615 ("marking-message")
|
|
|
2616 ("reading-message")
|
|
|
2617 ("searching-message")
|
|
98
|
2618 ("vm")
|
|
|
2619 ("vm-add-message-labels")
|
|
|
2620 ("vm-apply-virtual-folder")
|
|
|
2621 ("vm-auto-archive-messages")
|
|
|
2622 ("vm-beginning-of-message")
|
|
|
2623 ("vm-burst-digest")
|
|
|
2624 ("vm-burst-mime-digest")
|
|
|
2625 ("vm-burst-rfc1153-digest")
|
|
|
2626 ("vm-burst-rfc934-digest")
|
|
|
2627 ("vm-change-folder-type")
|
|
|
2628 ("vm-clear-all-marks")
|
|
|
2629 ("vm-continue-composing-message")
|
|
|
2630 ("vm-create-virtual-folder")
|
|
|
2631 ("vm-decode-mime-message")
|
|
0
|
2632 ("vm-delete-message")
|
|
|
2633 ("vm-delete-message-backward")
|
|
98
|
2634 ("vm-delete-message-labels")
|
|
|
2635 ("vm-discard-cached-data")
|
|
70
|
2636 ("vm-edit-message")
|
|
98
|
2637 ("vm-edit-message-abort")
|
|
70
|
2638 ("vm-edit-message-end")
|
|
98
|
2639 ("vm-edit-message-other-frame")
|
|
|
2640 ("vm-end-of-message")
|
|
|
2641 ("vm-expose-hidden-headers")
|
|
|
2642 ("vm-expunge-folder")
|
|
|
2643 ("vm-followup")
|
|
|
2644 ("vm-followup-include-text")
|
|
|
2645 ("vm-followup-include-text-other-frame")
|
|
|
2646 ("vm-followup-other-frame")
|
|
|
2647 ("vm-forward-message")
|
|
|
2648 ("vm-forward-message-all-headers")
|
|
|
2649 ("vm-forward-message-all-headers-other-frame")
|
|
|
2650 ("vm-forward-message-other-frame")
|
|
|
2651 ("vm-get-new-mail")
|
|
|
2652 ("vm-goto-message")
|
|
|
2653 ("vm-goto-message-last-seen")
|
|
|
2654 ("vm-goto-parent-message")
|
|
|
2655 ("vm-help")
|
|
|
2656 ("vm-isearch-forward")
|
|
|
2657 ("vm-kill-subject")
|
|
|
2658 ("vm-load-init-file")
|
|
|
2659 ("vm-mail")
|
|
|
2660 ("vm-mail-other-frame")
|
|
|
2661 ("vm-mail-other-window")
|
|
|
2662 ("vm-mail-send")
|
|
|
2663 ("vm-mail-send-and-exit")
|
|
|
2664 ("vm-mark-all-messages")
|
|
|
2665 ("vm-mark-help")
|
|
|
2666 ("vm-mark-matching-messages")
|
|
|
2667 ("vm-mark-message")
|
|
|
2668 ("vm-mark-messages-same-author")
|
|
|
2669 ("vm-mark-messages-same-subject")
|
|
|
2670 ("vm-mark-summary-region")
|
|
|
2671 ("vm-mark-thread-subtree")
|
|
|
2672 ("vm-mode")
|
|
|
2673 ("vm-move-message-backward")
|
|
|
2674 ("vm-move-message-backward-physically")
|
|
|
2675 ("vm-move-message-forward")
|
|
|
2676 ("vm-move-message-forward-physically")
|
|
|
2677 ("vm-next-command-uses-marks")
|
|
|
2678 ("vm-next-message")
|
|
|
2679 ("vm-next-message-no-skip")
|
|
|
2680 ("vm-next-message-no-skip")
|
|
|
2681 ("vm-next-message-same-subject")
|
|
|
2682 ("vm-next-unread-message")
|
|
|
2683 ("vm-other-frame")
|
|
|
2684 ("vm-other-window")
|
|
|
2685 ("vm-pipe-message-to-command")
|
|
|
2686 ("vm-previous-message")
|
|
|
2687 ("vm-previous-message-no-skip")
|
|
|
2688 ("vm-previous-message-no-skip")
|
|
|
2689 ("vm-previous-message-same-subject")
|
|
|
2690 ("vm-previous-unread-message")
|
|
70
|
2691 ("vm-quit")
|
|
98
|
2692 ("vm-quit-just-bury")
|
|
|
2693 ("vm-quit-just-iconify")
|
|
|
2694 ("vm-quit-no-change")
|
|
|
2695 ("vm-reply")
|
|
|
2696 ("vm-reply-include-text")
|
|
|
2697 ("vm-reply-include-text-other-frame")
|
|
|
2698 ("vm-reply-other-frame")
|
|
|
2699 ("vm-resend-bounced-message")
|
|
|
2700 ("vm-resend-bounced-message-other-frame")
|
|
|
2701 ("vm-resend-message")
|
|
|
2702 ("vm-resend-message-other-frame")
|
|
|
2703 ("vm-save-and-expunge-folder")
|
|
0
|
2704 ("vm-save-buffer")
|
|
|
2705 ("vm-save-folder")
|
|
98
|
2706 ("vm-save-message")
|
|
|
2707 ("vm-save-message-sans-headers")
|
|
|
2708 ("vm-scroll-backward")
|
|
|
2709 ("vm-scroll-forward")
|
|
|
2710 ("vm-send-digest")
|
|
|
2711 ("vm-send-digest-other-frame")
|
|
|
2712 ("vm-send-mime-digest")
|
|
|
2713 ("vm-send-mime-digest-other-frame")
|
|
|
2714 ("vm-send-rfc1153-digest")
|
|
|
2715 ("vm-send-rfc1153-digest-other-frame")
|
|
|
2716 ("vm-send-rfc934-digest")
|
|
|
2717 ("vm-send-rfc934-digest-other-frame")
|
|
|
2718 ("vm-set-message-attributes")
|
|
|
2719 ("vm-show-copying-restrictions")
|
|
|
2720 ("vm-show-no-warranty")
|
|
|
2721 ("vm-sort-messages")
|
|
|
2722 ("vm-submit-bug-report")
|
|
|
2723 ("vm-summarize")
|
|
|
2724 ("vm-summarize-other-frame")
|
|
|
2725 ("vm-toggle-read-only")
|
|
|
2726 ("vm-toggle-threads-display")
|
|
|
2727 ("vm-undelete-message")
|
|
|
2728 ("vm-undo")
|
|
|
2729 ("vm-unmark-matching-messages")
|
|
|
2730 ("vm-unmark-message")
|
|
|
2731 ("vm-unmark-messages-same-author")
|
|
|
2732 ("vm-unmark-messages-same-subject")
|
|
|
2733 ("vm-unmark-summary-region")
|
|
|
2734 ("vm-unmark-thread-subtree")
|
|
|
2735 ("vm-unread-message")
|
|
|
2736 ("vm-virtual-help")
|
|
0
|
2737 ("vm-visit-folder")
|
|
|
2738 ("vm-visit-folder-other-frame")
|
|
|
2739 ("vm-visit-folder-other-window")
|
|
|
2740 ("vm-visit-virtual-folder")
|
|
|
2741 ("vm-visit-virtual-folder-other-frame")
|
|
98
|
2742 ("vm-visit-virtual-folder-other-window")
|
|
|
2743 ("vm-write-file")
|
|
|
2744 ("vm-yank-message")
|
|
|
2745 ("vm-yank-message-other-folder")
|
|
|
2746 ))
|
|
0
|
2747 (defconst vm-supported-sort-keys
|
|
|
2748 '("date" "reversed-date"
|
|
|
2749 "author" "reversed-author"
|
|
|
2750 "subject" "reversed-subject"
|
|
|
2751 "recipients" "reversed-recipients"
|
|
|
2752 "line-count" "reversed-line-count"
|
|
|
2753 "byte-count" "reversed-byte-count"
|
|
|
2754 "physical-order" "reversed-physical-order"))
|
|
|
2755 (defconst vm-supported-interactive-virtual-selectors
|
|
|
2756 '(("any")
|
|
|
2757 ("header")
|
|
|
2758 ("label")
|
|
|
2759 ("text")
|
|
|
2760 ("recipient")
|
|
|
2761 ("author")
|
|
|
2762 ("subject")
|
|
|
2763 ("sent-before")
|
|
|
2764 ("sent-after")
|
|
|
2765 ("more-chars-than")
|
|
|
2766 ("less-chars-than")
|
|
|
2767 ("more-lines-than")
|
|
|
2768 ("less-lines-than")
|
|
|
2769 ("new")
|
|
|
2770 ("unread")
|
|
|
2771 ("read")
|
|
|
2772 ("deleted")
|
|
|
2773 ("replied")
|
|
|
2774 ("forwarded")
|
|
|
2775 ("filed")
|
|
|
2776 ("written")
|
|
|
2777 ("edited")
|
|
|
2778 ("marked")))
|
|
|
2779 (defconst vm-supported-attribute-names
|
|
|
2780 '("new"
|
|
|
2781 "unread"
|
|
|
2782 "read"
|
|
|
2783 "deleted"
|
|
|
2784 "replied"
|
|
|
2785 "forwarded"
|
|
|
2786 "redistributed"
|
|
|
2787 "filed"
|
|
|
2788 "written"
|
|
|
2789 "edited"
|
|
|
2790 "undeleted"
|
|
|
2791 "unreplied"
|
|
|
2792 "unforwarded"
|
|
|
2793 "unredistributed"
|
|
|
2794 "unfiled"
|
|
|
2795 "unwritten"
|
|
|
2796 "unedited"
|
|
|
2797 ;; for babyl cogniscenti
|
|
|
2798 "recent"
|
|
|
2799 "unseen"
|
|
|
2800 "answered"
|
|
|
2801 "unanswered"))
|
|
|
2802
|
|
|
2803 (defvar vm-key-functions nil)
|
|
98
|
2804 (defconst vm-digest-type-alist '(("rfc934") ("rfc1153") ("mime")))
|
|
0
|
2805 (defvar vm-completion-auto-correct t
|
|
|
2806 "Non-nil means that minibuffer-complete-file should aggressively erase
|
|
|
2807 the trailing part of a word that caused completion to fail, and retry
|
|
|
2808 the completion with the resulting word.")
|
|
|
2809 (defvar vm-minibuffer-completion-table nil
|
|
|
2810 "Completion table used by vm-minibuffer-complete-word.
|
|
|
2811 Should be just a list of strings, not an alist or an obarray.")
|
|
|
2812 (defvar vm-completion-auto-space t
|
|
|
2813 "Non-nil value means that vm-minibuffer-complete-word should automatically
|
|
|
2814 append a space to words that complete unambiguously.")
|
|
|
2815 (defconst vm-attributes-vector-length 9)
|
|
114
|
2816 (defconst vm-cache-vector-length 21)
|
|
98
|
2817 (defconst vm-softdata-vector-length 18)
|
|
0
|
2818 (defconst vm-location-data-vector-length 6)
|
|
|
2819 (defconst vm-mirror-data-vector-length 5)
|
|
|
2820 (defconst vm-startup-message-lines
|
|
|
2821 '("Please use \\[vm-submit-bug-report] to report bugs."
|
|
98
|
2822 "For discussion about the VM mail reader, see the gnu.emacs.vm.info newsgroup"
|
|
0
|
2823 "You may give out copies of VM. Type \\[vm-show-copying-restrictions] to see the conditions"
|
|
|
2824 "VM comes with ABSOLUTELY NO WARRANTY; type \\[vm-show-no-warranty] for full details"
|
|
|
2825 "In Stereo (where available)"))
|
|
|
2826 (defconst vm-startup-message-displayed nil)
|
|
|
2827 ;; for the mode line
|
|
|
2828 (defvar vm-mode-line-format
|
|
|
2829 '("" " %&%& "
|
|
98
|
2830 ("VM " vm-version ": "
|
|
0
|
2831 (vm-folder-read-only "read-only ")
|
|
|
2832 (vm-virtual-folder-definition (vm-virtual-mirror "mirrored "))
|
|
|
2833 "%b"
|
|
|
2834 (vm-mail-buffer (vm-ml-sort-keys ("" " by " vm-ml-sort-keys)))
|
|
|
2835 (vm-message-list
|
|
|
2836 (" " vm-ml-message-number
|
|
|
2837 " (of " vm-ml-highest-message-number ")")
|
|
|
2838 (vm-folder-type
|
|
|
2839 " (unrecognized folder type)"
|
|
|
2840 " (no messages)")))
|
|
100
|
2841 (vm-spooled-mail-waiting " Mail")
|
|
0
|
2842 (vm-message-list
|
|
|
2843 (" %[ " vm-ml-message-attributes-alist
|
|
|
2844 (vm-ml-labels ("; " vm-ml-labels)) " %] ")
|
|
|
2845 (" %[%] "))
|
|
|
2846 "%p" " " global-mode-string))
|
|
|
2847
|
|
|
2848 (defvar vm-ml-message-attributes-alist
|
|
|
2849 '((vm-ml-message-new
|
|
|
2850 "new"
|
|
|
2851 (vm-ml-message-unread
|
|
|
2852 "unread"
|
|
|
2853 (vm-ml-message-read "read")))
|
|
|
2854 (vm-ml-message-edited " edited")
|
|
|
2855 (vm-ml-message-filed " filed")
|
|
|
2856 (vm-ml-message-written " written")
|
|
|
2857 (vm-ml-message-replied " replied")
|
|
|
2858 (vm-ml-message-forwarded " forwarded")
|
|
|
2859 (vm-ml-message-redistributed " redistributed")
|
|
|
2860 (vm-ml-message-deleted " deleted")
|
|
|
2861 (vm-ml-message-marked " MARKED")))
|
|
|
2862 (defvar vm-ml-message-number nil)
|
|
|
2863 (make-variable-buffer-local 'vm-ml-message-number)
|
|
|
2864 (defvar vm-ml-highest-message-number nil)
|
|
|
2865 (make-variable-buffer-local 'vm-ml-highest-message-number)
|
|
|
2866 (defvar vm-ml-sort-keys nil)
|
|
|
2867 (make-variable-buffer-local 'vm-ml-sort-keys)
|
|
|
2868 (defvar vm-ml-labels nil)
|
|
|
2869 (make-variable-buffer-local 'vm-ml-labels)
|
|
|
2870 ; unused now
|
|
|
2871 ;(defvar vm-ml-attributes-string nil)
|
|
|
2872 ;(make-variable-buffer-local 'vm-ml-attributes-string)
|
|
|
2873 (defvar vm-ml-message-new nil)
|
|
|
2874 (make-variable-buffer-local 'vm-ml-message-new)
|
|
|
2875 (defvar vm-ml-message-unread nil)
|
|
|
2876 (make-variable-buffer-local 'vm-ml-message-unread)
|
|
|
2877 (defvar vm-ml-message-read nil)
|
|
|
2878 (make-variable-buffer-local 'vm-ml-message-read)
|
|
|
2879 (defvar vm-ml-message-edited nil)
|
|
|
2880 (make-variable-buffer-local 'vm-ml-message-edited)
|
|
|
2881 (defvar vm-ml-message-replied nil)
|
|
|
2882 (make-variable-buffer-local 'vm-ml-message-replied)
|
|
|
2883 (defvar vm-ml-message-forwarded nil)
|
|
|
2884 (make-variable-buffer-local 'vm-ml-message-forwarded)
|
|
|
2885 (defvar vm-ml-message-redistributed nil)
|
|
|
2886 (make-variable-buffer-local 'vm-ml-message-redistributed)
|
|
|
2887 (defvar vm-ml-message-deleted nil)
|
|
|
2888 (make-variable-buffer-local 'vm-ml-message-deleted)
|
|
|
2889 (defvar vm-ml-message-filed nil)
|
|
|
2890 (make-variable-buffer-local 'vm-ml-message-filed)
|
|
|
2891 (defvar vm-ml-message-written nil)
|
|
|
2892 (make-variable-buffer-local 'vm-ml-message-written)
|
|
|
2893 (defvar vm-ml-message-marked nil)
|
|
|
2894 (make-variable-buffer-local 'vm-ml-message-marked)
|
|
|
2895 ;; to make the tanjed compiler shut up
|
|
|
2896 (defvar vm-pop-read-point nil)
|
|
100
|
2897 (defvar vm-pop-ok-to-ask nil)
|
|
0
|
2898 (defvar vm-reply-list nil)
|
|
|
2899 (defvar vm-forward-list nil)
|
|
|
2900 (defvar vm-redistribute-list nil)
|
|
|
2901 (defvar current-itimer nil)
|
|
|
2902 (defvar current-menubar nil)
|
|
|
2903 (defvar scrollbar-height nil)
|
|
|
2904 (defvar top-toolbar nil)
|
|
|
2905 (defvar top-toolbar-height nil)
|
|
|
2906 (defvar bottom-toolbar nil)
|
|
|
2907 (defvar bottom-toolbar-height nil)
|
|
|
2908 (defvar right-toolbar nil)
|
|
|
2909 (defvar right-toolbar-width nil)
|
|
|
2910 (defvar left-toolbar nil)
|
|
|
2911 (defvar left-toolbar-width nil)
|
|
|
2912 ;; this defvar matches the XEmacs one so it doesn't matter if VM
|
|
|
2913 ;; is loaded before highlight-headers.el
|
|
|
2914 (defvar highlight-headers-regexp "Subject[ \t]*:")
|
|
|
2915 (defvar vm-url-regexp
|
|
175
|
2916 "<URL:\\([^>\n]+\\)>\\|\\(\\(file\\|ftp\\|gopher\\|http\\|https\\|news\\|wais\\|www\\)://[^ \t\n\f\r\"<>|()]*[^ \t\n\f\r\"<>|.!?(){}]\\)\\|\\(mailto:[^ \t\n\f\r\"<>|()]*[^ \t\n\f\r\"<>|.!?(){}]\\)"
|
|
98
|
2917 "Regular expression that matches an absolute URL.
|
|
|
2918 The URL itself must be matched by a \\(..\\) grouping.
|
|
|
2919 VM will extract the URL by copying the lowest number grouping
|
|
|
2920 that has a match.")
|
|
0
|
2921 (defconst vm-month-alist
|
|
|
2922 '(("jan" "January" "1")
|
|
|
2923 ("feb" "February" "2")
|
|
|
2924 ("mar" "March" "3")
|
|
|
2925 ("apr" "April" "4")
|
|
|
2926 ("may" "May" "5")
|
|
|
2927 ("jun" "June" "6")
|
|
|
2928 ("jul" "July" "7")
|
|
|
2929 ("aug" "August" "8")
|
|
|
2930 ("sep" "September" "9")
|
|
|
2931 ("oct" "October" "10")
|
|
|
2932 ("nov" "November" "11")
|
|
|
2933 ("dec" "December" "12")))
|
|
|
2934 (defvar vm-pop-passwords nil)
|
|
|
2935 (defvar pop-up-frames nil)
|
|
|
2936 (defvar vm-parse-date-workspace (make-vector 6 nil))
|
|
|
2937 ;; cache so we don't call timezone-make-date-sortable so much.
|
|
|
2938 ;; messages have their own cache; this is for the virtual folder
|
|
|
2939 ;; alist selectors.
|
|
|
2940 (defvar vm-sortable-date-alist nil)
|
|
|
2941 (defvar vm-summary-=> nil)
|
|
|
2942 (defvar vm-summary-no-=> nil)
|
|
|
2943 (defvar vm-summary-overlay nil)
|
|
|
2944 (make-variable-buffer-local 'vm-summary-overlay)
|
|
|
2945 (defvar vm-thread-loop-obarray (make-vector 29 0))
|
|
|
2946 (defvar vm-delete-duplicates-obarray (make-vector 29 0))
|
|
118
|
2947 (defvar vm-image-obarray (make-vector 29 0))
|
|
0
|
2948 (defvar vm-mail-mode-map-parented nil)
|
|
|
2949 (defvar vm-xface-cache (make-vector 29 0))
|
|
98
|
2950 (defconst vm-mime-base64-alphabet
|
|
|
2951 (concat
|
|
|
2952 [
|
|
|
2953 65 66 67 68 69 70 71 72 73 74 75 76 77
|
|
|
2954 78 79 80 81 82 83 84 85 86 87 88 89 90
|
|
|
2955 97 98 99 100 101 102 103 104 105 106 107 108 109
|
|
|
2956 110 111 112 113 114 115 116 117 118 119 120 121 122
|
|
|
2957 48 49 50 51 52 53 54 55 56 57 43 47
|
|
|
2958 ]
|
|
|
2959 ))
|
|
|
2960 (defconst vm-mime-base64-alphabet-decoding-vector
|
|
|
2961 [
|
|
|
2962 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
|
|
|
2963 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
|
|
|
2964 0 0 0 0 0 0 0 0 0 0 0 62 0 0 0 63
|
|
|
2965 52 53 54 55 56 57 58 59 60 61 0 0 0 0 0 0
|
|
|
2966 0 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14
|
|
|
2967 15 16 17 18 19 20 21 22 23 24 25 0 0 0 0 0
|
|
|
2968 0 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
|
|
|
2969 41 42 43 44 45 46 47 48 49 50 51 0 0 0 0 0
|
|
|
2970 ])
|
|
|
2971
|
|
|
2972 ;;(defconst vm-mime-base64-alphabet-decoding-alist
|
|
|
2973 ;; '(
|
|
|
2974 ;; ( 65 . 00) ( 66 . 01) ( 67 . 02) ( 68 . 03) ( 69 . 04) ( 70 . 05)
|
|
|
2975 ;; ( 71 . 06) ( 72 . 07) ( 73 . 08) ( 74 . 09) ( 75 . 10) ( 76 . 11)
|
|
|
2976 ;; ( 77 . 12) ( 78 . 13) ( 79 . 14) ( 80 . 15) ( 81 . 16) ( 82 . 17)
|
|
|
2977 ;; ( 83 . 18) ( 84 . 19) ( 85 . 20) ( 86 . 21) ( 87 . 22) ( 88 . 23)
|
|
|
2978 ;; ( 89 . 24) ( 90 . 25) ( 97 . 26) ( 98 . 27) ( 99 . 28) (100 . 29)
|
|
|
2979 ;; (101 . 30) (102 . 31) (103 . 32) (104 . 33) (105 . 34) (106 . 35)
|
|
|
2980 ;; (107 . 36) (108 . 37) (109 . 38) (110 . 39) (111 . 40) (112 . 41)
|
|
|
2981 ;; (113 . 42) (114 . 43) (115 . 44) (116 . 45) (117 . 46) (118 . 47)
|
|
|
2982 ;; (119 . 48) (120 . 49) (121 . 50) (122 . 51) ( 48 . 52) ( 49 . 53)
|
|
|
2983 ;; ( 50 . 54) ( 51 . 55) ( 52 . 56) ( 53 . 57) ( 54 . 58) ( 55 . 59)
|
|
|
2984 ;; ( 56 . 60) ( 57 . 61) ( 43 . 62) ( 47 . 63)
|
|
|
2985 ;; ))
|
|
|
2986 ;;
|
|
|
2987 ;;(defvar vm-mime-base64-alphabet-decoding-vector
|
|
|
2988 ;; (let ((v (make-vector 123 nil))
|
|
|
2989 ;; (p vm-mime-base64-alphabet-decoding-alist))
|
|
|
2990 ;; (while p
|
|
|
2991 ;; (aset v (car (car p)) (cdr (car p)))
|
|
|
2992 ;; (setq p (cdr p)))
|
|
|
2993 ;; v ))
|
|
|
2994
|
|
|
2995 (defvar vm-message-garbage-alist nil)
|
|
|
2996 (make-variable-buffer-local 'vm-message-garbage-alist)
|
|
|
2997 (defvar vm-folder-garbage-alist nil)
|
|
|
2998 (make-variable-buffer-local 'vm-folder-garbage-alist)
|
|
|
2999 (defconst vm-mime-header-list '("MIME-Version:" "Content-"))
|
|
100
|
3000 (defconst vm-mime-mule-charset-to-coding-alist
|
|
98
|
3001 '(
|
|
|
3002 ("us-ascii" no-conversion)
|
|
|
3003 ("iso-8859-1" no-conversion)
|
|
|
3004 ("iso-8859-2" iso-8859-2)
|
|
|
3005 ("iso-8859-3" iso-8859-3)
|
|
|
3006 ("iso-8859-4" iso-8859-4)
|
|
|
3007 ("iso-8859-5" iso-8859-5)
|
|
|
3008 ("iso-8859-6" iso-8859-6)
|
|
|
3009 ("iso-8859-7" iso-8859-7)
|
|
|
3010 ("iso-8859-8" iso-8859-8)
|
|
|
3011 ("iso-8859-9" iso-8859-9)
|
|
|
3012 ("iso-2022-jp" iso-2022-jp)
|
|
|
3013 ;; probably not correct, but probably better than nothing.
|
|
|
3014 ("iso-2022-jp-2" iso-2022-jp)
|
|
|
3015 ("iso-2022-int-1" iso-2022-int-1)
|
|
|
3016 ("iso-2022-kr" iso-2022-kr)
|
|
|
3017 ("euc-kr" iso-2022-kr)
|
|
|
3018 ))
|
|
100
|
3019 (defvar vm-mime-mule-charset-to-charset-alist
|
|
|
3020 '(
|
|
|
3021 (latin-iso8859-1 "iso-8859-1")
|
|
|
3022 (latin-iso8859-2 "iso-8859-2")
|
|
|
3023 (latin-iso8859-3 "iso-8859-3")
|
|
|
3024 (latin-iso8859-4 "iso-8859-4")
|
|
|
3025 (cyrillic-iso8859-5 "iso-8859-5")
|
|
|
3026 (arabic-iso8859-6 "iso-8859-6")
|
|
|
3027 (greek-iso8859-7 "iso-8859-7")
|
|
|
3028 (hebrew-iso8859-8 "iso-8859-8")
|
|
|
3029 (latin-iso8859-9 "iso-8859-9")
|
|
|
3030 (japanese-jisx0208 "iso-2022-jp")
|
|
|
3031 (korean-ksc5601 "iso-2022-kr")
|
|
|
3032 (chinese-gb2312 "iso-2022-jp")
|
|
|
3033 (sisheng "iso-2022-jp")
|
|
|
3034 (thai-tis620 "iso-2022-jp")
|
|
|
3035 ))
|
|
|
3036 (defvar vm-mime-mule-coding-to-charset-alist
|
|
|
3037 '(
|
|
|
3038 (iso-2022-8 "iso-2022-jp")
|
|
|
3039 (iso-2022-7-unix "iso-2022-jp")
|
|
|
3040 (iso-2022-7-dos "iso-2022-jp")
|
|
|
3041 (iso-2022-7-mac "iso-2022-jp")
|
|
|
3042 ))
|
|
98
|
3043 (defconst vm-mime-charset-completion-alist
|
|
|
3044 '(
|
|
|
3045 ("us-ascii")
|
|
|
3046 ("iso-8859-1")
|
|
|
3047 ("iso-8859-2")
|
|
|
3048 ("iso-8859-3")
|
|
|
3049 ("iso-8859-4")
|
|
|
3050 ("iso-8859-5")
|
|
|
3051 ("iso-8859-6")
|
|
|
3052 ("iso-8859-7")
|
|
|
3053 ("iso-8859-8")
|
|
|
3054 ("iso-8859-9")
|
|
|
3055 ("iso-2022-jp")
|
|
|
3056 ("iso-2022-jp-2")
|
|
|
3057 ("iso-2022-int-1")
|
|
|
3058 ("iso-2022-kr")
|
|
|
3059 ))
|
|
|
3060 (defconst vm-mime-type-completion-alist
|
|
|
3061 '(
|
|
|
3062 ("text/plain")
|
|
|
3063 ("text/enriched")
|
|
|
3064 ("text/html")
|
|
|
3065 ("audio/basic")
|
|
|
3066 ("image/jpeg")
|
|
|
3067 ("image/png")
|
|
|
3068 ("image/gif")
|
|
|
3069 ("image/tiff")
|
|
|
3070 ("video/mpeg")
|
|
|
3071 ("application/postscript")
|
|
|
3072 ("application/octet-stream")
|
|
|
3073 ("message/rfc822")
|
|
108
|
3074 ("message/news")
|
|
98
|
3075 ))
|
|
|
3076 (defconst vm-mime-encoded-word-regexp
|
|
|
3077 "=\\?\\([^?]+\\)\\?\\([BQ]\\)\\?\\([^?]+\\)\\?=")
|
|
|
3078 ;; for MS-DOS and Windows NT
|
|
|
3079 ;; nil value means text file
|
|
|
3080 ;; t value means binary file
|
|
|
3081 ;; presumably it controls whether LF -> CRLF mapping is done
|
|
|
3082 ;; when writing to files.
|
|
|
3083 (defvar buffer-file-type)
|
|
|
3084 (defvar vm-frame-list nil)
|
|
|
3085 (if (not (boundp 'shell-command-switch))
|
|
|
3086 (defvar shell-command-switch "-c"))
|
|
120
|
3087
|
|
|
3088 (defconst vm-xemacs-p nil)
|
|
|
3089 (defconst vm-xemacs-mule-p nil)
|
|
|
3090 (defconst vm-fsfemacs-19-p nil)
|
|
126
|
3091 (defun vm-xemacs-p () vm-xemacs-p)
|
|
|
3092 (defun vm-xemacs-mule-p () vm-xemacs-mule-p)
|
|
|
3093 (defun vm-fsfemacs-19-p () vm-fsfemacs-19-p)
|
|
120
|
3094 (defun vm-note-emacs-version ()
|
|
|
3095 (setq vm-xemacs-p (string-match "XEmacs" emacs-version)
|
|
|
3096 vm-xemacs-mule-p (and vm-xemacs-p (featurep 'mule)
|
|
|
3097 ;; paranoia
|
|
|
3098 (fboundp 'set-file-coding-system))
|
|
|
3099 vm-fsfemacs-19-p (not vm-xemacs-p)))
|
|
|
3100 (vm-note-emacs-version)
|
