Function: mh-thread-update-scan-line-map

mh-thread-update-scan-line-map is an autoloaded and byte-compiled function defined in mh-thread.el.gz.

Signature

(mh-thread-update-scan-line-map MSG NOTATION OFFSET)

Documentation

In threaded view update mh-thread-scan-line-map.

MSG is the message being notated with NOTATION at OFFSET.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-thread.el.gz
;;; Additional Utilities

;;;###mh-autoload
(defun mh-thread-update-scan-line-map (msg notation offset)
  "In threaded view update `mh-thread-scan-line-map'.
MSG is the message being notated with NOTATION at OFFSET."
  (let* ((msg (or msg (mh-get-msg-num nil)))
         (cur-scan-line (and mh-thread-scan-line-map
                             (gethash msg mh-thread-scan-line-map)))
         (old-scan-lines (cl-loop for map in mh-thread-scan-line-map-stack
                                  collect (and map (gethash msg map)))))
    (when cur-scan-line
      (setf (aref (car cur-scan-line) offset) notation))
    (dolist (line old-scan-lines)
      (when line (setf (aref (car line) offset) notation)))))