Function: mh-thread-get-message-container

mh-thread-get-message-container is a byte-compiled function defined in mh-thread.el.gz.

Signature

(mh-thread-get-message-container MESSAGE)

Documentation

Return container which has MESSAGE in it.

If there is no container present then a new container is allocated.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-thread.el.gz
(defsubst mh-thread-get-message-container (message)
  "Return container which has MESSAGE in it.
If there is no container present then a new container is
allocated."
  (let* ((id (mh-message-id message))
         (container (gethash id mh-thread-id-table)))
    (cond (container (setf (mh-container-message container) message)
                     container)
          (t (setf (gethash id mh-thread-id-table)
                   (mh-thread-make-container :message message))))))