Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-vars.el @ 120:cca96a509cfe r20-1b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b12
author cvs
date Mon, 13 Aug 2007 09:25:29 +0200
parents 7d55a9ba150c
children 1370575f1259
comparison
equal deleted inserted replaced
119:d101af7320b8 120:cca96a509cfe
269 Before incorporating message into a visited folder, VM will check that the 269 Before incorporating message into a visited folder, VM will check that the
270 messages are of the same type as that folder. 270 messages are of the same type as that folder.
271 271
272 A nil value means don't do the checks. 272 A nil value means don't do the checks.
273 273
274 Depending on the value of vm-convert-folder-types VM will either 274 If non-nil, VM will either convert the messages to the appropriate
275 convert the messages to the appropriate type before saving or 275 type before saving or incorporating them, or it will signal an
276 incorporating them, or it will signal an error.") 276 error. The value of vm-convert-folder-types determines which
277 action VM will take.")
277 278
278 (defvar vm-convert-folder-types t 279 (defvar vm-convert-folder-types t
279 "*Non-nil value means that when VM checks folder types and finds 280 "*Non-nil value means that when VM checks folder types and finds
280 a mismatch (see vm-check-folder-types), it will convert the 281 a mismatch (see vm-check-folder-types), it will convert the
281 source messages to the type of the destination folder, if it can. 282 source messages to the type of the destination folder, if it can.
681 (defvar vm-mime-attachment-save-directory nil 682 (defvar vm-mime-attachment-save-directory nil
682 "*Non-nil value is a default directory for saving MIME attachments. 683 "*Non-nil value is a default directory for saving MIME attachments.
683 When VM prompts you for a target file name when saving a MIME body, 684 When VM prompts you for a target file name when saving a MIME body,
684 any relative pathnames will be relative to this directory.") 685 any relative pathnames will be relative to this directory.")
685 686
686 (defvar vm-mime-avoid-folding-content-type nil 687 (defvar vm-mime-avoid-folding-content-type t
687 "*Non-nil means don't send folded Content-Type headers in MIME messages. 688 "*Non-nil means don't send folded Content- headers in MIME messages.
688 `Folded' headers are headers broken into multiple lines as specified 689 `Folded' headers are headers broken into multiple lines as specified
689 in RFC822 for readability and to avoid excessive line lengths. At 690 in RFC822 for readability and to avoid excessive line lengths. At
690 least one major UNIX vendor ships a version of sendmail that believes 691 least one major UNIX vendor ships a version of sendmail that believes
691 a folded Content-Type header is a syntax error, and returns any such 692 a folded Content-Type header is a syntax error, and returns any such
692 message to sender. A typical error message from such a sendmail 693 message to sender. A typical error message from such a sendmail
3070 ;; when writing to files. 3071 ;; when writing to files.
3071 (defvar buffer-file-type) 3072 (defvar buffer-file-type)
3072 (defvar vm-frame-list nil) 3073 (defvar vm-frame-list nil)
3073 (if (not (boundp 'shell-command-switch)) 3074 (if (not (boundp 'shell-command-switch))
3074 (defvar shell-command-switch "-c")) 3075 (defvar shell-command-switch "-c"))
3076
3077 (defconst vm-xemacs-p nil)
3078 (defconst vm-xemacs-mule-p nil)
3079 (defconst vm-fsfemacs-19-p nil)
3080 (defun vm-note-emacs-version ()
3081 (setq vm-xemacs-p (string-match "XEmacs" emacs-version)
3082 vm-xemacs-mule-p (and vm-xemacs-p (featurep 'mule)
3083 ;; paranoia
3084 (fboundp 'set-file-coding-system))
3085 vm-fsfemacs-19-p (not vm-xemacs-p)))
3086 (vm-note-emacs-version)