Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-reply.el @ 76:c0c698873ce1 r20-0b33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b33
author cvs
date Mon, 13 Aug 2007 09:05:10 +0200
parents 131b0175ea99
children 0d2f883870bc
comparison
equal deleted inserted replaced
75:a4e0195b387b 76:c0c698873ce1
527 vm-unforwarded-header-regexp)) 527 vm-unforwarded-header-regexp))
528 ((equal vm-forwarding-digest-type "rfc1153") 528 ((equal vm-forwarding-digest-type "rfc1153")
529 (vm-rfc1153-encapsulate-messages 529 (vm-rfc1153-encapsulate-messages
530 vm-forward-list vm-forwarded-headers 530 vm-forward-list vm-forwarded-headers
531 vm-unforwarded-header-regexp)) 531 vm-unforwarded-header-regexp))
532 ((equal vm-forwarding-digest-type "rfc1521")
533 (vm-rfc1521-encapsulate-messages
534 vm-forward-list vm-forwarded-headers
535 vm-unforwarded-header-regexp))
536 ((equal vm-forwarding-digest-type nil) 532 ((equal vm-forwarding-digest-type nil)
537 (vm-no-frills-encapsulate-message 533 (vm-no-frills-encapsulate-message
538 (car vm-forward-list) vm-forwarded-headers 534 (car vm-forward-list) vm-forwarded-headers
539 vm-unforwarded-header-regexp))) 535 vm-unforwarded-header-regexp)))
540 (mail-position-on-field "To")) 536 (mail-position-on-field "To"))
688 mlist vm-rfc934-digest-headers 684 mlist vm-rfc934-digest-headers
689 vm-rfc934-digest-discard-header-regexp)) 685 vm-rfc934-digest-discard-header-regexp))
690 ((equal vm-digest-send-type "rfc1153") 686 ((equal vm-digest-send-type "rfc1153")
691 (vm-rfc1153-encapsulate-messages 687 (vm-rfc1153-encapsulate-messages
692 mlist vm-rfc1153-digest-headers 688 mlist vm-rfc1153-digest-headers
693 vm-rfc1153-digest-discard-header-regexp)) 689 vm-rfc1153-digest-discard-header-regexp)))
694 ((equal vm-digest-send-type "rfc1521")
695 (vm-rfc1521-encapsulate-messages
696 mlist vm-rfc1521-digest-headers
697 vm-rfc1521-digest-discard-header-regexp)))
698 (goto-char start) 690 (goto-char start)
699 (setq mp mlist) 691 (setq mp mlist)
700 (if prefix 692 (if prefix
701 (progn 693 (progn
702 (vm-unsaved-message "Building digest preamble...") 694 (vm-unsaved-message "Building digest preamble...")
722 714
723 (defun vm-send-rfc1153-digest (&optional preamble) 715 (defun vm-send-rfc1153-digest (&optional preamble)
724 "Like vm-send-digest but always sends an RFC 1153 digest." 716 "Like vm-send-digest but always sends an RFC 1153 digest."
725 (interactive "P") 717 (interactive "P")
726 (let ((vm-digest-send-type "rfc1153")) 718 (let ((vm-digest-send-type "rfc1153"))
727 (vm-send-digest preamble)))
728
729 (defun vm-send-rfc1521-digest (&optional preamble)
730 "Like vm-send-digest but always sends an RFC 1521 (MIME) digest."
731 (interactive "P")
732 (let ((vm-digest-send-type "rfc1521"))
733 (vm-send-digest preamble))) 719 (vm-send-digest preamble)))
734 720
735 (defun vm-continue-composing-message (&optional not-picky) 721 (defun vm-continue-composing-message (&optional not-picky)
736 "Find and select the most recently used mail composition buffer. 722 "Find and select the most recently used mail composition buffer.
737 If the selected buffer is already a Mail mode buffer then it is 723 If the selected buffer is already a Mail mode buffer then it is
864 vm-send-digest-other-frame 850 vm-send-digest-other-frame
865 vm-send-rfc934-digest 851 vm-send-rfc934-digest
866 vm-send-rfc934-digest-other-frame 852 vm-send-rfc934-digest-other-frame
867 vm-send-rfc1153-digest 853 vm-send-rfc1153-digest
868 vm-send-rfc1153-digest-other-frame 854 vm-send-rfc1153-digest-other-frame
869 vm-send-rfc1521-digest
870 vm-send-rfc1521-digest-other-frame
871 vm-forward-message 855 vm-forward-message
872 vm-forward-message-other-frame 856 vm-forward-message-other-frame
873 vm-forward-message-all-headers 857 vm-forward-message-all-headers
874 vm-forward-message-all-headers-other-frame 858 vm-forward-message-all-headers-other-frame
875 vm-resend-message 859 vm-resend-message
999 (let ((vm-frame-per-composition nil) 983 (let ((vm-frame-per-composition nil)
1000 (vm-search-other-frames nil)) 984 (vm-search-other-frames nil))
1001 (vm-send-rfc1153-digest prefix)) 985 (vm-send-rfc1153-digest prefix))
1002 (if (vm-multiple-frames-possible-p) 986 (if (vm-multiple-frames-possible-p)
1003 (vm-set-hooks-for-frame-deletion))) 987 (vm-set-hooks-for-frame-deletion)))
1004
1005 (defun vm-send-rfc1521-digest-other-frame (&optional prefix)
1006 "Like vm-send-rfc1521-digest, but run in a newly created frame."
1007 (interactive "P")
1008 (if (vm-multiple-frames-possible-p)
1009 (vm-goto-new-frame 'composition))
1010 (let ((vm-frame-per-composition nil)
1011 (vm-search-other-frames nil))
1012 (vm-send-rfc1153-digest prefix))
1013 (if (vm-multiple-frames-possible-p)
1014 (vm-set-hooks-for-frame-deletion)))