← Back to branch summary

~akwm/vm/abbreviate-headers

« back to all changes in this revision

Viewing changes to lisp/vm-vars.el

  • Committer: Uday S Reddy
  • Date: 2011-03-24 12:49:28 UTC
  • Revision ID: u.s.reddy@cs.bham.ac.uk-20110324124928-7z3ozct7b857dlug
- MIME forwarding now respects vm-forwarded-headers and
vm-unforwarded-header-regexp settings (reversing a change in revision 971).
- Dropping X-Mozilla- headers from forwarded messages.
- Allow nil as the value of vm-forwarding-digest-type as well as
vm-digest-send-type, which means to send plain text digests.
- Some save-excursions changed to with-current-buffer in vm-mime and
vm-reply.  Need testing.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lisp/vm-vars.el
3094
3094
          (const "mime")
3095
3095
          (const "rfc934")
3096
3096
          (const "rfc1153")
3097
 
          (const nil)))
 
3097
          (const nil :tag "Forward in plain text")))
3098
3098
 
3099
3099
(defcustom vm-mime-forward-local-external-bodies nil
3100
3100
  "*Non-nil value means forward messages that contain
3193
3193
  :type '(choice (const "mime")
3194
3194
                 (const "rfc934") 
3195
3195
                 (const "rfc1153") 
3196
 
                 (const nil)))
 
3196
                 (const nil "Plain text digests")))
3197
3197
 
3198
3198
(defcustom vm-rfc934-digest-headers
3199
3199
  '("Resent-"
5593
5593
    (define-key map "\C-d" 'vm-delete-message-backward)
5594
5594
    (define-key map "u" 'vm-undelete-message)
5595
5595
    (define-key map "U" 'vm-unread-message)
5596
 
    (define-key map "." 'vm-flag-message-read)
 
5596
    (define-key map "." 'vm-mark-message-read)
5597
5597
    (define-key map "!" 'vm-toggle-flag-message)
5598
5598
    (define-key map "e" 'vm-edit-message)
5599
5599
    (define-key map "a" 'vm-set-message-attributes)
5834
5834
    (define-key map "$s" 'vm-mime-reader-map-save-message)
5835
5835
    (define-key map "$p" 'vm-mime-reader-map-pipe-to-printer)
5836
5836
    (define-key map "$|" 'vm-mime-reader-map-pipe-to-command)
5837
 
    (define-key map "$a" 'vm-mime-attach-object-from-message)
 
5837
    (define-key map "$a" 'vm-mime-attach-object-to-composition)
5838
5838
    (define-key map "$d" 'vm-delete-mime-object)
5839
5839
    (cond ((vm-mouse-xemacs-mouse-p)
5840
5840
           (define-key map 'button3 'vm-menu-popup-mime-dispose-menu)))
6134
6134
    ("vm-mime-attach-file")
6135
6135
    ("vm-mime-attach-message")
6136
6136
    ("vm-mime-attach-mime-file")
6137
 
    ("vm-mime-attach-object-from-message")
 
6137
    ("vm-mime-attach-object-to-composition")
 
6138
    ("vm-mime-attach-message-to-composition")
6138
6139
    ("vm-mode")
6139
6140
    ("vm-move-message-backward")
6140
6141
    ("vm-move-message-backward-physically")
6589
6590
  "* Set this to non-nil to retain a limited number of IMAP session
6590
6591
  trace buffers for debugging purposes.")
6591
6592
(defvar vm-imap-session-done nil)
6592
 
(defvar vm-reply-list nil)
6593
 
(defvar vm-forward-list nil)
6594
 
(defvar vm-redistribute-list nil)
 
6593
(defvar vm-reply-list nil
 
6594
  "Buffer local variable in Composition buffers that holds the set of
 
6595
  messages to which this composition is a reply.")
 
6596
(defvar vm-forward-list nil
 
6597
  "Buffer local variable in Composition buffers that holds the set of
 
6598
  messages that are forwarded in this composition.")
 
6599
(defvar vm-redistribute-list nil
 
6600
  "Buffer local variable in Composition buffers that holds the set of
 
6601
  messages that are redistributed in this composition.")
6595
6602
 
6596
6603
;; For verification of assertions
6597
6604