;ELC ;;; Compiled by nelhage@localhost.localdomain on Sun Dec 11 02:47:32 2005 ;;; from file /home/nelhage/Desktop/vm-7.19/vm-misc.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-misc.el' was compiled for Emacs 19 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defalias 'vm-delete-non-matching-strings #[(regexp list &optional destructively) "\204\305 ! \306\211\203:\307\f @\"\203!  A\211\202 \n\204. A\211\211\202 \n A\241\210 A\211\204 *\207" [destructively list prev curr regexp copy-sequence nil string-match] 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."]) (defalias 'vm-parse #[(string regexp &optional matchn matches) "\204\306\307\211\310\307!\210 \311=\204Z\312\f \311\225#\203Z \250\203% S:\2046 \224\225O\nB\202\211\203 @\224\203S @\224 @\225O\nB\307\211\2029 A\211\2029 \250\203u\311\225\203u\311\225 G=\204u \311\225 GO\nB\n\237*\207" [matchn tem list matches regexp string 1 nil store-match-data 0 string-match] 5]) (defalias 'vm-parse-addresses #[(string) "\205\320\306\212\307\216\306\211\211\211\310 \211q\210c\210eb\210\311\306w\210`m\204\267\312\306w\210g\211\313U\203@\314u\210m\204#\314u\210\202#\n\315U\203d\f`{\316\317 \"\203W \320\230\204[ B\321\306w\210`\202#\n\322U\203s\323\324\306\325#\210\202#\n\326U\203#\314\211u\210m\204\263\327!\204\263\323\330\306\325#\210m\204`\331Zf\313U\204h\326U\203\253T\202S\202)\202#\f`{\316\332 \"\204\314 \333\230\204\314 B \237.\207" [string work-buffer char s start list nil ((byte-code "\203\301!\210\301\207" [work-buffer kill-buffer] 2)) vm-make-work-buffer " \f\n " "^\"\\\\,(" 92 1 44 string-match "^[ \f\n ]+$" "" ", \f\n " 34 re-search-forward "[^\\\\]\"" 0 40 zerop "[()]" 2 "^[ \f\n ]+$" "" parens] 5]) (defalias 'vm-parse-structured-header #[(string &optional sepchar keep-quotes) "\205\211\306\212\307\216\306\310\306\211\211\211\"#$\203*\"$CP\"\311$CP\312 \313 !\210 q\210c\210eb\210\314\306w\210`m\204m\"\306w\210g\315\316!\203X\317\320!\210\202@ \321U\203k\320u\210m\204@\320u\210\202@$\203\227 $U\203\227 `{\322\323\f\"\203\210\f\324\230\204\216\f#B#\n\306w\210`\202@\315\325!\203\244\326\306w\210\202@ \327U\203\306%&\203\270\320u\210\202\274\317\320!\210%\204\330\331\306\332#\204\320\332\211%\202\276`Sf\333 \321\"\203\360\317\334!\210m\203\352\332\211%\202\276\320u\210\202\274&\204\371\317\334!\210\332\211%\203\301)\202@ \335U\203@\306`\320'(%\320u\210%\204d\330\336\306\332#\204*\332\211%\202`Sf\333 \321\"\203Fm\203@\332\211%\202\320u\210\202\333 \335\"\203U'T'\202'S'\337'!\211%\203(`|\210+\202@ `{\322\340\f\"\204\204\f\341\230\204\204\f#B##\237. \207" [string work-buffer sp+sepchar char s start nil ((byte-code "\203\301!\210\301\207" [work-buffer kill-buffer] 2)) "^\"\\\\( \n \f" " \f\n " vm-make-work-buffer buffer-disable-undo " \f\n " looking-at "[ \n \f]" delete-char 1 92 string-match "^[ \f\n ]+$" "" " \n \f" " \n \f" 34 re-search-forward "[\\\\\"]" t char-equal -1 40 "[\\\\()]" zerop "^[ \f\n ]+$" "" nonspecials list sepchar done keep-quotes parens pos] 7]) (defalias 'vm-write-string #[(where string) "\306!\203p\307\216q\210db\210\310 c+\207\310\311\216\212\312\313!\211q\210\310 c\210\310\314ed\315\316%+\207" [where vm-sbe-buffer buffer-read-only string temp-buffer selective-display bufferp ((byte-code "p=\204\301!\203q\210\301\207" [vm-sbe-buffer buffer-name] 2)) nil ((byte-code "\203\301!\210\301\207" [temp-buffer kill-buffer] 2)) generate-new-buffer "*vm-work*" write-region t quiet buffer-file-type] 7]) (defalias 'vm-check-for-killed-summary #[nil "\306!\2036\307!\2046 \310\n\2035\n@\310\211\311H\312 I\210*\n@\310\211\311H\313 I\210*\nA\211\204)\306 !\205F\307 !?\205F\310\211\207" [vm-summary-buffer vm-message-list mp pos message vm-folders-summary-buffer bufferp buffer-name nil 1 3 4] 4]) (defalias 'vm-check-for-killed-presentation #[nil "\302!\205\303!?\205\304\211\211\207" [vm-presentation-buffer-handle vm-presentation-buffer bufferp buffer-name nil] 3]) (defalias 'vm-check-for-killed-folder #[nil "\301!\205\302!?\205\303\211\207" [vm-mail-buffer bufferp buffer-name nil] 2]) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put folder-read-only error-conditions (folder-read-only error) error-message "Folder is read-only"] 4) (defalias 'vm-abs #[(n) "\301W\203 [\207\207" [n 0] 2]) (defalias 'vm-last #[(list) "\243\203\fA\211\202\207" [list] 2]) (defalias 'vm-vector-to-list #[(vector) "GS\303\211\304Y\203\nH B\nS\211\202 *\207" [vector list i nil 0] 3]) (defalias 'vm-extend-vector #[(vector length &optional fill) "G\211\nW\203\304\300\305!\306\n Z \"\244\"\202)\207" [vector vlength length fill apply vm-vector-to-list make-list] 7]) (defalias 'vm-obarray-to-string-list #[(blobarray) "\302\303\304 \"\210)\207" [list blobarray nil mapatoms #[(s) "\302! B\211\207" [s list symbol-name] 2]] 3]) (defalias 'vm-mapcar #[(function &rest lists) "\304\211\n@\203\305\306\n\"\307 \"B\305\310\n\"\211\202\237*\207" [result arglist lists function nil mapcar car apply cdr] 4]) (defalias 'vm-mapc #[(function &rest lists) "\303 @\205\304\305 \"\306\n\"\210\304\307 \"\211\202)\207" [arglist lists function nil mapcar car apply cdr] 4]) (defalias 'vm-delete #[(predicate list &optional reverse) " \203 \305\202\n\306\307\211\203= \f @!!\2034\n\204(A\211\211\202\n A\241\210 A\211\202  A\211\204+\207" [list reverse prev p predicate not identity nil] 4]) (defalias 'vm-delete-directory-file-names #[(list) "\301\302\"\207" [list vm-delete file-directory-p] 3]) (defalias 'vm-delete-backup-file-names #[(list) "\301\302\"\207" [list vm-delete backup-file-name-p] 3]) (defalias 'vm-delete-auto-save-file-names #[(list) "\301\302\"\207" [list vm-delete auto-save-file-name-p] 3]) (defalias 'vm-delete-index-file-names #[(list) "\301\302\"\207" [list vm-delete vm-index-file-name-p] 3]) (defalias 'vm-delete-directory-names #[(list) "\301\302\"\207" [list vm-delete file-directory-p] 3]) (defalias 'vm-index-file-name-p #[(file) "\303!\205 ;\205\304 !\305P\306\n\")\205\307\207" [file vm-index-file-suffix str file-regular-p regexp-quote "$" string-match t] 3]) (defalias 'vm-delete-duplicates #[(list &optional all hack-addresses) "\306\211\211\307\f\310\"\210 \203[ \203  @!A@\202\" @\211\206(\311\312 \2034\n\227\2025\n\f\"\313 !\203K\203T J\306\240\210\202T @ B L\210 A\211\204\314\306 \237\",\207" [vm-delete-duplicates-obarray sym sym-string new-list hashtable list nil fillarray 0 "-unparseable-garbage-" intern boundp delq hack-addresses vm-chop-full-name-function all] 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 subsequent 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.)"]) (defalias 'vm-member-0 #[(thing list) "\300\301\215\207" [done (byte-code "\203@ \232\203\302\303\"\210A\211\204\304\207" [list thing throw done nil] 4)] 2]) (byte-code "\300\301\302!\203 \302\202\f\303KM\207" [vm-member fboundp member vm-member-0] 3) (defalias 'vm-delqual #[(ob list) "\304 \203/ @\232\204  A\211\202\n\204%A\211\211\202 A\n \241\210\202*\207" [list curr prev ob nil] 3]) (defalias 'vm-copy-local-variables #[(buffer &rest variables) "\303\304\"\212\nq\210\305\306 #*\207" [variables values buffer mapcar symbol-value vm-mapc set] 4]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\306\302\307#\210\300\306\304\310#\207" [put folder-empty error-conditions (folder-empty error) error-message "Folder is empty" unrecognized-folder-type (unrecognized-folder-type error) "Unrecognized folder type"] 4) (defalias 'vm-error-if-folder-empty #[nil "?\205 \203\302\303\304\"\210\202\302\305\304\"\210\202\207" [vm-message-list vm-folder-type signal unrecognized-folder-type nil folder-empty] 3]) (defalias 'vm-copy #[(object) ":\2034\303\211\304@!\303B\211A\211:\203- \304@!\303B\241\210 AA\211\202 \241\210\n*\207\305!\203B\306\307\310\304\"\"\207;\203K\311!\207\312!\203U\313!\207\207" [object cons return-value nil vm-copy vectorp apply vector mapcar copy-sequence markerp copy-marker] 6]) (defalias 'vm-run-message-hook #[(message &optional hook-variable) "\212\211\305H\306H)q\210\307 deZV\310\211\211\203*\311 e\310\223\211\203*\311 d\310\223\312\216~\210\212\211\313H\305H)\211\313H\314H)}\210\315\f!.\207" [message #1=#:vm-sr-max #2=#:vm-sr-min #3=#:vm-sr-clip hook-variable 1 9 buffer-size nil make-marker ((byte-code "~\210\203 \n}\210 \303\211\223\210\n\303\211\223\210\303\207" [#3# #2# #1# nil] 3)) 0 4 run-hooks] 4]) (defalias 'vm-error-free-call #[(function &rest args) "\300\301\302\217\207" [nil (apply function args) ((error))] 3]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\306\302\307#\210\300\306\304\310#\207" [put beginning-of-folder error-conditions (beginning-of-folder error) error-message "Beginning of folder" end-of-folder (end-of-folder error) "End of folder"] 4) (defalias 'vm-trace #[(&rest args) "\212\301\302!q\210\303\304\")\207" [args get-buffer-create "*vm-trace*" apply insert] 3]) (defalias 'vm-timezone-make-date-sortable #[(string) " \236A\206f\304!\305\306 \307\"\211\310H\311\232\203 \310\312\n8I\210 \312H\313\232\203/ \312\nA@I\210 \314H\315\232\203> \314\316\n8I\210 \316H\317\232\203K \316\320I\210 \321H\322\232\203Y \321\323 I\210\324\325\326\217B B\211@A*\207" [string vm-sortable-date-alist date vect vm-parse-date vm-parse current-time-string " *\\([^ ]+\\)" 1 "" 2 "" 3 "" 4 "" "00:00:00" 5 "" vm-current-time-zone nil (byte-code "\301\302\303\304H\305H\306H\307H\310H&!\207" [vect timezone-make-date-sortable format "%s %s %s %s %s" 1 2 3 4 5] 9) ((error "1970010100:00:00"))] 5]) (defalias 'vm-current-time-zone #[nil "\301\302\303\217\206\301\211\304\305\217)\206\306\207" [temp-buffer nil (byte-code "\302 @\303!\304\245\305\306\307W\203\310\202\311 \304\245 \304\246$*\207" [zone absmin current-time-zone vm-abs 60 format "%c%02d%02d" 0 45 43] 6) ((error)) (byte-code "\301\216\212\302 \211q\210\303\304\305\305$\210\306\307\310 \311\"8*\207" [temp-buffer ((byte-code "\203\301!\210\301\207" [temp-buffer kill-buffer] 2)) vm-make-work-buffer call-process "date" nil 4 vm-parse vm-buffer-string-no-properties " *\\([^ ]+\\)"] 6) ((error)) ""] 4]) (defalias 'vm-should-generate-summary #[nil "\303=\203\303\207\250\203.\211\304W\203\305 !\n8?\202, \304U\203(\306\202, S\n8)\207\2034\303\207\306\207" [vm-startup-with-summary n vm-message-list t 0 vm-abs nil] 3]) (defalias 'vm-find-composition-buffer #[(&optional not-picky) "\305 \306\211\212\n\203;\n@q\210 \307=\2034\310 \203#p\306\211\202 \f\203-\204-p\nA\211\202 \nA\211\204\f \206@,\207" [alternate choice b-list major-mode not-picky buffer-list nil mail-mode buffer-modified-p] 4]) (defalias 'vm-get-file-buffer #[(file) "\301!\206\302\303!\203\301\303!!\206\302\304!\205\304!\207" [file get-file-buffer fboundp file-truename find-buffer-visiting] 3 "\ Like get-file-buffer, but also checks buffers against FILE's truename"]) (defalias 'vm-set-region-face #[(start end face) "\304 \"\305\n\303 #)\207" [start end e face vm-make-extent vm-set-extent-property] 4]) (defalias 'vm-default-buffer-substring-no-properties #[(beg end &optional buffer) "\203\212q\210 \n{)\202 \n{\304\305 G\306 $\210\307 !)\207" [buffer beg end s set-text-properties 0 nil copy-sequence] 5]) (byte-code "\301\302\303!\203 \303\202\203\304\202\305M\207" [vm-xemacs-p vm-buffer-substring-no-properties fboundp buffer-substring-no-properties buffer-substring vm-default-buffer-substring-no-properties] 3) (defalias 'vm-buffer-string-no-properties #[nil "\300ed\"\207" [vm-buffer-substring-no-properties] 3]) (defalias 'vm-insert-region-from-buffer #[(buffer &optional start end) "p q\210\214~\210\n\204e \204dq\210\304 \n #\210 q\210)q)\207" [target-buffer buffer start end insert-buffer-substring] 4]) (byte-code "\301\302!\204\203\302\303M\210\202\302\304M\210\301\305!\204*\203&\305\306M\210\202*\305\307M\210\301\310!\204?\203;\310\311M\210\202?\310\312M\210\301\313!\204T\203P\313\314M\210\202T\313\315M\210\301\316!\204i\203e\316\317M\210\202i\316\320M\210\301\321!\204~\203z\321\322M\210\202~\321\323M\210\301\324!\204\223\203\217\324\325M\210\202\223\324\326M\210\301\327!\204\250\203\244\327\330M\210\202\250\327\331M\210\301\332!\204\275\203\271\332\333M\210\202\275\332\334M\210\301\207" [vm-fsfemacs-p fboundp vm-extent-property overlay-get extent-property vm-extent-object overlay-buffer extent-object vm-set-extent-property overlay-put set-extent-property vm-set-extent-endpoints move-overlay set-extent-endpoints vm-make-extent make-overlay make-extent vm-extent-end-position overlay-end extent-end-position vm-extent-start-position overlay-start extent-start-position vm-detach-extent delete-overlay detach-extent vm-extent-properties overlay-properties extent-properties] 2) (defalias 'vm-extent-at #[(pos &optional object property) "\305\306!\203\f\306 \n#\207\307!\310\n\204\f@\2028\f\2037\311\f@\n\"\2030\f@\310\211\202\fA\211\204 *\207" [pos object property o o-list fboundp extent-at overlays-at nil overlay-get] 5]) (defalias 'vm-copy-extent #[(e) "\303!\304\305!\306!\"\211\205#\307 \n@\nA@#\210\nAA\211\204\310*\207" [e ee props vm-extent-properties vm-make-extent vm-extent-start-position vm-extent-end-position vm-set-extent-property nil] 6]) (defalias 'vm-make-tempfile #[(&optional filename-suffix proposed-filename) "\304 \305 \"\306\216\307\310\311!!\210\312\313\n\"\210\314``\n\315\316%\210)\n*\207" [filename-suffix proposed-filename file modes default-file-modes vm-make-tempfile-name ((set-default-file-modes modes)) set-default-file-modes vm-octal 600 vm-error-free-call delete-file write-region nil 0] 6]) (defalias 'vm-make-tempfile-name #[(&optional filename-suffix proposed-filename) "\306 ;\203\307\310\311 \n\"!\211!\203[ ;\203:\306 \2046\310\311\312\313\f #\n\"!\fT \210\307!\210\202)\202[\306\310\311\312\314\f\315\316! \206I\317$\n\"!\fT\307!?\211\203<))\207" [filename proposed-filename vm-temp-file-directory done vm-tempfile-counter filename-suffix nil file-exists-p convert-standard-filename expand-file-name format "%d-%s" "vm%d%d%s" random 100000000 ""] 8]) (defalias 'vm-make-work-buffer #[(&optional name) "\303\211\304\n\206\n\305!\306!\210*\207" [work-buffer default-enable-multibyte-characters name nil generate-new-buffer "*vm-workbuf*" buffer-disable-undo] 2]) (defalias 'vm-make-multibyte-work-buffer #[(&optional name) "\303\304\305\n\206\n\306!\307!\210*\207" [work-buffer default-enable-multibyte-characters name t nil generate-new-buffer "*vm-workbuf*" buffer-disable-undo] 2]) (defalias 'vm-insert-char #[(char &optional count ignored buffer) "\300\301\302\217\207" [nil (byte-code "\304 \n $\210\305\304M\207" [char count ignored buffer insert-char vm-insert-char] 5) ((wrong-number-of-arguments (byte-code "\304\305M\210\304 \n $\207" [char count ignored buffer vm-insert-char vm-xemacs-compatible-insert-char] 5)))] 3]) (defalias 'vm-xemacs-compatible-insert-char #[(char &optional count ignored buffer) "\203p=\203\303 \n\"\207\212q\210\303 \n\")\207" [buffer char count insert-char] 3]) (defalias 'vm-symbol-lists-intersect-p #[(list1 list2) "\300\301\215\207" [done (byte-code "\203@ >\203\302\303\304\"\210A\211\204\305\207" [list1 list2 throw done t nil] 4)] 2]) (defalias 'vm-set-buffer-variable #[(buffer var value) "\212q\210 \nL)\207" [buffer var value] 2]) (defalias 'vm-buffer-variable-value #[(buffer var) "\212q\210 J)\207" [buffer var] 1]) (defalias 'vm-with-string-as-temp-buffer #[(string function) "\303\304\216\212\305 \211q\210 c\210\n \210\306 +\207" [work-buffer string function nil ((byte-code "\203\301!\210\301\207" [work-buffer kill-buffer] 2)) vm-make-multibyte-work-buffer buffer-string] 2]) (put 'vm-with-string-as-temp-buffer 'byte-optimizer 'byte-compile-inline-expand) (defalias 'vm-string-assoc #[(elt list) "\304\305\306! \2031 \2041\307 @@\"\310\232\203*\310\225 @@GU\203*\304\202 A\211\204\f @+\207" [elt found case-fold-search list t nil regexp-quote string-match 0] 5]) (defalias 'vm-nonneg-string #[(n) "\301W\203\302\207\303!\207" [n 0 "?" int-to-string] 2]) (defalias 'vm-string-member #[(elt list) "\304\305\306! \203/ \204/\307 @\"\310\232\203(\310\225 @GU\203(\304\202 A\211\204\f +\207" [elt found case-fold-search list t nil regexp-quote string-match 0] 5]) (defalias 'vm-string-equal-ignore-case #[(str1 str2) "\304\305!\306 \"\307\232\205\307\225 GU*\207" [str1 reg case-fold-search str2 t regexp-quote string-match 0] 3]) (defalias 'vm-time-difference #[(t1 t2) "\306\211\211\211\307\f8\307 8Z\211\310W\203\311 \312\\\202!\310\fA@ A@ZZ\211\310W\203:\311\n\313\\\202<\310\f@ @ZZ\211\313_\n\\ \314\315!\203T\316\202U\312\245\\,\207" [carry 65536-secs secs usecs t1 t2 nil 2 0 1 1000000 65536 featurep lisp-float-type 1000000.0] 5]) (byte-code "\300\301!\203 \302\301M\210\202\302\303M\210\300\304!\203\305\304M\210\202(\300\306!\203(\305\306M\210\300\307!\2035\310\307M\210\2029\310\311M\210\300\207" [fboundp char-to-int vm-char-to-int identity charsets-in-region vm-charsets-in-region find-charset-region coding-system-name vm-coding-system-name symbol-name] 2) (defalias 'vm-get-file-line-ending-coding-system #[(file) "\204\f \204\f\n\205 \203\305\202\n\203\305\202\306\307\310\216\212\311 \211q\210\307\312\313\217\210eb\210\314\315\307\316#\203E\203A\317\202~\320\202~\314\321\307\316#\203Y\203U\322\202~\323\202~\324\325\307\316#\203m\203i\326\202~\327\202~ \203u\306\202~\n\203}\306\202~\330,\207" [vm-fsfemacs-mule-p vm-xemacs-mule-p vm-xemacs-file-coding-p work-buffer coding-system-for-read binary no-conversion nil ((byte-code "\203\301!\210\301\207" [work-buffer kill-buffer] 2)) vm-make-work-buffer (insert-file-contents file nil 0 4096) ((error)) re-search-forward "[^ ]\n" t raw-text-unix no-conversion-unix " [^\n]" raw-text-mac no-conversion-mac search-forward " \n" raw-text-dos no-conversion-dos raw-text] 5]) (defalias 'vm-new-folder-line-ending-coding-system #[nil "\304=\203 \203\f\305\207\n\203\305\207\306\207\307=\203\" \203 \310\207\311\207\312=\2030 \203.\313\207\314\207\315=\203> \203<\316\207\317\207 \203D\305\207\n\203J\305\207\306\207" [vm-default-new-folder-line-ending-type vm-xemacs-mule-p vm-xemacs-file-coding-p vm-fsfemacs-mule-p nil no-conversion raw-text lf raw-text-unix no-conversion-unix crlf raw-text-dos no-conversion-dos cr raw-text-mac no-conversion-mac] 2]) (defalias 'vm-collapse-whitespace #[nil "eb\210\300\301\302\303#\205\304\305\306\211#\210\202\207" [re-search-forward "[ \n]+" nil 0 replace-match " " t] 4]) (defalias 'vm-fill-paragraphs-containing-long-lines #[(len start end) "\306\211\307\212\310 deZV\306\211\211\203+\311 e\306\223\211\203+\311 d\306\223\312\216~\210\313!\204G\306\311 \223*b\210\f?\205o\314\315\316#\210iY\203c\306\317\320\217\210\306y\210`Y\211\202L. \207" [vm-paragraph-fill-column filladapt-fill-column-forward-fuzz fill-column buffer-read-only done #1=#:vm-sr-max nil 0 buffer-size make-marker ((byte-code "~\210\203 \n}\210 \303\211\223\210\n\303\211\223\210\303\207" [#2=#:vm-sr-clip #3=#:vm-sr-min #1# nil] 3)) markerp re-search-forward "$" t (fill-paragraph nil) ((error)) #3# #2# end buffer pos start len] 5]) (defalias 'vm-make-message-id #[nil "\303\304 \305\306\307 \"\203\307 \202#\n;\203\"\305\310\n\"\203\"\n\202#\311\312\313@A@\3148\315\316! &*\207" [time hostname mail-host-address nil current-time string-match "\\." system-name "\\." "gargle.gargle.HOWL" format "<%d.%d.%d.%d@%s>" 2 random 1000000] 7]) (defalias 'vm-keep-some-buffers #[(buffer ring-variable number-to-keep) " J>\203 \304 J\"L\210  JBL\210 \305\306 J\307#L\210\n\307=?\205E\n\206+\310 J\233\311\312 \"\210 J\205D \205D @ J>\313\241)\207" [buffer ring-variable number-to-keep extras delq vm-delete buffer-name t 0 mapcar #[(b) "\302!\205\303!\203\304 \"?\205\305!\207" [b buffer-offer-save buffer-name buffer-modified-p vm-buffer-variable-value kill-buffer] 3] nil] 5]) (defalias 'vm-fsfemacs-nonmule-display-8bit-chars #[nil "\205: \203\306\302!\205:\n?\205:\307\310\311\312\313\314#\210\315\312\307\"\f\316W\2036 \f\317\f!I\210\fT\211\202# \211*\207" [vm-fsfemacs-p vm-fsfemacs-mule-p enable-multibyte-characters tab i buffer-display-table boundp nil 160 put display-table char-table-extra-slots 6 make-char-table 256 vector] 5]) (defalias 'vm-url-decode-string #[(string) "\303\304\305\216\212\306 \211q\210c\210 \210\307 -\207" [string function work-buffer vm-url-decode-buffer nil ((byte-code "\203\301!\210\301\207" [work-buffer kill-buffer] 2)) vm-make-multibyte-work-buffer buffer-string] 2]) (defalias 'vm-url-decode-buffer #[nil "\303\304\305\212eb\210\306\307\305\303#\2050\310`\311Zf \236A\312_`Sf \236A\\\313\"\210`S`\314Z|\210\202\n,\207" [char hex-digit-alist case-fold-search t ((48 . 0) (49 . 1) (50 . 2) (51 . 3) (52 . 4) (53 . 5) (54 . 6) (55 . 7) (56 . 8) (57 . 9) (65 . 10) (66 . 11) (67 . 12) (68 . 13) (69 . 14) (70 . 15) (97 . 10) (98 . 11) (99 . 12) (100 . 13) (101 . 14) (102 . 15)) nil re-search-forward "%[0-9A-F][0-9A-F]" insert-char 2 16 1 4] 4]) (defalias 'vm-process-sentinel-kill-buffer #[(process what-happened) "\301\302!!\207" [process kill-buffer process-buffer] 3]) (defalias 'vm-fsfemacs-scroll-bar-width #[nil "\206\302\303 \304\302!\210 \303 Z\304\302!\210 \211)\207" [vm-fsfemacs-cached-scroll-bar-width size nil frame-pixel-width scroll-bar-mode] 2]) (provide 'vm-misc)