annotate lisp/vm/vm-vars.el @ 20:859a2309aef8 r19-15b93

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