;ELC   
;;; compiled by jwz@thalidomide on Fri Apr  8 00:22:36 1994
;;; from file /th/jwz/emacs19/lisp/vm/vm-thread.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-toggle-threads-display #[nil "!!q !?!!" [vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-set-summary-redo-start-point t vm-summary-show-threads vm-sort-messages "thread" "physical-order"] 3 "\
Toggle the threads display on and off.
When the threads display is on, the folder will be sorted by
thread and thread indention (via the %I summary format specifier)
will be visible." nil])
(byte-code "MMMMMMM" [vm-build-threads #[(message-list) "\"\" !ɦ\\ˉ]@!@!\"@!@!@NB#NAN!\"!L@NB#L\"\"!@!@C$LJ@JHBIJHJ&H''!'J&'N&H\"I&I&I\"&H!)*J@JHBIATU\")9 V!." [vm-thread-obarray make-vector 641 0 vm-thread-subject-obarray message-list vm-message-list vm-abs random 11 40 nil date subject-sym subject id-sym id parent-sym parent schedule-reindents modulus n mp vm-th-parent vm-su-message-id intern vm-so-sortable-subject vm-so-sortable-datestring put messages vm-thread-mark-for-summary-update children boundp t inhibit-quit vector 3 1 vect i-sym 2 append message "Building threads... %d" "Building threads... done"] 12] vm-thread-mark-for-summary-update #[(message-list) "@\"@HI@HI@!\n\"N!AWŇ" [message-list vm-mark-for-summary-update t 1 11 nil 10 vm-thread-mark-for-summary-update intern vm-su-message-id vm-thread-obarray children] 5] vm-thread-list #[(message) "	HHq!\"C\"!\"!AeL!JJBN@GӉ?!\"!JH=Ӊ#JHBN@N	!\n	!#." [nil message root-date loop-sym subject-sym id-sym thread-list m done 1 9 intern vm-su-message-id vm-thread-obarray fillarray vm-thread-loop-obarray 0 symbol-name boundp t messages vm-so-sortable-subject vm-thread-subject-obarray oldest-date vm-so-sortable-datestring put] 8] vm-unthread-message #[(message &optional message-changing) "HHJBÉG\n@HI@HI@HHq@!\"@!\"!@N\"#N!J@N\"#L!<J<H=@H\"I<<HA!HÉ @ @! A  @!@ @= @ @! A Y!\"IIH\"I@H\"I\n!-)A ." [message 4 1 nil p-sym vect subject-sym id-sym mp t inhibit-quit 11 10 9 intern vm-su-message-id vm-thread-obarray vm-so-sortable-subject vm-thread-subject-obarray boundp put messages delq vm-thread-mark-for-summary-update children message-changing 0 2 3 makunbound oldest-date oldest-msg p vm-so-sortable-datestring] 8] vm-th-parent #[(m) "HHH\"\"@)	\"		\"!@)I" [m 3 19 nil in-reply-to vm-get-header-contents "In-Reply-To:" vm-parse "[^<]*\\(<[^>]+>\\)" references "References:" vm-last] 7] vm-th-thread-indention #[(m) "HH!@NAtHGSIHH)" [m 1 10 vm-th-thread-list p messages] 4] vm-th-thread-list #[(m) "HHH!IHH" [m 1 11 vm-thread-list] 4]] 2)
