;ELC ;;; Compiled by nelhage@localhost.localdomain on Sun Dec 11 02:47:35 2005 ;;; from file /home/nelhage/Desktop/vm-7.19/vm-summary.el ;;; in Emacs version 22.0.50.7 ;;; with all optimizations. ;;; This file uses opcodes which do not exist in Emacs 18. (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"))) (error "`vm-summary.el' was compiled for Emacs 19 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defalias 'vm-summary-mode-internal #[nil "\306\307\n\f\205\310 \205\311 \312\313;\203#\202$\314\315G\316\"\312\203D\317\320!\203D\321 p\322B\"\210\323!!\210\310 \203Q\324 \210\"\203c#\204`$\203c\325 \210\326\327!\210\326\330!\207" [mode-name major-mode vm-mode-line-format mode-line-format vm-use-menus mode-popup-menu "VM Summary" vm-summary-mode vm-menu-support-possible-p vm-menu-mode-menu t nil "" make-string 32 featurep scrollbar set-specifier 0 use-local-map vm-menu-install-menus vm-set-hooks-for-frame-deletion run-hooks vm-summary-mode-hook vm-summary-mode-hooks buffer-read-only vm-summary-pointer vm-summary-arrow vm-summary-=> vm-summary-no-=> truncate-lines vm-xemacs-p scrollbar-height vm-summary-mode-map vm-mutable-frames vm-frame-per-folder vm-frame-per-summary] 4]) (byte-code "\300\301M\210\302\300\303\304#\207" [vm-summary-mode vm-mode put mode-class special] 4) (defalias 'vm-summarize #[(&optional display raise) "\203\306!\204\307\310!\210q\210\202 \311>\204\307\312!\210\313 \210\n\204fp \314 \315\316\317\306 \"!)\212\nq\210\320\321!\210\322\321!\210\323 \210\324\325!\203Q\325p!\210\202Y\326\211!p!\210) \f\327 \210)\330\314!\210*\"\203\205\212\331 \210\332\n\314\333#C$?%\210\nq\210\334 \210)\202\216\332\335\211\336#C$\210\337 \207" [vm-mail-buffer major-mode vm-summary-buffer vm-folder-read-only read-only b buffer-name error "Folder buffer has been killed." (vm-mode vm-virtual-mode) "No VM folder buffer associated with this buffer" vm-check-for-killed-summary t get-buffer-create format "%s Summary" abbrev-mode 0 auto-fill-mode vm-fsfemacs-nonmule-display-8bit-chars fboundp buffer-disable-undo buffer-flush-undo vm-summary-mode-internal vm-set-summary-redo-start-point vm-goto-new-summary-frame-maybe vm-display (vm-summarize vm-summarize-other-frame) vm-toolbar-install-or-uninstall-toolbar nil (vm-summarize vm-summarize-other-frame) vm-update-summary-and-mode-line default-enable-multibyte-characters x display this-command raise] 7 "\ Summarize the contents of the folder in a summary buffer. The format is as described by the variable vm-summary-format. Generally one line per message is most pleasing to the eye but this is not mandatory." "p\np"]) (defalias 'vm-summarize-other-frame #[(&optional display) "\301 \203 \302\303!\210\304!\210\301 \205\305 \207" [display vm-multiple-frames-possible-p vm-goto-new-frame summary vm-summarize vm-set-hooks-for-frame-deletion] 2 "\ Like vm-summarize, but run in a newly created frame." "p"]) (defalias 'vm-do-summary #[(&optional start-point) "\206 \306\211\307\310\311 !\312\246\313\\\n\205\314 \306 !\211\"!\212#q\210\306\315 $%\316\216\203_!@\211\317H\320H)\203Y!@\211\317H\320H)b\210`d|\210\202edb\210\202e\321 \210\306&!\203\275\322!@!!@`'\211\317H\320'I\210*(c\210\323!@\322!@!\"\210!@`'\211\317H\324'I\210*!A!T\325 \246!\203e\326\327\"\210\202e Y\203\310\326\330!\210\"\211!\203[!@ \f\203 \331 \211\317H\320H) \211\317H\324H) \211\317H\332H)#)\211\317H\332)I\210* \211\211\317H\320H)\306*'\333 '*\223*'\211\317H\320'I\210* \211\211\317H\324H)\306*'\333 '*\223*'\211\317H\324'I\210*!A\211!\204\320)\334\335!\210+ Y\205k\326\336!.\207" [start-point vm-message-list vm-mouse-track-summary summary do-mouse-track modulus nil 0 vm-abs random 11 10 vm-mouse-support-possible-p buffer-modified-p ((set-buffer-modified-p modified)) 1 3 erase-buffer vm-su-summary vm-tokenized-summary-insert 4 zerop message "Generating summary... %d" "Generating summary markers... " vm-mouse-set-mouse-track-highlight 18 make-marker run-hooks vm-summary-redo-hook "Generating summary... done" n m mp m-list vm-summary-buffer modified buffer-read-only vm-summary-pointer pos vm-summary-no-=> overlay buffer] 8]) (defalias 'vm-do-needed-summary-rebuild #[nil "\203% \203%\304 \305\"\210\306:\205!\210\307\n\203!\310\n@!\210\307\211\207 \2059 \2059\n\2059\310\n@!\210\307\211\207" [vm-summary-redo-start-point vm-summary-buffer vm-message-pointer vm-need-summary-pointer-update vm-copy-local-variables vm-summary-show-threads vm-do-summary nil vm-set-summary-pointer] 3]) (defalias 'vm-update-message-summary #[(m) "\211\306H\307H)\205\315\310\211\306H\307H)!\205\315\311 \n\205 \312 \313\212\314!\310\211\306H\307H)!q\210\313\211\311 \315\216\212\211\306H\307H)b\210\316!?\211\306H\317H)b\210\320\321!\210\211\306H\307H)b\210`\211\306H\317H)S|\210\204\202c\210\202\206c\210\322\314!\"\210\323\306!\210\324\325!\210\f\203\264\326\211\306H\307H)\211\306H\317H)\211\306H\327H)#\210\205\313\205\313\330\211\306H\307H)`#. \207" [m message vm-mouse-track-summary summary do-mouse-track modified 1 3 marker-buffer buffer-modified-p vm-mouse-support-possible-p nil vm-su-summary ((set-buffer-modified-p modified)) looking-at 4 insert-before-markers "z" vm-tokenized-summary-insert delete-char run-hooks vm-summary-update-hook vm-mouse-set-mouse-track-highlight 18 vm-summary-highlight-region selected buffer-read-only vm-summary-no-=> vm-summary-=> vm-summary-highlight-face] 6]) (defalias 'vm-set-summary-pointer #[(m) "\205\360\306! \205 \307 \310p\311\216\312\216q\210\f\203%\313 \314\f!\210\310\203u\211\315H\316H)\203u\211\315H\316H)b\210c\210\317G!\210 \203u\320\211\315H\316H)\211\315H\321H)\211\315H\322H)#\210\211\315H\316H)b\210\323 \324\216c\210\317G!\210 \203\272\320\211\315H\316H)\211\315H\321H)\211\315H\322H)#\210*G[u\210 \203\337\325\211\315H\316H)\211\315H\321H) #\210\f\203\353\203\353\326 \210\327\330!.\207" [vm-summary-buffer vm-mouse-track-summary old-window do-mouse-track w vm-sbe-buffer vm-get-visible-buffer-window vm-mouse-support-possible-p nil ((byte-code "p=\204\301!\203q\210\301\207" [vm-sbe-buffer buffer-name] 2)) ((byte-code "\203\301!\210\301\207" [old-window select-window] 2)) selected-window select-window 1 3 delete-char vm-mouse-set-mouse-track-highlight 4 18 buffer-modified-p ((set-buffer-modified-p modified)) vm-summary-highlight-region vm-auto-center-summary run-hooks vm-summary-pointer-update-hook buffer-read-only vm-summary-pointer message vm-summary-no-=> vm-summary-=> m modified vm-summary-highlight-face] 6]) (defalias 'vm-summary-highlight-region #[(start end face) "\303 \n\304$\207" [start end face vm-summary-xxxx-highlight-region vm-summary-overlay] 5]) (defalias 'vm-folders-summary-highlight-region #[(start end face) "\303 \n\304$\207" [start end face vm-summary-xxxx-highlight-region vm-folders-summary-overlay] 5]) (defalias 'vm-summary-xxxx-highlight-region #[(start end face var) "J\n\2030 \203\306 !\203\307 \f#\202a\310 \f\" L\210\311 \312\313#\210\311 \305 #\202a\205a \203G\314 !\203G\315 \f#\202a\316 \f\" L\210\317 \320\321#\210\317 \322\313#\210\317 \305 #)\207" [var ooo vm-fsfemacs-p start end face overlay-buffer move-overlay make-overlay overlay-put evaporate nil extent-end-position set-extent-endpoints make-extent set-extent-property start-open t detachable vm-xemacs-p] 4]) (defalias 'vm-auto-center-summary #[nil "\205\301=\204\302\301!?\205\303\304!\207" [vm-auto-center-summary t one-window-p recenter (4)] 2]) (defalias 'vm-summary-sprintf #[(format message &optional tokenize) "\203\306\202 \307\310\n J\"\211\204\311\n\"\210\310\n J\"\f\204*\f\2041\312 A!\2027\313\312 A!!+\207" [tokenize alist-var format match message vm-su-message vm-summary-tokenized-compiled-format-alist vm-summary-untokenized-compiled-format-alist assoc vm-summary-compile-format eval vm-decode-mime-encoded-words-in-string vm-display-using-mime] 4]) (defalias 'vm-summary-compile-format #[(format tokenize) "\305 \"A@ \203\nB B\211\202\nB\fB\211)\207" [format tokenize return-value vm-summary-tokenized-compiled-format-alist vm-summary-untokenized-compiled-format-alist vm-summary-compile-format-1] 3]) (defalias 'vm-tokenized-summary-insert #[(message tokens) ";\203c\207\306\211\2056@\211;\203* \203$\307\n!c\210\202.\nc\210\202.\n\310=\203B`A@\3118E BAA\202.\n\312=\203\355\313\314! @\211@ A@\311 8`\306\315 \223*\250\203\252Z\316!W\203\252\317W\203\230\320\f\316Z\\!\"\210\202\252\212b\210\320\fZZ\"\210)\250\203\345Z\316!V\203\345\317V\203\322\321ZZ!\210\202\345\212b\210\321\316Z\\!!\210) A.\202.\n\322=\203 \211 \323H\323H)c\210\202.\n\324=\203\325 !c\210\202.\n\326=\203.!\203.\327\"!\203.\320\330\"\331 !_\"\210A\211\204\306*\207" [tokens group-list token vm-display-using-mime space blob nil vm-decode-mime-encoded-words-in-string group-begin 2 group-end string-to-char " " make-marker vm-abs 0 insert-char delete-char number 1 mark vm-su-mark thread-indent natnump 32 vm-th-thread-indentation start field-width precision buffer pos end message vm-summary-show-threads vm-summary-thread-indent-level] 7]) (defalias 'vm-summary-compile-format-1 #[(format &optional tokenize start-index) "\204\306\307\211\211\211\211\211\307\211\211\211@ABCDE\310\307!\210@\204\342D\204\342\307\211@\204w \204w\311\312F #\203wF\313\224H\306\225\n\314>\203PG\204`\n\315U\204P\n\316U\203\254G\204\213\317 H\320\216\321FG\313\225#\211IA@BBBI@+\202\207\322\323\224\205\236\324\325\326F\"\325\323F\"P!\324\325\327F\"!E\330\202\207\n\315U\203\267\331\202\207\n\332U\203\310\333\334DBBB\202\207\n\335U\203\331\336\334DBBB\202\207\n\337U\203\352\340\334DBBB\202\207\n\341U\203\373\342\334DBBB\202\207\n\343U\203\f\344\334DBBB\202\207\n\345U\203\346\334DBBB\202\207\n\347U\203.\350\334DBBB\202\207\n\351U\203?\352\334DBBB\202\207\n\353U\203P\354\334DBBB\202\207\n\355U\203kG\203`\356\202\207\357\334DBBB\202\207\n\360U\203|\361\334DBBB\202\207\n\362U\203\215\363\334DBBB\202\207\n\364U\203\236\365\334DBBB\202\207\n\366U\203\257\367\334DBBB\202\207\n\370U\203\312G\203\277\371\202\207\372\334DBBB\202\207\n\373U\203\333\374\334DBBB\202\207\n\375U\203\354\376\334DBBB\202\207\n\377U\203\377\201K\334DBBB\202\207\n\201LU\203*\201M\201N\201O\201PF\313\224T\313\224\323\\OP!D\334EBBB\202\207\n\201QU\203?\201R\334DBBB\202\207\n\201SU\203T\201T\334DBBB\202\207\n\201UU\203i\201V\334DBBB\202\207\n\201WU\203\207G\203}\201X\202\207\201Y\334DBBB \204\233J\203\233B\201ZB@D\240\210 \204\322\326\224\203\322\323\224\203\322BF\323\224H\201[=\203\275\201\\\202\300\201]B@\324F\323\224\323\225O!E\240\210\202 \204\323\224\203BF\323\224H\201[=\203\357\201^\202\362\201_B@\324F\323\224\323\225O!E\240\210 \204 \201`\224\203 B\201aB@\324F\327\224\327\225O!E\240\210 \2044J\2034B\201bB@D\240\210 \203>\201c\202A\201dF \306\224OABBA\202r\n\315=\203_\201e\330@\202b\201fF \206i\306\306\224OABBA\f\2024@\204\217 \204\217F FGOABA\330D\201g\201hA\237\"AB\203\257\201FAB\237BBB\202\263ABG\203&CB\201i\232?\205\307BC\244 \205\326 \203\324 \202\326 C\244C\307\211BA\202& C\203\361\201CCB\202\363B. D\207" [start-index splice conv-spec token new-match-end last-match-end 0 nil store-match-data string-match "%\\(-\\)?\\([0-9]+\\)?\\(\\.\\(-?[0-9]+\\)\\)?\\([()aAcdfFhHiIlLmMnstTwyz*%]\\|U[A-Za-z]\\)" 5 (40 41 97 65 99 100 102 70 104 72 105 73 108 76 77 109 110 115 116 84 85 119 121 122 42) 41 40 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) vm-summary-compile-format-1 'group-begin 2 string-to-int match-string 1 4 t 'group-end 97 vm-su-attribute-indicators vm-su-message 65 vm-su-attribute-indicators-long 99 vm-su-byte-count 100 vm-su-monthday 102 vm-su-interesting-from 70 vm-su-interesting-full-name 104 vm-su-hour 72 vm-su-hour-short 105 vm-su-message-id 73 'thread-indent vm-su-thread-indent 108 vm-su-line-count 76 vm-su-labels 109 vm-su-month 77 vm-su-month-number 110 'number vm-padded-number-of 115 vm-su-subject 84 vm-su-to-names 116 saw-close-group sexp-fmt sexp list finished-parsing-format case-fold-search format tokenize save-match-data-internal retval vm-display-using-mime vm-su-to 85 vm-run-user-summary-function quote intern "vm-summary-function-" 119 vm-su-weekday 121 vm-su-year 122 vm-su-zone 42 'mark vm-su-mark vm-decode-mime-encoded-words-in-string 48 vm-numeric-left-justify-string vm-left-justify-string vm-numeric-right-justify-string vm-right-justify-string 3 vm-truncate-string vm-reencode-mime-encoded-words-in-string "" "%s" "" "%%" apply concat ""] 12]) (defalias 'vm-get-header-contents #[(message header-name-regexp &optional clump-sep) "\306\211\307\n\310Q \211\311H\312HJ)\212 \211\311H\312HJ)\211\311H\313H)q\210\214~\210 \211\314H\311H)b\210\315 \203= \203x\316 \211\314H\317H\206R\320 !\210 \314H\317H)\315#\203x\212\314\224b\210\321 )\203x \203q \322 Q\211\2026\322 \211\2026* +\207" [regexp contents header-name-regexp message case-fold-search clump-sep nil "^\\(" "\\)" 1 5 9 0 t re-search-forward 3 vm-find-and-set-text-of vm-match-header vm-matched-header-contents] 5]) (defalias 'vm-string-width #[(string) "\304\305!\204 G\207\306G\306\211\nW\203% \305 H!\\ T\211\202 +\207" [string total lim i fboundp char-width 0] 5]) (defalias 'vm-left-justify-string #[(string width) "\303!\211\nY\203\202\304\n Z\305\"P)\207" [string sw width vm-string-width make-string 32] 5]) (defalias 'vm-right-justify-string #[(string width) "\303!\211\nY\203\202\304\n Z\305\"P)\207" [string sw width vm-string-width make-string 32] 4]) (defalias 'vm-numeric-left-justify-string #[(string width) "G\211\nY\203 \202\303\n Z\304\"P)\207" [string sw width make-string 48] 5]) (defalias 'vm-numeric-right-justify-string #[(string width) "G\211\nY\203 \202\303\n Z\304\"P)\207" [string sw width make-string 48] 4]) (defalias 'vm-truncate-string #[(string width) "\305\306!\203u\307V\203>\307 G\307\211 W\203.\nW\203.\n\306 \fH!\\\fT\211\202\nW\2038 \202< \307\fO+\207 GS\310\307[\f V\203d\nW\203d\n\306 \fH!\\\fS\211\202J\nW\203n \202s \fT\311O+\207\312 \"\207" [width string total lim i fboundp char-width 0 -1 nil vm-truncate-roman-string] 5]) (defalias 'vm-truncate-roman-string #[(string width) "G\302 !X\203 \207 \303W\203 \304O\207\303 O\207" [string width vm-abs 0 nil] 3]) (defalias 'vm-su-attribute-indicators #[(m) "\211\302H\302H)\203\303\202.\211\302H\304H)\203\305\202.\211\302H\306H)\203-\307\202.\310\211\302H\311H)\203=\312\202M\211\302H\313H)\203L\314\202M\315\211\302H\316H)\203\\\317\202{\211\302H\320H)\203k\321\202{\211\302H\322H)\203z\323\202{\324\211\302H\325H)\203\212\326\202\213\327R\207" [m message 2 "D" 0 "N" 1 "U" " " 3 "F" 5 "W" " " 4 "R" 6 "Z" 8 "B" " " 7 "E" " "] 6]) (defalias 'vm-su-attribute-indicators-long #[(m) "\211\302H\302H)\203\303\202.\211\302H\304H)\203\305\202.\211\302H\306H)\203-\307\202.\310\211\302H\311H)\203=\312\202>\313\211\302H\314H)\203M\315\202N\316\211\302H\317H)\203]\320\202^\321\211\302H\322H)\203m\323\202n\324\211\302H\325H)\203}\326\202~\327\211\302H\330H)\203\215\331\202\216\332\260\207" [m message 2 "D" 0 "N" 1 "U" " " 4 "r" " " 6 "z" " " 8 "b" " " 3 "f" " " 5 "w" " " 7 "e" " "] 9]) (defalias 'vm-su-byte-count #[(m) "\211\303H\304H)\206D\305\211\306H\307HJ)\211\304H\310H)\211\306H\307HJ)\211\304H\303H\2068\311 !\210 \304H\303H)Z!\211\303H\304\nI*\207" [m message count 3 0 int-to-string 1 5 4 vm-find-and-set-text-of] 6]) (defalias 'vm-su-weekday #[(m) "\211\302H\303H)\206\304!\210\211\302H\303H)\207" [m message 3 1 vm-su-do-date] 3]) (defalias 'vm-su-monthday #[(m) "\211\302H\303H)\206\304!\210\211\302H\303H)\207" [m message 3 2 vm-su-do-date] 3]) (defalias 'vm-su-month #[(m) "\211\302H\302H)\206\303!\210\211\302H\302H)\207" [m message 3 vm-su-do-date] 3]) (defalias 'vm-su-month-number #[(m) "\211\302H\303H)\206\304!\210\211\302H\303H)\207" [m message 3 15 vm-su-do-date] 3]) (defalias 'vm-su-year #[(m) "\211\302H\303H)\206\304!\210\211\302H\303H)\207" [m message 3 4 vm-su-do-date] 3]) (defalias 'vm-su-hour-short #[(m) "\302!\211G\303V\203 \304\303O\202 )\207" [m string vm-su-hour 5 0] 4]) (defalias 'vm-su-hour #[(m) "\211\302H\303H)\206\304!\210\211\302H\303H)\207" [m message 3 5 vm-su-do-date] 3]) (defalias 'vm-su-zone #[(m) "\211\302H\303H)\206\304!\210\211\302H\303H)\207" [m message 3 6 vm-su-do-date] 3]) (defalias 'vm-su-mark #[(m) "\211\302H\303H)\203 \304\207\305\207" [m message 1 2 "*" " "] 3]) (defalias 'vm-grok-From_-date #[(message) "\211\302H\303H)\304>\205C\212\211\302H\305HJ)\211\302H\306H)q\210\212\214~\210\211\307H\307H)b\210\310\311\312!\204<\311\313!\205B\314\302\224\302\225\",\207" [message case-fold-search 1 7 (BellFrom_ From_ From_-with-Content-Length) 5 9 0 nil looking-at "From [^ \n]*[ ]+\\([^ \n].*\\) remote from .*" "From [^ \n]*[ ]+\\([^ \n].*\\)" vm-buffer-substring-no-properties] 4]) (defalias 'vm-parse-date #[(date) "\306\307\310\311\312\313\314\211\315\"#$\316\317%\"\203&%\320\224\320\225O$\316\321%\"\2037%\320\224\320\225O\"\316\322%\"\203G%\320\224\320\225O\316\323%\"\203[%\320\224T\320\225O\202{\316\324%\"\204s\316\325%\"\204s\316\326%\"\203{%\320\224\320\225O\327#G!\204\212\327 G!\203\325\316\330%\n#\203\325%\331\224\331\225O\320\225\327#G!\203\263 G\331X\203\263 #\202{ G\331U\203\320\332 !\333W\203\311\334 P\202{\335 P\202{ \202{&\320$I\210&\336#I\210&\331\"I\210&\337 I\210&\340\fI\210&\341 I\210&. \207" [case-fold-search string start timezone hour year "" "" "" "" "" "" nil t string-match "sun\\|mon\\|tue\\|wed\\|thu\\|fri\\|sat" 0 "jan\\|feb\\|mar\\|apr\\|may\\|jun\\|jul\\|aug\\|sep\\|oct\\|nov\\|dec" "[0-9]?[0-9]:[0-9][0-9]\\(:[0-9][0-9]\\)?" "[^a-z][+---][0-9][0-9][0-9][0-9]" "e[ds]t\\|c[ds]t\\|p[ds]t\\|m[ds]t" "ast\\|nst\\|met\\|eet\\|jst\\|bst\\|ut" "gmt\\([+---][0-9]+\\)?" zerop "\\(^\\| \\)\\([0-9]+\\)\\($\\| \\)" 2 string-to-int 70 "20" "19" 1 3 4 5 month monthday weekday date vm-parse-date-workspace] 9]) (defalias 'vm-su-do-date #[(m) "\306\307\211\310 \311\"\206\312 !\211\204l \313\211\314H\315\fI\210* \316\211\314H\317\fI\210* \320\211\314H\314\fI\210* \321\211\314H\322\fI\210* \323\211\314H\324\fI\210* \325\211\314H\326\fI\210* \327\211\314H\330\fI\210*\202\362\331\332\"\2032\317\224\203\205\333 \317\224\317\225O\"\210\202\221 \334\211\314H\315\fI\210* \314\224\314\225O\211\314H\317\fI\210*\335 \324\224\324\225O\"\210 \326\224\326\225O\211\314H\324\fI\210* \211\314H\324H)G\317U\203 \336 +\337\216\331\340 \211\314H\324H)\"\203\367 \341 \211\314H\324H)P\211\314H\324\fI\210*\202\f \342 \211\314H\324H)P\211\314H\324\fI\210** \330\224\330\225O\211\314H\326\fI\210* \343\224\343\225O\211\314H\330\fI\210*\202\362\331\344\"\203\250\333 \315\224\315\225O\"\210\335 \317\224\317\225O\"\210 \314\224\314\225O\211\314H\317\fI\210* \324\224\324\225O\211\314H\326\fI\210* \326\224\326\225O\211\314H\324\fI\210*\330\224\203\231 \330\224\330\225O\211\314H\330\fI\210*\202\362 \345\211\314H\330\fI\210*\202\362\346!\333 \347\234\"\210 \315\234\211\314H\317\fI\210*\335 \317\234\"\210 \314\234\211\314H\324\fI\210* \324\234\211\314H\326\fI\210* \326\234\211\314H\330\fI\210*+ \211\314H\326H)\203!\331\350 \211\314H\326H)\"\203! \351 \211\314H\326H)P\211\314H\326\fI\210* \211\314H\317H)\204.\307\207\331\352 \211\314H\317H)\"\205Q \211\211\314H\317H)\315\317O\211\314H\317\fI*\207" [date vector case-fold-search m val message t nil vm-get-header-contents "Date:" vm-grok-From_-date "" 3 1 "" 2 "" "" 15 "" 4 "" 5 "" 6 string-match "\\(\\([a-z][a-z][a-z]\\),\\)?[ \n]*\\([0-9][0-9]?\\)[ \n---]*\\([a-z][a-z][a-z]\\)[ \n---]*\\([0-9]*[0-9][0-9]\\)[ \n]*\\([0-9:]+\\)[ \n]*\\([a-z][a-z]?[a-z]?\\|\\(-\\|\\+\\)[01][0-9][0-9][0-9]\\)" vm-su-do-weekday "" vm-su-do-month match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) "^[0-6]" "20" "19" 7 "\\([a-z][a-z][a-z]\\)[ \n]*\\([a-z][a-z][a-z]\\)[ \n]*\\([0-9][0-9]?\\)[ \n]*\\([0-9:]+\\)[ \n]*\\([0-9][0-9][0-9][0-9]\\)[ \n]*\\([a-z][a-z]?[a-z]?\\|\\(-\\|\\+\\)[01][0-9][0-9][0-9]\\)?" "" vm-parse-date 0 "\\`[0-9]:" "0" "\\`0[0-9]\\'" save-match-data-internal] 6]) (defalias 'vm-su-do-month #[(m month-abbrev) "\305\227 \"\211\203( \nA@\211\306H\306\nI\210* \307\n8\211\306H\310\nI*\202? \311\211\306H\306\nI\210* \312\211\306H\310\nI*)\207" [month-abbrev vm-month-alist val m message assoc 3 2 15 "" ""] 4]) (defalias 'vm-su-do-weekday #[(m weekday-abbrev) "\305\227 \"\211\203 \nA@\211\306H\307\nI*\202% \310\211\306H\307\nI*)\207" [weekday-abbrev vm-weekday-alist val m message assoc 3 1 ""] 4]) (defalias 'vm-run-user-summary-function #[#'message "\211\302H\303HJ)\212\211\302H\304H)q\210\214~\210\212\211\305H\302H)\211\305H\306H)}\210 !,\207" [message function 1 5 9 0 4] 4]) (defalias 'vm-su-full-name #[(m) "\211\302H\303H)\206\304!\210\211\302H\303H)\207" [m message 3 7 vm-su-do-author] 3]) (defalias 'vm-su-interesting-full-name #[(m) "\203\304\305\306\n!\"\203 \307\n!P\202\310\n!)\207\310\n!\207" [vm-summary-uninteresting-senders case-fold-search m vm-summary-uninteresting-senders-arrow nil string-match vm-su-from vm-su-to-names vm-su-full-name] 4]) (defalias 'vm-su-from #[(m) "\211\302H\303H)\206\304!\210\211\302H\303H)\207" [m message 3 8 vm-su-do-author] 3]) (defalias 'vm-su-interesting-from #[(m) "\203\304\305\306\n!\"\203 \307\n!P\202\306\n!)\207\306\n!\207" [vm-summary-uninteresting-senders case-fold-search m vm-summary-uninteresting-senders-arrow nil string-match vm-su-from vm-su-to] 4]) (defalias 'vm-grok-From_-author #[(message) "\211\302H\303H)\304>\2055\212\211\302H\305H)q\210\212\214~\210\211\306H\306H)b\210\307\310\311!\2054\312\302\224\302\225\",\207" [message case-fold-search 1 7 (From_ BellFrom_ From_-with-Content-Length) 9 0 nil looking-at "From \\([^ \n]+\\)" vm-buffer-substring-no-properties] 4]) (defalias 'vm-su-do-author #[(m) "\306\307\"\306\310\311#\206\312!\313\211\211\203\"\314\315\f\"\203\"\313 \2041\316\f\204H\317\202H !\211A@\206< \f\206G\n@\206G \314\320\f\"\203V\f\321\224\321\225O\314\322\f #\211\203h\f \323I\210\202V\f\211\324H\325I\210* \211\324H\326I.\207" [m i pair from full-name vm-chop-full-name-function vm-get-header-contents "Full-Name:" "From:" ", " vm-grok-From_-author nil string-match "^[ ]*$" "???" "???" "\\`\"\\([^\"]+\\)\"\\'" 1 "\n" 32 3 7 8 author message] 6]) (defalias 'vm-default-chop-full-name #[(address) "\303\304\305\"\203!\306\224\203\306\224\306\225O\307\224\307\225O\202;\304\310\"\203;\307\224\2034\307\224\307\225O\306\224\306\225O \n*D\207" [address full-name from nil string-match "\\`[ \n]*\\([^< \n]+\\([ \n]+[^< \n]+\\)*\\)?[ \n]*<\\([^>]+\\)>[ \n]*\\'" 1 3 "\\`[ \n]*\\(\\(\"[^\"]+\"\\|[^\"( \n]\\)+\\)[ \n]*(\\([^ \n]+\\([ \n]+[^ \n]+\\)*\\)?)[ \n]*\\'"] 3]) (defalias 'vm-choose-chop-full-name-function #[(address) "\305\306\211\211\203&\306\307\310\217\211\n@A\232\204\311\306\211\202\nA\211\204\n \203/\312\2021\313 \f!+\207" [result failed test-data vm-chop-full-name-function address (("kyle@uunet.uu.net" nil "kyle@uunet.uu.net") ("c++std=lib@inet.research.att.com" nil "c++std=lib@inet.research.att.com") ("\"Piet.Rypens\" " "Piet Rypens" "rypens@reks.uia.ac.be") ("makke@wins.uia.ac.be (Marc.Gemis)" "Marc Gemis" "makke@wins.uia.ac.be") ("" nil nil)) nil (byte-code "\301@@!\207" [test-data mail-extract-address-components] 2) ((error)) t vm-default-chop-full-name mail-extract-address-components] 4]) (defalias 'vm-su-do-recipients #[(m) "\306\307\211\211\211\211\211\211\211!\"#\310$\311\312#\2062\310$\313\314#\2062\310$\315\316#\2062\317 \310$\320\321#\f\211\203G\n\322 Q\202H \323\n!\324\n!\211\203\221% @!@\206` @\325\326\"\203o\327\224\327\225O\325\330\"#\211\"\203\204\"\331I\210\202o!B! A\211\204U!\237!$\332\333 \334#&\211'\335H\336&I\210*$\332\333!\337#&\211'\335H\340&I. \207" [full-name list all cc to addresses t nil vm-get-header-contents "To:" ", " "Apparently-To:" ", " "Newsgroups:" ", " user-login-name "Cc:" ", " ", " rfc822-addresses vm-parse-addresses string-match "\\`\"\\([^\"]+\\)\"\\'" 1 "\n" 32 mapconcat identity ", " 3 13 ", " 14 names i mail-use-rfc822 m vm-chop-full-name-function recips message] 10]) (defalias 'vm-su-to #[(m) "\211\302H\303H)\206\304!\210\211\302H\303H)\207" [m message 3 13 vm-su-do-recipients] 3]) (defalias 'vm-su-to-names #[(m) "\211\302H\303H)\206\304!\210\211\302H\303H)\207" [m message 3 14 vm-su-do-recipients] 3]) (defalias 'vm-su-message-id #[(m) "\211\303H\304H)\206N\305\306\"\211\205\307\n\310\"@)\206E\212\211\311H\312HJ)\211\311H\304H)q\210\214~\210\313\314\315\217*\206E\316\317\320\321 !!\322Q\211\303H\304\nI*\207" [m message id 3 9 vm-get-header-contents "Message-Id:" vm-parse "[^<]*\\(<[^>]+>\\)" 1 5 nil (byte-code "\302\303\211\304H\305HJ)\211\306H\307H\206\310 !\210 \306H\307H)\211\304H\305HJ)\211\306H\311H){!\312Q\207" [m message ""] 6) ((error)) "<" int-to-string vm-abs random "@toto.iv>"] 6]) (defalias 'vm-su-line-count #[(m) "\211\303H\304H)\206\\\212\211\305H\306HJ)\211\305H\307H)q\210\214~\210\310\311\211\305H\306HJ)\211\312H\303H\206?\313 !\210 \312H\303H)\211\305H\306HJ)\211\312H\314H)\"!*\211\303H\304\nI*\207" [m message count 3 10 1 5 9 int-to-string count-lines 0 vm-find-and-set-text-of 4] 7]) (defalias 'vm-su-subject #[(m) "\211\304H\305H)\2064\306\307\310#\206\311\312\313\314 \"\203)\315\316\312\317 $\202 *\211\304H\305 I*\207" [m message i subject 3 11 vm-get-header-contents "Subject:" " " "" nil string-match "\n[ ]*" replace-match " " t] 7]) (defalias 'vm-su-summary #[(m) "\306!\203U\211\307H\310HJ)\204U\211\310H\311H)\206\231\212\n\2032\312\n!\204,\313\314!\210\nq\210\202< \315>\204<\313\316!\210\317\f\320#\211\310H\311 I\210*\211\310H\311H*\207\211\321H\322H)\206\231\212\n\203u\312\n!\204o\313\314!\210\nq\210\202 \315>\204\313\316!\210\317\f\320#\211\321H\322I\210*\211\321H\322H*\207" [m message vm-mail-buffer major-mode vm-summary-format summ vm-virtual-message-p 4 1 15 buffer-name error "Folder buffer has been killed." (vm-mode vm-virtual-mode) "No VM folder buffer associated with this buffer" vm-summary-sprintf t 3 18 val] 6]) (defalias 'vm-fix-my-summary!!! #[nil "\203\306!\204\307\310!\210q\210\202 \311>\204\307\312!\210\313 \210\314 \210\305\315!\210\n\211\203T @\316\211\317H\320\fI\210*\321 @!\210 @\322\211\323H\324\fI\210* A\211\204.\305\325!\210\326\316!\210\305\327!\210\330\322!\210\331 \210)\305\332!\207" [vm-mail-buffer major-mode vm-message-list mp val message buffer-name error "Folder buffer has been killed." (vm-mode vm-virtual-mode) "No VM folder buffer associated with this buffer" vm-check-for-killed-summary vm-error-if-folder-empty "Fixing your summary..." nil 3 18 vm-mark-for-summary-update t 4 2 "Stuffing attributes..." vm-stuff-folder-attributes "Stuffing attributes... done" set-buffer-modified-p vm-update-summary-and-mode-line "Fixing your summary... done"] 4 nil nil]) (defalias 'vm-su-thread-indent #[(m) "\203\303 !\203\304\305\n! _\306\"\207\307\207" [vm-summary-show-threads vm-summary-thread-indent-level m natnump make-string vm-th-thread-indentation 32 ""] 3]) (defalias 'vm-su-labels #[(m) "\211\303H\303H)\206,\304\305\211\303H\306H)\307#\211\303H\303\nI*\206,\211\303H\303H)\207" [m message string 4 mapconcat identity 3 ","] 6]) (defalias 'vm-substring #[(string from &optional to) "\304\305\216\212\306 \211q\210 c\210\n\204 G\202#\n\307W\203# G\n\\ T\nT eV\2033e |\210\ndW\203=\nd|\210\310 +\207" [work-buffer string to from nil ((byte-code "\203\301!\210\301\207" [work-buffer kill-buffer] 2)) vm-make-work-buffer 0 buffer-string] 3]) (defalias 'vm-make-folder-summary #[nil "\301\302\"\207" [vm-folder-summary-vector-length make-vector nil] 3]) (defalias 'vm-fs-folder-of #[(fs) "\301H\207" [fs 0] 2]) (defalias 'vm-fs-total-count-of #[(fs) "\301H\207" [fs 1] 2]) (defalias 'vm-fs-new-count-of #[(fs) "\301H\207" [fs 2] 2]) (defalias 'vm-fs-unread-count-of #[(fs) "\301H\207" [fs 3] 2]) (defalias 'vm-fs-deleted-count-of #[(fs) "\301H\207" [fs 4] 2]) (defalias 'vm-fs-start-of #[(fs) "\301H\207" [fs 5] 2]) (defalias 'vm-fs-end-of #[(fs) "\301H\207" [fs 6] 2]) (defalias 'vm-fs-folder-key-of #[(fs) "\301H\207" [fs 7] 2]) (defalias 'vm-fs-mouse-track-overlay-of #[(fs) "\301H\207" [fs 8] 2]) (defalias 'vm-fs-short-folder-of #[(fs) "\301H\207" [fs 9] 2]) (defalias 'vm-fs-modflag-of #[(fs) "\301H\207" [fs 10] 2]) (defalias 'vm-set-fs-folder-of #[(fs x) "\302 I\207" [fs x 0] 3]) (defalias 'vm-set-fs-total-count-of #[(fs x) "\302 I\207" [fs x 1] 3]) (defalias 'vm-set-fs-new-count-of #[(fs x) "\302 I\207" [fs x 2] 3]) (defalias 'vm-set-fs-unread-count-of #[(fs x) "\302 I\207" [fs x 3] 3]) (defalias 'vm-set-fs-deleted-count-of #[(fs x) "\302 I\207" [fs x 4] 3]) (defalias 'vm-set-fs-start-of #[(fs x) "\302 I\207" [fs x 5] 3]) (defalias 'vm-set-fs-end-of #[(fs x) "\302 I\207" [fs x 6] 3]) (defalias 'vm-set-fs-folder-key-of #[(fs x) "\302 I\207" [fs x 7] 3]) (defalias 'vm-set-fs-mouse-track-overlay-of #[(fs x) "\302 I\207" [fs x 8] 3]) (defalias 'vm-set-fs-short-folder-of #[(fs x) "\302 I\207" [fs x 9] 3]) (defalias 'vm-set-fs-modflag-of #[(fs x) "\302 I\207" [fs x 10] 3]) (defalias 'vm-fs-spooled #[(fs) "\304\305\306! \"J\n\203 \307\n@!@\\\nA\211\204\310 !*\207" [fs vm-folders-summary-folder-hash list count 0 intern-soft vm-fs-folder-key-of vm-get-folder-totals int-to-string] 5]) (defalias 'vm-make-folders-summary-key #[(folder &optional dir) ";\203\305 \"\203\306 !\207\n;\203 \305\n \"\203 \307 !\207\310\311\312 \206)\f\"!P\207" [vm-recognize-pop-maildrops folder vm-recognize-imap-maildrops dir vm-folder-directory string-match vm-safe-popdrop-string vm-safe-imapdrop-string "folder-summary0:" file-truename expand-file-name] 5]) (defalias 'vm-open-folders-summary-database #[(mode) "\300\301\302\217\207" [data (byte-code "\302\303\304 $\207" [vm-folders-summary-database mode open-database berkeley-db hash] 5) ((error (byte-code "\301\302\"\210\303\304!\210\305\207" [data message "open-database signaled: %S" sleep-for 2 nil] 3)))] 3]) (defalias 'vm-get-folder-totals #[(folder) "\305\306\211\211\211\307\310\215-\207" [data key db fs default "(0 0 0 0)" nil done (byte-code "\204 \306\307\310 !\"\210\311\312!\204\306\307\310 !\"\210\313\314!\211\204'\306\307\310 !\"\210\315 !\310\316\f\n #!\317\n!\210 \207" [vm-folders-summary-database default db folder key data throw done read featurep berkeley-db vm-open-folders-summary-database "rw+" vm-make-folders-summary-key get-database close-database] 5)] 5]) (defalias 'vm-store-folder-totals #[(folder totals) "\304\211\211\211\305\306\215,\207" [data key db fs nil done (byte-code "\204 \306\307\310\"\210\311\312!\204\306\307\310\"\210\313\314!\211\204!\306\307\310\"\210\315\n!\316\f!\317 \320$\210\321 !\210\203o\322 \"\211J\211\203o\323\324\f@!\"\210\325\324\fA@!\"\210\326\324\327\f8!\"\210\330\324\331\f8!\"\210\332\n!\207" [vm-folders-summary-database db folder key totals data throw done nil featurep berkeley-db vm-open-folders-summary-database "rw+" vm-make-folders-summary-key prin1-to-string put-database t close-database intern-soft vm-set-fs-total-count-of int-to-string vm-set-fs-new-count-of vm-set-fs-unread-count-of 2 vm-set-fs-deleted-count-of 3 vm-mark-for-folders-summary-update vm-folders-summary-hash fs] 6)] 4]) (defalias 'vm-modify-folder-totals #[(folder action &rest objects) "\305\211\211\211\211\306\307\215-\207" [data key totals db fs nil done (byte-code "\204 \306\307\310\"\210\311\312!\204\306\307\310\"\210\313\314!\211\204!\306\307\310\"\210\315\n!\316 \"\317 !\210\f\2047\306\307\310\"\210\320\f! \321=\203d#@\310\211$%\f\211@\\\240\210\fA\211%\211@\\\240\210+\202\307 \322=\203\307#@#A@\310\211$%&\f\211@\\\240\210\fA\211%@\323=\204\244&\211'\324H\325H)\203\244%\211@\\\240\210%A\211%@\323=\204\306&\211'\324H\326H)\203\306%\211@\\\240\210,\327\f!(\313\330!\211\204\331\306\307\310\"\210\331 ( \332$\210\317 !\210)\203 \333 )\"\211*J\211*\203 \334*\335\f@!\"\210\336*\335\fA@!\"\210\337*\335\324\f8!\"\210\340*\335\341\f8!\"\210\342\n!\207" [vm-folders-summary-database db folder key totals action throw done nil featurep berkeley-db vm-open-folders-summary-database "r" vm-make-folders-summary-key get-database close-database read arrived saved -1 2 0 1 prin1-to-string "rw+" put-database t intern-soft vm-set-fs-total-count-of int-to-string vm-set-fs-new-count-of vm-set-fs-unread-count-of vm-set-fs-deleted-count-of 3 vm-mark-for-folders-summary-update objects n c m message data vm-folders-summary-hash fs] 6)] 5]) (defalias 'vm-folders-summary-sprintf #[(format layout) "\305 \"\211\204\306!\210\305 \" \307\nA!*\207" [format vm-folders-summary-compiled-format-alist match layout vm-folder-summary assoc vm-folders-summary-compile-format eval] 4]) (defalias 'vm-folders-summary-compile-format #[(format) "\303\304\" A@B\nB\211)\207" [format return-value vm-folders-summary-compiled-format-alist vm-folders-summary-compile-format-1 0] 3]) (defalias 'vm-folders-summary-compile-format-1 #[(format start-index) "\306\211\211\211\306\21112\307\306!\2101\204l1\204A\310\3110 #\203A0\312\224H\313\225 \314>\203  \315U\203X\316 3\317\216\3200\312\225\"\2114A@ B4@+\202\257 \321U\203g\322\323D B\202\257 \324U\203v\325\323D B\202\257 \326U\203\205\327\323D B\202\257 \330U\203\224\331\323D B\202\257 \332U\203\243\333\323D B\202\257 \334U\203\257\335\323D B\336\224\203\332\337\224\203\332 0\337\224H\340=\203\310\341\202\311\342 @\3430\337\224\337\225O!E\240\210\202\375\337\224\203\375 0\337\224H\340=\203\356\344\202\357\345 @\3430\337\224\337\225O!E\240\210\346\224\203 \347 @\3430\350\224\350\225O!E\240\210\3510 \313\224O\fBB\202< \352=\203-\353\3541\202.\3550 \2065\313\313\224O\fBB\n\2021\204S0 0GO\fB\3541\356\357\f\237\" \203g\360\f \237BB\202\f\202 .D\207" [start-index conv-spec new-match-end last-match-end sexp-fmt sexp nil store-match-data string-match "%\\(-\\)?\\([0-9]+\\)?\\(\\.\\(-?[0-9]+\\)\\)?\\([()dfnstu%]\\)" 5 0 (40 100 102 110 115 116 117) 40 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) vm-folder-summary-compile-format-1 100 vm-fs-deleted-count-of vm-folder-summary 102 vm-fs-short-folder-of 110 vm-fs-new-count-of 116 vm-fs-total-count-of 115 vm-fs-spooled 117 vm-fs-unread-count-of 1 2 48 vm-numeric-left-justify-string vm-left-justify-string string-to-int vm-numeric-right-justify-string vm-right-justify-string 3 vm-truncate-string 4 "%s" 41 "" t "%%" apply concat format done case-fold-search save-match-data-internal retval] 8]) (defalias 'vm-update-folders-summary-entry #[(fs) "\306!\205]\307\306!!\205]\310 \205\311 \312\212\307\306!!q\210\312\313\216\212\306!b\210\314!b\210\315\316!\210\306!b\210`\314!S|\210\317\"c\210\320\321!\210 \205[\322\306!\314!\323!#.\207" [fs vm-mouse-track-summary summary do-mouse-track modified buffer-read-only vm-fs-start-of marker-buffer buffer-modified-p vm-mouse-support-possible-p nil ((set-buffer-modified-p modified)) vm-fs-end-of insert-before-markers "z" vm-folders-summary-sprintf delete-char 1 vm-mouse-set-mouse-track-highlight vm-fs-mouse-track-overlay-of vm-folders-summary-format] 5]) (defalias 'vm-folders-summary-mode-internal #[nil "\306\307\310 \205\311 \205\312 \313\314\313\203-\315\316!\203-\317p\320B\"\210\321!\210\311 \203:\322 \210\203G\203G\323 \210\324\325!\207" [mode-name major-mode mode-line-format vm-use-menus mode-popup-menu buffer-read-only "VM Folders Summary" vm-folders-summary-mode (" %b") vm-menu-support-possible-p vm-menu-mode-menu t nil featurep scrollbar set-specifier 0 use-local-map vm-menu-install-menus vm-set-hooks-for-frame-deletion run-hooks vm-folders-summary-mode-hook buffer-offer-save truncate-lines vm-xemacs-p scrollbar-height vm-folders-summary-mode-map vm-mutable-frames vm-frame-per-folders-summary] 4]) (defalias 'vm-do-folders-summary #[nil "\300\301\215\207" [done (byte-code "\306\307\310\"\311\211\211\211\211\211\211 \205\312 6789:;\212\2047\314\315\311\"\210\316\317!\204B\314\315\311\"\210\320\321!\211:\204P\314\315\311\"\210?\2119\203_?A\203e9@\322\261\2109@@\323\324\325\326\327\3309@!!!!!\331\"8)8\203V8@7\33279@\"6\3336:\"\211\204\302\33479@\"A\335A!\206\254\336\336\211\211F\211@\336=\204\276\337A\f\"\210)\202\306\340\f!\f@\336=\204M\341 \342 \33479@\"\"\210\343 7\"\210\344 \345\f@!\"\210\346 \345\fA@!\"\210\347 \345\350\f8!\"\210\351 \345\352\f8!\"\210\353 6\"\210\354 `\311BC\355 CB\223*\"\210\356 \"c\210\357 `\311BC\355 CB\223*\"\210\n\203D\360 \361\362 !\363 !\"\"\210\3646;\" L\2108A\2118\204\2029A\2119\204X\365:!\210;D)eb. \207" [vm-folders-summary-format vm-mouse-track-summary do-mouse-track format totals fs make-vector 89 0 nil vm-mouse-support-possible-p erase-buffer throw done featurep berkeley-db vm-open-folders-summary-database "r" ":\n" sort vm-delete-backup-file-names vm-delete-auto-save-file-names vm-delete-index-file-names vm-delete-directory-names directory-files string-lessp vm-make-folders-summary-key get-database expand-file-name vm-count-messages-in-file -1 vm-store-folder-totals read vm-make-folder-summary vm-set-fs-folder-of vm-set-fs-short-folder-of vm-set-fs-total-count-of vm-nonneg-string vm-set-fs-new-count-of vm-set-fs-unread-count-of 2 vm-set-fs-deleted-count-of 3 vm-set-fs-folder-key-of vm-set-fs-start-of make-marker vm-folders-summary-sprintf vm-set-fs-end-of vm-set-fs-mouse-track-overlay-of vm-mouse-set-mouse-track-highlight vm-fs-start-of vm-fs-end-of intern close-database key f fp dp db fs-hash vm-folders-summary-buffer buffer-read-only vm-folders-summary-database vm-folders-summary-directories default-directory ff buffer pos vm-folders-summary-hash] 11)] 2]) (defalias 'vm-update-folders-summary-highlight #[nil "\203\306!\203 \204\n\203\307\n\310\211#\210\311\211\207\n\312\313\306!! \"J \205J\f\203A\314\f!\203A\315\f!\316 !U?\205J\317\320 !\316 ! #*\207" [vm-mail-buffer vm-folders-summary-hash vm-folders-summary-overlay fs ooo vm-summary-highlight-face buffer-file-name vm-set-extent-endpoints 1 nil intern-soft vm-make-folders-summary-key vm-extent-object vm-extent-end-position vm-fs-end-of vm-folders-summary-highlight-region vm-fs-start-of] 5]) (defalias 'vm-do-needed-folders-summary-update #[nil "\205 \212q\210 \n=\206 ??\205\304\305 \"\210\306 \210 \211)\207" [vm-folders-summary-buffer vm-modification-counter vm-flushed-modification-counter vm-folders-summary-hash mapatoms #[(sym) "J\302 !\205\303 !\210\304 \305\")\207" [sym fs vm-fs-modflag-of vm-update-folders-summary-entry vm-set-fs-modflag-of nil] 3] vm-update-folders-summary-highlight] 3]) (defalias 'vm-mark-for-folders-summary-update #[(folder &optional dont-descend) "\306! \n\307\211 \310 \"J\211\2032\311 \312\"\210\313 \210\2032\212q\210T)?\205Q\310 \"J\211\205Q\314\f@\312\"\210\fA\211\204C\307-\207" [folder vm-folders-summary-hash vm-folders-summary-spool-hash fs list spool-hash vm-make-folders-summary-key nil intern-soft vm-set-fs-modflag-of t vm-check-for-killed-summary vm-mark-for-folders-summary-update hash key vm-folders-summary-buffer vm-modification-counter dont-descend] 6]) (defalias 'vm-make-folders-summary-associative-hashes #[nil "\306\307!\310\311\312\"\310\311\312\"\313\211\211\211\203\\\314@@!\314@A@!\315 \"J@@ B\315 \f\"J@A@\nBA\316 \" L\210\316 \f\"\nL\210\202 \f\211.\207" [spool-key folder-key f-list s-list folder-hash spool-hash vm-compute-spool-files t make-vector 61 0 nil vm-make-folders-summary-key intern-soft intern triples vm-folders-summary-spool-hash vm-folders-summary-folder-hash] 7]) (defalias 'vm-follow-folders-summary-cursor #[nil "\302=?\206 ??\205\303\304\215\207" [major-mode vm-folders-summary-hash vm-folders-summary-mode done (byte-code "\301\302\"\210\303\207" [vm-folders-summary-hash mapatoms #[(sym) "J`\304 !Y\2056`\305 !W\2056\n\203\"\n\306\307 !!=?\2056\212\310\307 !!\210p) T\311 \210\312\313\314\")\207" [sym fs vm-mail-buffer vm-modification-counter vm-fs-start-of vm-fs-end-of vm-get-file-buffer vm-fs-folder-of vm-visit-folder vm-update-summary-and-mode-line throw done t] 4] nil] 3)] 2]) (provide 'vm-summary)