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

comparison lisp/vm/vm-vars.el @ 10:49a24b4fd526 r19-15b6

Import from CVS: tag r19-15b6

author	cvs
date	Mon, 13 Aug 2007 08:47:52 +0200
parents	ac2d302a0011
children	859a2309aef8

comparison

equal deleted inserted replaced

-:6f2bbbbbe05a
+:49a24b4fd526
 message encapsulation format to use when forwarding a message.
 Legal values of this variable are:
 \"rfc934\"
 \"rfc1153\"
-\"rfc1521\"
 nil
 A nil value means don't use a digest, just mark the beginning and
 end of the forwarded message.")
 when it asks you what type of digest you want to unpack.  Allowed
 values of this variable are:
 \"rfc934\"
 \"rfc1153\"
-\"rfc1521\"
 \"guess\"
 If the value is \"guess\", and you take the default
 response when vm-burst-digest queries you, VM will try to guess
 the digest type.")
-(defvar vm-digest-send-type "rfc1521"
+(defvar vm-digest-send-type "rfc934"
 "*String that specifies the type of digest vm-send-digest will use.
 Legal values of this variable are:
 \"rfc934\"
 \"rfc1153\"
-\"rfc1521\"
 ")
 (defvar vm-rfc934-digest-headers
 '("Resent-"
 headers matched by this variable will be discarded; all others
 will be kept.  vm-rfc1153-digest-headers determines the order of
 appearance in that case, with headers not matching any in the
 vm-rfc1153-digest-headers list appearing last in the headers of
 the digestified messages.")
-(defvar vm-rfc1521-digest-headers
-'()
-"*List of headers that should be appear in RFC 1521 digests
-created by VM.  These should be listed in the order you wish them
-to appear in the digest.  Regular expressions are allowed.
-There is no need to anchor patterns with \"^\", as searches always
-start at the beginning of a line.  Put a colon at the end of
-patterns to get exact matches.  (E.g. \"Date\" matches \"Date\"
-and \"Date-Sent\".)  Header names are always matched case
-insensitively.
-If the value of vm-rfc1521-digest-discard-header-regexp is nil, the headers
-matched by vm-rfc1521-digest-headers are the only headers that will be
-kept.
-If vm-rfc1521-digest-discard-header-regexp is non-nil, then only
-headers matched by that variable will be discarded; all others
-will be kept.  vm-rfc1521-digest-headers determines the order of
-appearance in that case, with headers not matching any in the
-vm-rfc1521-digest-headers list appearing last in the headers of
-the digestified messages.")
-(defvar vm-rfc1521-digest-discard-header-regexp "\\(X400-\\)?Received:"
-"*Non-nil value should be a regular expression header that tells
-what headers should not appear in RFC 1521 digests created by VM.  This
-variable along with vm-rfc1521-digest-headers determines which headers
-are kept and which headers are discarded.
-If the value of vm-rfc1521-digest-discard-header-regexp is nil, the headers
-matched by vm-rfc1521-digest-headers are the only headers that will be
-kept.
-If vm-rfc1521-digest-discard-header-regexp is non-nil, then only
-headers matched by this variable will be discarded; all others
-will be kept.  vm-rfc1521-digest-headers determines the order of
-appearance in that case, with headers not matching any in the
-vm-1521-digest-headers list appearing last in the headers of
-the digestified messages.")
 (defvar vm-resend-bounced-headers
 '("Resent-"
 "From:" "Sender:" "Reply-To:"
 "To:" "Cc:"
 The field width may be followed by a `.' and a number specifying
 the maximum allowed length of the substituted string.  If the
 string is longer than this value the right end of the string is
 truncated.  If the value is negative, the string is truncated on
-the left instead of the right.
+on the left instead of the right.
 The summary format need not be one line per message but it must end with
 a newline, otherwise the message pointer will not be displayed correctly
 in the summary window.")
 This variable has no meaning if you're not running Emacs native
 under X Windows or some other window system that allows multiple
 Emacs frames.")
-;; #### Chuck, I know you don't like external package mods but
+(defvar vm-frame-parameter-alist nil
-;; this one is an absolute travesty, and VM has a simply
-;; abominable time between releases.  If you don't at least give
-;; the VM frames a special name, it makes it impossible for lots
-;; of other things to work sensibly.
-(defvar vm-frame-parameter-alist
-(if (string-match "XEmacs" emacs-version)
-'((folder ((name . "VM")))))
 "*Non-nil value is an alist of types and lists of frame parameters.
 This list tells VM what frame parameters to associate with each
 new frame it creates of a specific type.
 The alist should be of this form
 ((SYMBOL PARAMLIST) (SYMBOL2 PARAMLIST2) ...)
-SYMBOL must be one of `composition', `edit', `folder' or `summary'.
+SYMBOL must be one of `composition', `edit', `folder',
-It specifies the type of frame that the following PARAMLIST applies to.
+`primary-folder' or `summary'.  It specifies the type of frame
+that the following PARAMLIST applies to.
 `composition' specifies parameters for mail composition frames.
 `edit' specifies parameters for message edit frames
 (e.g. created by vm-edit-message-other-frame)
 `folder' specifies parameters for frames created by `vm' and the
 (defvar vm-toolbar-pixmap-directory
 (expand-file-name (concat data-directory "vm/"))
 "*Value specifies the directory VM should find its toolbar pixmaps.")
+(defvar vm-toolbar nil
+"*Non-nil value should be a list of toolbar button descriptors.
+See the documentation for the variable default-toolbar for a
+definition of what a toolbar button descriptor is.
+If vm-toolbar is set non-nil VM will use its value as a toolbar
+instantiator instead of the usual beavior of building a button
+list based on the value of vm-use-toolbar.  vm-use-toolbar still
+must be set non-nil for a toolbar to appear, however.
+Consider this variable experimental; it may not be supported forever.")
 (defvar vm-use-menus '(folder motion send mark label sort
 		       virtual undo dispose emacs nil help)
 "*Non-nil value causes VM to provide a menu interface.
 A value that is a list causes VM to install its own menubar.
 A value of 1 causes VM to install a \"VM\" item in the Emacs menubar.
 This is useful to give the new frame the focus under some window managers
 that randomly place newly created frames.
 Nil means don't move the mouse cursor.")
-;; if browse-url is around (always will be in XEmacs 19.14) use it;
+;; if browse-url is around (always will be in XEmacs 19.14 or later) use it;
 ;; otherwise do our own support.
 (if (boundp 'browse-url-browser-function)
 (defvaralias 'vm-url-browser 'browse-url-browser-function)
 (defvar vm-url-browser
 (cond ((fboundp 'w3-fetch-other-frame)
 	   'w3-fetch-other-frame)
 	  ((fboundp 'w3-fetch)
 	   'w3-fetch)
 	  (t 'vm-mouse-send-url-to-netscape))
 "*Non-nil value means VM should enable URL passing.
 This means that VM will search for URLs (Universal Resource
 Locators) in messages and make it possible for you to pass them
 to a World Wide Web browser.
 Clicking mouse-2 on the URL will send it to the browser.
 Mail.")
 (defvar vm-strip-reply-headers nil
 "*Non-nil value causes VM to strip away all comments and extraneous text
 from the headers generated in reply messages.  If you use the \"fakemail\"
-program as distributed with Emacs, you probably want to set this variable
+program as distributed with Emacs, you probably want to set this variable to
 to t, because as of Emacs v18.52 \"fakemail\" could not handle unstripped
 headers.")
 (defvar vm-inhibit-startup-message nil
 "*Non-nil causes VM not to display its copyright notice, disclaimers
 (defvar vm-iconify-frame-hook nil
 "*List of hook functions that are run whenever VM iconifies a frame.")
 (defvar vm-menu-setup-hook nil
-"*List of hook function that are run just after all menus are initialized.")
+"*List of hook functions that are run just after all menus are initialized.")
 (defvar mail-yank-hooks nil
 "Hooks called after a message is yanked into a mail composition.
 (This hook is deprecated, you should use mail-citation-hook instead.)
 ("vm-kill-subject")
 ("vm-expunge-folder")
 ("vm-burst-digest")
 ("vm-burst-rfc934-digest")
 ("vm-burst-rfc1153-digest")
-("vm-burst-rfc1521-digest")
 ("vm-edit-message")
 ("vm-discard-cached-data")
 ("vm-edit-message-end")
 ("vm-edit-message-abort")
 ("vm-unread-message")
 ("vm-resend-bounced-message")
 ("vm-resend-message")
 ("vm-send-digest")
 ("vm-send-rfc934-digest")
 ("vm-send-rfc1153-digest")
-("vm-send-rfc1521-digest")
 ("vm-reply-other-frame")
 ("vm-reply-include-text-other-frame")
 ("vm-followup-other-frame")
 ("vm-followup-include-text-other-frame")
 ("vm-forward-message-other-frame")
 ("vm-resend-bounced-message-other-frame")
 ("vm-resend-message-other-frame")
 ("vm-send-digest-other-frame")
 ("vm-send-rfc934-digest-other-frame")
 ("vm-send-rfc1153-digest-other-frame")
-("vm-send-rfc1521-digest-other-frame")
 ("vm-continue-composing-message")
 ("vm-auto-archive-messages")
 ("vm-save-message")
 ("vm-save-message-sans-headers")
 ("vm-pipe-message-to-command")
 "unseen"
 "answered"
 "unanswered"))
 (defvar vm-key-functions nil)
-(defconst vm-digest-type-alist '(("rfc934") ("rfc1153") ("rfc1521")))
+(defconst vm-digest-type-alist '(("rfc934") ("rfc1153")))
 (defvar vm-completion-auto-correct t
 "Non-nil means that minibuffer-complete-file should aggressively erase
 the trailing part of a word that caused completion to fail, and retry
 the completion with the resulting word.")
 (defvar vm-minibuffer-completion-table nil

Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-vars.el @ 10:49a24b4fd526 r19-15b6