;ELC ;;; compiled by jwz@thalidomide on Fri Apr 8 00:20:29 1994 ;;; from file /th/jwz/emacs19/lisp/vm/vm-misc.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-delete-non-matching-strings #[(regexp list &optional destructively) "\n!\n @\"  An \nAc A AZ\n*" [destructively copy-sequence list nil prev curr string-match regexp] 4 "\ Delete strings matching REGEXP from LIST. Optional third arg non-nil means to destructively alter LIST, instead of working on a copy. The new version of the list, minus the deleted strings, is returned."]) (byte-code "MMMMMMMMM##MMMMMMMMMMMM" [vm-parse #[(string regexp &optional matchn) "!ȕ#O Bj )" [matchn 1 nil list store-match-data string-match regexp string 0] 4] vm-parse-addresses #[(string) "??Î!qcebw`mwgUumkuf U`{ \" ј Buw`? Uu#/ U*umU#mnhUTbhU]SV))`{ \" ј B." [string nil work-buffer ((byte-code "!" [work-buffer kill-buffer] 2)) char s start list generate-new-buffer "*vm-work*" " \n " "^\"\\,(" 92 1 44 string-match "^[ \n ]+$" "" 34 re-search-forward "[^\\]\"" 0 40 parens "[^\\][()]" 41] 5] vm-write-string #[(where string) " !pÎ qdb c*ǎ!q ced %+" [bufferp where vm-sbe-buffer ((byte-code "p=!q" [vm-sbe-buffer buffer-name] 2)) string nil temp-buffer ((byte-code "!" [temp-buffer kill-buffer] 2)) generate-new-buffer "*vm-work*" write-region t quiet] 7] vm-marker (macro . #[(pos &optional buffer) "\n F" [set-marker (make-marker) pos buffer] 4]) vm-increment (macro . #[(variable) " DE" [setq variable 1+] 4]) vm-decrement (macro . #[(variable) " DE" [setq variable 1-] 4]) vm-select-folder-buffer (macro . #[nil "" [(and vm-mail-buffer (or (buffer-name vm-mail-buffer) (error "Folder buffer has been killed.")) (set-buffer vm-mail-buffer))] 1]) vm-check-for-killed-summary #[nil " ! !?  @HI @HI Aj)" [bufferp vm-summary-buffer buffer-name vm-message-list mp nil 1 3 4] 4] vm-error-if-folder-read-only (macro . #[nil "" [(while vm-folder-read-only (signal 'folder-read-only (list (current-buffer))))] 1]) put folder-read-only error-conditions (folder-read-only error) error-message "Folder is read-only" vm-error-if-virtual-folder (macro . #[nil "" [(and (eq major-mode 'vm-virtual-mode) (error "%s cannot be applied to virtual folders." this-command))] 1]) vm-build-threads-if-unbuilt (macro . #[nil "" [(if (null vm-thread-obarray) (vm-build-threads nil))] 1]) vm-abs #[(n) "W[" [n 0] 2] vm-save-restriction (macro . #[(&rest forms) "!!!D E E EFB E E EFEFF+" [make-symbol "vm-sr-clip" "vm-sr-min" "vm-sr-max" vm-sr-max vm-sr-min vm-sr-clip let (> (buffer-size) (\- (point-max) (point-min))) and setq (set-marker (make-marker) (point-min)) (set-marker (make-marker) (point-max)) unwind-protect progn forms (widen) narrow-to-region set-marker nil] 14]) vm-save-buffer-excursion (macro . #[(&rest forms) " BEE" [let ((vm-sbe-buffer (current-buffer))) unwind-protect progn forms (and (not (eq vm-sbe-buffer (current-buffer))) (buffer-name vm-sbe-buffer) (set-buffer vm-sbe-buffer))] 5]) vm-last #[(list) "Aw" [list] 2] vm-vector-to-list #[(vector) "GSY H\nB Sp\n*" [vector nil list i 0] 3] vm-extend-vector #[(vector length &optional fill) "G\nW!\n Z\"\")" [vector vlength length apply vm-vector-to-list make-list fill] 7] vm-obarray-to-string-list #[(obarray) " \" )" [nil list mapatoms #[(s) " !\nB" [symbol-name s list] 2] obarray] 3] vm-mapcar #[(function &rest lists) " @ \"\n\" B \"h *" [nil result arglist lists mapcar car apply function cdr] 4] vm-mapc #[(function &rest lists) "\n@\n\" \"\n\"j)" [nil arglist lists mapcar car apply function cdr] 4] vm-delete #[(predicate list &optional reverse) " ª @!! Ah AAZAQ+" [list reverse not identity nil prev p predicate] 4]] 4) (fset 'vm-delete-duplicates #[(list &optional all hack-addresses) " \" \n@!A@@ \"\n! \nJ@ B\n LAG \"," [vm-delete-duplicates-obarray nil sym sym-string new-list hashtable fillarray 0 list hack-addresses vm-chop-full-name-function intern boundp all delq] 5 "\ Delete duplicate equivalent strings from the list. If ALL is t, then if there is more than one occurrence of a string in the list, then all occurrences of it are removed instead of just the subseqent ones. If HACK-ADDRESSES is t, then the strings are considered to be mail addresses, and only the address part is compared (so that \"Name \" and \"foo\" would be considered to be equivalent.)"]) (byte-code "M!ĪKMMM####MMMMMM####MMMMM" [vm-member-0 #[(thing list) "" [done (byte-code "@ \"Aoć" [list thing throw done nil] 4)] 2] vm-member fboundp member vm-delqual #[(ob list) " \n \n@\n\nAp Ae\nA \n[ *" [nil list curr prev ob] 3] vm-copy-local-variables #[(buffer &rest variables) "\n\" q\n #*" [mapcar symbol-value variables values buffer vm-mapc set] 4] put folder-empty error-conditions (folder-empty error) error-message "Folder is empty" unrecognized-folder-type (unrecognized-folder-type error) "Unrecognized folder type" vm-error-if-folder-empty #[nil "? \"r\"k" [vm-message-list vm-folder-type signal unrecognized-folder-type nil folder-empty] 3] vm-copy #[(object) ":@!BA:\n@!B\nAAk\n *!\"\";!" [object nil cons return-value vm-copy vectorp apply vector mapcar copy-sequence] 6] vm-lucid-emacs-p #[nil " \")" [nil case-fold-search string-match "Lucid" emacs-version] 3] vm-fsf-emacs-19-p #[nil "\n\" ?" [string-match "^19" emacs-version vm-lucid-emacs-p] 3] vm-run-message-hook #[(message &optional hook-variable) "HHq~HHHH}!+" [message 1 9 0 4 run-hooks hook-variable] 3] vm-error-free-call #[(function &rest args) "" [nil (apply function args) ((error))] 3] beginning-of-folder (beginning-of-folder error) "Beginning of folder" end-of-folder (end-of-folder error) "End of folder" vm-trace #[(&rest args) "!q \")" [get-buffer-create "*vm-trace*" apply insert args] 3] vm-timezone-make-date-sortable #[(string) " A! \"Hɚ8IHɚA@IHɚ8IHɚIHɚ IHHHHH&!B B@A*" [string vm-sortable-date-alist vm-parse-date vm-parse current-time-string " *\\([^ ]+\\)" date vect 1 "" 2 3 4 "00:00:00" 5 vm-current-time-zone timezone-make-date-sortable format "%s %s %s %s %s"] 11] vm-current-time-zone #[nil "ŏ)Ƈ" [nil (byte-code " @W !ƥ !Ʀ# ƥ Ʀ#)" [current-time-zone zone 0 format "-%02d%02d" vm-abs 3600 "+%02d%02d"] 6) ((error)) temp-buffer (byte-code "!q $ \"8*" [((byte-code "!" [temp-buffer kill-buffer] 2)) generate-new-buffer "*vm-work*" temp-buffer call-process "date" nil 4 vm-parse buffer-string " *\\([^ ]+\\)"] 6) ((error)) ""] 3] vm-should-generate-summary #[nil "=W\n! 8?\nS 8)Ƈ" [vm-startup-with-summary t n 0 vm-abs vm-message-list nil] 3] vm-find-composition-buffer #[(&optional not-picky) "  @q = pj\np A[ AW \n," [buffer-list nil alternate choice b-list major-mode mail-mode buffer-modified-p not-picky] 4]] 4) (fset 'vm-get-file-buffer #[(file) " !! !!" [get-file-buffer file fboundp file-truename] 3 "\ Like get-file-buffer, but also checks buffers against FILE's truename"])