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

comparison lisp/vm/vm-vars.el @ 2:ac2d302a0011 r19-15b2

Import from CVS: tag r19-15b2

author	cvs
date	Mon, 13 Aug 2007 08:46:35 +0200
parents	376386a54a3c
children	49a24b4fd526

comparison

equal deleted inserted replaced

-:c0c6a60d29db
+:ac2d302a0011
 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 "rfc934"
+(defvar vm-digest-send-type "rfc1521"
 "*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
-on the left instead of the right.
+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.")
 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 to
+program as distributed with Emacs, you probably want to set this variable
 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
 ("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")))
+(defconst vm-digest-type-alist '(("rfc934") ("rfc1153") ("rfc1521")))
 (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 @ 2:ac2d302a0011 r19-15b2