Lines Matching +defs:msg +defs:body
53 ;; -format "%(msg)\n%{message-id}\n%{references}\n%{subject}\n"
66 ;; based mh-goto-msg doesn't work. I have a simpler replacement
127 (defvar mh-thread-body-width nil
128 "Width of scan substring that contains subject and body of message.")
168 (mh-delete-a-msg nil))
169 (mh-next-msg)))))
216 (mh-refile-a-msg nil folder))
217 (mh-next-msg)))))
223 (let ((msg-at-point (mh-get-msg-num nil))
229 (let ((msg-list ()))
232 (let ((index (mh-get-msg-num nil)))
234 (push index msg-list)))
238 (mh-coalesce-msg-list msg-list))
245 (when msg-at-point (mh-goto-msg msg-at-point t t))
320 (let ((msg-list ()))
321 (mh-iterate-on-range msg (cons (point-min) (point-max))
322 (setf (gethash msg mh-thread-scan-line-map) (mh-thread-parse-scan-line))
323 (push msg msg-list))
324 (let* ((range (mh-coalesce-msg-list msg-list))
340 (let ((msg-list ()))
342 (let ((index (mh-get-msg-num nil)))
344 (push index msg-list)
348 (let ((thread-tree (mh-thread-generate folder msg-list))
466 (body-start (+ mh-cmd-note mh-scan-field-from-end-offset))
469 (substring string address-start (- body-start 2))
470 (substring string body-start)
587 (defun mh-thread-generate (folder msg-list)
592 (when msg-list
596 "%(msg)\n%{message-id}\n%{references}\n%{in-reply-to}\n%{subject}\n"
597 folder (mapcar #'(lambda (x) (format "%s" x)) msg-list)))
755 (let ((mh-thread-body-width (- (window-width) mh-cmd-note
764 (loop for msg in (cdr x)
765 do (let ((v (gethash msg old-map)))
767 (setf (gethash msg mh-thread-scan-line-map) v))))
813 (caddr scan-line) (- mh-thread-body-width lev))
830 (defun mh-thread-update-scan-line-map (msg notation offset)
833 (let* ((msg (or msg (mh-get-msg-num nil)))
835 (gethash msg mh-thread-scan-line-map)))
837 collect (and map (gethash msg map)))))
844 (defun mh-thread-find-msg-subject (msg)
849 (mh-container-message (gethash (gethash msg mh-thread-index-id-map)
857 (let* ((msg-num (mh-get-msg-num nil))
858 (old-line (nth 3 (gethash msg-num mh-thread-scan-line-map))))
859 (when (numberp msg-num)
860 (setf (gethash msg-num mh-thread-scan-line-map)