;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\303\304\305\"\210\300\306!\210\300\307!\210\300\310!\210\300\311!\210\303\312\313\"\207" [require mh-e mh-scan autoload mh-tool-bar-init "mh-tool-bar" font-lock gnus-cite gnus-util goto-addr mh-make-buffer-data "mh-mime"] 3) #@129 If non-nil, MH-Show buffer contains message with all header fields. If nil, MH-Show buffer contains message processed normally. (defvar mh-showing-with-headers nil (#$ . 673)) #@1060 Display message\. If the message under the cursor is already displayed, this command scrolls to the beginning of the message. MH-E normally hides a lot of the superfluous header fields that mailers add to a message, but if you wish to see all of them, use the command \[mh-header-display]. Two hooks can be used to control how messages are displayed. The first hook, `mh-show-mode-hook', is called early on in the process of the message display. It is usually used to perform some action on the message's buffer. The second hook, `mh-show-hook', is the last thing called after messages are displayed. It's used to affect the behavior of MH-E in general or when `mh-show-mode-hook' is too early. From a program, optional argument MESSAGE can be used to display an alternative message. The optional argument REDISPLAY-FLAG forces the redisplay of the message even if the show buffer was already displaying the correct message. See the "mh-show" customization group for a litany of options that control what displayed messages look like. (defalias 'mh-show #[(&optional message redisplay-flag) "\204 \203\n\204 \203\305 \210\306\f!\207" [redisplay-flag mh-showing-with-headers mh-mhl-format-file mh-clean-message-header-flag message mh-invalidate-show-buffer mh-show-msg] 2 (#$ . 857) (list nil t)]) #@126 Display message with all header fields\. Use the command \[mh-show] to show the message normally again. (defalias 'mh-header-display #[nil "\204 \204\f\n\203\306 \210\307\211\211\310\307!\210\311 \312 !\210\203)\313p!\210\314\216eb\210\315\316!\210*\317\211+\207" [mh-showing-with-headers mh-mhl-format-file mh-clean-message-header-flag mh-decode-mime-flag mh-in-show-buffer-saved-window mh-show-buffer mh-invalidate-show-buffer nil mh-show-msg selected-window switch-to-buffer-other-window bury-buffer #[nil "\301!\207" [mh-in-show-buffer-saved-window select-window] 2] mh-recenter 0 t mh-bury-show-buffer-flag] 3 (#$ . 2194) nil]) #@180 Display message with the default preferred alternative. This is as if `mm-discouraged-alternatives' is set to nil. Use the command \[mh-show] to show the message normally again. (defalias 'mh-show-preferred-alternative #[nil "\301\302\301\303\")\207" [mm-discouraged-alternatives nil mh-show t] 3 (#$ . 2870) nil]) #@116 Display message at cursor, but only if in show mode. If optional arg MSG is non-nil, display that message instead. (defalias 'mh-maybe-show #[(&optional msg) "\205\302 !\207" [mh-showing-mode msg mh-show] 2 (#$ . 3194)]) #@84 Show MSG. The hook `mh-show-hook' is called after the message has been displayed. (defalias 'mh-show-msg #[(msg) "\204\306\307!\310\307!\210\311\n\211C \312\f! #$%&'\313\314 !\315 =\204-\316 \210\315 (\317\f!\210)\203>\320p!\210\321\216#$\203a\322'\"*\232\203aeb\210%\204g\323 \210\202g\324'\"\210*\325 \204z\326\327 \206w\330 Z!\210\331\311!\210\332\311\211+#\210,>\204\222,B,-\203\267\333 \210.\203\253\334\335/C\"&\"&\336 \203\267\337\340\307&#\210\341\342!-\207" [msg mh-page-to-next-msg-flag mh-current-folder mh-clean-message-header-flag mh-show-buffer mh-display-buttons-for-inline-parts-flag mh-get-msg-num t mh-showing-mode nil get-buffer-window next-window minibuffer-window selected-window delete-other-windows switch-to-buffer-other-window bury-buffer #[nil "\301!\207" [mh-in-show-buffer-saved-window select-window] 2] mh-msg-filename mh-start-of-uncleaned-message mh-display-msg mh-window-full-height-p shrink-window window-height mh-summary-height mh-recenter mh-notate mh-update-sequences append mh-index-delete-from-sequence mh-speed-flists-active-p apply mh-speed-flists run-hooks mh-show-hook display-mime-buttons-flag show-window clean-message-header folders folder mh-in-show-buffer-saved-window mh-bury-show-buffer-flag buffer-file-name mh-cmd-note mh-seen-list mh-update-sequences-after-mh-show-flag mh-index-data mh-unseen-seq] 5 (#$ . 3424)]) #@59 Position uninteresting headers off the top of the window. (defalias 'mh-start-of-uncleaned-message #[nil "\301\302\303\304\301#\210\305 \210\306\307!)\207" [case-fold-search t re-search-forward "^To:\\|^Cc:\\|^From:\\|^Subject:\\|^Date:" nil beginning-of-line mh-recenter 0] 4 (#$ . 4848)]) #@136 Format string to produce `mode-line-buffer-identification' for show buffers. First argument is folder name. Second is message number. (defvar mh-show-buffer-mode-line-buffer-id " {show-%s} %d" (#$ . 5147)) #@77 Display MSG-NUM of FOLDER-NAME. Sets the current buffer to the show buffer. (defalias 'mh-display-msg #[(msg-num folder-name) "\306!\211q\210\307p\n\"\204p\n\310 \311 \f#\210* 67\312\3138\"9:;<=>?@A\314=!\204D\315\3168\"\210B\317V\203o\320=!\321\234BV\203o\322\323\3248\320=!\321\234B$!\204o\315\3258\"\210#\210eb\210\202\372\353 \210\354 \210H\355=\204\312H\356 \210=C\312I\357\360!\210\361\312!\210E\203)A\204)\362 \210\363 \210\364\312!\210\355D J\323K8#CL\365 \210 q\210\312\211M.\207" [folder-name folder mh-globals-hash #1=#:v #2=#:v mh-mhl-format-file mh-msg-folder gethash puthash mh-make-buffer-data nil mh-msg-filename file-exists-p error "Message %d does not exist" 0 file-attributes 7 y-or-n-p format "Message %d (%d bytes) exceeds %d bytes. Display it? " "Message %d not displayed" mh-unvisit-file mh-mime-cleanup erase-buffer boundp write-contents-hooks kill-local-variable font-lock-mode -1 mh-show-mode mh-exec-lib-cmd-output "mhl" "-nobell" "-noclear" "-form" insert-file-contents-literally mh-add-missing-mime-version-header mh-mime-display mh-show-unquote-From mh-show-xface mh-show-addr mh-clean-msg-header mh-start-of-uncleaned-message mh-decode-message-header t set-buffer-auto-saved auto-save-mode 1 set-mark mh-display-smileys mh-display-emphasis set-buffer-modified-p mh-logo-display mh-clean-message-header-flag mh-invisible-header-fields-compiled msg-num mh-show-buffer mh-mm-inline-media-tests mm-inline-media-tests show-buffer msg-filename visible-headers invisible-headers clean-message-header formfile mh-show-maximum-size buffer-file-name buffer-read-only mh-decode-mime-flag #3=#:v #4=#:v buffer-undo-list buffer-backed-up mh-show-folder-buffer mh-show-buffer-mode-line-buffer-id mode-line-buffer-identification mh-showing-with-headers] 8 (#$ . 5363)]) #@48 Return the name of the buffer for FOLDER-NAME. (defalias 'mh-msg-folder #[(folder-name) "\207" [folder-name] 1 (#$ . 7507)]) #@338 Flush extraneous lines in message header. Header is cleaned from START to the end of the message header. INVISIBLE-HEADERS contains a regular expression specifying lines to delete from the header. VISIBLE-HEADERS contains a regular expression specifying the lines to display. INVISIBLE-HEADERS is ignored if VISIBLE-HEADERS is non-nil. (defalias 'mh-clean-msg-header #[(start invisible-headers visible-headers) "\306\307\214\nb\210\310\311\307\312#\203\313u\210\n`}\210eb\210 \203J`dW\203f\314 !\2039\315y\210\314\316!\203\315y\210\202-\317\315!\210\314\316!\203\317\315!\210\202=\320\f\307\306#\203f\321 \210\317\315!\210\314\316!\203J\317\315!\210\202Y)\307\322 \210)\323 *\207" [buffer-read-only case-fold-search start visible-headers invisible-headers mh-compose-skipped-header-fields t nil search-forward "\n\n" move -1 looking-at 1 "[ ]" mh-delete-line re-search-forward beginning-of-line mh-letter-hide-all-skipped-fields unlock-buffer] 4 (#$ . 7640)]) #@60 Invalidate the show buffer so we must update it to use it. (defalias 'mh-invalidate-show-buffer #[nil "\301!\205 rq\210\302 )\207" [mh-show-buffer get-buffer mh-unvisit-file] 2 (#$ . 8625)]) #@64 Separate current buffer from the message file it was visiting. (defalias 'mh-unvisit-file #[nil "\301 \203\203\302\303\304\305!\"!\204\306\307!\210\310 \210\311 \210\312\211\207" [buffer-file-name buffer-modified-p yes-or-no-p format "Message %s modified; discard changes? " file-name-nondirectory error "Changes preserved" clear-visited-file-modtime unlock-buffer nil] 5 (#$ . 8825)]) #@112 Return ideal value for the variable `mh-summary-height'. The current frame height is taken into consideration. (defalias 'mh-summary-height #[nil "\300\301!\203\301 \302V\203\303\301 \304\245^\206\305\207" [fboundp frame-height 24 10 6 4] 3 (#$ . 9227)]) #@156 Define FUNCTION to run ORIGINAL-FUNCTION in folder buffer. If the buffer we start in is still visible and DONT-RETURN is nil then switch to it after that. (defalias 'mh-defun-show-buffer '(macro . #[(function original-function &optional dont-return) "\303\304\305\306 \n\203\307\202\310 $\311\312\313\314\315\316\317\n?\205\320BBB\321\322\323\324\325\326\327\300 DD\330BB\331\332\333\334\n\203;\335\202<\336E\257\257E\257\207" [function original-function dont-return defun nil format "Calls %s from the message's folder.\n%s\nSee `%s' for more info.\n" "" "When function completes, returns to the show buffer if it is\nstill visible.\n" (interactive) when (buffer-live-p (get-buffer mh-show-folder-buffer)) let (config (current-window-configuration)) (folder-buffer mh-show-folder-buffer) (normal-exit nil) ((cur-buffer-name (buffer-name))) (pop-to-buffer mh-show-folder-buffer nil) (unless (equal (buffer-name (window-buffer (frame-first-window (selected-frame)))) folder-buffer) (delete-other-windows)) (mh-goto-cur-msg t) (mh-funcall-if-exists deactivate-mark) unwind-protect prog1 call-interactively ((setq normal-exit t)) (mh-funcall-if-exists deactivate-mark) (when (eq major-mode 'mh-folder-mode) (mh-funcall-if-exists hl-line-highlight)) cond ((not normal-exit) (set-window-configuration config)) (t (setq mh-previous-window-config config)) ((and (get-buffer cur-buffer-name) (window-live-p (get-buffer-window (get-buffer cur-buffer-name)))) (pop-to-buffer (get-buffer cur-buffer-name) nil))] 20 (#$ . 9495)])) #@185 Calls mh-previous-undeleted-msg from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-previous-undeleted-msg' for more info.  (defalias 'mh-show-previous-undeleted-msg #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-previous-undeleted-msg] 4 (#$ . 11033) nil]) #@177 Calls mh-next-undeleted-msg from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-next-undeleted-msg' for more info.  (defalias 'mh-show-next-undeleted-msg #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-next-undeleted-msg] 4 (#$ . 12035) nil]) #@149 Calls mh-quit from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-quit' for more info.  (defalias 'mh-show-quit #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-quit] 4 (#$ . 13021) nil]) #@161 Calls mh-delete-msg from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-delete-msg' for more info.  (defalias 'mh-show-delete-msg #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-delete-msg] 4 (#$ . 13951) nil]) #@161 Calls mh-refile-msg from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-refile-msg' for more info.  (defalias 'mh-show-refile-msg #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-refile-msg] 4 (#$ . 14905) nil]) #@149 Calls mh-undo from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-undo' for more info.  (defalias 'mh-show-undo #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-undo] 4 (#$ . 15859) nil]) #@173 Calls mh-execute-commands from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-execute-commands' for more info.  (defalias 'mh-show-execute-commands #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-execute-commands] 4 (#$ . 16789) nil]) #@75 Calls mh-reply from the message's folder. See `mh-reply' for more info.  (defalias 'mh-show-reply #[nil "\304\305!!\2059\306 \307\310\307\"\210\311\312\313\314 !!!\n\232\204$\315 \210\316\317!\210\320\321!\2031\321 \210\322\216\323\324!\317,\207" [mh-show-folder-buffer normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil pop-to-buffer buffer-name window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\n\211\207" [major-mode normal-exit config mh-previous-window-config fboundp deactivate-mark set-window-configuration] 2] call-interactively mh-reply] 4 (#$ . 17766) nil]) #@165 Calls mh-redistribute from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-redistribute' for more info.  (defalias 'mh-show-redistribute #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-redistribute] 4 (#$ . 18509) nil]) #@79 Calls mh-forward from the message's folder. See `mh-forward' for more info.  (defalias 'mh-show-forward #[nil "\304\305!!\2059\306 \307\310\307\"\210\311\312\313\314 !!!\n\232\204$\315 \210\316\317!\210\320\321!\2031\321 \210\322\216\323\324!\317,\207" [mh-show-folder-buffer normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil pop-to-buffer buffer-name window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\n\211\207" [major-mode normal-exit config mh-previous-window-config fboundp deactivate-mark set-window-configuration] 2] call-interactively mh-forward] 4 (#$ . 19470) nil]) #@169 Calls mh-header-display from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-header-display' for more info.  (defalias 'mh-show-header-display #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-header-display] 4 (#$ . 20221) nil]) #@183 Calls mh-refile-or-write-again from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-refile-or-write-again' for more info.  (defalias 'mh-show-refile-or-write-again #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-refile-or-write-again] 4 (#$ . 21191) nil]) #@149 Calls mh-show from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-show' for more info.  (defalias 'mh-show-show #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-show] 4 (#$ . 22189) nil]) #@193 Calls mh-show-preferred-alternative from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-show-preferred-alternative' for more info.  (defalias 'mh-show-show-preferred-alternative #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-show-preferred-alternative] 4 (#$ . 23119) nil]) #@175 Calls mh-write-msg-to-file from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-write-msg-to-file' for more info.  (defalias 'mh-show-write-message-to-file #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-write-msg-to-file] 4 (#$ . 24137) nil]) #@107 Calls mh-extract-rejected-mail from the message's folder. See `mh-extract-rejected-mail' for more info.  (defalias 'mh-show-extract-rejected-mail #[nil "\304\305!!\2059\306 \307\310\307\"\210\311\312\313\314 !!!\n\232\204$\315 \210\316\317!\210\320\321!\2031\321 \210\322\216\323\324!\317,\207" [mh-show-folder-buffer normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil pop-to-buffer buffer-name window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\n\211\207" [major-mode normal-exit config mh-previous-window-config fboundp deactivate-mark set-window-configuration] 2] call-interactively mh-extract-rejected-mail] 4 (#$ . 25123) nil]) #@181 Calls mh-delete-msg-no-motion from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-delete-msg-no-motion' for more info.  (defalias 'mh-show-delete-msg-no-motion #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-delete-msg-no-motion] 4 (#$ . 25930) nil]) #@159 Calls mh-first-msg from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-first-msg' for more info.  (defalias 'mh-show-first-msg #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-first-msg] 4 (#$ . 26924) nil]) #@157 Calls mh-last-msg from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-last-msg' for more info.  (defalias 'mh-show-last-msg #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-last-msg] 4 (#$ . 27874) nil]) #@157 Calls mh-copy-msg from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-copy-msg' for more info.  (defalias 'mh-show-copy-msg #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-copy-msg] 4 (#$ . 28820) nil]) #@85 Calls mh-edit-again from the message's folder. See `mh-edit-again' for more info.  (defalias 'mh-show-edit-again #[nil "\304\305!!\2059\306 \307\310\307\"\210\311\312\313\314 !!!\n\232\204$\315 \210\316\317!\210\320\321!\2031\321 \210\322\216\323\324!\317,\207" [mh-show-folder-buffer normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil pop-to-buffer buffer-name window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\n\211\207" [major-mode normal-exit config mh-previous-window-config fboundp deactivate-mark set-window-configuration] 2] call-interactively mh-edit-again] 4 (#$ . 29765) nil]) #@157 Calls mh-goto-msg from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-goto-msg' for more info.  (defalias 'mh-show-goto-msg #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-goto-msg] 4 (#$ . 30528) nil]) #@161 Calls mh-inc-folder from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-inc-folder' for more info.  (defalias 'mh-show-inc-folder #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-inc-folder] 4 (#$ . 31474) nil]) #@189 Calls mh-delete-subject-or-thread from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-delete-subject-or-thread' for more info.  (defalias 'mh-show-delete-subject-or-thread #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-delete-subject-or-thread] 4 (#$ . 32428) nil]) #@169 Calls mh-delete-subject from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-delete-subject' for more info.  (defalias 'mh-show-delete-subject #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-delete-subject] 4 (#$ . 33438) nil]) #@159 Calls mh-print-msg from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-print-msg' for more info.  (defalias 'mh-show-print-msg #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-print-msg] 4 (#$ . 34408) nil]) #@73 Calls mh-send from the message's folder. See `mh-send' for more info.  (defalias 'mh-show-send #[nil "\304\305!!\2059\306 \307\310\307\"\210\311\312\313\314 !!!\n\232\204$\315 \210\316\317!\210\320\321!\2031\321 \210\322\216\323\324!\317,\207" [mh-show-folder-buffer normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil pop-to-buffer buffer-name window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\n\211\207" [major-mode normal-exit config mh-previous-window-config fboundp deactivate-mark set-window-configuration] 2] call-interactively mh-send] 4 (#$ . 35357) nil]) #@93 Calls mh-toggle-showing from the message's folder. See `mh-toggle-showing' for more info.  (defalias 'mh-show-toggle-showing #[nil "\304\305!!\2059\306 \307\310\307\"\210\311\312\313\314 !!!\n\232\204$\315 \210\316\317!\210\320\321!\2031\321 \210\322\216\323\324!\317,\207" [mh-show-folder-buffer normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil pop-to-buffer buffer-name window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\n\211\207" [major-mode normal-exit config mh-previous-window-config fboundp deactivate-mark set-window-configuration] 2] call-interactively mh-toggle-showing] 4 (#$ . 36095) nil]) #@81 Calls mh-pipe-msg from the message's folder. See `mh-pipe-msg' for more info.  (defalias 'mh-show-pipe-msg #[nil "\304\305!!\2059\306 \307\310\307\"\210\311\312\313\314 !!!\n\232\204$\315 \210\316\317!\210\320\321!\2031\321 \210\322\216\323\324!\317,\207" [mh-show-folder-buffer normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil pop-to-buffer buffer-name window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\n\211\207" [major-mode normal-exit config mh-previous-window-config fboundp deactivate-mark set-window-configuration] 2] call-interactively mh-pipe-msg] 4 (#$ . 36873) nil]) #@163 Calls mh-sort-folder from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-sort-folder' for more info.  (defalias 'mh-show-sort-folder #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-sort-folder] 4 (#$ . 37628) nil]) #@89 Calls mh-visit-folder from the message's folder. See `mh-visit-folder' for more info.  (defalias 'mh-show-visit-folder #[nil "\304\305!!\2059\306 \307\310\307\"\210\311\312\313\314 !!!\n\232\204$\315 \210\316\317!\210\320\321!\2031\321 \210\322\216\323\324!\317,\207" [mh-show-folder-buffer normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil pop-to-buffer buffer-name window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\n\211\207" [major-mode normal-exit config mh-previous-window-config fboundp deactivate-mark set-window-configuration] 2] call-interactively mh-visit-folder] 4 (#$ . 38585) nil]) #@167 Calls mh-rescan-folder from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-rescan-folder' for more info.  (defalias 'mh-show-rescan-folder #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-rescan-folder] 4 (#$ . 39356) nil]) #@163 Calls mh-pack-folder from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-pack-folder' for more info.  (defalias 'mh-show-pack-folder #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-pack-folder] 4 (#$ . 40322) nil]) #@87 Calls mh-kill-folder from the message's folder. See `mh-kill-folder' for more info.  (defalias 'mh-show-kill-folder #[nil "\304\305!!\2059\306 \307\310\307\"\210\311\312\313\314 !!!\n\232\204$\315 \210\316\317!\210\320\321!\2031\321 \210\322\216\323\324!\317,\207" [mh-show-folder-buffer normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil pop-to-buffer buffer-name window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\n\211\207" [major-mode normal-exit config mh-previous-window-config fboundp deactivate-mark set-window-configuration] 2] call-interactively mh-kill-folder] 4 (#$ . 41279) nil]) #@89 Calls mh-list-folders from the message's folder. See `mh-list-folders' for more info.  (defalias 'mh-show-list-folders #[nil "\304\305!!\2059\306 \307\310\307\"\210\311\312\313\314 !!!\n\232\204$\315 \210\316\317!\210\320\321!\2031\321 \210\322\216\323\324!\317,\207" [mh-show-folder-buffer normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil pop-to-buffer buffer-name window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\n\211\207" [major-mode normal-exit config mh-previous-window-config fboundp deactivate-mark set-window-configuration] 2] call-interactively mh-list-folders] 4 (#$ . 42045) nil]) #@163 Calls mh-undo-folder from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-undo-folder' for more info.  (defalias 'mh-show-undo-folder #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-undo-folder] 4 (#$ . 42816) nil]) #@179 Calls mh-delete-msg-from-seq from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-delete-msg-from-seq' for more info.  (defalias 'mh-show-delete-msg-from-seq #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-delete-msg-from-seq] 4 (#$ . 43774) nil]) #@161 Calls mh-delete-seq from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-delete-seq' for more info.  (defalias 'mh-show-delete-seq #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-delete-seq] 4 (#$ . 44764) nil]) #@169 Calls mh-list-sequences from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-list-sequences' for more info.  (defalias 'mh-show-list-sequences #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-list-sequences] 4 (#$ . 45718) nil]) #@167 Calls mh-narrow-to-seq from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-narrow-to-seq' for more info.  (defalias 'mh-show-narrow-to-seq #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-narrow-to-seq] 4 (#$ . 46688) nil]) #@169 Calls mh-put-msg-in-seq from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-put-msg-in-seq' for more info.  (defalias 'mh-show-put-msg-in-seq #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-put-msg-in-seq] 4 (#$ . 47654) nil]) #@167 Calls mh-msg-is-in-seq from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-msg-is-in-seq' for more info.  (defalias 'mh-show-msg-is-in-seq #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-msg-is-in-seq] 4 (#$ . 48624) nil]) #@151 Calls mh-widen from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-widen' for more info.  (defalias 'mh-show-widen #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-widen] 4 (#$ . 49590) nil]) #@175 Calls mh-narrow-to-subject from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-narrow-to-subject' for more info.  (defalias 'mh-show-narrow-to-subject #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-narrow-to-subject] 4 (#$ . 50524) nil]) #@169 Calls mh-narrow-to-from from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-narrow-to-from' for more info.  (defalias 'mh-show-narrow-to-from #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-narrow-to-from] 4 (#$ . 51506) nil]) #@165 Calls mh-narrow-to-cc from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-narrow-to-cc' for more info.  (defalias 'mh-show-narrow-to-cc #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-narrow-to-cc] 4 (#$ . 52476) nil]) #@171 Calls mh-narrow-to-range from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-narrow-to-range' for more info.  (defalias 'mh-show-narrow-to-range #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-narrow-to-range] 4 (#$ . 53438) nil]) #@165 Calls mh-narrow-to-to from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-narrow-to-to' for more info.  (defalias 'mh-show-narrow-to-to #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-narrow-to-to] 4 (#$ . 54412) nil]) #@159 Calls mh-store-msg from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-store-msg' for more info.  (defalias 'mh-show-store-msg #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-store-msg] 4 (#$ . 55374) nil]) #@163 Calls mh-page-digest from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-page-digest' for more info.  (defalias 'mh-show-page-digest #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-page-digest] 4 (#$ . 56324) nil]) #@183 Calls mh-page-digest-backwards from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-page-digest-backwards' for more info.  (defalias 'mh-show-page-digest-backwards #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-page-digest-backwards] 4 (#$ . 57282) nil]) #@165 Calls mh-burst-digest from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-burst-digest' for more info.  (defalias 'mh-show-burst-digest #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-burst-digest] 4 (#$ . 58280) nil]) #@157 Calls mh-page-msg from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-page-msg' for more info.  (defalias 'mh-show-page-msg #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-page-msg] 4 (#$ . 59242) nil]) #@167 Calls mh-previous-page from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-previous-page' for more info.  (defalias 'mh-show-previous-page #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-previous-page] 4 (#$ . 60188) nil]) #@77 Calls mh-modify from the message's folder. See `mh-modify' for more info.  (defalias 'mh-show-modify #[nil "\304\305!!\2059\306 \307\310\307\"\210\311\312\313\314 !!!\n\232\204$\315 \210\316\317!\210\320\321!\2031\321 \210\322\216\323\324!\317,\207" [mh-show-folder-buffer normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil pop-to-buffer buffer-name window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\n\211\207" [major-mode normal-exit config mh-previous-window-config fboundp deactivate-mark set-window-configuration] 2] call-interactively mh-modify] 4 (#$ . 61153) nil]) #@163 Calls mh-next-button from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-next-button' for more info.  (defalias 'mh-show-next-button #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-next-button] 4 (#$ . 61900) nil]) #@163 Calls mh-prev-button from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-prev-button' for more info.  (defalias 'mh-show-prev-button #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-prev-button] 4 (#$ . 62858) nil]) #@187 Calls mh-folder-toggle-mime-part from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-folder-toggle-mime-part' for more info.  (defalias 'mh-show-toggle-mime-part #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-folder-toggle-mime-part] 4 (#$ . 63816) nil]) #@183 Calls mh-folder-save-mime-part from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-folder-save-mime-part' for more info.  (defalias 'mh-show-save-mime-part #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-folder-save-mime-part] 4 (#$ . 64815) nil]) #@187 Calls mh-folder-inline-mime-part from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-folder-inline-mime-part' for more info.  (defalias 'mh-show-inline-mime-part #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-folder-inline-mime-part] 4 (#$ . 65806) nil]) #@169 Calls mh-toggle-threads from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-toggle-threads' for more info.  (defalias 'mh-show-toggle-threads #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-toggle-threads] 4 (#$ . 66805) nil]) #@167 Calls mh-thread-delete from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-thread-delete' for more info.  (defalias 'mh-show-thread-delete #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-thread-delete] 4 (#$ . 67775) nil]) #@167 Calls mh-thread-refile from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-thread-refile' for more info.  (defalias 'mh-show-thread-refile #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-thread-refile] 4 (#$ . 68741) nil]) #@173 Calls mh-update-sequences from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-update-sequences' for more info.  (defalias 'mh-show-update-sequences #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-update-sequences] 4 (#$ . 69707) nil]) #@171 Calls mh-next-unread-msg from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-next-unread-msg' for more info.  (defalias 'mh-show-next-unread-msg #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-next-unread-msg] 4 (#$ . 70685) nil]) #@179 Calls mh-previous-unread-msg from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-previous-unread-msg' for more info.  (defalias 'mh-show-previous-unread-msg #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-previous-unread-msg] 4 (#$ . 71659) nil]) #@171 Calls mh-thread-ancestor from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-thread-ancestor' for more info.  (defalias 'mh-show-thread-ancestor #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-thread-ancestor] 4 (#$ . 72649) nil]) #@179 Calls mh-thread-next-sibling from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-thread-next-sibling' for more info.  (defalias 'mh-show-thread-next-sibling #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-thread-next-sibling] 4 (#$ . 73623) nil]) #@187 Calls mh-thread-previous-sibling from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-thread-previous-sibling' for more info.  (defalias 'mh-show-thread-previous-sibling #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-thread-previous-sibling] 4 (#$ . 74613) nil]) #@101 Calls mh-index-visit-folder from the message's folder. See `mh-index-visit-folder' for more info.  (defalias 'mh-show-index-visit-folder #[nil "\304\305!!\2059\306 \307\310\307\"\210\311\312\313\314 !!!\n\232\204$\315 \210\316\317!\210\320\321!\2031\321 \210\322\216\323\324!\317,\207" [mh-show-folder-buffer normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil pop-to-buffer buffer-name window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\n\211\207" [major-mode normal-exit config mh-previous-window-config fboundp deactivate-mark set-window-configuration] 2] call-interactively mh-index-visit-folder] 4 (#$ . 75619) nil]) #@163 Calls mh-toggle-tick from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-toggle-tick' for more info.  (defalias 'mh-show-toggle-tick #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-toggle-tick] 4 (#$ . 76414) nil]) #@169 Calls mh-narrow-to-tick from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-narrow-to-tick' for more info.  (defalias 'mh-show-narrow-to-tick #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-narrow-to-tick] 4 (#$ . 77372) nil]) #@169 Calls mh-junk-blacklist from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-junk-blacklist' for more info.  (defalias 'mh-show-junk-blacklist #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-junk-blacklist] 4 (#$ . 78342) nil]) #@169 Calls mh-junk-whitelist from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-junk-whitelist' for more info.  (defalias 'mh-show-junk-whitelist #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-junk-whitelist] 4 (#$ . 79312) nil]) #@177 Calls mh-index-new-messages from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-index-new-messages' for more info.  (defalias 'mh-show-index-new-messages #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-index-new-messages] 4 (#$ . 80282) nil]) #@183 Calls mh-index-ticked-messages from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-index-ticked-messages' for more info.  (defalias 'mh-show-index-ticked-messages #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-index-ticked-messages] 4 (#$ . 81268) nil]) #@189 Calls mh-index-sequenced-messages from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-index-sequenced-messages' for more info.  (defalias 'mh-show-index-sequenced-messages #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-index-sequenced-messages] 4 (#$ . 82266) nil]) #@155 Calls mh-catchup from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-catchup' for more info.  (defalias 'mh-show-catchup #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-catchup] 4 (#$ . 83276) nil]) #@183 Calls mh-ps-print-toggle-color from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-ps-print-toggle-color' for more info.  (defalias 'mh-show-ps-print-toggle-color #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-ps-print-toggle-color] 4 (#$ . 84218) nil]) #@183 Calls mh-ps-print-toggle-faces from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-ps-print-toggle-faces' for more info.  (defalias 'mh-show-ps-print-toggle-faces #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-ps-print-toggle-faces] 4 (#$ . 85216) nil]) #@175 Calls mh-ps-print-msg-file from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-ps-print-msg-file' for more info.  (defalias 'mh-show-ps-print-msg-file #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-ps-print-msg-file] 4 (#$ . 86214) nil]) #@165 Calls mh-ps-print-msg from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-ps-print-msg' for more info.  (defalias 'mh-show-ps-print-msg #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-ps-print-msg] 4 (#$ . 87196) nil]) #@179 Calls mh-toggle-mime-buttons from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-toggle-mime-buttons' for more info.  (defalias 'mh-show-toggle-mime-buttons #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-toggle-mime-buttons] 4 (#$ . 88158) nil]) #@197 Calls mh-display-with-external-viewer from the message's folder. When function completes, returns to the show buffer if it is still visible. See `mh-display-with-external-viewer' for more info.  (defalias 'mh-show-display-with-external-viewer #[nil "\305\306!!\205<\307 \310\311 \312\310\"\210\311\313\314\315 !!! \232\204'\316 \210\317\320!\210\321\322!\2034\322 \210\323\216\324\325!\320-\207" [mh-show-folder-buffer cur-buffer-name normal-exit folder-buffer config buffer-live-p get-buffer current-window-configuration nil buffer-name pop-to-buffer window-buffer frame-first-window selected-frame delete-other-windows mh-goto-cur-msg t fboundp deactivate-mark #[nil "\304\305!\203 \305 \210\210 \204\306\n!\207\307 !\205)\310\311\307 !!!\205)\312\307 !\313\"\207" [major-mode normal-exit config cur-buffer-name fboundp deactivate-mark set-window-configuration get-buffer window-live-p get-buffer-window pop-to-buffer nil] 4] call-interactively mh-display-with-external-viewer] 4 (#$ . 89148) nil]) #@32 Menu for MH-E folder-sequence. (defvar mh-show-sequence-menu nil (#$ . 90173)) (easy-menu-do-define 'mh-show-sequence-menu mh-show-mode-map "Menu for MH-E folder-sequence." '("Sequence" ["Add Message to Sequence..." mh-show-put-msg-in-seq t] ["List Sequences for Message" mh-show-msg-is-in-seq t] ["Delete Message from Sequence..." mh-show-delete-msg-from-seq t] ["List Sequences in Folder..." mh-show-list-sequences t] ["Delete Sequence..." mh-show-delete-seq t] ["Narrow to Sequence..." mh-show-narrow-to-seq t] ["Widen from Sequence" mh-show-widen t] "--" ["Narrow to Subject Sequence" mh-show-narrow-to-subject t] ["Narrow to Tick Sequence" mh-show-narrow-to-tick (with-current-buffer mh-show-folder-buffer (and mh-tick-seq (mh-seq-msgs (mh-find-seq mh-tick-seq))))] ["Delete Rest of Same Subject" mh-show-delete-subject t] ["Toggle Tick Mark" mh-show-toggle-tick t] "--" ["Push State Out to MH" mh-show-update-sequences t])) #@31 Menu for MH-E folder-message. (defvar mh-show-message-menu nil (#$ . 91109)) (easy-menu-do-define 'mh-show-message-menu mh-show-mode-map "Menu for MH-E folder-message." '("Message" ["Show Message" mh-show-show t] ["Show Message with Header" mh-show-header-display t] ["Show Message with Preferred Alternative" mh-show-show-preferred-alternative t] ["Next Message" mh-show-next-undeleted-msg t] ["Previous Message" mh-show-previous-undeleted-msg t] ["Go to First Message" mh-show-first-msg t] ["Go to Last Message" mh-show-last-msg t] ["Go to Message by Number..." mh-show-goto-msg t] ["Modify Message" mh-show-modify t] ["Delete Message" mh-show-delete-msg t] ["Refile Message" mh-show-refile-msg t] ["Undo Delete/Refile" mh-show-undo t] ["Process Delete/Refile" mh-show-execute-commands t] "--" ["Compose a New Message" mh-send t] ["Reply to Message..." mh-show-reply t] ["Forward Message..." mh-show-forward t] ["Redistribute Message..." mh-show-redistribute t] ["Edit Message Again" mh-show-edit-again t] ["Re-edit a Bounced Message" mh-show-extract-rejected-mail t] "--" ["Copy Message to Folder..." mh-show-copy-msg t] ["Print Message" mh-show-print-msg t] ["Write Message to File..." mh-show-write-msg-to-file t] ["Pipe Message to Command..." mh-show-pipe-msg t] ["Unpack Uuencoded Message..." mh-show-store-msg t] ["Burst Digest Message" mh-show-burst-digest t])) #@23 Menu for MH-E folder. (defvar mh-show-folder-menu nil (#$ . 92486)) (byte-code "\302\303\304\305$\210\306\300\307\"\210\306\310\311\"\210\306\312\313\"\210\314\315 #\210\306\316\317\"\210\306\320\321\"\210\306\322\323\"\210\306\324\325\"\210\306\326\327\"\210\306\330\331\"\210\306\332\333\"\207" [mh-show-mode-map mh-inc-spool-map easy-menu-do-define mh-show-folder-menu "Menu for MH-E folder." ("Folder" ["Incorporate New Mail" mh-show-inc-folder t] ["Toggle Show/Folder" mh-show-toggle-showing t] ["Execute Delete/Refile" mh-show-execute-commands t] ["Rescan Folder" mh-show-rescan-folder t] ["Thread Folder" mh-show-toggle-threads t] ["Pack Folder" mh-show-pack-folder t] ["Sort Folder" mh-show-sort-folder t] "--" ["List Folders" mh-show-list-folders t] ["Visit a Folder..." mh-show-visit-folder t] ["View New Messages" mh-show-index-new-messages t] ["Search..." mh-search t] "--" ["Quit MH-E" mh-quit t]) gnus-define-keys-1 (" " mh-show-page-msg "!" mh-show-refile-or-write-again "'" mh-show-toggle-tick "," mh-show-header-display "." mh-show-show ":" mh-show-show-preferred-alternative ">" mh-show-write-message-to-file "?" mh-help "E" mh-show-extract-rejected-mail "M" mh-show-modify "" mh-show-previous-page "" mh-show-delete-msg-no-motion " " mh-show-next-button [backtab] mh-show-prev-button "\211" mh-show-prev-button "d" mh-show-redistribute "^" mh-show-refile-msg "c" mh-show-copy-msg "d" mh-show-delete-msg "e" mh-show-edit-again "f" mh-show-forward "g" mh-show-goto-msg "i" mh-show-inc-folder "k" mh-show-delete-subject-or-thread "m" mh-show-send "n" mh-show-next-undeleted-msg "\356" mh-show-next-unread-msg "o" mh-show-refile-msg "p" mh-show-previous-undeleted-msg "\360" mh-show-previous-unread-msg "q" mh-show-quit "r" mh-show-reply "s" mh-show-send "t" mh-show-toggle-showing "u" mh-show-undo "x" mh-show-execute-commands "v" mh-show-index-visit-folder "|" mh-show-pipe-msg) (mh-show-folder-map "F" mh-show-mode-map) ("?" mh-prefix-help "'" mh-index-ticked-messages "S" mh-show-sort-folder "c" mh-show-catchup "f" mh-show-visit-folder "k" mh-show-kill-folder "l" mh-show-list-folders "n" mh-index-new-messages "o" mh-show-visit-folder "p" mh-show-pack-folder "q" mh-show-index-sequenced-messages "r" mh-show-rescan-folder "s" mh-search "t" mh-show-toggle-threads "u" mh-show-undo-folder "v" mh-show-visit-folder) (mh-show-sequence-map "S" mh-show-mode-map) ("'" mh-show-narrow-to-tick "?" mh-prefix-help "d" mh-show-delete-msg-from-seq "k" mh-show-delete-seq "l" mh-show-list-sequences "n" mh-show-narrow-to-seq "p" mh-show-put-msg-in-seq "s" mh-show-msg-is-in-seq "w" mh-show-widen) define-key "I" (mh-show-junk-map "J" mh-show-mode-map) ("?" mh-prefix-help "b" mh-show-junk-blacklist "w" mh-show-junk-whitelist) (mh-show-ps-print-map "P" mh-show-mode-map) ("?" mh-prefix-help "C" mh-show-ps-print-toggle-color "F" mh-show-ps-print-toggle-faces "f" mh-show-ps-print-msg-file "l" mh-show-print-msg "p" mh-show-ps-print-msg) (mh-show-thread-map "T" mh-show-mode-map) ("?" mh-prefix-help "u" mh-show-thread-ancestor "p" mh-show-thread-previous-sibling "n" mh-show-thread-next-sibling "t" mh-show-toggle-threads "d" mh-show-thread-delete "o" mh-show-thread-refile) (mh-show-limit-map "/" mh-show-mode-map) ("'" mh-show-narrow-to-tick "?" mh-prefix-help "c" mh-show-narrow-to-cc "g" mh-show-narrow-to-range "m" mh-show-narrow-to-from "s" mh-show-narrow-to-subject "t" mh-show-narrow-to-to "w" mh-show-widen) (mh-show-extract-map "X" mh-show-mode-map) ("?" mh-prefix-help "s" mh-show-store-msg "u" mh-show-store-msg) (mh-show-digest-map "D" mh-show-mode-map) ("?" mh-prefix-help " " mh-show-page-digest "" mh-show-page-digest-backwards "b" mh-show-burst-digest) (mh-show-mime-map "K" mh-show-mode-map) ("?" mh-prefix-help "a" mh-mime-save-parts "e" mh-show-display-with-external-viewer "v" mh-show-toggle-mime-part "o" mh-show-save-mime-part "i" mh-show-inline-mime-part "t" mh-show-toggle-mime-buttons " " mh-show-next-button [backtab] mh-show-prev-button "\211" mh-show-prev-button)] 5) #@86 Return the value of a header field FIELD to font-lock. Argument LIMIT limits search. (defalias 'mh-header-field-font-lock #[(field limit) "`U?\205I\306 \211W\203 \202\307` W\205H\310\311\312\f\"\n\307#\205H\313\224\313\225\314 \210`V\203<b\210\315 \211T`F!\210*\307+\207" [limit mail-header-end lesser-limit case-fold-search field match-one-e mh-mail-header-end t re-search-forward format "^%s" 0 mh-header-field-end set-match-data match-one-b] 6 (#$ . 96503)]) #@83 Return the value of a header field To to font-lock. Argument LIMIT limits search. (defalias 'mh-header-to-font-lock #[(limit) "\301\302\"\207" [limit mh-header-field-font-lock "To:"] 3 (#$ . 96992)]) #@83 Return the value of a header field cc to font-lock. Argument LIMIT limits search. (defalias 'mh-header-cc-font-lock #[(limit) "\301\302\"\207" [limit mh-header-field-font-lock "cc:"] 3 (#$ . 97199)]) #@88 Return the value of a header field Subject to font-lock. Argument LIMIT limits search. (defalias 'mh-header-subject-font-lock #[(limit) "\301\302\"\207" [limit mh-header-field-font-lock "Subject:"] 3 (#$ . 97406)]) #@75 Return the entire mail header to font-lock. Argument LIMIT limits search. (defalias 'mh-letter-header-font-lock #[(limit) "`U?\205,\304 \305\216\306 *\211W\203\n\202\307 \205+\310\311 D!\210 b\210\312*\207" [limit save-match-data-internal mail-header-end lesser-limit match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] mh-mail-header-end mh-in-header-p set-match-data 1 t] 4 (#$ . 97628)]) #@317 Limit font-lock in `mh-show-mode' to the header. Used when the option `mh-highlight-citation-style' is set to "Gnus", leaving the body to be dealt with by Gnus highlighting. The region between BEG and END is given over to be fontified and LOUDLY controls if a user sees a message about the fontification operation. (defalias 'mh-show-font-lock-fontify-region #[(beg end loudly) "\304  W\203\nW\203\305 \n #\202, W\203+\nY\203+\305  #\202,\306)\207" [header-end beg end loudly mh-mail-header-end font-lock-default-fontify-region nil] 4 (#$ . 98076)]) #@57 Additional expressions to highlight in MH-Show buffers. (defvar mh-show-font-lock-keywords '(("^\\(From:\\|Sender:\\)\\(.*\\)" (1 'default) (2 'mh-show-from)) (mh-header-to-font-lock (0 'default) (1 'mh-show-to)) (mh-header-cc-font-lock (0 'default) (1 'mh-show-cc)) ("^\\(Reply-To:\\|Return-Path:\\)\\(.*\\)$" (1 'default) (2 'mh-show-from)) (mh-header-subject-font-lock (0 'default) (1 'mh-show-subject)) ("^\\(Apparently-To:\\|Newsgroups:\\)\\(.*\\)" (1 'default) (2 'mh-show-cc)) ("^\\(In-Reply-To\\|Date\\):\\(.*\\)$" (1 'default) (2 'mh-show-date)) (mh-letter-header-font-lock (0 'mh-show-header append t))) (#$ . 98647)) #@47 Return variable `mh-show-font-lock-keywords'. (defalias 'mh-show-font-lock-keywords #[nil "\207" [mh-show-font-lock-keywords] 1 (#$ . 99281)]) #@57 Additional expressions to highlight in MH-Show buffers. (defvar mh-show-font-lock-keywords-with-cite (byte-code "\304\305\211\306P\307 \310 \311\n\312\313\260\314BDC\"+\207" [cite-chars cite-prefix cite-suffix mh-show-font-lock-keywords "[>|}]" "A-Za-z" "0-9_.@-`'\"" append "\\=[ ]*\\(\\([" "]+[" "]*\\)?\\(" "[ ]*\\)\\)+\\(.*\\)" ((beginning-of-line) (end-of-line) (2 font-lock-constant-face nil t) (4 font-lock-comment-face nil t))] 11) (#$ . 99431)) #@57 Return variable `mh-show-font-lock-keywords-with-cite'. (defalias 'mh-show-font-lock-keywords-with-cite #[nil "\207" [mh-show-font-lock-keywords-with-cite] 1 (#$ . 99899)]) (put 'mh-show-mode 'mode-class 'special) (defvar mh-show-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [mh-show-mode-hook variable-documentation put "Hook run after entering MH-Show mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp mh-show-mode-map definition-name mh-show-mode] 4) (defvar mh-show-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [mh-show-mode-abbrev-table mh-show-mode-map variable-documentation put purecopy "Keymap for `mh-show-mode'." boundp mh-show-mode-syntax-table definition-name mh-show-mode (lambda (#1=#:def-tmp-var) (defvar mh-show-mode-syntax-table #1#)) make-syntax-table "Syntax table for `mh-show-mode'." (lambda (#1#) (defvar mh-show-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `mh-show-mode'." derived-mode-parent text-mode] 5) #@557 Major mode for showing messages in MH-E.\ Email addresses and URLs in the message are highlighted if the option `goto-address-highlight-p' is on, which it is by default. To view the web page for a highlighted URL or to send a message using a highlighted email address, use the middle mouse button or \[goto-address-at-point]. See Info node `(mh-e)Sending Mail' to see how to configure Emacs to send the message using MH-E. The hook `mh-show-mode-hook' is called upon entry to this mode. See also `mh-folder-mode'. \{mh-show-mode-map} (defalias 'mh-show-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2036 \321 =\203<\322\f\323 \"\210)\324/\325\"\204V/0=\204V\326/\3250C#\210\327 !\210\330\f!\210/0\331\332!\203p\306\332!\2101\306\333!\2102\334\335!\3363\306\337!\210\307\306\340!\2104\341\267\202\241\342 \202\244\343 \344 \210\202\244\345 5\203\260\346\347\350\351\307$\210\3526!\210\3527!\210\3528!\210\306\353!\210\354 \210\327 !\210)\355\356!\207" [delay-mode-hooks major-mode mode-name mh-show-mode-map mh-show-mode-syntax-table parent make-local-variable t text-mode mh-show-mode "MH-Show" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table boundp tool-bar-map mail-header-separator default-value paragraph-start ((vanish . t) t) line-move-ignore-invisible font-lock-defaults #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (font-lock 146 gnus 152)) (mh-show-font-lock-keywords-with-cite t) ((mh-show-font-lock-keywords) t nil nil nil (font-lock-fontify-region-function . mh-show-font-lock-fontify-region)) mh-gnus-article-highlight-citation (mh-show-font-lock-keywords t) add-hook kill-buffer-hook mh-mime-cleanup nil easy-menu-add mh-show-folder-buffer buffer-disable-undo run-mode-hooks mh-show-mode-hook mh-show-mode-abbrev-table local-abbrev-table mh-show-tool-bar-map mh-mail-header-separator buffer-invisibility-spec mh-highlight-citation-style mh-decode-mime-flag mh-show-sequence-menu mh-show-message-menu mh-show-folder-menu] 6 (#$ . 101274) nil]) #@56 Decode >From at beginning of lines for `mh-show-mode'. (defalias 'mh-show-unquote-From #[nil "\212\303 \304\211\305 b\210\306\307\304\310#\203\311\312!\210\202\f\313\n!,\207" [buffer-read-only case-fold-search modified buffer-modified-p nil mh-mail-header-end re-search-forward "^>From" t replace-match "From" set-buffer-modified-p] 4 (#$ . 103585)]) #@21 Use `goto-address'. (defalias 'mh-show-addr #[nil "\300 \207" [goto-address] 1 (#$ . 103948)]) #@52 Highlight cited text in current buffer using Gnus. (defalias 'mh-gnus-article-highlight-citation #[nil "\305\306K\307\216\306M\210\310 \311 \312\fA\f@C\"\313\314!\210\315\n!.\207" [#1=#:vnew #2=#:old modified gnus-article-buffer gnus-cite-face-list #[(&rest _args) "\300\207" [nil] 1] gnus-article-add-button #[nil "\301M\207" [#2# gnus-article-add-button] 2] buffer-modified-p buffer-name append gnus-article-highlight-citation t set-buffer-modified-p] 3 (#$ . 104049) nil]) (provide 'mh-show)