;ELC ;;; Compiled by leavens@CMC3251632-A on Fri Aug 09 22:34:19 2002 ;;; from file d:/emacs/speedbar/sb-rmail.el ;;; in Emacs version 21.2.1 ;;; with bytecomp version 2.85 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`sb-rmail.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@174 *This regex us used to match folder names to be displayed in speedbar. Enabling this will permit speedbar to display your folders for easy browsing, and moving of messages. (defvar rmail-speedbar-match-folder-regexp "^[A-Z0-9]+\$\\.[A-Z0-9]+\$?$" (#$ . -598)) #@48 The last user to be displayed in the speedbar. (defvar rmail-speedbar-last-user nil (#$ . 866)) #@41 Keymap used when in rmail display mode. (defvar rmail-speedbar-key-map nil (#$ . 968)) #@60 Install those variables used by speedbar to enhance rmail. (defalias 'rmail-install-speedbar-variables #[nil "?\205\301 \302\303\304#\210\302\305\304#\210\302\306\304#\210\302\307\310#\207" [rmail-speedbar-key-map speedbar-make-specialized-keymap define-key "e" speedbar-edit-line "r" " " "M" rmail-speedbar-move-message-to-folder-on-line] 4 (#$ . 1061)]) #@49 Additional menu-items to add to speedbar frame. (defvar rmail-speedbar-menu-items '(["Read Folder" speedbar-edit-line t] ["Move message to folder" rmail-speedbar-move-message-to-folder-on-line (save-excursion (beginning-of-line) (looking-at " "))]) (#$ . 1431)) (byte-code "\300\301!\203\f\302 \210\202\303\304\302\"\210\300\207" [featurep speedbar rmail-install-speedbar-variables add-hook speedbar-load-hook] 3) #@222 Create buttons for BUFFER containing rmail messages. Click on the address under Reply to: to reply to this person. Under Folders: Click a name to read it, or on the to move the current message into that RMAIL folder. (defalias 'rmail-speedbar-buttons #[(buffer) "\306\212 q\210eb\210\307\310\306\311#\204\307\312\306\311#\204\311\204(`\212\306\210`){)eb\210\313\314!\2055\n\232?\205\206\315 \210\316\317!\210;\203O\320\321\322\323\324%\210\316\325!\210\306\326\212 q\210\f)\306 #\211\205\205\320\327\330\322\331@%\210\320@\332\322\333\306\311&\210A\211\204e\306*)\207" [from buffer rmail-speedbar-last-user case-fold-search default-directory rmail-speedbar-match-folder-regexp nil re-search-forward "^Reply-To: " t "^From:? " looking-at "\$//\$?Reply to:" erase-buffer speedbar-insert-separator "Reply To" speedbar-insert-button speedbar-directory-face highlight rmail-speedbar-button rmail-reply "Folders" directory-files "" speedbar-button-face rmail-speedbar-move-message speedbar-file-face rmail-speedbar-find-file df] 8 (#$ . 1858)]) #@93 Execute an rmail command specified by TEXT. The command used is TOKEN. INDENT is not used. (defalias 'rmail-speedbar-button #[(text token indent) "\304 \305\216\306 !\210\307\n!\210\310!\210\311 *\207" [save-selected-window-window speedbar-update-speed speedbar-attached-frame token selected-window ((byte-code "\301!\203\n\302!\210\301\207" [save-selected-window-window window-live-p select-window] 2)) speedbar-set-timer select-frame t speedbar-maybee-jump-to-attached-frame] 2 (#$ . 2944)]) #@61 Load in the rmail file TEXT. TOKEN and INDENT are not used. (defalias 'rmail-speedbar-find-file #[(text token indent) "\304 \305\216\306 !\210\307\n!\210\310\311\"\210\312!\210\313 *\207" [save-selected-window-window speedbar-update-speed speedbar-attached-frame text selected-window ((byte-code "\301!\203\n\302!\210\301\207" [save-selected-window-window window-live-p select-window] 2)) speedbar-set-timer select-frame speedbar-message "Loading in RMAIL file %s..." find-file speedbar-maybee-jump-to-attached-frame] 3 (#$ . 3450)]) #@62 If the current line is a folder, move current message to it. (defalias 'rmail-speedbar-move-message-to-folder-on-line #[nil "\212\300 \210\301\302\212\303\210`)\304#\205\305u\210\306 )\207" [beginning-of-line re-search-forward " " nil t -2 speedbar-do-function-pointer] 4 (#$ . 3996) nil]) #@108 From button TEXT, copy current message to the rmail file specified by TOKEN. TEXT and INDENT are not used. (defalias 'rmail-speedbar-move-message #[(text token indent) "\304 \305\216\306 !\210\307\n!\210\310\311\"\210\312!\210\313 *\207" [save-selected-window-window speedbar-update-speed speedbar-attached-frame token selected-window ((byte-code "\301!\203\n\302!\210\301\207" [save-selected-window-window window-live-p select-window] 2)) speedbar-set-timer select-frame message "Moving message to %s" rmail-output-to-rmail-file speedbar-maybee-jump-to-attached-frame] 3 (#$ . 4299)]) (provide 'sb-rmail)