;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#NAN!\"!L@NB#L\" \"  ! @!@C$L J@ JHBI  JH J&H''!'J&'N&H\"I&I& I\"&H!)* J@ JHBIATU\")9V!. " [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!AWŇ" [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\" !\" !Ae L ! J JB N@GӉ?!\" ! JH =Ӊ# JHB 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) "HHH\" \"@) \"  \"!@)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 AtH GSIHH)" [m 1 10 vm-th-thread-list p messages] 4] vm-th-thread-list #[(m) "HHH!IHH" [m 1 11 vm-thread-list] 4]] 2)