;ELC ;;; compiled by jwz@thalidomide on Fri Apr 8 00:23:28 1994 ;;; from file /th/jwz/emacs19/lisp/vm/vm-virtual.el ;;; emacs version 19.10 Lucid (beta12). ;;; bytecomp version 2.23; 22-dec-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (fset 'vm-build-virtual-message-list #[(new-messages) "A\"p !ȉ#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOP@H-$Q\"-$QW-$R ȉI$T$f+S+@THUHJTHVHN\"+A+]OrO@@*O@A(*i*@);W)X\"));Y)!*AZ[)#!*`\\])!\\@TH^H)=);`\\@TH^H_`a)!*=`])!)b)!a)!qcd=.ef#\"#.p#>p#B#cg=g ])!.O@hȁijf\"\"O@jpC\\+`k+@THUHJTHVHN\"W.+@THUHJTH^Hql+@THUHJ(#)l+@(#WS+@THUHJTHVHN\"m+@THUHJ!,L,no\"I,nHTpq!I,nHTHL,rs\"I,-I,Tt\"I,THU+@THUHI,THuvI,THVwIwTw,TH^MI,THxpy!I,THxHJLJ,CIJJ,CIJAIJAJ+A+*A*OAO)zTz{f#f##@qM|>M|B|#A#e)I++@THUHJnHTH+@+@nHTHJBL+A+R}I!~I!}!~!I.." [vm-virtual-folder-definition make-vector 311 0 vm-virtual-mirror t vm-last vm-message-list nil vm-vs-any vm-vs-and vm-vs-or vm-vs-not vm-vs-header vm-vs-label vm-vs-text vm-vs-recipient vm-vs-author vm-vs-subject vm-vs-sent-before vm-vs-sent-after vm-vs-more-chars-than vm-vs-less-chars-than vm-vs-more-lines-than vm-vs-less-lines-than vm-vs-new vm-vs-unread vm-vs-read vm-vs-deleted vm-vs-replied vm-vs-forwarded vm-vs-filed vm-vs-written vm-vs-edited vm-vs-marked real-buffers-used i arglist selector sel-list selectors folder folders mp message location-vector virtual marked edited written filed forwarded replied deleted read unread new less-lines-than more-lines-than less-chars-than more-chars-than sent-after sent-before subject author recipient text label header not or and any new-message-list tail-cons case-fold-search mirrored vbuffer message-set clauses vm-message-pointer vm-location-data-vector-length make-marker intern 1 5 8 expand-file-name vm-folder-directory file-directory-p vm-delete-directories directory-files new-messages bufferp 9 enable-local-variables inhibit-local-variables find-file-noselect vm-get-file-buffer major-mode vm-virtual-mode append vm-real-buffers vm-mode delq mapcar buffer-file-name intern-soft apply copy-sequence 4 vm-mirror-data-vector-length make-symbol "" 2 vm-attributes-vector-length vm-softdata-vector-length 7 vm-folder-type vm-message-id-number 6 "<--" vm-modification-counter inhibit-quit vm-virtual-buffers vm-set-summary-redo-start-point vm-set-numbering-redo-start-point] 46]) (fset 'vm-create-virtual-folder #[(selector &optional arg read-only) "!!q Ɖ   $  #pC   D CDDC\"*" [vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-error-if-folder-empty nil name vm-virtual-folder-alist arg format "%s %s %s" selector "%s %s" vm-visit-virtual-folder read-only] 5 "\ Create a new virtual folder from messages in the current folder. The messages will be chosen by applying the selector you specify, which is normally read from the minibuffer. Prefix arg means the new virtual folder should be visited read only." (byte-code " \n !! q! C+" [last-command this-command current-prefix-arg prefix vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-read-virtual-selector "Create virtual folder of messages: "] 3)]) (fset 'vm-apply-virtual-folder #[(name &optional read-only) "!!q \"ɉ\n \" ! A\n\n@pC\nA\nq  @# C @\"+" [vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-error-if-folder-empty assoc name vm-virtual-folder-alist nil clauses vfolder "No such virtual folder, %s" vm-copy format "%s/%s" vm-visit-virtual-folder read-only] 6 "\ Apply the selectors of a named virtual folder to the current folder and create a virtual folder containing the selected messages. Prefix arg means the new virtual folder should be visited read only." (byte-code "  $*D" [last-command this-command completing-read "Apply this virtual folder's selectors: " vm-virtual-folder-alist nil t current-prefix-arg] 5)]) (byte-code "MMMMMMMMMMMMMMMMMMMMMMMMMMMMM##@A#BC#DE#FG#HI#JK#LM#NO#PQ#RS#TUMVWMXYMZ[M\\]M" [vm-toggle-virtual-mirror #[nil "!!q =!ʉ        !@@HH\"I@@HH\"I@\"AF@\"@H@HI@H@HI@@HHJHI@@HHJHIA7? T , 䪁&A突#" [vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary major-mode vm-virtual-mode "This is not a virtual folder." vm-message-list t nil undo-list modified inhibit-quit mp vm-saved-undo-record-list vm-undo-record-list vm-undo-record-pointer vm-saved-buffer-modified-p buffer-modified-p set-buffer-modified-p vm-virtual-mirror 2 1 13 make-vector vm-attributes-vector-length 4 14 vm-mirror-data-vector-length vm-mark-for-summary-update 5 vm-modification-counter vm-update-summary-and-mode-line message "Virtual folder now %s the underlying real folder%s." "mirrors" "does not mirror" vm-real-buffers "s" ""] 6 nil nil] vm-virtual-help #[nil "$!" [vm-display nil (vm-virtual-help) (vm-virtual-help) message "VV = visit, VA = apply selectors, VC = create, VM = toggle virtual mirror"] 5 nil nil] vm-delete-directories #[(list) "\n\"" [vm-delete file-directory-p list] 3] vm-vs-or #[(m &rest selectors) " @@ @A\nJ #? Af +" [nil arglist selector result selectors apply m] 5] vm-vs-and #[(m &rest selectors) " @@ @A J\n#?? Ae +" [t nil arglist selector result selectors apply m] 5] vm-vs-not #[(m arg) "@A\nJ #*?" [arg arglist selector apply m] 4] vm-vs-any (lambda (m) t) vm-vs-author #[(m arg) " !\" !\"" [string-match arg vm-su-full-name m vm-su-from] 4] vm-vs-recipient #[(m arg) " !\" !\"" [string-match arg vm-su-to m vm-su-to-names] 4] vm-vs-subject #[(m arg) " !\"" [string-match arg vm-su-subject m] 4] vm-vs-sent-before #[(m arg) " ! !" [vm-so-sortable-datestring m vm-timezone-make-date-sortable arg] 3] vm-vs-sent-after #[(m arg) " ! !" [vm-timezone-make-date-sortable arg vm-so-sortable-datestring m] 3] vm-vs-header #[(m arg) "~HHb !#*" [m 0 1 re-search-forward arg vm-text-of t] 4] vm-vs-label #[(m arg) " \nHH\"" [vm-member arg m 4 3] 4] vm-vs-text #[(m arg) "~ !b HH#*" [vm-text-of m re-search-forward arg 0 4 t] 4] vm-vs-more-chars-than #[(m arg) "\n!! V" [string-to-int vm-su-byte-count m arg] 3] vm-vs-less-chars-than #[(m arg) "\n!! W" [string-to-int vm-su-byte-count m arg] 3] vm-vs-more-lines-than #[(m arg) "\n!! V" [string-to-int vm-su-line-count m arg] 3] vm-vs-less-lines-than #[(m arg) "\n!! W" [string-to-int vm-su-line-count m arg] 3] vm-vs-new #[(m) "HH" [m 2 0] 2] vm-vs-unread #[(m) "HH" [m 2 1] 2] vm-vs-read #[(m) "HHHH?" [m 2 0 1] 2] vm-vs-deleted #[(m) "HH" [m 2] 2] vm-vs-replied #[(m) "HH" [m 2 4] 2] vm-vs-forwarded #[(m) "HH" [m 2 6] 2] vm-vs-filed #[(m) "HH" [m 2 3] 2] vm-vs-written #[(m) "HH" [m 2 5] 2] vm-vs-marked #[(m) "HH" [m 1 2] 2] vm-vs-edited #[(m) "HH" [m 2 7] 2] put header vm-virtual-selector-clause "with header matching" label "with label of" text "with text matching" recipient "with recipient matching" author "with author matching" subject "with subject matching" sent-before "sent before" sent-after "sent after" more-chars-than "with more characters than" less-chars-than "with less characters than" more-lines-than "with more lines than" less-lines-than "with less lines than" vm-read-virtual-selector #[(prompt) " $\n!> O\nNR\n> !\n= !#* !\n *D" [nil arg selector completing-read prompt vm-supported-interactive-virtual-selectors t intern (header label text recipient author subject sent-before sent-after more-chars-than more-lines-than less-chars-than less-lines-than) 0 -2 " " vm-virtual-selector-clause ": " (more-chars-than more-lines-than less-chars-than less-lines-than) vm-read-number label completion-ignore-case vm-completion-auto-correct vm-read-string vm-obarray-to-string-list vm-label-obarray read-string] 6] vm-virtual-quit #[nil "= #p \n\n@q \" \nA\nk  @HHJHH @ @HHJHHJ\"L A X,>=> # p \n  @HHJ@HIAo @HHL A P\n=\n@q \"@HHԚAm@HHԚ@HHJh# !! \nA\n-)" [major-mode vm-virtual-mode vm-delete buffer-name vm-real-buffers t vm-message-list inhibit-quit b mp bp delq vm-virtual-buffers 1 5 4 nil vm-mode vmp 8 "Q" vm-message-pointer 6 #[(m) "HHÚ" [m 1 8 "Q"] 2] vm-last-message-pointer vm-clear-virtual-quit-invalidated-undos vm-reverse-link-messages vm-set-numbering-redo-start-point vm-set-summary-redo-start-point vm-preview-current-message vm-update-summary-and-mode-line] 6] vm-virtual-save-folder #[(prefix) "\n# @q! Aq*! " [vm-delete buffer-name vm-real-buffers t bp vm-save-folder prefix vm-set-buffer-modified-p nil vm-clear-modification-flag-undos vm-update-summary-and-mode-line] 5] vm-virtual-get-new-mail #[nil "\n# @qǏ Aq* " [vm-delete buffer-name vm-real-buffers t bp error-data (vm-get-new-mail) ((folder-read-only (byte-code "\n \"!" [message "Folder is read only: %s" buffer-file-name buffer-name sit-for 1] 3)) (unrecognized-folder-type (byte-code "\n \"!" [message "Folder type is unrecognized: %s" buffer-file-name buffer-name sit-for 1] 3))) vm-emit-totals-blurb] 5] vm-make-virtual-copy #[(m) "~pHHJ ɎHHq~!HHHH#+HHeÓHHHHHHHHZ\\Ó!HH!HHZ\\Ó!HH!HHZ\\ÓHHHHHHHHZ\\ÓHHHHHHHHZ\\Ó," [m 1 5 nil buffer-modified-p modified buffer-read-only real-m virtual-buffer ((set-buffer-modified-p modified)) 9 vm-vheaders-of copy-to-buffer 0 vm-text-of 4] 5]] 4)