Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-startup.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents 2af401a6ecca
children 2d532a89d707
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
191 (not preserve-auto-save-file)) 191 (not preserve-auto-save-file))
192 (vm-summarize t nil)) 192 (vm-summarize t nil))
193 ;; raise the summary frame if the user wants frames 193 ;; raise the summary frame if the user wants frames
194 ;; raised and if there is a summary frame. 194 ;; raised and if there is a summary frame.
195 (if (and vm-summary-buffer 195 (if (and vm-summary-buffer
196 vm-mutable-frames
196 vm-frame-per-summary 197 vm-frame-per-summary
197 vm-raise-frame-at-startup) 198 vm-raise-frame-at-startup)
198 (vm-raise-frame)) 199 (vm-raise-frame))
199 ;; if vm-mutable-windows is nil, the startup 200 ;; if vm-mutable-windows is nil, the startup
200 ;; configuration can't be applied, so do 201 ;; configuration can't be applied, so do
274 (put 'vm-mode 'mode-class 'special) 275 (put 'vm-mode 'mode-class 'special)
275 276
276 (defun vm-mode (&optional read-only) 277 (defun vm-mode (&optional read-only)
277 "Major mode for reading mail. 278 "Major mode for reading mail.
278 279
279 This is VM 6.31. 280 This is VM 6.32.
280 281
281 Commands: 282 Commands:
282 h - summarize folder contents 283 h - summarize folder contents
283 C-t - toggle threads display 284 C-t - toggle threads display
284 285
439 vm-frame-parameter-alist 440 vm-frame-parameter-alist
440 vm-frame-per-completion 441 vm-frame-per-completion
441 vm-frame-per-composition 442 vm-frame-per-composition
442 vm-frame-per-edit 443 vm-frame-per-edit
443 vm-frame-per-folder 444 vm-frame-per-folder
445 vm-frame-per-help
444 vm-frame-per-summary 446 vm-frame-per-summary
445 vm-highlighted-header-face 447 vm-highlighted-header-face
446 vm-highlighted-header-regexp 448 vm-highlighted-header-regexp
447 vm-honor-page-delimiters 449 vm-honor-page-delimiters
448 vm-image-directory 450 vm-image-directory
537 vm-summary-redo-hook 539 vm-summary-redo-hook
538 vm-summary-show-threads 540 vm-summary-show-threads
539 vm-summary-thread-indent-level 541 vm-summary-thread-indent-level
540 vm-tale-is-an-idiot 542 vm-tale-is-an-idiot
541 vm-temp-file-directory 543 vm-temp-file-directory
544 vm-toolbar-pixmap-directory
542 vm-trust-From_-with-Content-Length 545 vm-trust-From_-with-Content-Length
543 vm-undisplay-buffer-hook 546 vm-undisplay-buffer-hook
544 vm-unforwarded-header-regexp 547 vm-unforwarded-header-regexp
545 vm-url-browser 548 vm-url-browser
546 vm-url-search-limit 549 vm-url-search-limit
738 (progn (vm-summarize t nil) 741 (progn (vm-summarize t nil)
739 (message blurb))) 742 (message blurb)))
740 ;; raise the summary frame if the user wants frames 743 ;; raise the summary frame if the user wants frames
741 ;; raised and if there is a summary frame. 744 ;; raised and if there is a summary frame.
742 (if (and vm-summary-buffer 745 (if (and vm-summary-buffer
746 vm-mutable-frames
743 vm-frame-per-summary 747 vm-frame-per-summary
744 vm-raise-frame-at-startup) 748 vm-raise-frame-at-startup)
745 (vm-raise-frame)) 749 (vm-raise-frame))
746 ;; if vm-mutable-windows is nil, the startup 750 ;; if vm-mutable-windows is nil, the startup
747 ;; configuration can't be applied, so do 751 ;; configuration can't be applied, so do
796 (other-window 1) 800 (other-window 1)
797 (let ((vm-frame-per-folder nil) 801 (let ((vm-frame-per-folder nil)
798 (vm-search-other-frames nil)) 802 (vm-search-other-frames nil))
799 (vm-visit-virtual-folder folder-name read-only))) 803 (vm-visit-virtual-folder folder-name read-only)))
800 804
801 (defun vm-mail () 805 (defun vm-mail (&optional to)
802 "Send a mail message from within VM, or from without." 806 "Send a mail message from within VM, or from without.
807 Optional argument TO is a string that should contain a comma separated
808 recipient list."
803 (interactive) 809 (interactive)
804 (vm-session-initialization) 810 (vm-session-initialization)
805 (vm-select-folder-buffer) 811 (vm-select-folder-buffer)
806 (vm-check-for-killed-summary) 812 (vm-check-for-killed-summary)
807 (vm-mail-internal) 813 (vm-mail-internal nil to)
808 (run-hooks 'vm-mail-hook) 814 (run-hooks 'vm-mail-hook)
809 (run-hooks 'vm-mail-mode-hook)) 815 (run-hooks 'vm-mail-mode-hook))
810 816
811 (defun vm-mail-other-frame () 817 (defun vm-mail-other-frame (&optional to)
812 "Like vm-mail, but run in a newly created frame." 818 "Like vm-mail, but run in a newly created frame.
819 Optional argument TO is a string that should contain a comma separated
820 recipient list."
813 (interactive) 821 (interactive)
814 (vm-session-initialization) 822 (vm-session-initialization)
815 (if (vm-multiple-frames-possible-p) 823 (if (vm-multiple-frames-possible-p)
816 (vm-goto-new-frame 'composition)) 824 (vm-goto-new-frame 'composition))
817 (let ((vm-frame-per-composition nil) 825 (let ((vm-frame-per-composition nil)
818 (vm-search-other-frames nil)) 826 (vm-search-other-frames nil))
819 (vm-mail)) 827 (vm-mail to))
820 (if (vm-multiple-frames-possible-p) 828 (if (vm-multiple-frames-possible-p)
821 (vm-set-hooks-for-frame-deletion))) 829 (vm-set-hooks-for-frame-deletion)))
822 830
823 (defun vm-mail-other-window () 831 (defun vm-mail-other-window (&optional to)
824 "Like vm-mail, but run in a different window." 832 "Like vm-mail, but run in a different window.
833 Optional argument TO is a string that should contain a comma separated
834 recipient list."
825 (interactive) 835 (interactive)
826 (vm-session-initialization) 836 (vm-session-initialization)
827 (if (one-window-p t) 837 (if (one-window-p t)
828 (split-window)) 838 (split-window))
829 (other-window 1) 839 (other-window 1)
830 (let ((vm-frame-per-composition nil) 840 (let ((vm-frame-per-composition nil)
831 (vm-search-other-frames nil)) 841 (vm-search-other-frames nil))
832 (vm-mail))) 842 (vm-mail to)))
833 843
834 (defun vm-submit-bug-report () 844 (defun vm-submit-bug-report ()
835 "Submit a bug report, with pertinent information to the VM bug list." 845 "Submit a bug report, with pertinent information to the VM bug list."
836 (interactive) 846 (interactive)
837 (require 'reporter) 847 (require 'reporter)
885 'vm-frame-parameter-alist 895 'vm-frame-parameter-alist
886 'vm-frame-per-completion 896 'vm-frame-per-completion
887 'vm-frame-per-composition 897 'vm-frame-per-composition
888 'vm-frame-per-edit 898 'vm-frame-per-edit
889 'vm-frame-per-folder 899 'vm-frame-per-folder
900 'vm-frame-per-help
890 'vm-frame-per-summary 901 'vm-frame-per-summary
891 'vm-highlight-url-face 902 'vm-highlight-url-face
892 'vm-highlighted-header-regexp 903 'vm-highlighted-header-regexp
893 'vm-honor-page-delimiters 904 'vm-honor-page-delimiters
894 'vm-image-directory 905 'vm-image-directory
989 'vm-summary-show-threads 1000 'vm-summary-show-threads
990 'vm-summary-thread-indent-level 1001 'vm-summary-thread-indent-level
991 'vm-summary-uninteresting-senders 1002 'vm-summary-uninteresting-senders
992 'vm-summary-uninteresting-senders-arrow 1003 'vm-summary-uninteresting-senders-arrow
993 'vm-tale-is-an-idiot 1004 'vm-tale-is-an-idiot
1005 'vm-toolbar-pixmap-directory
994 'vm-temp-file-directory 1006 'vm-temp-file-directory
995 'vm-trust-From_-with-Content-Length 1007 'vm-trust-From_-with-Content-Length
996 'vm-undisplay-buffer-hook 1008 'vm-undisplay-buffer-hook
997 'vm-unforwarded-header-regexp 1009 'vm-unforwarded-header-regexp
998 'vm-url-browser 1010 'vm-url-browser