Function: mh-thread-print-scan-lines

mh-thread-print-scan-lines is an autoloaded and byte-compiled function defined in mh-thread.el.gz.

Signature

(mh-thread-print-scan-lines THREAD-TREE)

Documentation

Print scan lines in THREAD-TREE in threaded mode.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-thread.el.gz
;;;###mh-autoload
(defun mh-thread-print-scan-lines (thread-tree)
  "Print scan lines in THREAD-TREE in threaded mode."
  (let ((mh-thread-body-width (- (window-width) mh-cmd-note
                                 (1- mh-scan-field-subject-start-offset)))
        (mh-thread-last-ancestor nil))
    (if (null mh-index-data)
        (mh-thread-generate-scan-lines thread-tree -2)
      (cl-loop for x in (mh-index-group-by-folder)
               do (let* ((old-map mh-thread-scan-line-map)
                         (mh-thread-scan-line-map (make-hash-table)))
                    (setq mh-thread-last-ancestor nil)
                    (cl-loop for msg in (cdr x)
                             do (let ((v (gethash msg old-map)))
                                  (when v
                                    (setf (gethash msg mh-thread-scan-line-map)
                                          v))))
                    (when (> (hash-table-count mh-thread-scan-line-map) 0)
                      (insert (if (bobp) "" "\n") (car x) "\n")
                      (mh-thread-generate-scan-lines thread-tree -2))))
      (mh-index-create-imenu-index))))