Mercurial > hg > xemacs-beta

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b11
author cvs
date Mon, 13 Aug 2007 09:24:17 +0200
parents 8619ce7e4c50
children cca96a509cfe
comparison
equal deleted inserted replaced
117:578fd4947a72 118:7d55a9ba150c
413 encode it as needed. 413 encode it as needed.
414 414
415 A nil value means VM will not offer any support for composing 415 A nil value means VM will not offer any support for composing
416 MIME messages.") 416 MIME messages.")
417 417
418 (defvar vm-honor-mime-content-disposition nil 418 (defvar vm-honor-mime-content-disposition t
419 "*Non-nil value means use information from the Content-Disposition header 419 "*Non-nil value means use information from the Content-Disposition header
420 to display MIME messages. The Content-Disposition header 420 to display MIME messages. The Content-Disposition header
421 specifies whether a MIME object should be displayed inline or 421 specifies whether a MIME object should be displayed inline or
422 treated as an attachment. For VM, ``inline'' display means 422 treated as an attachment. For VM, ``inline'' display means
423 displaying the object in the Emacs buffer, if possible. 423 displaying the object in the Emacs buffer, if possible.
448 that type are assumed to be included. 448 that type are assumed to be included.
449 449
450 Note that some types are processed specially, and this variable does not 450 Note that some types are processed specially, and this variable does not
451 apply to them. 451 apply to them.
452 452
453 Multipart/Digest and Message/RFC822 messages are always 453 multipart/digest, message/news and message/rfc822 messages are
454 displayed as a button to avoid visiting a new folder while the 454 always displayed as a button to avoid automatically visiting a
455 user is moving around in the current folder. 455 new folder while you are moving around in the current folder.
456 456
457 Message/Partial messages are always displayed as a button, 457 message/partial messages are always displayed as a button,
458 because there always needs to be a way to trigger the assembly 458 because there always needs to be a way to trigger the assembly
459 of the parts into a full message. 459 of the parts into a full message.
460 460
461 Any type that cannot be displayed internally or externally will 461 Any type that cannot be displayed internally or externally will
462 be displayed as a button that allows you to save the body to a 462 be displayed as a button that allows you to save the body to a
592 can all be encoded in single 8-bit bytes. Also multiple fonts 592 can all be encoded in single 8-bit bytes. Also multiple fonts
593 can only be displayed if you're running under a window system 593 can only be displayed if you're running under a window system
594 e.g. X windows. So this variable will have no effect if you're 594 e.g. X windows. So this variable will have no effect if you're
595 running Emacs on a tty. 595 running Emacs on a tty.
596 596
597 Note that under FSF Emacs any fonts you use must be the same size 597 Note that under FSF Emacs any fonts you use must be the same height
598 as your default font. XEmacs does not have this limitation.") 598 as your default font. XEmacs does not have this limitation.")
599 599
600 (defvar vm-mime-button-face 'gui-button-face 600 (defvar vm-mime-button-face 'gui-button-face
601 "*Face used for text in buttons that trigger the display of MIME objects.") 601 "*Face used for text in buttons that trigger the display of MIME objects.")
602 602
608 such a character is found. 608 such a character is found.
609 609
610 This variable is unused in XEmacs/MULE. Since multiple character 610 This variable is unused in XEmacs/MULE. Since multiple character
611 sets can be displayed in a single buffer under MULE, VM will map 611 sets can be displayed in a single buffer under MULE, VM will map
612 the file coding system of the buffer to a single MIME character 612 the file coding system of the buffer to a single MIME character
613 that can display all the buffer's characters.") 613 set that can display all the buffer's characters.")
614 614
615 (defvar vm-mime-8bit-text-transfer-encoding 'quoted-printable 615 (defvar vm-mime-8bit-text-transfer-encoding 'quoted-printable
616 "*Symbol specifying what kind of transfer encoding to use on 8bit 616 "*Symbol specifying what kind of transfer encoding to use on 8bit
617 text. Characters with the high bit set cannot safely pass 617 text. Characters with the high bit set cannot safely pass
618 through all mail gateways and mail transport software. MIME has 618 through all mail gateways and mail transport software. MIME has
2305 vm-mouse-send-url-to-mosaic uses this.") 2305 vm-mouse-send-url-to-mosaic uses this.")
2306 2306
2307 (defvar vm-mosaic-program-switches nil 2307 (defvar vm-mosaic-program-switches nil
2308 "*List of command line switches to pass to Mosaic.") 2308 "*List of command line switches to pass to Mosaic.")
2309 2309
2310 (defvar vm-temp-file-directory "/tmp" 2310 (defvar vm-temp-file-directory
2311 (or (and (file-directory-p "/tmp") "/tmp")
2312 (and (file-directory-p "C:\\") "C:\\")
2313 "/tmp")
2311 "*Name of a directory where VM can put temporary files. 2314 "*Name of a directory where VM can put temporary files.
2312 This name must not end with a slash.") 2315 This name must not end with a slash.")
2313 2316
2314 (defvar vm-tale-is-an-idiot nil 2317 (defvar vm-tale-is-an-idiot nil
2315 "*Non-nil value causes vm-mail-send to check multi-line recipient 2318 "*Non-nil value causes vm-mail-send to check multi-line recipient
2431 (define-key map "6" 'digit-argument) 2434 (define-key map "6" 'digit-argument)
2432 (define-key map "7" 'digit-argument) 2435 (define-key map "7" 'digit-argument)
2433 (define-key map "8" 'digit-argument) 2436 (define-key map "8" 'digit-argument)
2434 (define-key map "9" 'digit-argument) 2437 (define-key map "9" 'digit-argument)
2435 (define-key map "-" 'negative-argument) 2438 (define-key map "-" 'negative-argument)
2439 (cond ((fboundp 'set-keymap-name)
2440 (set-keymap-name map 'vm-mode-map)
2441 (set-keymap-name (lookup-key map "l")
2442 "VM mode message labels map")
2443 (set-keymap-name (lookup-key map "V")
2444 "VM mode virtual folders map")
2445 (set-keymap-name (lookup-key map "M")
2446 "VM mode message marks map")
2447 (set-keymap-name (lookup-key map "W")
2448 "VM mode window configuration map")))
2449
2436 map ) 2450 map )
2437 "Keymap for VM mode.") 2451 "Keymap for VM mode.")
2438 2452
2439 (defvar vm-summary-mode-map vm-mode-map 2453 (defvar vm-summary-mode-map vm-mode-map
2440 "Keymap for VM Summary mode") 2454 "Keymap for VM Summary mode")
2447 (define-key map "\C-c\C-a" 'vm-mime-attach-file) 2461 (define-key map "\C-c\C-a" 'vm-mime-attach-file)
2448 (define-key map "\C-c\C-m" 'vm-mime-attach-mime-file) 2462 (define-key map "\C-c\C-m" 'vm-mime-attach-mime-file)
2449 (define-key map "\C-c\C-y" 'vm-yank-message) 2463 (define-key map "\C-c\C-y" 'vm-yank-message)
2450 (define-key map "\C-c\C-s" 'vm-mail-send) 2464 (define-key map "\C-c\C-s" 'vm-mail-send)
2451 (define-key map "\C-c\C-c" 'vm-mail-send-and-exit) 2465 (define-key map "\C-c\C-c" 'vm-mail-send-and-exit)
2466 (cond ((fboundp 'set-keymap-name)
2467 (set-keymap-name map 'vm-mail-mode-map)))
2452 map ) 2468 map )
2453 "Keymap for VM Mail mode buffers.") 2469 "Keymap for VM Mail mode buffers.
2470 Its parent keymap is mail-mode-map.")
2454 2471
2455 (defvar vm-edit-message-map 2472 (defvar vm-edit-message-map
2456 (let ((map (make-sparse-keymap))) 2473 (let ((map (make-sparse-keymap)))
2457 (define-key map "\C-c\C-v" vm-mode-map) 2474 (define-key map "\C-c\C-v" vm-mode-map)
2458 (define-key map "\C-c\e" 'vm-edit-message-end) 2475 (define-key map "\C-c\e" 'vm-edit-message-end)
2459 (define-key map "\C-c\C-c" 'vm-edit-message-end) 2476 (define-key map "\C-c\C-c" 'vm-edit-message-end)
2460 (define-key map "\C-c\C-]" 'vm-edit-message-abort) 2477 (define-key map "\C-c\C-]" 'vm-edit-message-abort)
2478 (cond ((fboundp 'set-keymap-name)
2479 (set-keymap-name map 'vm-edit-message-map)))
2461 map ) 2480 map )
2462 "Keymap for the buffers created by VM's vm-edit-message command.") 2481 "Keymap for the buffers created by VM's vm-edit-message command.")
2463 2482
2464 (defvar vm-folder-history nil 2483 (defvar vm-folder-history nil
2465 "List of folders visited this Emacs session.") 2484 "List of folders visited this Emacs session.")
2911 (defvar vm-summary-no-=> nil) 2930 (defvar vm-summary-no-=> nil)
2912 (defvar vm-summary-overlay nil) 2931 (defvar vm-summary-overlay nil)
2913 (make-variable-buffer-local 'vm-summary-overlay) 2932 (make-variable-buffer-local 'vm-summary-overlay)
2914 (defvar vm-thread-loop-obarray (make-vector 29 0)) 2933 (defvar vm-thread-loop-obarray (make-vector 29 0))
2915 (defvar vm-delete-duplicates-obarray (make-vector 29 0)) 2934 (defvar vm-delete-duplicates-obarray (make-vector 29 0))
2935 (defvar vm-image-obarray (make-vector 29 0))
2916 (defvar vm-mail-mode-map-parented nil) 2936 (defvar vm-mail-mode-map-parented nil)
2917 (defvar vm-xface-cache (make-vector 29 0)) 2937 (defvar vm-xface-cache (make-vector 29 0))
2918 (defconst vm-mime-base64-alphabet 2938 (defconst vm-mime-base64-alphabet
2919 (concat 2939 (concat
2920 [ 2940 [