;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\207" [require mh-e mh-scan] 2)
#@76 compiler-macro for inlining `mh-thread-message-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'mh-thread-message-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block mh-thread-message-p (and (memq (type-of cl-x) cl-struct-mh-thread-message-tags) t)) nil] 9 (#$ . 150)])
(put 'mh-thread-message-p 'compiler-macro 'mh-thread-message-p--cmacro)
#@13 

(fn CL-X)
(defalias 'mh-thread-message-p #[257 "\301
!>\205	\302\207" [cl-struct-mh-thread-message-tags type-of t] 3 (#$ . 525)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put mh-thread-message-p side-effect-free error-free put mh-thread-message cl-deftype-satisfies] 5)
#@70 compiler-macro for inlining `mh-message-id'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'mh-message-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block mh-message-id (progn (or (mh-thread-message-p cl-x) (signal 'wrong-type-argument (list 'mh-thread-message cl-x))) (aref cl-x 1))) nil] 9 (#$ . 826)])
(put 'mh-message-id 'compiler-macro 'mh-message-id--cmacro)
#@65 Access slot "id" of `mh-thread-message' struct CL-X.

(fn CL-X)
(defalias 'mh-message-id #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-mh-thread-message-tags type-of signal wrong-type-argument mh-thread-message 1] 5 (#$ . 1223)])
(byte-code "\300\301\302\303#\300\207" [function-put mh-message-id side-effect-free t] 4)
#@78 compiler-macro for inlining `mh-message-references'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'mh-message-references--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block mh-message-references (progn (or (mh-thread-message-p cl-x) (signal 'wrong-type-argument (list 'mh-thread-message cl-x))) (aref cl-x 2))) nil] 9 (#$ . 1570)])
(put 'mh-message-references 'compiler-macro 'mh-message-references--cmacro)
#@73 Access slot "references" of `mh-thread-message' struct CL-X.

(fn CL-X)
(defalias 'mh-message-references #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-mh-thread-message-tags type-of signal wrong-type-argument mh-thread-message 2] 5 (#$ . 2008)])
(byte-code "\300\301\302\303#\300\207" [function-put mh-message-references side-effect-free t] 4)
#@75 compiler-macro for inlining `mh-message-subject'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'mh-message-subject--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block mh-message-subject (progn (or (mh-thread-message-p cl-x) (signal 'wrong-type-argument (list 'mh-thread-message cl-x))) (aref cl-x 3))) nil] 9 (#$ . 2379)])
(put 'mh-message-subject 'compiler-macro 'mh-message-subject--cmacro)
#@70 Access slot "subject" of `mh-thread-message' struct CL-X.

(fn CL-X)
(defalias 'mh-message-subject #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-mh-thread-message-tags type-of signal wrong-type-argument mh-thread-message 3] 5 (#$ . 2802)])
(byte-code "\300\301\302\303#\300\207" [function-put mh-message-subject side-effect-free t] 4)
#@80 compiler-macro for inlining `mh-message-subject-re-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'mh-message-subject-re-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block mh-message-subject-re-p (progn (or (mh-thread-message-p cl-x) (signal 'wrong-type-argument (list 'mh-thread-message cl-x))) (aref cl-x 4))) nil] 9 (#$ . 3164)])
(put 'mh-message-subject-re-p 'compiler-macro 'mh-message-subject-re-p--cmacro)
#@75 Access slot "subject-re-p" of `mh-thread-message' struct CL-X.

(fn CL-X)
(defalias 'mh-message-subject-re-p #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-mh-thread-message-tags type-of signal wrong-type-argument mh-thread-message 4] 5 (#$ . 3612)])
(byte-code "\300\301\302\303#\304\305\306\"\207" [function-put mh-message-subject-re-p side-effect-free t defalias copy-mh-thread-message copy-sequence] 4)
#@120 compiler-macro for inlining `mh-thread-make-message'.

(fn CL-WHOLE &cl-quote &key ID REFERENCES SUBJECT SUBJECT-RE-P)
(defalias 'mh-thread-make-message--cmacro #[385 "\300
\301\"A@\300\302\"A@\300\303\"\206\304A@\300\305\"A@\211\203H\211@\306>\2030\211AA\262
\202\307>A@\203?\310\262
\202\311\312@\"\210\202\210\313\314\315\310	\310				&	\207" [plist-member :id :references :subject (nil "") :subject-re-p (:id :references :subject :subject-re-p :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:id :references :subject :subject-re-p)" cl--defsubst-expand (id references subject subject-re-p) (cl-block mh-thread-make-message (record 'mh-thread-message id references subject subject-re-p))] 16 (#$ . 4046)])
(put 'mh-thread-make-message 'compiler-macro 'mh-thread-make-message--cmacro)
#@100 Constructor for objects of type `mh-thread-message'.

(fn &key ID REFERENCES SUBJECT SUBJECT-RE-P)
(defalias 'mh-thread-make-message #[128 "\300
\301\"A@\300\302\"A@\300\303\"\206\304A@\300\305\"A@\211\203H\211@\306>\2030\211AA\262
\202\307>A@\203?\310\262
\202\311\312@\"\210\202\210\313\314%\207" [plist-member :id :references :subject (nil "") :subject-re-p (:id :references :subject :subject-re-p :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:id :references :subject :subject-re-p)" record mh-thread-message] 11 (#$ . 4894)])
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303&	\207" [function-put mh-thread-make-message side-effect-free t cl-struct-define mh-thread-message nil cl-structure-object record ((cl-tag-slot) (id nil) (references nil) (subject "") (subject-re-p nil)) cl-struct-mh-thread-message-tags] 11)
#@78 compiler-macro for inlining `mh-thread-container-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'mh-thread-container-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block mh-thread-container-p (and (memq (type-of cl-x) cl-struct-mh-thread-container-tags) t)) nil] 9 (#$ . 5798)])
(put 'mh-thread-container-p 'compiler-macro 'mh-thread-container-p--cmacro)
#@13 

(fn CL-X)
(defalias 'mh-thread-container-p #[257 "\301
!>\205	\302\207" [cl-struct-mh-thread-container-tags type-of t] 3 (#$ . 6186)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put mh-thread-container-p side-effect-free error-free put mh-thread-container cl-deftype-satisfies] 5)
#@77 compiler-macro for inlining `mh-container-message'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'mh-container-message--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block mh-container-message (progn (or (mh-thread-container-p cl-x) (signal 'wrong-type-argument (list 'mh-thread-container cl-x))) (aref cl-x 1))) nil] 9 (#$ . 6496)])
(put 'mh-container-message 'compiler-macro 'mh-container-message--cmacro)
#@72 Access slot "message" of `mh-thread-container' struct CL-X.

(fn CL-X)
(defalias 'mh-container-message #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-mh-thread-container-tags type-of signal wrong-type-argument mh-thread-container 1] 5 (#$ . 6933)])
(byte-code "\300\301\302\303#\300\207" [function-put mh-container-message side-effect-free t] 4)
#@76 compiler-macro for inlining `mh-container-parent'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'mh-container-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block mh-container-parent (progn (or (mh-thread-container-p cl-x) (signal 'wrong-type-argument (list 'mh-thread-container cl-x))) (aref cl-x 2))) nil] 9 (#$ . 7305)])
(put 'mh-container-parent 'compiler-macro 'mh-container-parent--cmacro)
#@71 Access slot "parent" of `mh-thread-container' struct CL-X.

(fn CL-X)
(defalias 'mh-container-parent #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-mh-thread-container-tags type-of signal wrong-type-argument mh-thread-container 2] 5 (#$ . 7737)])
(byte-code "\300\301\302\303#\300\207" [function-put mh-container-parent side-effect-free t] 4)
#@78 compiler-macro for inlining `mh-container-children'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'mh-container-children--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block mh-container-children (progn (or (mh-thread-container-p cl-x) (signal 'wrong-type-argument (list 'mh-thread-container cl-x))) (aref cl-x 3))) nil] 9 (#$ . 8106)])
(put 'mh-container-children 'compiler-macro 'mh-container-children--cmacro)
#@73 Access slot "children" of `mh-thread-container' struct CL-X.

(fn CL-X)
(defalias 'mh-container-children #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-mh-thread-container-tags type-of signal wrong-type-argument mh-thread-container 3] 5 (#$ . 8548)])
(byte-code "\300\301\302\303#\300\207" [function-put mh-container-children side-effect-free t] 4)
#@82 compiler-macro for inlining `mh-container-real-child-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'mh-container-real-child-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block mh-container-real-child-p (progn (or (mh-thread-container-p cl-x) (signal 'wrong-type-argument (list 'mh-thread-container cl-x))) (aref cl-x 4))) nil] 9 (#$ . 8923)])
(put 'mh-container-real-child-p 'compiler-macro 'mh-container-real-child-p--cmacro)
#@77 Access slot "real-child-p" of `mh-thread-container' struct CL-X.

(fn CL-X)
(defalias 'mh-container-real-child-p #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-mh-thread-container-tags type-of signal wrong-type-argument mh-thread-container 4] 5 (#$ . 9385)])
(byte-code "\300\301\302\303#\304\305\306\"\207" [function-put mh-container-real-child-p side-effect-free t defalias copy-mh-thread-container copy-sequence] 4)
#@124 compiler-macro for inlining `mh-thread-make-container'.

(fn CL-WHOLE &cl-quote &key MESSAGE PARENT CHILDREN REAL-CHILD-P)
(defalias 'mh-thread-make-container--cmacro #[385 "\300
\301\"A@\300\302\"A@\300\303\"A@\300\304\"\206\305A@\211\203H\211@\306>\2030\211AA\262
\202\307>A@\203?\310\262
\202\311\312@\"\210\202\210\313\314\315\310	\310				&	\207" [plist-member :message :parent :children :real-child-p (nil t) (:message :parent :children :real-child-p :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:message :parent :children :real-child-p)" cl--defsubst-expand (message parent children real-child-p) (cl-block mh-thread-make-container (record 'mh-thread-container message parent children real-child-p))] 16 (#$ . 9831)])
(put 'mh-thread-make-container 'compiler-macro 'mh-thread-make-container--cmacro)
#@104 Constructor for objects of type `mh-thread-container'.

(fn &key MESSAGE PARENT CHILDREN REAL-CHILD-P)
(defalias 'mh-thread-make-container #[128 "\300
\301\"A@\300\302\"A@\300\303\"A@\300\304\"\206\305A@\211\203H\211@\306>\2030\211AA\262
\202\307>A@\203?\310\262
\202\311\312@\"\210\202\210\313\314%\207" [plist-member :message :parent :children :real-child-p (nil t) (:message :parent :children :real-child-p :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:message :parent :children :real-child-p)" record mh-thread-container] 11 (#$ . 10702)])
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303&	\207" [function-put mh-thread-make-container side-effect-free t cl-struct-define mh-thread-container nil cl-structure-object record ((cl-tag-slot) (message) (parent) (children) (real-child-p t)) cl-struct-mh-thread-container-tags] 11)
#@54 Hash table used to canonicalize message identifiers.
(defvar mh-thread-id-hash nil (#$ . 11615))
(make-variable-buffer-local 'mh-thread-id-hash)
#@50 Hash table used to canonicalize subject strings.
(defvar mh-thread-subject-hash nil (#$ . 11766))
(make-variable-buffer-local 'mh-thread-subject-hash)
#@70 Thread ID table maps from message identifiers to message containers.
(defvar mh-thread-id-table nil (#$ . 11923))
(make-variable-buffer-local 'mh-thread-id-table)
#@57 Table to look up message identifier from message index.
(defvar mh-thread-index-id-map nil (#$ . 12092))
(make-variable-buffer-local 'mh-thread-index-id-map)
#@64 Table to look up message index number from message identifier.
(defvar mh-thread-id-index-map nil (#$ . 12256))
(make-variable-buffer-local 'mh-thread-id-index-map)
#@47 Hash table used to group messages by subject.
(defvar mh-thread-subject-container-hash nil (#$ . 12427))
(make-variable-buffer-local 'mh-thread-subject-container-hash)
#@73 Hash table used to associate messages with the same message identifier.
(defvar mh-thread-duplicates nil (#$ . 12601))
(make-variable-buffer-local 'mh-thread-duplicates)
#@289 Variable to remember the transformations to the thread tree.
When new messages are added, these transformations are rewound,
then the links are added from the newly seen messages. Finally
the transformations are redone to get the new thread tree. This
makes incremental threading easier.
(defvar mh-thread-history nil (#$ . 12778))
(make-variable-buffer-local 'mh-thread-history)
#@68 Width of scan substring that contains subject and body of message.
(defvar mh-thread-body-width nil (#$ . 13164))
#@302 Display ancestor of current message.

If you do not care for the way a particular thread has turned,
you can move up the chain of messages with this command. This
command can also take a prefix argument THREAD-ROOT-FLAG to jump
to the message that started everything.

(fn &optional THREAD-ROOT-FLAG)
(defalias 'mh-thread-ancestor #[256 "\301 \210\302>\204\303\304!\210\202m\203\303\305!\210\306 
\203&\307 \204\310 \207\211\311=\2030\312\313!\207\307 \210\310 \207" [mh-view-ops beginning-of-line unthread error "Folder isn't threaded" "No message at point" mh-thread-current-indentation-level mh-thread-immediate-ancestor mh-maybe-show 1 message "Message has no ancestor"] 4 (#$ . 13285) "P"])
#@16 Delete thread.
(defalias 'mh-thread-delete #[0 "\302>\204\n\303\304!\207m\203\303\305!\207\306 \212\211@b\210\307 \210`
A@X\2038m\2048\310	!\2032\311\312!\210\313y\210\202)\314 \207" [mh-view-ops mh-scan-valid-regexp unthread error "Folder isn't threaded" "No message at point" mh-thread-find-children beginning-of-line looking-at mh-delete-a-msg nil 1 mh-next-msg] 3 (#$ . 13998) nil])
#@129 Display next sibling.

With non-nil optional argument PREVIOUS-FLAG jump to the previous
sibling.

(fn &optional PREVIOUS-FLAG)
(defalias 'mh-thread-next-sibling #[256 "\301>\204
\302\303!\210\202m\203\302\304!\210\305 \210`\306\307 
\204]\203(\310\202)\311y\312=\203]m\204]\307 \211\232\203B\313\262\210\202\211W\203Y\314\315\203S\316\202T\317\"\210\320\262\210\202
\321\267\202i\322 \207b\207\314\315\203s\316\202t\317\"\210b\207" [mh-view-ops unthread error "Folder isn't threaded" "No message at point" beginning-of-line nil mh-thread-current-indentation-level -1 1 0 success message "No %s sibling" "previous" "next" failure #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (success 99 failure 102)) mh-maybe-show] 8 (#$ . 14401) nil])
#@27 Display previous sibling.
(defalias 'mh-thread-previous-sibling #[0 "\300\301!\207" [mh-thread-next-sibling t] 2 (#$ . 15216) nil])
#@50 Refile (output) thread into FOLDER.

(fn FOLDER)
(defalias 'mh-thread-refile #[257 "\302>\204\n\303\304!\207m\203\303\305!\207\306 \212\211@b\210\307 \210`
A@X\2039m\2049\310	!\2033\311\312\"\210\313y\210\202)\314 \207" [mh-view-ops mh-scan-valid-regexp unthread error "Folder isn't threaded" "No message at point" mh-thread-find-children beginning-of-line looking-at mh-refile-a-msg nil 1 mh-next-msg] 5 (#$ . 15354) (byte-code "\300\301 !C\207" [intern mh-prompt-for-refile-folder] 2)])
#@33 Toggle threaded view of folder.
(defalias 'mh-toggle-threads #[0 "\304\305!\306 \305\307	>\203K\310\307!\204\311\312!\210\305eb\210m\2042\304\305!\211\203+\211B\262\210\305y\210\202\313\n\314\315\316!\"\317#\266\203R\320 \210\321 \210\202R\322 \210\307	B
\203\\\323\317\211#\210\324
!\210\325\305!)\207" [buffer-read-only mh-view-ops mh-current-folder mh-index-data mh-get-msg-num nil buffer-modified-p unthread mh-valid-view-change-operation-p error "Can't unthread folder" mh-scan-folder mapcar #[257 "\300\301\"\207" [format "%s"] 4 "\n\n(fn X)"] mh-coalesce-msg-list t mh-index-insert-folder-headers mh-notate-cur mh-thread-folder mh-goto-msg set-buffer-modified-p mh-recenter] 9 (#$ . 15859) nil])
#@65 Find the number of spaces by which current message is indented.
(defalias 'mh-thread-current-indentation-level #[0 "\212\303	\n\304$\305\306 \210
u\210\307\310f\311\"\203 \211T\262
\310u\210\202\262
)\207" [mh-cmd-note mh-scan-date-flag-width mh-scan-date-width + 1 0 beginning-of-line char-equal nil 32] 5 (#$ . 16587)])
#@44 Jump to immediate ancestor in thread tree.
(defalias 'mh-thread-immediate-ancestor #[0 "\300 \210`\301 \302Z\303
\304W?\2050\211\204(\305y\304=\203(
\301 \232\203\306\262
\202\211\204/b\210\211\207" [beginning-of-line mh-thread-current-indentation-level 2 nil 0 -1 t] 5 (#$ . 16919)])
#@206 Return a region containing the current message and its children.
The result is returned as a list of two elements. The first is
the point at the start of the region and the second is the point
at the end.
(defalias 'mh-thread-find-children #[0 "\303 \210m?\205S\304	\n\305$\306 \307\211`\262
\310\211\311T\"\312\"\262\307y\210\3132Mm?\205Lu\210\314\315`\316 \"\"\317=\204F\303 \210\320u\210\321\313\307\"\210\307y\210\202&0\210\211`D\266\204\207" [mh-cmd-note mh-scan-date-flag-width mh-scan-date-width beginning-of-line + 1 mh-thread-current-indentation-level nil format "%%%ss" "" --cl-block-nil-- string-match buffer-substring-no-properties mh-line-end-position 0 -1 throw] 9 (#$ . 17220)])
#@33 Generate thread view of folder.
(defalias 'mh-thread-folder #[0 "\303\304\305 \"\210\306 \210eb\210\307 \210\310edB\247\2034\311edB\312\211#\203\373edB\313\314 #\266\211C\266\202\202\373edB:\203\203edB@\247\203\203edBA\247\203\203\212edB@b\210\315 \210`edBAX\203m\204\316	!\203y\317\312!\313\314 #\266\211B\266\202\320y\210\202U)\202\373edB\203\230edB9\203\230\321edB!\202\253edB;\203\250\322\nedB\"\202\253edB\323 
\211\203\301\211@\313
\312#\210
A\266\202\202\256\210\212eb\210\315 \210`dX\203\370m\204\370\316	!\203\362\317\312!\324
\"\203\361\313\314 #\266\211B\262\210\320y\210\202\311)\266\325
!\326\305 \"ed|\210\327
!\210\330 \210\331 \210\332 \210\303\333\305 \"\207" [mh-thread-scan-line-map mh-scan-valid-regexp mh-current-folder message "Threading %s..." buffer-name mh-thread-initialize mh-remove-all-notation nil mh-goto-msg t puthash mh-thread-parse-scan-line beginning-of-line looking-at mh-get-msg-num 1 mh-seq-to-msgs mh-translate-range make-hash-table gethash mh-coalesce-msg-list mh-thread-generate mh-thread-print-scan-lines mh-notate-user-sequences mh-notate-deleted-and-refiled mh-notate-cur "Threading %s...done"] 9 (#$ . 17930)])
#@118 Update thread tree for FOLDER.
All messages after START-POINT are added to the thread tree.

(fn FOLDER START-POINT)
(defalias 'mh-thread-inc #[514 "\302 \210\303 \210\211b\210\304m\204+\305\304!\211\247\203$\211B\262\306\307 #\266\304y\266\202\n\310\"\304\311 
ed|\210\312!\210\313 \210\314 \210\315 \210\316
!)\207" [mh-thread-scan-line-map buffer-read-only mh-thread-rewind-pruning mh-remove-all-notation nil mh-get-msg-num puthash mh-thread-parse-scan-line mh-thread-generate buffer-modified-p mh-thread-print-scan-lines mh-notate-user-sequences mh-notate-deleted-and-refiled mh-notate-cur set-buffer-modified-p] 9 (#$ . 19136)])
#@106 Initialize the hash table in VAR.
TEST is the test to use when creating a new hash table.

(fn VAR TEST)
(defalias 'mh-thread-initialize-hash '(macro . #[514 "
9\204\n\300\301\"\210\302\303D\304\305\306EEF\207" [error "Expected a symbol: %s" if clrhash setq make-hash-table :test] 10 (#$ . 19791)]))
#@57 Make new hash tables, or clear them if already present.
(defalias 'mh-thread-initialize #[0 "\203\306!\210\202\307\310\311\"	\203\306	!\210\202 \307\310\311\"\n\203+\306\n!\210\2020\307\310\312\"\203;\306!\210\202@\307\310\312\"\f\203K\306\f!\210\202P\307\310\313\"
\203[\306
!\210\202`\307\310\313\"
\203m\306
!\210\202s\307\310\312\"
\203\200\306!\210\202\206\307\310\312\"\314\211\207" [mh-thread-id-hash mh-thread-subject-hash mh-thread-id-table mh-thread-id-index-map mh-thread-index-id-map mh-thread-scan-line-map clrhash make-hash-table :test equal eq eql nil mh-thread-subject-container-hash mh-thread-duplicates mh-thread-history] 3 (#$ . 20104)])
#@169 Given ID, return the corresponding container in `mh-thread-id-table'.
If no container exists then a suitable container is created and
the id-table is updated.

(fn ID)
(defalias 'mh-thread-id-container #[257 "\211\204\301\302!\210\303
\"\206&\304\305\306\307\310\307%\305\311\307\211\312%\262
#\262
\207" [mh-thread-id-table error "1" gethash puthash record mh-thread-message nil "" mh-thread-container t] 11 (#$ . 20808)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put mh-thread-id-container speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@55 Remove parent link of CHILD if it exists.

(fn CHILD)
(defalias 'mh-thread-remove-parent-link #[257 "\302
!>\203\f\211\2025\211\211\204\303\304!\210\305
	\"\2063	\306\307\310\311\312\311%\307\313\311\211\314%\262
#\262
\262
\302
!>\204D\315\316\313D\"\210\211\317H\211\205\245\302
!>\204Z\315\316\313D\"\210\211\320\302!>\204k\315\316\313D\"\210\320H\311\211:\203\214@\262=\204\205

B\262
A\262\202p\211\237\266\203I\210\302!>\204\241\315\316\313D\"\210
\317\311I\207" [cl-struct-mh-thread-container-tags mh-thread-id-table type-of error "1" gethash puthash record mh-thread-message nil "" mh-thread-container t signal wrong-type-argument 2 3] 12 (#$ . 21395)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put mh-thread-remove-parent-link speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@263 Add links so that PARENT becomes a parent of CHILD.
Doesn't make any changes if CHILD is already an ancestor of
PARENT. If optional argument AT-END-P is non-nil, the CHILD is
added to the end of the children list of PARENT.

(fn PARENT CHILD &optional AT-END-P)
(defalias 'mh-thread-add-link #[770 "\204\302\202=\303!>\203\202=\211\204\304\305!\210\306
	\"\206;	\307\310\311\302\312\302%\310\313\302\211\314%\262
#\262
\262
\303!>\203I\202r\211\204R\304\305!\210\306
	\"\206p	\307\310\311\302\312\302%\310\313\302\211\314%\262
#\262
\262

\203\263
\315
\"\204\263
\315\"\204\263
\211\303
!>\203\221\211\202\272\211\211\204\232\304\305!\210\306
	\"\206\270	\307\310\311\302\312\302%\310\313\302\211\314%\262
#\262
\262
\303
!>\204\311\316\317\313D\"\210\211\320H\211\205*
\303
!>\204\337\316\317\313D\"\210\211\321\303!>\204\360\316\317\313D\"\210\321H\302\211:\203
@\262=\204\n


B\262
A\262\202\365\211\237\266\203I\210\303!>\204&
\316\317\313D\"\210
\320\302I\266\204K
\303!>\204?
\316\317\313D\"\210
\321\321HBI\210\202\237
\303!>\204Z
\316\317\313D\"\210
\321H\204{
\303!>\204o
\316\317\313D\"\210
\321\321HBI\210\202\237
\303!>\204\212
\316\317\313D\"\210
\321H\211A\203\231
\211A\262
\202\215
\211C\241\266\303
!>\204\256
\316\317\313D\"\210\211\320I\210
?\205`\211\303
!>\203\305
\211\202\356
\211\211\204\316
\304\305!\210\306
	\"\206\354
	\307\310\311\302\312\302%\310\313\302\211\314%\262
#\262
\262
\303
!>\204\375
\316\317\313D\"\210\211\320H\211\205^\303
!>\204\316\317\313D\"\210\211\321\303!>\204$\316\317\313D\"\210\321H\302\211:\203E@\262=\204>

B\262
A\262\202)\211\237\266\203I\210\303!>\204Z\316\317\313D\"\210
\320\302I\266\203\207" [cl-struct-mh-thread-container-tags mh-thread-id-table nil type-of error "1" gethash puthash record mh-thread-message "" mh-thread-container t mh-thread-ancestor-p signal wrong-type-argument 2 3] 17 (#$ . 22255)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put mh-thread-add-link speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@54 Restore the thread tree to its state before pruning.
(defalias 'mh-thread-rewind-pruning #[0 "\205\210	\211A\242\211@\303=\203'\211A@\304
!	>\203\211\202H\211\211\204(\305\306!\210\307
\n\"\206F\n\310\311\312\313\314\313%\311\315\313\211\316%\262
#\262
\262
\304
!	>\204W\317\320\315D\"\210\211\321H\211\205\270\304
!	>\204m\317\320\315D\"\210\211\322\304!	>\204~\317\320\315D\"\210\322H\313\211:\203\237@\262=\204\230

B\262
A\262\202\203\211\237\266\203I\210\304!	>\204\264\317\320\315D\"\210
\321\313I\266\211AA@
A@\313\204\312\313\202\377\304!	>\203\326\202\377\211\204\337\305\306!\210\307
\n\"\206\375\n\310\311\312\313\314\313%\311\315\313\211\316%\262
#\262
\262
\304!	>\203
\2024
\211\204
\305\306!\210\307
\n\"\2062
\n\310\311\312\313\314\313%\311\315\313\211\316%\262
#\262
\262

\203u\323
\"\204u\323\"\204u\211\304
!	>\203S
\211\202|
\211\211\204\\
\305\306!\210\307
\n\"\206z
\n\310\311\312\313\314\313%\311\315\313\211\316%\262
#\262
\262
\304
!	>\204\213
\317\320\315D\"\210\211\321H\211\205\354
\304
!	>\204\241
\317\320\315D\"\210\211\322\304!	>\204\262
\317\320\315D\"\210\322H\313\211:\203\323
@\262=\204\314


B\262
A\262\202\267
\211\237\266\203I\210\304!	>\204\350
\317\320\315D\"\210
\321\313I\266\204
\304!	>\204
\317\320\315D\"\210
\322\322HBI\210\202a\304!	>\204\317\320\315D\"\210
\322H\204=\304!	>\2041\317\320\315D\"\210
\322\322HBI\210\202a\304!	>\204L\317\320\315D\"\210
\322H\211A\203[\211A\262
\202O\211C\241\266\304
!	>\204p\317\320\315D\"\210\211\321I\210
?\205\"\211\304
!	>\203\207\211\202\260\211\211\204\220\305\306!\210\307
\n\"\206\256\n\310\311\312\313\314\313%\311\315\313\211\316%\262
#\262
\262
\304
!	>\204\277\317\320\315D\"\210\211\321H\211\205 \304
!	>\204\325\317\320\315D\"\210\211\322\304!	>\204\346\317\320\315D\"\210\322H\313\211:\203@\262=\204

B\262
A\262\202\353\211\237\266\203I\210\304!	>\204\317\320\315D\"\210
\321\313I\266\203\266\202\211@\324=\203\275\211A@
AA@AAA\211\211\203T\211@\211\304
!	>\203M\211\202v\211\211\204V\305\306!\210\307
\n\"\206t\n\310\311\312\313\314\313%\311\315\313\211\316%\262
#\262
\262
\304
!	>\204\205\317\320\315D\"\210\211\321H\211\205\346\304
!	>\204\233\317\320\315D\"\210\211\322\304!	>\204\254\317\320\315D\"\210\322H\313\211:\203\315@\262=\204\306

B\262
A\262\202\261\211\237\266\203I\210\304!	>\204\342\317\320\315D\"\210
\321\313I\266
\313\204\363\313\202(\304!	>\203\377\202(\211\204\305\306!\210\307
\n\"\206&\n\310\311\312\313\314\313%\311\315\313\211\316%\262
#\262
\262
\304!	>\2034\202]\211\204=\305\306!\210\307
\n\"\206[\n\310\311\312\313\314\313%\311\315\313\211\316%\262
#\262
\262

\203\236\323
\"\204\236\323\"\204\236\211\304
!	>\203|\211\202\245\211\211\204\205\305\306!\210\307
\n\"\206\243\n\310\311\312\313\314\313%\311\315\313\211\316%\262
#\262
\262
\304
!	>\204\264\317\320\315D\"\210\211\321H\211\205\304
!	>\204\312\317\320\315D\"\210\211\322\304!	>\204\333\317\320\315D\"\210\322H\313\211:\203\374@\262=\204\365

B\262
A\262\202\340\211\237\266\203I\210\304!	>\204\317\320\315D\"\210
\321\313I\266\2046\304!	>\204*\317\320\315D\"\210
\322\322HBI\210\202\212\304!	>\204E\317\320\315D\"\210
\322H\204f\304!	>\204Z\317\320\315D\"\210
\322\322HBI\210\202\212\304!	>\204u\317\320\315D\"\210
\322H\211A\203\204\211A\262
\202x\211C\241\266\304
!	>\204\231\317\320\315D\"\210\211\321I\210
?\205K\211\304
!	>\203\260\211\202\331\211\211\204\271\305\306!\210\307
\n\"\206\327\n\310\311\312\313\314\313%\311\315\313\211\316%\262
#\262
\262
\304
!	>\204\350\317\320\315D\"\210\211\321H\211\205I\304
!	>\204\376\317\320\315D\"\210\211\322\304!	>\204\317\320\315D\"\210\322H\313\211:\2030@\262=\204)

B\262
A\262\202\211\237\266\203I\210\304!	>\204E\317\320\315D\"\210
\321\313I\266\203\266
A\266\202\202:\210
\313\204`\313\202\225\304!	>\203l\202\225\211\204u\305\306!\210\307
\n\"\206\223\n\310\311\312\313\314\313%\311\315\313\211\316%\262
#\262
\262
\304!	>\203\241\202\312\211\204\252\305\306!\210\307
\n\"\206\310\n\310\311\312\313\314\313%\311\315\313\211\316%\262
#\262
\262

\203\323
\"\204\323\"\204\211\304
!	>\203\351\211\202\211\211\204\362\305\306!\210\307
\n\"\206\n\310\311\312\313\314\313%\311\315\313\211\316%\262
#\262
\262
\304
!	>\204!\317\320\315D\"\210\211\321H\211\205\202\304
!	>\2047\317\320\315D\"\210\211\322\304!	>\204H\317\320\315D\"\210\322H\313\211:\203i@\262=\204b

B\262
A\262\202M\211\237\266\203I\210\304!	>\204~\317\320\315D\"\210
\321\313I\266\204\243\304!	>\204\227\317\320\315D\"\210
\322\322HBI\210\202\367\304!	>\204\262\317\320\315D\"\210
\322H\204\323\304!	>\204\307\317\320\315D\"\210
\322\322HBI\210\202\367\304!	>\204\342\317\320\315D\"\210
\322H\211A\203\361\211A\262
\202\345\211C\241\266\304
!	>\204\317\320\315D\"\210\211\321I\210
?\205\270\211\304
!	>\203\211\202F\211\211\204&\305\306!\210\307
\n\"\206D\n\310\311\312\313\314\313%\311\315\313\211\316%\262
#\262
\262
\304
!	>\204U\317\320\315D\"\210\211\321H\211\205\266\304
!	>\204k\317\320\315D\"\210\211\322\304!	>\204|\317\320\315D\"\210\322H\313\211:\203\235@\262=\204\226

B\262
A\262\202\201\211\237\266\203I\210\304!	>\204\262\317\320\315D\"\210
\321\313I\266\203\266\n\202\211@\325=\203\204	\211A@\211\304
!	>\203\324\211\202\375\211\211\204\335\305\306!\210\307
\n\"\206\373\n\310\311\312\313\314\313%\311\315\313\211\316%\262
#\262
\262
\304
!	>\204\f	\317\320\315D\"\210\211\321H\211\205m	\304
!	>\204\"	\317\320\315D\"\210\211\322\304!	>\2043	\317\320\315D\"\210\322H\313\211:\203T	@\262=\204M	

B\262
A\262\2028	\211\237\266\203I\210\304!	>\204i	\317\320\315D\"\210
\321\313I\266\304
!	>\204~	\317\320\315D\"\210\211\326\316I\266\210\202\207" [mh-thread-history cl-struct-mh-thread-container-tags mh-thread-id-table DROP type-of error "1" gethash puthash record mh-thread-message nil "" mh-thread-container t signal wrong-type-argument 2 3 mh-thread-ancestor-p PROMOTE SUBJECT 4] 23 (#$ . 24395)])
#@189 Return t if ANCESTOR is really an ancestor of SUCCESSOR and nil otherwise.
In the limit, the function returns t if ANCESTOR and SUCCESSOR
are the same containers.

(fn ANCESTOR SUCCESSOR)
(defalias 'mh-thread-ancestor-p #[514 "\3012,\211\203*

=\203\302\301\303\"\210\304
!>\204\"\305\306\307D\"\210\211\310H\262
\202\3110\207" [cl-struct-mh-thread-container-tags --cl-block-nil-- throw t type-of signal wrong-type-argument mh-thread-container 2 nil] 6 (#$ . 30707)])
#@182 Parse a scan line.
If optional argument STRING is given then that is assumed to be
the scan line. Otherwise uses the line at point as the scan line
to parse.

(fn &optional STRING)
(defalias 'mh-thread-parse-scan-line #[256 "\211\206\n\303\304 \305 \"	\\\n\\\306O\211\307ZO\310OF\207" [mh-cmd-note mh-scan-field-from-start-offset mh-scan-field-from-end-offset buffer-substring-no-properties mh-line-beginning-position mh-line-end-position 0 2 nil] 10 (#$ . 31191)])
#@103 Produce canonical string representation for ID.
This allows cheap string comparison with EQ.

(fn ID)
(defalias 'mh-thread-canonicalize-id #[257 "\211\301\232\203\f\302\301!\206\303
\"\206\304\211#\262
\207" [mh-thread-id-hash "" copy-sequence gethash puthash] 6 (#$ . 31676)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put mh-thread-canonicalize-id speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@303 Prune leading Re:'s, Fwd:'s etc. and trailing (fwd)'s from SUBJECT.
If the result after pruning is not the empty string then it is
canonicalized so that subjects can be tested for equality with
eq. This is done so that all the messages without a subject are
not put into a single thread.

(fn SUBJECT)
(defalias 'mh-thread-prune-subject #[257 "\302\303
\304\305\"\204\304\306\"\203\302\262
\307\225\303O\262\202\304\310\"\204-\304\311\"\203:\302\262
\307\211\224O\262\202\312\232\203F
D\202W\313	\"\206U	\314\211#\262

D)\207" [case-fold-search mh-thread-subject-hash t nil string-match "^[ 	]*\\(re\\|fwd?\\)\\(\\[[0-9]*\\]\\)?:[ 	]*" "^[ 	]*\\[[^\\]][ 	]*" 0 "(fwd)$" "[ 	]+$" "" gethash puthash] 8 (#$ . 32121)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put mh-thread-prune-subject speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@189 Group the set of message containers, ROOTS based on subject.
Bug: Check for and make sure that something without Re: is made
the parent in preference to something that has it.

(fn ROOTS)
(defalias 'mh-thread-group-by-subject #[257 "\304!\210\305
\211\203Y\211@\306
!\307
\"\211\203C\310
!	>\203$\211\202M\211\211\204-\311\312!\210\307
\n\"\206K\n\313\314\315\305\316\305%\314\317\305\211\320%\262
#\262
\262
\310
!	>\204\\\321\322\317D\"\210\211\323H\211\205\275\310
!	>\204r\321\322\317D\"\210\211\324\310!	>\204\203\321\322\317D\"\210\324H\305\211:\203\244@\262=\204\235

B\262
A\262\202\210\211\237\266\203I\210\310!	>\204\271\321\322\317D\"\210
\323\305I\266\211\320\204\312\305\202\377\310!	>\203\326\202\377\211\204\337\311\312!\210\307
\n\"\206\375\n\313\314\315\305\316\305%\314\317\305\211\320%\262
#\262
\262
\310!	>\203
\2024
\211\204
\311\312!\210\307
\n\"\2062
\n\313\314\315\305\316\305%\314\317\305\211\320%\262
#\262
\262

\203u\325
\"\204u\325\"\204u\211\310
!	>\203S
\211\202|
\211\211\204\\
\311\312!\210\307
\n\"\206z
\n\313\314\315\305\316\305%\314\317\305\211\320%\262
#\262
\262
\310
!	>\204\213
\321\322\317D\"\210\211\323H\211\205\354
\310
!	>\204\241
\321\322\317D\"\210\211\324\310!	>\204\262
\321\322\317D\"\210\324H\305\211:\203\323
@\262=\204\314


B\262
A\262\202\267
\211\237\266\203I\210\310!	>\204\350
\321\322\317D\"\210
\323\305I\266\204
\310!	>\204
\321\322\317D\"\210
\324\324HBI\210\202a\310!	>\204\321\322\317D\"\210
\324H\204=\310!	>\2041\321\322\317D\"\210
\324\324HBI\210\202a\310!	>\204L\321\322\317D\"\210
\324H\211A\203[\211A\262
\202O\211C\241\266\310
!	>\204p\321\322\317D\"\210\211\323I\210
?\205\"\211\310
!	>\203\207\211\202\260\211\211\204\220\311\312!\210\307
\n\"\206\256\n\313\314\315\305\316\305%\314\317\305\211\320%\262
#\262
\262
\310
!	>\204\277\321\322\317D\"\210\211\323H\211\205 \310
!	>\204\325\321\322\317D\"\210\211\324\310!	>\204\346\321\322\317D\"\210\324H\305\211:\203@\262=\204

B\262
A\262\202\353\211\237\266\203I\210\310!	>\204\321\322\317D\"\210
\323\305I\266\203\266\310!	>\2043\321\322\317D\"\210\326\305I\210\327DB\266\202R\313#\266B\262\266
A\266\202\202\210\211\237\207" [mh-thread-subject-container-hash cl-struct-mh-thread-container-tags mh-thread-id-table mh-thread-history clrhash nil mh-thread-container-subject gethash type-of error "1" puthash record mh-thread-message "" mh-thread-container t signal wrong-type-argument 2 3 mh-thread-ancestor-p 4 SUBJECT] 23 (#$ . 33020)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put mh-thread-group-by-subject speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@120 Return the subject of CONTAINER.
If CONTAINER is empty return the subject info of one of its
children.

(fn CONTAINER)
(defalias 'mh-thread-container-subject #[257 "\302
!>\204\303\304\305D\"\210\211\306H\203\245\302\211!>\204%\303\304\305D\"\210
\306H!	>\204G\303\304\307\302!>\204A\303\304\305D\"\210\306HD\"\210\302
!>\204V\303\304\305D\"\210\211\306H\306H\203\245\302\211!>\204n\303\304\305D\"\210
\306H!	>\204\220\303\304\307\302!>\204\212\303\304\305D\"\210\306HD\"\210\302
!>\204\237\303\304\305D\"\210\211\306H\310H\207\3112T
\302
!>\204\270\303\304\305D\"\210\211\310H\211\203O
\211@\302
!>\204\320\303\304\305D\"\210\211\306H\203H
\302\211!>\204\346\303\304\305D\"\210
\306H!	>\204
\303\304\307\302!>\204
\303\304\305D\"\210\306HD\"\210\302
!>\204
\303\304\305D\"\210\211\306H\306H\203H
\302
!>\204.
\303\304\305D\"\210\211\306H\312\311\302!	>\204B
\303\304\307D\"\210\310H\"\266
A\266\202\202\273\210\313\314!0\207" [cl-struct-mh-thread-container-tags cl-struct-mh-thread-message-tags type-of signal wrong-type-argument mh-thread-container 1 mh-thread-message 3 --cl-block-nil-- throw error "This can't happen"] 10 (#$ . 35813)])
#@220 Message with id, ID is the message in INDEX.
The function also checks for duplicate messages (that is multiple
messages with the same ID). These messages are put in the
`mh-thread-duplicates' hash table.

(fn ID INDEX)
(defalias 'mh-thread-update-id-index-maps #[514 "\303\"\211\203	\304\303\"B#\266\304#\266\n\304#\207" [mh-thread-id-index-map mh-thread-duplicates mh-thread-index-id-map gethash puthash] 10 (#$ . 37022)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put mh-thread-update-id-index-maps speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@125 Return container which has MESSAGE in it.
If there is no container present then a new container is
allocated.

(fn MESSAGE)
(defalias 'mh-thread-get-message-container #[257 "\303
!>\204\304\305\306D\"\210\211\307H\310
	\"\211\203/\303
!\n>\204)\304\305\311D\"\210\211\307I\210\207	\312\313\311\314\211\315%#\207" [cl-struct-mh-thread-message-tags mh-thread-id-table cl-struct-mh-thread-container-tags type-of signal wrong-type-argument mh-thread-message 1 gethash mh-thread-container puthash record nil t] 12 (#$ . 37628)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put mh-thread-get-message-container speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@167 Return appropriate message.
Otherwise update message already present to have the proper ID,
SUBJECT-RE-P, SUBJECT and REFS fields.

(fn ID SUBJECT-RE-P SUBJECT REFS)
(defalias 'mh-thread-get-message #[1028 "\303\"\211\205\304
!	>\204\305\306\307D\"\210\211\310H\211\203q\304
!\n>\204-\305\306\311D\"\210\211\312I\210\304
!\n>\204B\305\306\311D\"\210\211\313I\210\304
!\n>\204V\305\306\311D\"\210\211\310I\210\304
!\n>\204k\305\306\311D\"\210\211\314I\210\207
\203\223\304!	>\204\204\305\306\307D\"\210
\310\315\311		%I\207\315\311	%\211
\304
!\n>\204\256\305\306\311D\"\210\211\310H\303
\"\211\203\320\304
!	>\204\310\305\306\307D\"\210\211\310I\210\266\207\316\315\307\317\211\320%#\266\207" [mh-thread-id-table cl-struct-mh-thread-container-tags cl-struct-mh-thread-message-tags gethash type-of signal wrong-type-argument mh-thread-container 1 mh-thread-message 4 3 2 record puthash nil t] 20 (#$ . 38328)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put mh-thread-get-message speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@63 Regexp to recognize whether a string is a message identifier.
(defvar mh-message-id-regexp "^<.*@.*>$" (#$ . 39443))
#@129 Scan FOLDER to get info for threading.
Only information about messages in MSG-LIST are added to the tree.

(fn FOLDER MSG-LIST)
(defalias 'mh-thread-generate #[514 "\306\307\310\"r\211q\210\311\312\"\216\313!\210
\203,\314\315\316	\"\317\320\317\321\322\323\324\f\325\326\"&\210eb\210\317C\310\32720m?\205/\3302+`\331 {\317y\210\332
!`\331 {\317y\210`\331 {\317y\210`\331 {\317y\210`\331 {\317y\210\317\333\"\204t\334\330\317\"\210\250\204~\334\327\317\"\210\335\310\317
\336\337\"\204\222\336\340\"\203\237\310\262
\341\225\317O\262\202\204\336\342\"\204\255\336\343\"\203\272\310\262
\341\211\224O\262\202\237\344\232\203\306
D\202\327\333\f\"\206\325\f\345\211#\262

D)\266\203!\211@\262\211A@\266\202\346!\262\347\350!\"\317\211:\203

@\262\336
\"\203


B\262
A\262\202\361\211\237\266\203\262\211\344\232\203 
\351\344!\2061
\333
>\"\2061
>\345\211#\262
\262
\262\333?\"\211\203P
@\345\333\"B#\266?\345#\266A\345#\266\325\352\"\262
\333B\"\211\205\211
\353
!C>\204\206
\354\355\356D\"\210\211\357H\211\203\350
\353
!D>\204\235
\354\355\360D\"\210\211\361I\210\353
!D>\204\263
\354\355\360D\"\210\211\362I\210\353
!D>\204\310
\354\355\360D\"\210\211\357I\210\353
!D>\204\336
\354\355\360D\"\210\211\363I\210\266\202d
\203\353!C>\204\374
\354\355\356D\"\210
\357\364\360		%I\266\202d\364\360	%\211
\353
!D>\204+\354\355\360D\"\210\211\357H\333
B\"\211\203R\353
!C>\204G\354\355\356D\"\210\211\357I\266\266\202dB\345\364\356\317\211\310%#\266\266\211A\203\362\211@
A@\317\204x\317\202\260\353!C>\203\205\202\260\211\204\216\365\366!\210\333
B\"\206\256B\345\364\360\317\344\317%\364\356\317\211\310%\262
#\262
\262
\353!C>\203\275\202\350\211\204\306\365\366!\210\333
B\"\206\346B\345\364\360\317\344\317%\364\356\317\211\310%\262
#\262
\262

\2035\367
\"\2045\367\"\2045\211\353
!C>\203\211\2023\211\211\204\365\366!\210\333
B\"\2061B\345\364\360\317\344\317%\364\356\317\211\310%\262
#\262
\262
\353
!C>\204C\354\355\356D\"\210\211\363H\211\205\247\353
!C>\204Z\354\355\356D\"\210\211\362\353!C>\204l\354\355\356D\"\210\362H\317\211:\203\215@\262=\204\206

B\262
A\262\202q\211\237\266\203I\210\353!C>\204\243\354\355\356D\"\210
\363\317I\266\204\311\353!C>\204\275\354\355\356D\"\210
\362\362HBI\210\202 \353!C>\204\331\354\355\356D\"\210
\362H\204\373\353!C>\204\357\354\355\356D\"\210
\362\362HBI\210\202 \353!C>\204\354\355\356D\"\210
\362H\211A\203\211A\262
\202\211C\241\266\353
!C>\2040\354\355\356D\"\210\211\363I\210
?\205\351\211\353
!C>\203H\211\202s\211\211\204Q\365\366!\210\333
B\"\206qB\345\364\360\317\344\317%\364\356\317\211\310%\262
#\262
\262
\353
!C>\204\203\354\355\356D\"\210\211\363H\211\205\347\353
!C>\204\232\354\355\356D\"\210\211\362\353!C>\204\254\354\355\356D\"\210\362H\317\211:\203\315@\262=\204\306

B\262
A\262\202\261\211\237\266\203I\210\353!C>\204\343\354\355\356D\"\210
\363\317I\266\203\266\211A\262
\202e\211@\205&\353
!C>\203\211\2020\211\211\204\365\366!\210\333
B\"\206.B\345\364\360\317\344\317%\364\356\317\211\310%\262
#\262
\262
\353
!C>\204@\354\355\356D\"\210\211\363H\211\205\244\353
!C>\204W\354\355\356D\"\210\211\362\353!C>\204i\354\355\356D\"\210\362H\317\211:\203\212@\262=\204\203

B\262
A\262\202n\211\237\266\203I\210\353!C>\204\240\354\355\356D\"\210
\363\317I\266\211@\317\204\263\317\202\353\353!C>\203\300\202\353\211\204\311\365\366!\210\333
B\"\206\351B\345\364\360\317\344\317%\364\356\317\211\310%\262
#\262
\262
\353!C>\203\370\202#\211\204
\365\366!\210\333
B\"\206!B\345\364\360\317\344\317%\364\356\317\211\310%\262
#\262
\262

\203p\367
\"\204p\367\"\204p\211\353
!C>\203C\211\202n\211\211\204L\365\366!\210\333
B\"\206lB\345\364\360\317\344\317%\364\356\317\211\310%\262
#\262
\262
\353
!C>\204~\354\355\356D\"\210\211\363H\211\205\342\353
!C>\204\225\354\355\356D\"\210\211\362\353!C>\204\247\354\355\356D\"\210\362H\317\211:\203\310@\262=\204\301

B\262
A\262\202\254\211\237\266\203I\210\353!C>\204\336\354\355\356D\"\210
\363\317I\266\204\353!C>\204\370\354\355\356D\"\210
\362\362HBI\210\202[\353!C>\204\354\355\356D\"\210
\362H\2046\353!C>\204*\354\355\356D\"\210
\362\362HBI\210\202[\353!C>\204F\354\355\356D\"\210
\362H\211A\203U\211A\262
\202I\211C\241\266\353
!C>\204k\354\355\356D\"\210\211\363I\210
?\205$\211\353
!C>\203\203\211\202\256\211\211\204\214\365\366!\210\333
B\"\206\254B\345\364\360\317\344\317%\364\356\317\211\310%\262
#\262
\262
\353
!C>\204\276\354\355\356D\"\210\211\363H\211\205\"\353
!C>\204\325\354\355\356D\"\210\211\362\353!C>\204\347\354\355\356D\"\210\362H\317\211:\203@\262=\204


B\262
A\262\202\354\211\237\266\203I\210\353!C>\204\354\355\356D\"\210
\363\317I\266\203\266\205\262
\266\2070\210\20270\210\370\311\371\"B\"\210\211\372\242!\240\210\211
\242\373E!\210\317
\211\203\303\211@\374
!\333
E\"\211\203\254\353
!C>\203k\211\202\226\211\211\204t\365\366!\210\333
B\"\206\224B\345\364\360\317\344\317%\364\356\317\211\310%\262
#\262
\262
\353
!C>\204\246\354\355\356D\"\210\211\363H\211\205\n	\353
!C>\204\275\354\355\356D\"\210\211\362\353!C>\204\317\354\355\356D\"\210\362H\317\211:\203\360@\262=\204\351

B\262
A\262\202\324\211\237\266\203I\210\353!C>\204	\354\355\356D\"\210
\363\317I\266\211\310\204	\317\202O	\353!C>\203$	\202O	\211\204-	\365\366!\210\333
B\"\206M	B\345\364\360\317\344\317%\364\356\317\211\310%\262
#\262
\262
\353!C>\203\\	\202\207	\211\204e	\365\366!\210\333
B\"\206\205	B\345\364\360\317\344\317%\364\356\317\211\310%\262
#\262
\262

\203\324\n\367
\"\204\324\n\367\"\204\324\n\211\353
!C>\203\247	\211\202\322	\211\211\204\260	\365\366!\210\333
B\"\206\320	B\345\364\360\317\344\317%\364\356\317\211\310%\262
#\262
\262
\353
!C>\204\342	\354\355\356D\"\210\211\363H\211\205F\n\353
!C>\204\371	\354\355\356D\"\210\211\362\353!C>\204\n\354\355\356D\"\210\362H\317\211:\203,\n@\262=\204%\n

B\262
A\262\202\n\211\237\266\203I\210\353!C>\204B\n\354\355\356D\"\210
\363\317I\266\204h\n\353!C>\204\\\n\354\355\356D\"\210
\362\362HBI\210\202\277\n\353!C>\204x\n\354\355\356D\"\210
\362H\204\232\n\353!C>\204\216\n\354\355\356D\"\210
\362\362HBI\210\202\277\n\353!C>\204\252\n\354\355\356D\"\210
\362H\211A\203\271\n\211A\262
\202\255\n\211C\241\266\353
!C>\204\317\n\354\355\356D\"\210\211\363I\210
?\205\210\211\353
!C>\203\347\n\211\202\211\211\204\360\n\365\366!\210\333
B\"\206B\345\364\360\317\344\317%\364\356\317\211\310%\262
#\262
\262
\353
!C>\204\"\354\355\356D\"\210\211\363H\211\205\206\353
!C>\2049\354\355\356D\"\210\211\362\353!C>\204K\354\355\356D\"\210\362H\317\211:\203l@\262=\204e

B\262
A\262\202P\211\237\266\203I\210\353!C>\204\202\354\355\356D\"\210
\363\317I\266\203\266\353!C>\204\232\354\355\356D\"\210\361\317I\210\375DFBF\266\202\274E\345#\266B\262\266
A\266\202\202K\210\211\237\266\202\240Fq\210F)\262
*\207" [mh-scan-prog mh-progs case-fold-search mh-thread-scan-line-map mh-thread-subject-hash mh-message-id-regexp generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] mh-thread-set-tables apply call-process expand-file-name nil (t nil) "-width" "10000" "-format" "%(msg)\n%{message-id}\n%{references}\n%{in-reply-to}\n%{subject}\n" mapcar #[257 "\300\301\"\207" [format "%s"] 4 "\n\n(fn X)"] --cl-block-nil-- --cl-block-process-message-- mh-line-end-position string-to-number gethash throw cl-values-list string-match "^[ 	]*\\(re\\|fwd?\\)\\(\\[[0-9]*\\]\\)?:[ 	]*" "^[ 	]*\\[[^\\]][ 	]*" 0 "(fwd)$" "[ 	]+$" "" puthash mh-thread-process-in-reply-to append split-string copy-sequence mh-thread-canonicalize-id type-of signal wrong-type-argument mh-thread-container 1 mh-thread-message 4 3 2 record error "1" mh-thread-ancestor-p maphash #[514 "\302
!	>\204\303\304\305D\"\210\211\306H?\205\300
\300\242B\240\207" [V0 cl-struct-mh-thread-container-tags type-of signal wrong-type-argument mh-thread-container 2] 6 "\n\n(fn K V)"] mh-thread-prune-containers clrhash mh-thread-container-subject SUBJECT mh-thread-id-hash mh-thread-id-index-map mh-thread-duplicates mh-thread-index-id-map mh-thread-id-table cl-struct-mh-thread-container-tags cl-struct-mh-thread-message-tags mh-thread-subject-container-hash mh-thread-history] 31 (#$ . 39567)])
#@58 Use the tables of FOLDER in current buffer.

(fn FOLDER)
(defalias 'mh-thread-set-tables #[257 "\300\211\205\211@\211rq\210
J)L\210
A\266\202\202
\207" [(mh-thread-id-hash mh-thread-subject-hash mh-thread-id-table mh-thread-id-index-map mh-thread-index-id-map mh-thread-scan-line-map mh-thread-subject-container-hash mh-thread-duplicates mh-thread-history)] 5 (#$ . 48346)])
#@249 Extract message id's from REPLY-TO-HEADER.
Ideally this should have some regexp which will try to guess if a
string between < and > is a message id and not an email address.
For now it will take the last string inside angles.

(fn REPLY-TO-HEADER)
(defalias 'mh-thread-process-in-reply-to #[257 "\300\301\"\211\247\205\300\302\303O\"\211\247\205
TOC\262
\207" [mh-search-from-end 62 60 0] 7 (#$ . 48732)])
#@61 Prune empty containers in the containers ROOTS.

(fn ROOTS)
(defalias 'mh-thread-prune-containers #[257 "\305
\211\203:\211
A\262\242\306
!>\204\307\310\311D\"\210\211\312H\211\2030\211@\211B\262
A\266\202\202\210\211B\262\210\202
\203\317\n
\211A\262\242\313\306\211!>\204U\307\310\311D\"\210\314H!	>\204w\307\310\315\306!>\204q\307\310\311D\"\210\314HD\"\210\306!>\204\206\307\310\311D\"\210
\314H\314H\n\"\203\274\306
!>\204\237\307\310\311D\"\210\211\312\316\306!>\204\262\307\310\311D\"\210\312H!I\266\202:\306
!>\204\313\307\310\311D\"\210\211\312H\203\306
!>\204\340\307\310\311D\"\210\211\312HA\203\374\306
!>\204\366\307\310\311D\"\210\211\317H\203\305\306!>\204\f
\307\310\311D\"\210
\312H\211\203@\211@\211\306
!>\203\"
\211\202K
\211\211\204+
\320\321!\210\313
\"\206I
\322\323\315\305\324\305%\323\311\305\211\325%\262
#\262
\262
\306
!>\204Z
\307\310\311D\"\210\211\317H\211\205\273
\306
!>\204p
\307\310\311D\"\210\211\312\306!>\204\201
\307\310\311D\"\210\312H\305\211:\203\242
@\262=\204\233


B\262
A\262\202\206
\211\237\266\203I\210\306!>\204\267
\307\310\311D\"\210
\317\305I\266\306!>\204\315
\307\310\311D\"\210\317H
\305\204\332
\305\202\306!>\203\346
\202\211\204\357
\320\321!\210\313
\"\206
\322\323\315\305\324\305%\323\311\305\211\325%\262
#\262
\262
\306!>\203\202D\211\204$\320\321!\210\313
\"\206B\322\323\315\305\324\305%\323\311\305\211\325%\262
#\262
\262

\203\205\326
\"\204\205\326\"\204\205\211\306
!>\203c\211\202\214\211\211\204l\320\321!\210\313
\"\206\212\322\323\315\305\324\305%\323\311\305\211\325%\262
#\262
\262
\306
!>\204\233\307\310\311D\"\210\211\317H\211\205\374\306
!>\204\261\307\310\311D\"\210\211\312\306!>\204\302\307\310\311D\"\210\312H\305\211:\203\343@\262=\204\334

B\262
A\262\202\307\211\237\266\203I\210\306!>\204\370\307\310\311D\"\210
\317\305I\266\204\306!>\204\307\310\311D\"\210
\312\312HBI\210\202q\306!>\204,\307\310\311D\"\210
\312H\204M\306!>\204A\307\310\311D\"\210
\312\312HBI\210\202q\306!>\204\\\307\310\311D\"\210
\312H\211A\203k\211A\262
\202_\211C\241\266\306
!>\204\200\307\310\311D\"\210\211\317I\210
?\2052\211\306
!>\203\227\211\202\300\211\211\204\240\320\321!\210\313
\"\206\276\322\323\315\305\324\305%\323\311\305\211\325%\262
#\262
\262
\306
!>\204\317\307\310\311D\"\210\211\317H\211\2050\306
!>\204\345\307\310\311D\"\210\211\312\306!>\204\366\307\310\311D\"\210\312H\305\211:\203@\262=\204

B\262
A\262\202\373\211\237\266\203I\210\306!>\204,\307\310\311D\"\210
\317\305I\266\203\266\211B\262
A\266\202\202
\210\327\306!>\204S\307\310\311D\"\210\317HBBB\fB
\306
!>\203j\211\202\223\211\211\204s\320\321!\210\313
\"\206\221\322\323\315\305\324\305%\323\311\305\211\325%\262
#\262
\262
\306
!>\204\242\307\310\311D\"\210\211\317H\211\205\306
!>\204\270\307\310\311D\"\210\211\312\306!>\204\311\307\310\311D\"\210\312H\305\211:\203\352@\262=\204\343

B\262
A\262\202\316\211\237\266\203I\210\306!>\204\377\307\310\311D\"\210
\317\305I\266\202:\306
!>\204\307\310\311D\"\210\211\312H\203\f\n\306
!>\204,\307\310\311D\"\210\211\312\316\306!>\204?\307\310\311D\"\210\312H!I\210\306
!>\204T\307\310\311D\"\210\211\312H@\306!>\204g\307\310\311D\"\210
\312HA
\306
!>\203x\211\202\241\211\211\204\201\320\321!\210\313
\"\206\237\322\323\315\305\324\305%\323\311\305\211\325%\262
#\262
\262
\306
!>\204\260\307\310\311D\"\210\211\317H\211\205\306
!>\204\306\307\310\311D\"\210\211\312\306!>\204\327\307\310\311D\"\210\312H\305\211:\203\370@\262=\204\361

B\262
A\262\202\334\211\237\266\203I\210\306!>\204
\307\310\311D\"\210
\317\305I\266\211\211\203B	\211@\211\306
!>\203'\211\202P\211\211\2040\320\321!\210\313
\"\206N\322\323\315\305\324\305%\323\311\305\211\325%\262
#\262
\262
\306
!>\204_\307\310\311D\"\210\211\317H\211\205\300\306
!>\204u\307\310\311D\"\210\211\312\306!>\204\206\307\310\311D\"\210\312H\305\211:\203\247@\262=\204\240

B\262
A\262\202\213\211\237\266\203I\210\306!>\204\274\307\310\311D\"\210
\317\305I\266\306
!>\204\321\307\310\311D\"\210\211\330\305I\210
\325\204\341\305\202\306!>\203\355\202\211\204\366\320\321!\210\313
\"\206\322\323\315\305\324\305%\323\311\305\211\325%\262
#\262
\262
\306!>\203\"\202K\211\204+\320\321!\210\313
\"\206I\322\323\315\305\324\305%\323\311\305\211\325%\262
#\262
\262

\203\214\326
\"\204\214\326\"\204\214\211\306
!>\203j\211\202\223\211\211\204s\320\321!\210\313
\"\206\221\322\323\315\305\324\305%\323\311\305\211\325%\262
#\262
\262
\306
!>\204\242\307\310\311D\"\210\211\317H\211\205\306
!>\204\270\307\310\311D\"\210\211\312\306!>\204\311\307\310\311D\"\210\312H\305\211:\203\352@\262=\204\343

B\262
A\262\202\316\211\237\266\203I\210\306!>\204\377\307\310\311D\"\210
\317\305I\266\204$\306!>\204\307\310\311D\"\210
\312\312HBI\210\202x\306!>\2043\307\310\311D\"\210
\312H\204T\306!>\204H\307\310\311D\"\210
\312\312HBI\210\202x\306!>\204c\307\310\311D\"\210
\312H\211A\203r\211A\262
\202f\211C\241\266\306
!>\204\207\307\310\311D\"\210\211\317I\210
?\2059	\211\306
!>\203\236\211\202\307\211\211\204\247\320\321!\210\313
\"\206\305\322\323\315\305\324\305%\323\311\305\211\325%\262
#\262
\262
\306
!>\204\326\307\310\311D\"\210\211\317H\211\2057	\306
!>\204\354\307\310\311D\"\210\211\312\306!>\204\375\307\310\311D\"\210\312H\305\211:\203	@\262=\204	

B\262
A\262\202	\211\237\266\203I\210\306!>\2043	\307\310\311D\"\210
\317\305I\266\203\266
A\266\202\202\210\327\306!>\204U	\307\310\311D\"\210\317HBBBB\fB\306
!>\203n	\211\202\227	\211\211\204w	\320\321!\210\313
\"\206\225	\322\323\315\305\324\305%\323\311\305\211\325%\262
#\262
\262
\306
!>\204\246	\307\310\311D\"\210\211\317H\211\205\n\306
!>\204\274	\307\310\311D\"\210\211\312\306!>\204\315	\307\310\311D\"\210\312H\305\211:\203\356	@\262=\204\347	

B\262
A\262\202\322	\211\237\266\203I\210\306!>\204\n\307\310\311D\"\210
\317\305I\266\202:\331
\306!>\204\n\307\310\311D\"\210\317HE\fB\211\306
!>\2031\n\211\202Z\n\211\211\204:\n\320\321!\210\313
\"\206X\n\322\323\315\305\324\305%\323\311\305\211\325%\262
#\262
\262
\306
!>\204i\n\307\310\311D\"\210\211\317H\211\205\312\n\306
!>\204\n\307\310\311D\"\210\211\312\306!>\204\220\n\307\310\311D\"\210\312H\305\211:\203\261\n@\262=\204\252\n

B\262
A\262\202\225\n\211\237\266\203I\210\306!>\204\306\n\307\310\311D\"\210
\317\305I\266\202:\305C\332\333\334\"\"\210\316
\242!\207" [cl-struct-mh-thread-container-tags cl-struct-mh-thread-message-tags mh-thread-id-index-map mh-thread-id-table mh-thread-history nil type-of signal wrong-type-argument mh-thread-container 3 gethash 1 mh-thread-message mh-thread-sort-containers 2 error "1" puthash record "" t mh-thread-ancestor-p PROMOTE 4 DROP maphash make-closure #[514 "\304
!	>\204\305\306\307D\"\210\211\310H?\205h\311\304\211!	>\204'\305\306\307D\"\210\312H!\n>\204I\305\306\313\304!	>\204C\305\306\307D\"\210\312HD\"\210\304!	>\204X\305\306\307D\"\210
\312H\312H\"\205h\300
\300\242B\240\207" [V0 cl-struct-mh-thread-container-tags cl-struct-mh-thread-message-tags mh-thread-id-index-map type-of signal wrong-type-argument mh-thread-container 2 gethash 1 mh-thread-message] 10 "\n\n(fn K V)"]] 25 (#$ . 49153)])
#@88 Sort a list of message CONTAINERS to be in ascending order wrt index.

(fn CONTAINERS)
(defalias 'mh-thread-sort-containers #[257 "\300
\301\"\207" [sort #[514 "\303!>\204\304\305\306D\"\210
\307H\205\315\303
!>\204$\304\305\306D\"\210\211\307H\205\315\303\211!>\204:\304\305\306D\"\210\307H!	>\204\\\304\305\310\303!>\204V\304\305\306D\"\210\307HD\"\210\303!>\204k\304\305\306D\"\210
\307H\307H\303\211!>\204\200\304\305\306D\"\210\307H!	>\204\242\304\305\310\303!>\204\234\304\305\306D\"\210\307HD\"\210\303!>\204\261\304\305\306D\"\210
\307H\307H\311\n\"\311\n\"
\250\205\313\211\250\205\313

W\266\204\207" [cl-struct-mh-thread-container-tags cl-struct-mh-thread-message-tags mh-thread-id-index-map type-of signal wrong-type-argument mh-thread-container 1 mh-thread-message gethash] 10 "\n\n(fn X Y)"]] 4 (#$ . 56841)])
#@69 Print scan lines in THREAD-TREE in threaded mode.

(fn THREAD-TREE)
(defalias 'mh-thread-print-scan-lines #[257 "\306 Z	SZ\307\f\204\310
\311\"\202v\312 \307
:\203r
@\262

\313 \307
A\307
:\203K
@\262
\314
\"\211\203C
\315#\266\210
A\262\202*\266\316
!\317V\203io\203]\320\202^\321@\321\261\210\310\311\"\210)\210
A\262\202\266\322 *\207" [mh-cmd-note mh-scan-field-subject-start-offset mh-thread-last-ancestor mh-thread-body-width mh-index-data mh-thread-scan-line-map window-width nil mh-thread-generate-scan-lines -2 mh-index-group-by-folder make-hash-table gethash puthash hash-table-count 0 "" "\n" mh-index-create-imenu-index] 12 (#$ . 57717)])
#@205 Generate scan lines.
TREE is the hierarchical tree of messages, SCAN-LINE-MAP maps
message indices to the corresponding scan lines and LEVEL used to
determine indentation of the message.

(fn TREE LEVEL)
(defalias 'mh-thread-generate-scan-lines #[514 "
\204\306\207\307!>\203D
\307!>\204\310\311\312D\"\210
\313H\307
!	>\204/\310\311\314D\"\210\211\313H\315
\n\"\315\"\316\\\317\306\211\320\321\322B!\"\211\203
\211@\211\203
\203u\n\323=\203u\324\f
\"\203u\n\316\\\262\316\\\262\317\262\n\323=\203\252\307\f!>\204\216\310\311\312\fD\"\210\f\316H\203\252\307\f!>\204\243\310\311\312\fD\"\210\f\316H\202\203\263\n\202\264\307
!>\204\305\310\311\312D\"\210\f\325H\203\324\204\324\206\327\211\323=@\326\211\327\"\330\"\203\350\331\202\351\332A@\203\364\333\202\365\334\335AA@
	Z\"\336\261\266\317\262\306\262
A\266\202\202J\210\211\204
\262\307\n!>\204,
\310\311\312\fD\"\210	\337H\211\205C
\211@\340
\"\210
A\266\202\2020
\207\211\316\\\211\205Z
\211@\340
\"\210
A\266\202\202H
\207" [cl-struct-mh-thread-container-tags cl-struct-mh-thread-message-tags mh-thread-id-index-map mh-thread-duplicates mh-thread-last-ancestor mh-thread-body-width nil type-of signal wrong-type-argument mh-thread-container 1 mh-thread-message gethash 2 t mapcar #[257 "\301
\"\207" [mh-thread-scan-line-map gethash] 4 "\n\n(fn X)"] reverse 0 mh-thread-ancestor-p 4 format "%%%ss" "" "[" "<" "]" ">" truncate-string-to-width "\n" 3 mh-thread-generate-scan-lines] 23 (#$ . 58404)])
#@136 In threaded view update `mh-thread-scan-line-map'.
MSG is the message being notated with NOTATION at OFFSET.

(fn MSG NOTATION OFFSET)
(defalias 'mh-thread-update-scan-line-map #[771 "\206\302\303!\205\304
\"	\303\211:\203.@\262
\205#\304\"
B\262
A\262\202\211\237\266\203
\203?
@\211I\266\211\211\205[\211@\211\203T\211@\211	I\266
A\266\202\202@\207" [mh-thread-scan-line-map mh-thread-scan-line-map-stack mh-get-msg-num nil gethash] 12 (#$ . 59956)])
#@101 Find canonicalized subject of MSG.
This function can only be used the folder is threaded.

(fn MSG)
(defalias 'mh-thread-find-msg-subject #[257 "\3041\204\305\211\306\211\"	\"!\n>\204!\307\310\311\306\211\"	\"D\"\210\306\211\"	\"\312H!>\204\\\307\310\313\305\306\211\"	\"!\n>\204P\307\310\311\306\211\"	\"D\"\210\306\211\"	\"\312HD\"\210\305\306\211\"	\"!\n>\204w\307\310\311\306\211\"	\"D\"\210\306\211\"	\"\312H\314H0\207\210\315\207" [mh-thread-index-id-map mh-thread-id-table cl-struct-mh-thread-container-tags cl-struct-mh-thread-message-tags (error) type-of gethash signal wrong-type-argument mh-thread-container 1 mh-thread-message 3 nil] 11 (#$ . 60446)])
#@78 Add COUNT spaces to each scan line in `mh-thread-scan-line-map'.

(fn COUNT)
(defalias 'mh-thread-add-spaces #[257 "\301\211\302\"\303\"m?\2052\304\305!\306\307\"8
\247\203*\310\311\301\312#!#\266\266\313y\210\202\207" [mh-thread-scan-line-map format "%%%ss" "" mh-get-msg-num nil 3 gethash puthash mh-thread-parse-scan-line "%s%s" 1] 12 (#$ . 61143)])
#@65 Forget the message INDEX from the threading tables.

(fn INDEX)
(defalias 'mh-thread-forget-message #[257 "\304
\"\304
	\"\304\n\"\305\"\210\305\"\210\306\"\203&\211\204&\305	\"\207\306\"\203I	\307@#\266\211@\307#\266\n\307A#\207\n\307\310\"#\207" [mh-thread-index-id-map mh-thread-id-index-map mh-thread-duplicates mh-thread-scan-line-map gethash remhash eql puthash remove] 10 (#$ . 61518)])
(provide 'mh-thread)