Commit c16ef04f authored by Glenn Morris's avatar Glenn Morris

Simplify mh-thread-set-tables

* lisp/mh-e/mh-thread.el (mh-thread-set-tables):
Rewrite to simplify and remove compiler warning.
parent 02a71e6c
...@@ -647,20 +647,17 @@ Only information about messages in MSG-LIST are added to the tree." ...@@ -647,20 +647,17 @@ Only information about messages in MSG-LIST are added to the tree."
(defun mh-thread-set-tables (folder) (defun mh-thread-set-tables (folder)
"Use the tables of FOLDER in current buffer." "Use the tables of FOLDER in current buffer."
(mh-flet (dolist (v '(mh-thread-id-hash
((mh-get-table (symbol) mh-thread-subject-hash
(with-current-buffer folder mh-thread-id-table
(symbol-value symbol)))) mh-thread-id-index-map
(setq mh-thread-id-hash (mh-get-table 'mh-thread-id-hash)) mh-thread-index-id-map
(setq mh-thread-subject-hash (mh-get-table 'mh-thread-subject-hash)) mh-thread-scan-line-map
(setq mh-thread-id-table (mh-get-table 'mh-thread-id-table)) mh-thread-subject-container-hash
(setq mh-thread-id-index-map (mh-get-table 'mh-thread-id-index-map)) mh-thread-duplicates
(setq mh-thread-index-id-map (mh-get-table 'mh-thread-index-id-map)) mh-thread-history))
(setq mh-thread-scan-line-map (mh-get-table 'mh-thread-scan-line-map)) ;; Emacs >= 22.1: (buffer-local-value v folder).
(setq mh-thread-subject-container-hash (set v (with-current-buffer folder (symbol-value v)))))
(mh-get-table 'mh-thread-subject-container-hash))
(setq mh-thread-duplicates (mh-get-table 'mh-thread-duplicates))
(setq mh-thread-history (mh-get-table 'mh-thread-history))))
(defun mh-thread-process-in-reply-to (reply-to-header) (defun mh-thread-process-in-reply-to (reply-to-header)
"Extract message id's from REPLY-TO-HEADER. "Extract message id's from REPLY-TO-HEADER.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment