Gecko [ 122.154.134.11 ]

Name	Size	Permission
mh-acros.el	12.65 KB	-rw-r--r--
mh-alias.elc	17.61 KB	-rw-r--r--
mh-buffers.elc	2.74 KB	-rw-r--r--
mh-comp.elc	33.6 KB	-rw-r--r--
mh-compat.el	12.07 KB	-rw-r--r--
mh-e.elc	113.81 KB	-rw-r--r--
mh-folder.elc	61.68 KB	-rw-r--r--
mh-funcs.elc	12.23 KB	-rw-r--r--
mh-gnus.el	6.07 KB	-rw-r--r--
mh-identity.elc	7.9 KB	-rw-r--r--
mh-inc.elc	2.11 KB	-rw-r--r--
mh-junk.elc	15.3 KB	-rw-r--r--
mh-letter.elc	27.93 KB	-rw-r--r--
mh-limit.elc	10.43 KB	-rw-r--r--
mh-loaddefs.el	103.32 KB	-rw-r--r--
mh-mime.elc	55.16 KB	-rw-r--r--
mh-print.elc	8.59 KB	-rw-r--r--
mh-scan.elc	16.45 KB	-rw-r--r--
mh-search.elc	59.54 KB	-rw-r--r--
mh-seq.elc	37.48 KB	-rw-r--r--
mh-show.elc	130.77 KB	-rw-r--r--
mh-speed.elc	16.67 KB	-rw-r--r--
mh-thread.elc	43.78 KB	-rw-r--r--
mh-tool-bar.elc	26.7 KB	-rw-r--r--
mh-utils.elc	28.26 KB	-rw-r--r--
mh-xface.elc	14 KB	-rw-r--r--

