Function: mh-thread-parse-scan-line

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

Signature

(mh-thread-parse-scan-line &optional STRING)

Documentation

Parse a scan line.

If optional argument STRING is given then that is assumed to be the scan line. Otherwise uses the line at point as the scan line to parse.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-thread.el.gz
;; Another and may be better approach would be to generate all the info from
;; the scan which generates the threading info. For now this will have to do.
;;;###mh-autoload
(defun mh-thread-parse-scan-line (&optional string)
  "Parse a scan line.
If optional argument STRING is given then that is assumed to be
the scan line. Otherwise uses the line at point as the scan line
to parse."
  (let* ((string (or string (buffer-substring-no-properties
                             (line-beginning-position)
                             (line-end-position))))
         (address-start (+ mh-cmd-note mh-scan-field-from-start-offset))
         (body-start (+ mh-cmd-note mh-scan-field-from-end-offset))
         (first-string (substring string 0 address-start)))
    (list first-string
          (substring string address-start (- body-start 2))
          (substring string body-start)
          string)))