Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-menu.el @ 118:7d55a9ba150c r20-1b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b11
author cvs
date Mon, 13 Aug 2007 09:24:17 +0200
parents 360340f9fd5f
children cca96a509cfe
comparison
equal deleted inserted replaced
117:578fd4947a72 118:7d55a9ba150c
429 ["Netscape" 429 ["Netscape"
430 (vm-mouse-send-url-at-position (point) 430 (vm-mouse-send-url-at-position (point)
431 'vm-mouse-send-url-to-netscape) 431 'vm-mouse-send-url-to-netscape)
432 t])))) 432 t]))))
433 433
434 (defconst vm-menu-mailto-url-browser-menu
435 (let ((title (if (vm-menu-fsfemacs-menus-p)
436 (list "Send Mail using ..."
437 "Send Mail using ..."
438 "---"
439 "---")
440 (list "Send Mail using ..."))))
441 (append
442 title
443 (list ["VM" (vm-mouse-send-url-at-position (point) 'ignore) t]))))
444
434 (defconst vm-menu-subject-menu 445 (defconst vm-menu-subject-menu
435 (let ((title (if (vm-menu-fsfemacs-menus-p) 446 (let ((title (if (vm-menu-fsfemacs-menus-p)
436 (list "Take Action on Subject..." 447 (list "Take Action on Subject..."
437 "Take Action on Subject..." 448 "Take Action on Subject..."
438 "---" 449 "---"
662 ;; author menu 673 ;; author menu
663 (vm-easy-menu-define vm-menu-fsfemacs-author-menu (list dummy) nil 674 (vm-easy-menu-define vm-menu-fsfemacs-author-menu (list dummy) nil
664 vm-menu-author-menu) 675 vm-menu-author-menu)
665 ;; url browser menu 676 ;; url browser menu
666 (vm-easy-menu-define vm-menu-fsfemacs-url-browser-menu (list dummy) nil 677 (vm-easy-menu-define vm-menu-fsfemacs-url-browser-menu (list dummy) nil
678 vm-menu-url-browser-menu)
679 ;; mailto url browser menu
680 (vm-easy-menu-define vm-menu-fsfemacs-mailto-url-browser-menu
681 (list dummy) nil
667 vm-menu-url-browser-menu) 682 vm-menu-url-browser-menu)
668 ;; mime dispose menu 683 ;; mime dispose menu
669 (vm-easy-menu-define vm-menu-fsfemacs-mime-dispose-menu 684 (vm-easy-menu-define vm-menu-fsfemacs-mime-dispose-menu
670 (list dummy) nil 685 (list dummy) nil
671 vm-menu-mime-dispose-menu) 686 vm-menu-mime-dispose-menu)
800 (setq o-list (cdr o-list))) 815 (setq o-list (cdr o-list)))
801 (and (not found) (vm-menu-popup-fsfemacs-menu event))))))) 816 (and (not found) (vm-menu-popup-fsfemacs-menu event)))))))
802 817
803 ;; to quiet the byte-compiler 818 ;; to quiet the byte-compiler
804 (defvar vm-menu-fsfemacs-url-browser-menu) 819 (defvar vm-menu-fsfemacs-url-browser-menu)
820 (defvar vm-menu-fsfemacs-mailto-url-browser-menu)
805 (defvar vm-menu-fsfemacs-mime-dispose-menu) 821 (defvar vm-menu-fsfemacs-mime-dispose-menu)
806 822
807 (defun vm-menu-goto-event (event) 823 (defun vm-menu-goto-event (event)
808 (cond ((vm-menu-xemacs-menus-p) 824 (cond ((vm-menu-xemacs-menus-p)
809 ;; Must select window instead of just set-buffer because 825 ;; Must select window instead of just set-buffer because
822 (cond ((and (vm-menu-xemacs-menus-p) vm-use-menus) 838 (cond ((and (vm-menu-xemacs-menus-p) vm-use-menus)
823 (popup-menu vm-menu-url-browser-menu)) 839 (popup-menu vm-menu-url-browser-menu))
824 ((and (vm-menu-fsfemacs-menus-p) vm-use-menus) 840 ((and (vm-menu-fsfemacs-menus-p) vm-use-menus)
825 (vm-menu-popup-fsfemacs-menu 841 (vm-menu-popup-fsfemacs-menu
826 event vm-menu-fsfemacs-url-browser-menu)))) 842 event vm-menu-fsfemacs-url-browser-menu))))
843
844 (defun vm-menu-popup-mailto-url-browser-menu (event)
845 (interactive "e")
846 (vm-menu-goto-event event)
847 (cond ((and (vm-menu-xemacs-menus-p) vm-use-menus)
848 (popup-menu vm-menu-mailto-url-browser-menu))
849 ((and (vm-menu-fsfemacs-menus-p) vm-use-menus)
850 (vm-menu-popup-fsfemacs-menu
851 event vm-menu-fsfemacs-mailto-url-browser-menu))))
827 852
828 (defun vm-menu-popup-mime-dispose-menu (event) 853 (defun vm-menu-popup-mime-dispose-menu (event)
829 (interactive "e") 854 (interactive "e")
830 (vm-menu-goto-event event) 855 (vm-menu-goto-event event)
831 (cond ((and (vm-menu-xemacs-menus-p) vm-use-menus) 856 (cond ((and (vm-menu-xemacs-menus-p) vm-use-menus)