Code Editor : mh-speed.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:28 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/mh-e/mh-speed.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`mh-speed.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(byte-code "\302\303!\210\302\304!\210\302\305!\210\302\306!\210\307B\310\307!\204�\311\307\312\"\210\313B\310\313!\204.�\311\313\312\"\210\314B\310\314!\204@�\311\314\315\316\317\"\"\210\320B\310\320!\204R�\311\320\315\316\317\"\"\210\321B\310\321!\204a�\311\321\312\"\210\322B\310\322!\204p�\311\322\312\"\210\323B\310\323!\204�\311\323\324\"\210\325\326\327	\"A\235\204\232�\330	!\326\327	\"\325\326\327	\"AB\241\210\312\207" [current-load-list speedbar-stealthy-function-list require mh-e gnus-util speedbar timer mh-speed-refresh-flag default-boundp set-default nil mh-speed-last-selected-folder mh-speed-folder-map make-hash-table :test equal mh-speed-flists-cache mh-speed-flists-process mh-speed-flists-timer mh-speed-partial-line "" mh-speed-stealth-update assoc "files" copy-tree] 5)
#@32 Extra menu items for speedbar.
(defvar mh-folder-speedbar-menu-items '("--" ["Visit Folder" mh-speed-view (save-excursion (set-buffer speedbar-buffer) (get-text-property (mh-line-beginning-position) 'mh-folder))] ["Expand Nested Folders" mh-speed-expand-folder (and (get-text-property (mh-line-beginning-position) 'mh-children-p) (not (get-text-property (mh-line-beginning-position) 'mh-expanded)))] ["Contract Nested Folders" mh-speed-contract-folder (and (get-text-property (mh-line-beginning-position) 'mh-children-p) (get-text-property (mh-line-beginning-position) 'mh-expanded))] ["Refresh Speedbar" mh-speed-refresh t]) (#$ . 1423))
(byte-code "\302B\303\302!\204�\304\302	\"\210\305B\303\305!\204�\304\305	\"\210\302\207" [current-load-list mh-folder-speedbar-menu-items mh-show-speedbar-menu-items default-boundp set-default mh-letter-speedbar-menu-items] 3)
#@47 Specialized speedbar keymap for MH-E buffers.
(defvar mh-folder-speedbar-key-map (speedbar-make-specialized-keymap) (#$ . 2302))
(byte-code "\302\301\303\"\210\304B\305\304!\204�\306\304	\"\210\307B\305\307!\204#�\306\307	\"\210\310\311\312\"\210\310\313\312\"\207" [current-load-list mh-folder-speedbar-key-map gnus-define-keys-1 ("+" mh-speed-expand-folder "-" mh-speed-contract-folder "
" mh-speed-view "r" mh-speed-refresh) mh-show-speedbar-key-map default-boundp set-default mh-letter-speedbar-key-map defalias mh-speed-contract-folder mh-speed-toggle mh-speed-expand-folder] 3)
#@182 Regenerates the list of folders in the speedbar.

Run this command if you've added or deleted a folder, or want to
update the unseen message count before the next automatic
update.
(defalias 'mh-speed-refresh #[nil "\300\301!\210\302\303!\207" [mh-speed-flists t mh-speed-invalidate-map ""] 2 (#$ . 2898) nil])
#@74 Do stealth update.
With non-nil FORCE, the update is always carried out.
(defalias 'mh-speed-stealth-update #[(&optional force) "\212q\210\302e\303\")\203�\304	!\210\305\207\306\207" [speedbar-buffer force get-text-property mh-level mh-speed-update-current-folder nil t] 3 (#$ . 3215)])
#@99 Toggle the display of child folders in the speedbar.
The optional ARGS from speedbar are ignored.
(defalias 'mh-speed-toggle #[(&rest args) "\306 \210\307`\310\"\307`\311\"\307`\312\"\307`\313\"`\314\315\f\204&�\314\202\224�\203|�\314y\210`\307`\313\"\203f�\307`\313\"\nV\203f�\307`\310\"\316\"\203_�\316\"\314\211\223\210\317\"\210)\314y\210\202/�`|\210\320y\210\321\322!\210\323\324 \325 T\326#\202\224�\314y\210\327
\nT\"\210	b\210\321\330!\210\323\324 \325 T\331#.\207" [start-region point level expanded kids-p parent beginning-of-line get-text-property mh-folder mh-children-p mh-expanded mh-level nil t gethash remhash -1 speedbar-change-expand-button-char 43 add-text-properties mh-line-beginning-position line-beginning-position (mh-expanded nil) mh-speed-add-buttons 45 (mh-expanded t) inhibit-read-only folder mh-speed-folder-map] 6 (#$ . 3510) nil])
#@138 Visits the selected folder just as if you had used \<mh-folder-mode-map>\[mh-visit-folder].
The optional ARGS from speedbar are ignored.
(defalias 'mh-speed-view #[(&rest args) "\305\306 \307\"\211;\205�\310\311\312\313\211	&;\2054�\314 \315\316\317 \"r\320\216\321 \210\322\n\"\210\323 \210\324 ,*\207" [folder mh-interpret-number-as-range-flag range save-selected-window-alist save-selected-window-window get-text-property mh-line-beginning-position mh-folder mh-read-range "Scan" t nil selected-window mapcar #[(frame) "\301!B\207" [frame frame-selected-window] 3] frame-list ((byte-code "\304\211\203(�\n@\305	@!\203!�\306	A!\203!�\307	@	A\310#\210\nA\211\204�*\306!\2034�\311\310\"\210\304\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) dframe-select-attached-frame mh-visit-folder delete-other-windows dframe-maybee-jump-to-attached-frame] 8 (#$ . 4405) nil])
#@126 Interface function to create MH-E speedbar buffer.
BUFFER is the MH-E buffer for which the speedbar buffer is to be
created.
(defalias 'mh-folder-speedbar-buttons #[(buffer) "\304e\305\"?\205M�\306 \210\307!\210\310\311\312\313\314\315\316\314\317\320&	\210\321y\210\322\314\"\206*�\323 \324 T\314\223\325\314\n	#\210*\326\324 \327 T\330#\210\331\332!\210\320V\205M�\333\314!\207" [mh-speed-folder-map #1=#:--cl-h-- #2=#:--cl-store-- mh-speed-update-interval get-text-property mh-level erase-buffer clrhash speedbar-make-tag-line bracket 43 mh-speed-toggle nil " " ignore mh-speedbar-folder 0 -1 gethash make-marker mh-line-beginning-position puthash add-text-properties line-beginning-position (mh-folder nil mh-expanded nil mh-children-p t mh-level 0) mh-speed-stealth-update t mh-speed-flists] 10 (#$ . 5424)])
(byte-code "\300\301\302\"\210\300\303\302\"\207" [defalias mh-show-speedbar-buttons mh-folder-speedbar-buttons mh-letter-speedbar-buttons] 3)
#@70 Compatibility macro to handle speedbar versions 0.11a and 0.14beta4.
(defalias 'mh-speed-select-attached-frame '(macro . #[nil "\300\301!\203�\302\207\303\304!\203�\305\207\306\307!\207" [fboundp dframe-select-attached-frame (dframe-select-attached-frame speedbar-frame) boundp speedbar-attached-frame (select-frame speedbar-attached-frame) error "Installed speedbar version not supported by MH-E"] 2 (#$ . 6393)]))
#@475 Update speedbar highlighting of the current folder.
The function tries to be smart so that work done is minimized.
The currently highlighted folder is cached and no highlighting
happens unless it changes.
Also highlighting is suspended while the speedbar frame is selected.
Otherwise you get the disconcerting behavior of folders popping open
on their own when you are trying to navigate around in the speedbar
buffer.

The update is always carried out if FORCE is non-nil.
(defalias 'mh-speed-update-current-folder #[(force) "\306 \212\307	!\210\310\311 !\312!\210)p\313
\204:�\203%�	=\203:�\n;\203j�\n\314\315O\316\232\203j�\n\232\204j�\317\312	!\210q\210\320\321\"\210\322\n!\203V�\320\n\323\"\210\n\324 \210\325\326	!`\"\210q\210\312!\210	=\205t�\313\211,\207" [lastf speedbar-frame newcf lastb case-fold-search force selected-frame dframe-select-attached-frame mh-speed-extract-folder-name buffer-name select-frame t 0 1 "+" nil mh-speed-highlight mh-speedbar-folder mh-speed-goto-folder mh-speedbar-selected-folder speedbar-position-cursor-on-line set-window-point frame-first-window mh-speed-refresh-flag mh-speed-last-selected-folder speedbar-buffer] 3 (#$ . 6818)])
#@21 Set FOLDER to FACE.
(defalias 'mh-speed-highlight #[(folder face) "\212\304\305	\n`#b\210\306 \210\307\310\311 \304#\203�\312!\202!�\313!\306 \210\307\314\311 \304#\2054�\315`\311 \303$*\207" [inhibit-read-only folder mh-speed-folder-map face t gethash beginning-of-line re-search-forward "([1-9][0-9]*/[0-9]+)" mh-line-end-position mh-speed-bold-face mh-speed-normal-face "\\[.\\] " put-text-property] 5 (#$ . 8022)])
#@36 Return normal face for given FACE.
(defalias 'mh-speed-normal-face #[(face) "\301=\203�\302\207\303=\203�\304\207\207" [face mh-speedbar-folder-with-unseen-messages mh-speedbar-folder mh-speedbar-selected-folder-with-unseen-messages mh-speedbar-selected-folder] 2 (#$ . 8454)])
#@34 Return bold face for given FACE.
(defalias 'mh-speed-bold-face #[(face) "\301=\203�\302\207\303=\203�\304\207\207" [face mh-speedbar-folder mh-speedbar-folder-with-unseen-messages mh-speedbar-selected-folder mh-speedbar-selected-folder-with-unseen-messages] 2 (#$ . 8743)])
#@104 Move point to line containing FOLDER.
The function will expand out parent folders of FOLDER if needed.
(defalias 'mh-speed-goto-folder #[(folder) "\306\307\310\f\"\204+�	\203+�\311\312\"\211\250\203�	T\306O\nB\313	O\202�\310\f\"\211\203:�
b\210\202P�eb\210\314 \210\315`\316\"\204J�\314 \210\310\f\"b\210)\n\203\200�\315\317 \320\"\232\203l�\314 \210\315`\316\"\204l�\314 \210\321\322\n\211A@#\310\f`#b\210\202Q�\323 \210\315`\320\"\232+\207" [folder last-slash suffix-list prefix mh-speed-folder-map prefix-position nil t gethash mh-search-from-end 47 0 mh-speed-toggle get-text-property mh-expanded mh-line-beginning-position mh-folder format "%s/%s" beginning-of-line] 6 (#$ . 9029)])
#@136 Given an MH-E BUFFER find the folder that should be highlighted.
Do the right thing for the different kinds of buffers that MH-E
uses.
(defalias 'mh-speed-extract-folder-name #[(buffer) "\212q\210	\306=\203�\n\202D�	\307=\203�q\210\n\202D�	\310=\205D�\311\f
\"\205D�
\312\225\313O\314\315\"\211\205C�\316\317\312O\"*)\207" [buffer major-mode mh-current-folder mh-show-folder-buffer mh-user-path buffer-file-name mh-folder-mode mh-show-mode mh-letter-mode string-match 0 nil mh-search-from-end 47 format "+%s" rel-path directory-end] 6 (#$ . 9746)])
#@70 Add speedbar button for FOLDER which is at indented by LEVEL amount.
(defalias 'mh-speed-add-buttons #[(folder level) "\302!\303\304	\")\207" [folder folder-list mh-sub-folders mapc #[(f) "\306\307\206�\310\203�\311\202�\312	@$\313\n\"\314\315\316	A\203&�\317\202'�\320\321\322\306\323	@\f\203;�\306\324\f@\fA#\202<�\312#\325\322\f\203N�\f@\326V\203N�\327\202O�\330$&	\210\212\331y\210\n%&'\313\n&\"\206i�\332 \333 T\322\223(\334%('#\210+\335\333 \333 T\336\n\337\322\340	A??\341\f\205\225�\342\f@\fABD\343$D\"BBBBBB#,\207" [folder f folder-name mh-speed-flists-cache counts inhibit-read-only format "%s%s%s" "+" "/" "" gethash t speedbar-make-tag-line bracket 43 32 mh-speed-toggle nil "%s%s" " (%s/%s)" mh-speed-view 0 mh-speedbar-folder-with-unseen-messages mh-speedbar-folder -1 make-marker mh-line-beginning-position puthash add-text-properties mh-folder mh-expanded mh-children-p append mh-count mh-level level #1=#:--cl-x-- mh-speed-folder-map #2=#:--cl-h-- #3=#:--cl-store--] 13]] 3 (#$ . 10315)])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\304\"\210\304\207" [current-load-list mh-speed-current-folder default-boundp set-default nil mh-speed-flists-folder] 3)
#@131 PROCESS can be killed without query on Emacs exit.
Avoid using `process-kill-without-query' if possible since it is
now obsolete.
(defalias 'mh-process-kill-without-query '(macro . #[(process) "\301\302!\203\f�\302\303BB\207\304D\207" [process fboundp set-process-query-on-exit-flag (nil) process-kill-without-query] 3 (#$ . 11552)]))
#@196 Execute flists -recurse and update message counts.
If FORCE is non-nil the timer is reset.

Any number of optional FOLDERS can be specified. If specified,
flists is run only for that one folder.
(defalias 'mh-speed-flists #[(force &rest folders) "\203)�	\203�\306	!\210\307\310\n!\203)�\311\n!\312=\204)�\313\n\314\"\210\315\n!\210\316\307\f	?\205?�\317\307\320V\205;�\321#\211\207" [force mh-speed-flists-timer mh-speed-flists-process mh-speed-partial-line folders mh-speed-flists-folder mh-cancel-timer nil processp process-status exit set-process-filter t kill-process "" run-at-time 0 #[nil "\306!\205\f�\307!\310=??\205c�	\203�\311	!@\312\313O\2028�\314\315!r\nq\210\316\216\317\320\321\"\313\322\313\323%\210edS{+\324P\325\326\327\313\320\330\"	\203K�\331\202L�\332\333\334
!	\206U�\335&\313\336\313\"\210\337\340\"\207" [mh-speed-flists-process mh-speed-flists-folder #1=#:temp-buffer mh-progs mh-speed-current-folder mh-unseen-seq processp process-status exit reverse 1 nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) call-process expand-file-name "folder" (t nil) "-fast" "+" apply start-process "*flists*" "flists" "-noall" "-all" "-sequence" symbol-name ("-recurse") set-process-query-on-exit-flag set-process-filter mh-speed-parse-flists-output] 9] mh-speed-update-interval] 4 (#$ . 11896) (list t)])
#@127 Parse the incremental results from flists.
PROCESS is the flists process and OUTPUT is the results that must
be handled next.
(defalias 'mh-speed-parse-flists-output #[(process output) "\306 \307\310\211\211\211\211\"\311\216\312\313#
#\211\203\314\315$#
\fO#\316$\317%\"\211&@&A@\320&8)\n\203	\203\203\321\n'\"\211(@	\232?\206a�(A\232?)\203\322\n	B'#\210\212\323\324)!!\203
)q\210\325*\326e\327\"\203\f\321\n+\"\310\211,\203,b\210\330 b\210\326`\331\"\204\315�\332 b\210\326`S\333\"\314\334	#c\210\335\336\"\210\330 b\210\337``T\331	BD#\210\202\326`\331\"	B\232\204\332 b\210\326`S\333\"\340\341\330 \325#\210`\332 |\210\314\334	#c\210\335\336\"\210\330 b\210\337``T\331	BD#\210*))\fT\202�)#
\310O\211$.\207" [total unseen folder line line-end position match-data 0 nil ((set-match-data prevailing-match-data)) string-match "\n" format "%s%s" "" mh-parse-flist-output-line 2 gethash puthash buffer-live-p get-buffer t get-text-property mh-level mh-line-beginning-position mh-count mh-line-end-position face " (%s/%s)" mh-speed-highlight unknown add-text-properties re-search-backward " " prevailing-match-data output mh-speed-partial-line mh-speed-current-folder #1=#:--cl-var-- mh-speed-flists-cache old-pair speedbar-buffer inhibit-read-only mh-speed-folder-map pos] 8 (#$ . 13305)])
#@49 Remove FOLDER from various optimization caches.
(defalias 'mh-speed-invalidate-map #[(folder) "\212q\210\306\307\310\n\"\211\205�\n\311O\312\f
\"\306\203\230�\313\f!\211\2041�\314\202V�A\204V�\203C�\nT\306O\202G�\n\315\306O\211@@)\232\203V�\316)b\210\317\320 \321\"\f\232\203\230�\317\320 \322\"\203p�\323 \210\203\214�\324 \325!\210\326\320 \320 T\327\314\232D#\210)\330!\331\"\210\306!\324\"\n\332\232\205\240�\333 .\207" [speedbar-buffer speedbar-update-flag folder last-slash parent mh-speed-folder-map nil mh-search-from-end 47 0 gethash mh-sub-folders 43 1 32 get-text-property mh-line-beginning-position mh-folder mh-expanded mh-speed-toggle t mh-speedbar-change-expand-button-char add-text-properties mh-children-p mh-speed-highlight mh-speedbar-folder "" mh-clear-sub-folders-cache parent-position parent-change parent-kids x inhibit-read-only mh-speed-last-selected-folder mh-speed-refresh-flag] 7 (#$ . 14670) (list "")])
#@69 Change the expansion button character to CHAR for the current line.
(defalias 'mh-speedbar-change-expand-button-char #[(char) "\212\302 \210\303\304\305 \306#\2051�\306\307u\210\310\311!\210\312	\311\306#\210\313``S\314\315$\210\316\317!\2050�\317`\320Z\321\"))\207" [inhibit-read-only char beginning-of-line re-search-forward "\\[.\\]" mh-line-end-position t -2 delete-char 1 insert-char put-text-property invisible nil fboundp speedbar-insert-image-button-maybe 2 3] 5 (#$ . 15648)])
#@101 Add FOLDER since it is being created.
The function invalidates the latest ancestor that is present.
(defalias 'mh-speed-add-folder #[(folder) "\212q\210\306\307\310	\"	\306\311\312\215\210\n\204�\306\n\206\"�\313\306\"b\210\314\315\316!\210\317\320 \320 T\321#\210)\322\320 \323\"\203@�\324 \210\314\211-\207" [speedbar-buffer folder ancestor-pos ancestor last-slash speedbar-update-flag nil mh-search-from-end 47 --cl-block-while-loop-- (byte-code "\205!�	\304O\305	\n\"\211\203�\306\307\310\"\210\311\312	\"\211\204�\310\207" [last-slash ancestor mh-speed-folder-map ancestor-pos 0 gethash throw --cl-block-while-loop-- nil mh-search-from-end 47] 4) gethash t mh-speedbar-change-expand-button-char 43 add-text-properties mh-line-beginning-position (mh-children-p t) get-text-property mh-expanded mh-speed-toggle mh-speed-folder-map inhibit-read-only mh-speed-refresh-flag] 4 (#$ . 16142)])
(provide 'mh-speed)

${this.title}

Code Editor : mh-speed.elc