Mercurial > hg > xemacs-beta

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
1:c0c6a60d29db 2:ac2d302a0011
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))
532 ((equal vm-forwarding-digest-type nil) 536 ((equal vm-forwarding-digest-type nil)
533 (vm-no-frills-encapsulate-message 537 (vm-no-frills-encapsulate-message
534 (car vm-forward-list) vm-forwarded-headers 538 (car vm-forward-list) vm-forwarded-headers
535 vm-unforwarded-header-regexp))) 539 vm-unforwarded-header-regexp)))
536 (mail-position-on-field "To")) 540 (mail-position-on-field "To"))
684 mlist vm-rfc934-digest-headers 688 mlist vm-rfc934-digest-headers
685 vm-rfc934-digest-discard-header-regexp)) 689 vm-rfc934-digest-discard-header-regexp))
686 ((equal vm-digest-send-type "rfc1153") 690 ((equal vm-digest-send-type "rfc1153")
687 (vm-rfc1153-encapsulate-messages 691 (vm-rfc1153-encapsulate-messages
688 mlist vm-rfc1153-digest-headers 692 mlist vm-rfc1153-digest-headers
689 vm-rfc1153-digest-discard-header-regexp))) 693 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)))
690 (goto-char start) 698 (goto-char start)
691 (setq mp mlist) 699 (setq mp mlist)
692 (if prefix 700 (if prefix
693 (progn 701 (progn
694 (vm-unsaved-message "Building digest preamble...") 702 (vm-unsaved-message "Building digest preamble...")
714 722
715 (defun vm-send-rfc1153-digest (&optional preamble) 723 (defun vm-send-rfc1153-digest (&optional preamble)
716 "Like vm-send-digest but always sends an RFC 1153 digest." 724 "Like vm-send-digest but always sends an RFC 1153 digest."
717 (interactive "P") 725 (interactive "P")
718 (let ((vm-digest-send-type "rfc1153")) 726 (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"))
719 (vm-send-digest preamble))) 733 (vm-send-digest preamble)))
720 734
721 (defun vm-continue-composing-message (&optional not-picky) 735 (defun vm-continue-composing-message (&optional not-picky)
722 "Find and select the most recently used mail composition buffer. 736 "Find and select the most recently used mail composition buffer.
723 If the selected buffer is already a Mail mode buffer then it is 737 If the selected buffer is already a Mail mode buffer then it is
850 vm-send-digest-other-frame 864 vm-send-digest-other-frame
851 vm-send-rfc934-digest 865 vm-send-rfc934-digest
852 vm-send-rfc934-digest-other-frame 866 vm-send-rfc934-digest-other-frame
853 vm-send-rfc1153-digest 867 vm-send-rfc1153-digest
854 vm-send-rfc1153-digest-other-frame 868 vm-send-rfc1153-digest-other-frame
869 vm-send-rfc1521-digest
870 vm-send-rfc1521-digest-other-frame
855 vm-forward-message 871 vm-forward-message
856 vm-forward-message-other-frame 872 vm-forward-message-other-frame
857 vm-forward-message-all-headers 873 vm-forward-message-all-headers
858 vm-forward-message-all-headers-other-frame 874 vm-forward-message-all-headers-other-frame
859 vm-resend-message 875 vm-resend-message
983 (let ((vm-frame-per-composition nil) 999 (let ((vm-frame-per-composition nil)
984 (vm-search-other-frames nil)) 1000 (vm-search-other-frames nil))
985 (vm-send-rfc1153-digest prefix)) 1001 (vm-send-rfc1153-digest prefix))
986 (if (vm-multiple-frames-possible-p) 1002 (if (vm-multiple-frames-possible-p)
987 (vm-set-hooks-for-frame-deletion))) 1003 (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)))