Function: mh-subject-to-sequence-threaded

mh-subject-to-sequence-threaded is a byte-compiled function defined in mh-limit.el.gz.

Signature

(mh-subject-to-sequence-threaded ALL)

Documentation

Put all messages with the same subject in the subject sequence.

This function works when the folder is threaded. In this situation the subject could get truncated and so the normal matching doesn't work.

The parameter ALL is non-nil then all the messages in the buffer are considered, otherwise only the messages after the current one are taken into account.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-limit.el.gz
(defun mh-subject-to-sequence-threaded (all)
  "Put all messages with the same subject in the `subject' sequence.

This function works when the folder is threaded. In this
situation the subject could get truncated and so the normal
matching doesn't work.

The parameter ALL is non-nil then all the messages in the buffer
are considered, otherwise only the messages after the current one
are taken into account."
  (let* ((cur (mh-get-msg-num nil))
         (subject (mh-thread-find-msg-subject cur))
         region msgs)
    (if (null subject)
        (and (message "No subject line") nil)
      (setq region (cons (if all (point-min) (point)) (point-max)))
      (mh-iterate-on-range msg region
        (when (eq (mh-thread-find-msg-subject msg) subject)
          (push msg msgs)))
      (setq msgs (sort msgs #'mh-lessp))
      (if (null msgs)
          0
        (when (assoc 'subject mh-seq-list)
          (mh-delete-seq 'subject))
        (mh-add-msgs-to-seq msgs 'subject)
        (length msgs)))))