diff options
| author | Glenn Morris | 2018-03-01 13:08:47 -0500 |
|---|---|---|
| committer | Glenn Morris | 2018-03-01 13:08:47 -0500 |
| commit | c16ef04f83965ad43e64e14f362c4182f4e59330 (patch) | |
| tree | 20e8806b445e3c1708685b6691dc68b267abc48f | |
| parent | 02a71e6c2f2e0e17756ef4d040453d96637d76c7 (diff) | |
| download | emacs-c16ef04f83965ad43e64e14f362c4182f4e59330.tar.gz emacs-c16ef04f83965ad43e64e14f362c4182f4e59330.zip | |
Simplify mh-thread-set-tables
* lisp/mh-e/mh-thread.el (mh-thread-set-tables):
Rewrite to simplify and remove compiler warning.
| -rw-r--r-- | lisp/mh-e/mh-thread.el | 25 |
1 files changed, 11 insertions, 14 deletions
diff --git a/lisp/mh-e/mh-thread.el b/lisp/mh-e/mh-thread.el index 41a79b6f0b4..ff8e6602e50 100644 --- a/lisp/mh-e/mh-thread.el +++ b/lisp/mh-e/mh-thread.el | |||
| @@ -647,20 +647,17 @@ Only information about messages in MSG-LIST are added to the tree." | |||
| 647 | 647 | ||
| 648 | (defun mh-thread-set-tables (folder) | 648 | (defun mh-thread-set-tables (folder) |
| 649 | "Use the tables of FOLDER in current buffer." | 649 | "Use the tables of FOLDER in current buffer." |
| 650 | (mh-flet | 650 | (dolist (v '(mh-thread-id-hash |
| 651 | ((mh-get-table (symbol) | 651 | mh-thread-subject-hash |
| 652 | (with-current-buffer folder | 652 | mh-thread-id-table |
| 653 | (symbol-value symbol)))) | 653 | mh-thread-id-index-map |
| 654 | (setq mh-thread-id-hash (mh-get-table 'mh-thread-id-hash)) | 654 | mh-thread-index-id-map |
| 655 | (setq mh-thread-subject-hash (mh-get-table 'mh-thread-subject-hash)) | 655 | mh-thread-scan-line-map |
| 656 | (setq mh-thread-id-table (mh-get-table 'mh-thread-id-table)) | 656 | mh-thread-subject-container-hash |
| 657 | (setq mh-thread-id-index-map (mh-get-table 'mh-thread-id-index-map)) | 657 | mh-thread-duplicates |
| 658 | (setq mh-thread-index-id-map (mh-get-table 'mh-thread-index-id-map)) | 658 | mh-thread-history)) |
| 659 | (setq mh-thread-scan-line-map (mh-get-table 'mh-thread-scan-line-map)) | 659 | ;; Emacs >= 22.1: (buffer-local-value v folder). |
| 660 | (setq mh-thread-subject-container-hash | 660 | (set v (with-current-buffer folder (symbol-value v))))) |
| 661 | (mh-get-table 'mh-thread-subject-container-hash)) | ||
| 662 | (setq mh-thread-duplicates (mh-get-table 'mh-thread-duplicates)) | ||
| 663 | (setq mh-thread-history (mh-get-table 'mh-thread-history)))) | ||
| 664 | 661 | ||
| 665 | (defun mh-thread-process-in-reply-to (reply-to-header) | 662 | (defun mh-thread-process-in-reply-to (reply-to-header) |
| 666 | "Extract message id's from REPLY-TO-HEADER. | 663 | "Extract message id's from REPLY-TO-HEADER. |