(defun vm-isearch (forward &optional regexp) (byte-code "`  X  \"V`    ߋGVa]a!qbx #." [search-string search-message cmds nil success t wrapped barrier adjusted invalid-regexp slow-terminal-mode search-slow-speed search-slow-window-lines other-end small-window found-point found-start opoint vm-ml-attributes-string vm-ml-message-number vm-message-pointer inhibit-quit regexp search-last-regexp search-last-string "" baud-rate window-height * 4 vm-isearch-push-state ((byte-code "Í !`" [found-start found-point search-done (byte-code "6 Yp    ?p`!W>[TD TZ\")WjZ! `\" \" \"m! b z{r Ɖ Y \"1 = GU\"\"1U b \"? 1==d==? \"'  #<<5e6dbE?` \"\\@ A 1U}A?x z 1==?bB`=C D!`)\") P #P)T E\" FU GW EH\" EI\"\"TU/J!!>IU>K L!P !P?^?eƂ,M> NOA@8    ] ^b)P= b? ?ƁQRS!^X!S!, ?'&TT#b@ A )" [t unread-command-char slow-terminal-mode small-window found-point window-min-height nil search-slow-window-lines char quit-flag adjusted search-exit-option search-exit-char search-string forward regexp success opoint search-repeat-char search-reverse-char search-last-regexp search-last-string search-message wrapped barrier search-delete-char cmds search-yank-word-char search-yank-line-char word other-end search-quote-char cs invalid-regexp 0 input-pending-p vm-isearch-message pos-visible-in-window-p move-to-window-line 1 split-window window-height vertical-motion set-window-start next-window set-window-hscroll window-hscroll selected-window other-window 7 128 throw search-done vm-nonincremental-search ding discard-input vm-update-search-position signal quit vm-isearch-pop equal "" mapconcat text-char-description vm-isearch-search vm-isearch-push-state buffer-substring end-of-line forward-word /= 127 32 9 13 read-quoted-char 10 char-to-string (42 63) 5 2 124 (byte-code "!" [search-string looking-at] 2) ((error (byte-code "" [nil] 1))) match-end min] 49) window-start selected-window] 4)) 0 message set-window-start selected-window] 21)) (defun vm-isearch-message (&optional c-q-hack ellipsis) (byte-code " ̏ É ΂ $-т.8ӂ9 DՂEPQQ& H!I   i m \"))" [invalid-regexp ellipsis success nil m wrapped regexp forward search-message c-q-hack cursor-in-echo-area (byte-code "`#É" [search-string t invalid-regexp nil re-search-forward] 4) ((error (byte-code "" [nil] 1))) concat "" "failing " "wrapped " "regexp " "VM I-search" ": " " backward: " "^Q" " [" "]" 0 upcase message "%s"] 11)) (defun vm-isearch-pop nil (byte-code "A@ @ A@ 8 8 8 8 8 8 8 8 8  R q 8 8 ) AA@b @!)" [cmds cmd search-string search-message success forward other-end invalid-regexp wrapped barrier vm-ml-attributes-string vm-ml-message-number vm-message-pointer vm-summary-buffer 3 4 5 6 7 8 9 10 11 vm-set-summary-pointer] 2)) (defun vm-isearch-push-state nil (byte-code " `    & B" [cmds search-string search-message success forward other-end invalid-regexp wrapped barrier vm-ml-attributes-string vm-ml-message-number vm-message-pointer list] 13)) (defun vm-isearch-search nil (byte-code "\"Ǐ  \" @8 @8b" [nil t success cmds vm-isearch-message lossage (byte-code "   ʂ˂$ #̂$$ @ :!=!)" [inhibit-quit nil regexp invalid-regexp success forward search-string t other-end funcall re-search-forward re-search-backward search-forward search-backward match-beginning 0 match-end] 5) ((quit (byte-code "ɉ" [unread-command-char success nil 7] 2)) (invalid-regexp (byte-code " A@\"ĉ" [invalid-regexp lossage string-match "\\`Premature \\|\\`Unmatched \\|\\`Invalid " "incomplete input"] 3))) vm-update-search-position 3 ding 2] 5)) (defun vm-nonincremental-search (forward regexp) (byte-code "΂ς('Ђ(щ\"r  =JDӂEԉN   =c_Ղ`ւuqׂr؂~قډ! GU   D B \"." [message char function string inhibit-quit cursor-in-echo-area t regexp forward search-yank-word-char unread-command-char search-last-string command-history nil "VM Regexp search: " "VM Regexp search backward: " "VM Search: " "VM Search backward: " "%s" "VM Word search: " "VM Word search backward: " word-search-forward word-search-backward re-search-forward re-search-backward search-forward search-backward read-string 0 funcall] 6)) (defun vm-update-search-position (&optional record-change) (byte-code "`@HHY`@HHX` ` W @HHY5 @HHXO G \"L S Alj *" [vm-message-pointer nil mp vm-message-list point record-change vm-need-summary-pointer-update t 0 3 vm-record-and-change-message-pointer vm-update-summary-and-mode-line] 4)) (defun vm-isearch-forward nil "\ Incrementally search forward through the current folder's messages. Usage is identical to the standard Emacs incremental search. When the search terminates the message containing point will be selected. If the variable vm-search-using-regexps is non-nil, regular expressions are understood; nil means the search will be for the input string taken literally." (interactive) (byte-code "ˆ !q !\" !?\"‰ !p!?3 ed ӎp!! \"!`@!We@HHj@!d\"@p!\" ݉ ed)+" [vm-mail-buffer vm-summary-buffer nil clip-head clip-tail old-w t vm-search-using-regexps vm-message-pointer vm-system-state vm-follow-summary-cursor buffer-name bufferp vm-error-if-folder-empty vm-set-window-configuration searching-folder get-buffer-window vm-display-current-message-buffer selected-window ((byte-code " \" !" [clip-head clip-tail old-w narrow-to-region select-window] 3)) select-window widen vm-isearch vm-update-search-position narrow-to-region vm-vheaders-of 0 vm-highlight-headers vm-show-current-message reading] 22))