;ELC ;;; compiled by jwz@thalidomide on Wed Dec 29 01:05:03 1993 ;;; from file /th/jwz/emacs19/lisp/rmail/rmail-lucid.el ;;; emacs version 19.9 Lucid (beta8). ;;; bytecomp version 2.22; 22-dec-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (byte-code "ÀÁ!¬‚ÂÃÄM‡" [boundp rmail-summary-mode-menu ("Rmail Summary Commands" ["Select Message" rmail-summary-goto-msg t nil] "----" ["Previous Page" scroll-down t] ["Next Page" scroll-up t] "----" ["Delete Message" rmail-summary-delete-forward t nil] ["Undelete Message" rmail-summary-undelete t nil] "----" ["Exit rmail Summary" rmail-summary-exit t] ["Quit rmail" rmail-summary-quit t]) rmail-summary-update-menubar #[nil "ÁÂÃÄÅ \n ÌyˆÍ`d`Î\\^{!ωÌU«”Ò Ï\"ˆÒÏ\"ˆÒ\nÏ\"ˆªÜÓ!ˆÕ!Ó!ˆ×  \"@× \"@× \n\"@ØÙ\"‰Þ?IˆßIˆÞIˆßIˆÞàIˆßIˆ,*Òá eV\"ˆÒâ dW\".‡" [rmail-summary-mode-menu ("Select Message") ("Delete Message") ("Undelete Message") ("Previous Page") ("Next Page") next-page prev-page undelete delete select current-menubar 0 string-to-int 5 nil deleted-p curmsg rmail-update-menu-item pop-to-buffer rmail-buffer rmail-message-deleted-p rmail-summary-buffer find-menu-item format "#%d" msg select-menu-item undelete-menu-item delete-menu-item 2 3 t window-start window-end] 7]] 2) (fset 'rmail-summary-mode-menu #[(event) "À !ˆÂyˆÃ ˆÄ !‡" [mouse-set-point event 0 rmail-summary-update-menubar popup-menu rmail-summary-mode-menu] 2 "\ Pops up a menu of applicable rmail summary commands." "e"]) (byte-code "À‡" [("Rmail Commands" ["Previous Page" scroll-down t] ["Next Page" scroll-up t] ["Top Of This Message" rmail-beginning-of-message t] "----" "Go To Message:" "----" ["Next Nondeleted Message" rmail-next-undeleted-message t] ["Previous Nondeleted Message" rmail-previous-undeleted-message t] ["Next Message" rmail-next-message t] ["Previous Message" rmail-previous-message t] ["First Message" rmail-show-message t] ["Last Message" rmail-last-message t] "----" ["Delete This Message" rmail-delete-forward t] ["Undelete This Message" rmail-undelete-previous-message t] ["Save This Message" rmail-output-to-rmail-file t] "----" ["Reply This Message" rmail-reply t] ["Forward This Message" rmail-forward t] "----" ["Add Label" rmail-add-label t] ["Kill Label" rmail-kill-label t] ["Next Labeled Message" rmail-next-labeled-message t] ["Previous Labeled Message" rmail-previous-labeled-message t] ["Summary by Label" rmail-summary-by-labels t] "----" ["Summary" rmail-summary t] ["Get New Mail" rmail-get-new-mail t] ["rmail Input From" rmail-input t] ["Expunge rmail" rmail-expunge t] ["Expunge and Save" rmail-expunge-and-save t] ["Quit rmail" rmail-quit t]) rmail-mode-menu nil] 1) (fset 'rmail-update-menu-item #[(item p) "À \n\"®„ÃÄ\n\"@ÅI‡" [find-menu-item current-menubar item error "couldn't find rmail menu item %S" 2 p] 3 "\ If P is true, enable the menu item. O/w disable it."]) (fset 'rmail-update-menubar #[nil "ÁÂÃÄÅÆÇÈÉÊ   Ö× eV\"ˆÖØ dW\"ˆÖ× eV\"ˆÖU?\"ˆÖÛU?\"ˆT‰ X«ŽÜ !«ˆ T‰ ªmÖ X\"ˆS‰ ÛY«ŽÜ !«ˆ S‰ ªnÖ ÛY\"ˆÖ Ü!?\"ˆÖ Ü!\"ˆ. ݇" [rmail-mode-menu ("Previous Page") ("Next Page") ("Top Of This Message") ("Next Message") ("Previous Message") ("Next Nondeleted Message") ("Previous Nondeleted Message") ("Delete This Message") ("Undelete This Message") nil i undelete delete undel-prev undel-next real-prev real-next top-page next-page prev-page current-menubar rmail-update-menu-item window-start window-end rmail-current-message rmail-total-messages 1 rmail-message-deleted-p t] 12]) (fset 'rmail-mode-menu #[(event) "ÀÁ\n!!ˆÃ ˆÄ !‡" [select-window event-window event rmail-update-menubar popup-menu rmail-mode-menu] 3 "\ Pops up a menu of applicable rmail commands." "e"]) (byte-code "ÀÁMˆÂÃÀ\"ˆÄÅ!ˆÆÇMˆÂÈÆ\"ˆÉÊMˆËÌMˆÂÍË\"ˆÎÏMˆÐÑMˆÒÓMˆÂÔÒ\"ˆÂÔÎ\"ˆÕÖ!‡" [rmail-activate-menubar-hook #[nil "Á=«ƒÂ ‡Ã=­‚Ä ‡" [major-mode rmail-mode rmail-update-menubar rmail-summary-mode rmail-summary-update-menubar] 2] add-hook activate-menubar-hook require highlight-headers rmail-fontify-headers #[nil "ÀedÁ#‡" [highlight-headers t] 4] rmail-show-message-hook rmail-install-menubar #[nil "­­Á\n@\"?­¥ Ä=«ƒ\nªŒ Å=«„ªƒÇÈ! ÊË!!ˆÌÍ\n@ A#)‡" [current-menubar assoc rmail-mode-menu major-mode rmail-mode rmail-summary-mode rmail-summary-mode-menu error "not rmail or rmail summary mode" menu set-buffer-menubar copy-sequence add-menu nil] 4] rmail-mode-menu-setup #[nil "À ˆÁ\nÃÄ#‡" [rmail-install-menubar define-key rmail-mode-map button3 rmail-mode-menu] 4] rmail-mode-hook rmail-summary-mode-menu-setup #[nil "À ˆÁ\nÃÄ#ˆÁ\nÅÆ#‡" [rmail-install-menubar define-key rmail-summary-mode-map button2 rmail-summary-mouse-goto-msg button3 rmail-summary-mode-menu] 4] rmail-summary-mouse-goto-msg #[(e) "À !ˆÂyˆÃ ‡" [mouse-set-point e 0 rmail-summary-goto-msg] 2 nil "e"] rmail-install-mouse-tracker #[nil "ÀÁ!ˆÂ‰‡" [require mode-motion mode-motion-highlight-line mode-motion-hook] 2] rmail-summary-mode-hook provide rmail-lucid] 3)