← Back to branch summary

~vm/vm/vmpc-prompt

« back to all changes in this revision

Viewing changes to lisp/vm-vars.el

  • Committer: Uday S Reddy
  • Date: 2011-03-07 18:20:47 UTC
  • Revision ID: u.s.reddy@cs.bham.ac.uk-20110307182047-zcgruspf5w1x11ll
https://launchpad.net/bugs/494681
Changed vm-forward-message to do plain text forwarding.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lisp/vm-vars.el
3008
3008
  :type '(choice (const nil)
3009
3009
                 (string)))
3010
3010
 
3011
 
(defcustom vm-forwarded-headers nil
3012
 
  "*List of headers that should be forwarded by `vm-forward-message'.
3013
 
These should be listed in the order you wish them to appear in
3014
 
the forwarded message.  Regular expressions are allowed.
3015
 
There's no need to anchor patterns with \"^\", as searches always
3016
 
start at the beginning of a line.  Put a colon at the end of
3017
 
patterns to get exact matches.  (E.g. \"Date\" matches \"Date\"
3018
 
and \"Date-Sent\".)  Header names are always matched case
3019
 
insensitively.
3020
 
 
3021
 
If the value of `vm-unforwarded-header-regexp' is nil, the headers
3022
 
matched by `vm-forwarded-headers' are the only headers that will be
3023
 
forwarded.
3024
 
 
3025
 
If `vm-unforwarded-header-regexp' is non-nil, then headers
3026
 
matched by that variable will be omitted and all others will be
3027
 
forwarded.  In this case, `vm-forwarded-headers' determines the
3028
 
forwarding order in that case, with headers not matching any in
3029
 
the `vm-forwarded-headers' list appearing last in the header
3030
 
section of the forwarded message."
 
3011
(defcustom vm-forwarded-message-preamble-format
 
3012
  "\n---------- Original Message ----------\n"
 
3013
  "*String which specifies the preamble for a forwarded message."
 
3014
  :group 'vm-compose
 
3015
  :type 'string)
 
3016
 
 
3017
(defcustom vm-forwarded-headers         ; originally nil
 
3018
  '("From:" "To:" "Subject:" "Date:" "In-Reply-To:" "References:")
 
3019
  "*List of headers that should be forwarded by
 
3020
`vm-forward-message' and its variants.  These should be listed in
 
3021
the order you wish them to appear in the forwarded message.
 
3022
Regular expressions are allowed.  There's no need to anchor
 
3023
patterns with \"^\", as searches always start at the beginning of
 
3024
a line.  Put a colon at the end of patterns to get exact
 
3025
matches.  (E.g. \"Date\" matches \"Date\" and \"Date-Sent\".)
 
3026
Header names are always matched case insensitively.
 
3027
 
 
3028
For normally forwarded messages, this variable lists all the headers
 
3029
that will be included.
 
3030
 
 
3031
For encapsulated forwarding, the value of`vm-unforwarded-header-regexp' 
 
3032
is also consulted.  If it is nil, then the headers matched by
 
3033
`vm-forwarded-headers' are the only headers that will be
 
3034
forwarded.  If `vm-unforwarded-header-regexp' is non-nil, then
 
3035
headers matched by that variable will be omitted and all others
 
3036
will be forwarded.  In this case, `vm-forwarded-headers'
 
3037
determines the forwarding order in that case, with headers not
 
3038
matching any in the `vm-forwarded-headers' list appearing last in
 
3039
the header section of the forwarded message."
3031
3040
  :group 'vm-compose
3032
3041
  :type '(repeat regexp))
3033
3042
 
3035
3044
  "List of MIME headers that are always included in forwarded messages.")
3036
3045
 
3037
3046
(defcustom vm-unforwarded-header-regexp "none-to-be-dropped"
3038
 
  "*Non-nil value should be a regular expression header that tells
3039
 
what headers should not be forwarded by `vm-forward-message'.  This
3040
 
variable along with `vm-forwarded-headers' determines which headers
3041
 
are forwarded.
 
3047
  "*Non-nil value should be a regular expression header that
 
3048
tells what headers should not be forwarded by
 
3049
`vm-forward-message-encapsulated' and `vm-send-digest'.  This
 
3050
variable along with `vm-forwarded-headers' determines which
 
3051
headers are forwarded.
3042
3052
 
3043
3053
If the value of `vm-unforwarded-header-regexp' is nil, the headers
3044
3054
matched by `vm-forwarded-headers' are the only headers that will be
3058
3068
 
3059
3069
(defcustom vm-forwarding-digest-type "mime"
3060
3070
  "*Non-nil value should be a string that specifies the type of
3061
 
message encapsulation format to use when forwarding a message.
 
3071
message encapsulation format to use when forwarding messages.
3062
3072
Legal values of this variable are:
3063
3073
 
 
3074
\"mime\"
3064
3075
\"rfc934\"
3065
3076
\"rfc1153\"
3066
 
\"mime\"
3067
3077
nil
3068
3078
 
3069
 
A nil value means don't use a digest, just mark the beginning and
3070
 
end of the forwarded message."
 
3079
A nil value has the same effect as \"mime\"."
3071
3080
  :group 'vm-compose
3072
3081
  :type '(choice
 
3082
          (const "mime")
3073
3083
          (const "rfc934")
3074
 
          (const "rfc1153")
3075
 
          (const "mime")
3076
 
          (const :tag "Do not use digests" nil)))
 
3084
          (const "rfc1153")))
3077
3085
 
3078
3086
(defcustom vm-mime-forward-local-external-bodies nil
3079
3087
  "*Non-nil value means forward messages that contain
3081
3089
method.  A nil value means copy the externally referenced objects
3082
3090
into the message before forwarding.  This copying is only done
3083
3091
for objects accessed with the `local-file' access method.  Objects
3084
 
referenced with other method are not copied.
 
3092
referenced with other methods are not copied.
3085
3093
 
3086
3094
Messages that use the mesage/external-body type contain a
3087
3095
reference to an object (image, audio, etc.) instead of the object
5584
5592
    (define-key map "\M-r" 'vm-resend-bounced-message)
5585
5593
    (define-key map "B" 'vm-resend-message)
5586
5594
    (define-key map "z" 'vm-forward-message)
 
5595
    (define-key map "Z" 'vm-forward-message-encapsulated)
5587
5596
    (define-key map "c" 'vm-continue-composing-message)
5588
5597
    (define-key map "@" 'vm-send-digest)
5589
5598
    (define-key map "*" 'vm-burst-digest)
6047
6056
    ("vm-followup-include-text-other-frame")
6048
6057
    ("vm-followup-other-frame")
6049
6058
    ("vm-forward-message")
 
6059
    ("vm-forward-message-encapsulated")
6050
6060
    ("vm-forward-message-all-headers")
6051
6061
    ("vm-forward-message-all-headers-other-frame")
6052
6062
    ("vm-forward-message-other-frame")
 
6063
    ("vm-forward-message-encapsulated-other-frame")
6053
6064
    ("vm-get-new-mail")
6054
6065
    ("vm-goto-message")
6055
6066
    ("vm-goto-message-last-seen")