Function: mh-add-sequence-notation

mh-add-sequence-notation is a byte-compiled function defined in mh-seq.el.gz.

Signature

(mh-add-sequence-notation MSG INTERNAL-SEQ-FLAG)

Documentation

Add sequence notation to the MSG on the current line.

If INTERNAL-SEQ-FLAG is non-nil, then refontify the scan line if font-lock is turned on.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-seq.el.gz
(defun mh-add-sequence-notation (msg internal-seq-flag)
  "Add sequence notation to the MSG on the current line.
If INTERNAL-SEQ-FLAG is non-nil, then refontify the scan line if
font-lock is turned on."
  (with-mh-folder-updating (t)
    (save-excursion
      (beginning-of-line)
      (if internal-seq-flag
          (progn
            ;; Change the buffer so that if transient-mark-mode is active
            ;; and there is an active region it will get deactivated as in
            ;; the case of user sequences.
            (mh-notate nil nil mh-cmd-note)
            (when font-lock-mode
              (font-lock-fontify-region (point) (line-end-position))))
        (forward-char (+ mh-cmd-note mh-scan-field-destination-offset))
        (let ((stack (gethash msg mh-sequence-notation-history)))
          (setf (gethash msg mh-sequence-notation-history)
                (cons (char-after) stack)))
        (mh-notate nil mh-note-seq
                   (+ mh-cmd-note mh-scan-field-destination-offset))))))