xemacs-beta: lisp/vm/vm-vars.el comparison

comparison lisp/vm/vm-vars.el @ 114:8619ce7e4c50 r20-1b9

Import from CVS: tag r20-1b9

author	cvs
date	Mon, 13 Aug 2007 09:21:54 +0200
parents	fe104dbd9147
children	7d55a9ba150c

comparison

equal deleted inserted replaced

-:2ec2fe4a4c89
+:8619ce7e4c50
 (defvar vm-display-using-mime t
 "*Non-nil value means VM should display messages using MIME.
 MIME (Multipurpose Internet Mail Extensions) is a set of
 extensions to the standard Internet message format that allows
 reliable tranmission and reception of arbitrary data including
-images, audio and video as well as traditional text.
+images, audio and video as well as ordinary text.
 A non-nil value for this variable means that VM will recognize
 MIME encoded messages and display them as specified by the
 various MIME standards specifications.
 A nil value means VM will not display MIME messages any
 differently than any other message.")
+(defvar vm-mime-ignore-mime-version nil
+"*Non-nil value means ignore the version number in the MIME-Version
+header.  VM only knows how to decode and display MIME version 1.0
+messages.  Some systems scramble the MIME-Version header, causing
+VM to believe that it cannot display a message that it actually
+can display.  You can set vm-mime-ignore-mime-version non-nil if
+you use such systems.")
 ;; try to avoid bad interaction with TM
 (defvar vm-send-using-mime (not (featurep 'mime-setup))
 "*Non-nil value means VM should support sending messages using MIME.
 MIME (Multipurpose Internet Mail Extensions) is a set of
 An example setup might be:
 (setq vm-mime-charset-font-alist
 '(
-(\"iso-8859-7\" . \"-*-*-medium-r-normal--16-160-72-72-c-80-iso8859-7\")
+(\"iso-8859-7\" . \"-*-*-medium-r-normal-*-16-160-72-72-c-80-iso8859-7\")
 )
 )
 This variable is only useful for character sets whose characters
 can all be encoded in single 8-bit bytes.  Also multiple fonts
 running Emacs on a tty.
 Note that under FSF Emacs any fonts you use must be the same size
 as your default font.  XEmacs does not have this limitation.")
-(defvar vm-mime-button-face
+(defvar vm-mime-button-face 'gui-button-face
-(cond ((and (fboundp 'find-face)
-		(fboundp 'device-type))
-	   (or (and (not (eq (device-type) 'tty)) (find-face 'gui-button-face)
-		    'gui-button-face)
-	       (and (find-face 'bold-italic) 'bold-italic)))
-	  ((fboundp 'facep)
-	   (or (and (facep 'gui-button-face) 'gui-button-face)
-	       (and (facep 'bold-italic) 'bold-italic))))
 "*Face used for text in buttons that trigger the display of MIME objects.")
 (defvar vm-mime-8bit-composition-charset "iso-8859-1"
 "*Character set that VM should assume if it finds non-US-ASCII characters
 in a composition buffer.  Composition buffers are assumed to use
 the start of a digest.  How the lines will be centered depends on the
 ambient value of fill-column.   A nil value suppresses centering.")
 (defvar vm-digest-identifier-header-format "X-Digest: %s\n"
 "*Header to insert into messages burst from a digest.
-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.")
+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.")
 (defvar vm-digest-burst-type "guess"
 "*Value specifies the default digest type offered by vm-burst-digest
 when it asks you what type of digest you want to unpack.  Allowed
 values of this variable are:
 dashes, with digested messages separated by lines of exactly 30 dashes.
 rfc934 digests separate messages on any line that begins with a few
 dashes, but doesn't require lines with only dashes or lines with a
 specific number of dashes.  In the text of the message, any line
-beginning with dashes is textually modified to be preceeded by a dash
+beginning with dashes is textually modified to be preceded by a dash
 and a space to prevent confusion with message separators.
 MIME digests use whatever boundary that is specified by the
 boundary parameter in the Content-Type header of the digest.
 (defvar vm-virtual-mode-hook nil
 "*List of hook functions to run when a VM virtual folder buffer is created.
 The current buffer will be that buffer when the hooks are run.")
+(defvar vm-presentation-mode-hook nil
+"*List of hook functions to run when a VM presentation buffer is created.
+The current buffer will be that buffer when the hooks are run.
+Presentation buffers are used to display messages when some type of decoding
+must be done to the message to make it presentable.  E.g. MIME decoding.")
 (defvar vm-quit-hook nil
 "*List of hook functions to run when you quit VM.
 This applies to any VM quit command.")
 (defvar vm-summary-pointer-update-hook nil
 (defvar vm-netscape-program "netscape"
 "*Name of program to use to run Netscape.
 vm-mouse-send-url-to-netscape uses this.")
+(defvar vm-netscape-program-switches nil
+"*List of command line switches to pass to Netscape.")
 (defvar vm-mosaic-program "Mosaic"
 "*Name of program to use to run Mosaic.
 vm-mouse-send-url-to-mosaic uses this.")
+(defvar vm-mosaic-program-switches nil
+"*List of command line switches to pass to Mosaic.")
 (defvar vm-temp-file-directory "/tmp"
 "*Name of a directory where VM can put temporary files.
 This name must not end with a slash.")
 Should be just a list of strings, not an alist or an obarray.")
 (defvar vm-completion-auto-space t
 "Non-nil value means that vm-minibuffer-complete-word should automatically
 append a space to words that complete unambiguously.")
 (defconst vm-attributes-vector-length 9)
-(defconst vm-cache-vector-length 20)
+(defconst vm-cache-vector-length 21)
 (defconst vm-softdata-vector-length 18)
 (defconst vm-location-data-vector-length 6)
 (defconst vm-mirror-data-vector-length 5)
 (defconst vm-startup-message-lines
 '("Please use \\[vm-submit-bug-report] to report bugs."

Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-vars.el @ 114:8619ce7e4c50 r20-1b9