Lines Matching +defs:cc +defs:header
55 "If non-nil, MH-Show buffer contains message with all header fields.
64 the superfluous header fields that mailers add to a message, but if
65 you wish to see all of them, use the command \\[mh-header-display].
85 (or mh-mhl-format-file mh-clean-message-header-flag)))
90 (defun mh-header-display ()
91 "Display message with all header fields\\<mh-folder-mode-map>.
96 (or mh-mhl-format-file mh-clean-message-header-flag)
100 (mh-clean-message-header-flag nil))
129 (clean-message-header mh-clean-message-header-flag)
140 (if (not clean-message-header)
200 (clean-message-header mh-clean-message-header-flag)
201 (invisible-headers mh-invisible-header-fields-compiled)
236 (mh-add-missing-mime-version-header)
242 (cond (clean-message-header
243 (mh-clean-msg-header (point-min)
249 (mh-decode-message-header)
279 (defun mh-clean-msg-header (start invisible-headers visible-headers)
280 "Flush extraneous lines in message header.
282 Header is cleaned from START to the end of the message header.
284 to delete from the header. VISIBLE-HEADERS contains a regular
311 (let ((mh-compose-skipped-header-fields ()))
403 (mh-defun-show-buffer mh-show-header-display mh-header-display)
443 (mh-defun-show-buffer mh-show-narrow-to-cc mh-narrow-to-cc)
519 ["Show Message with Header" mh-show-header-display t]
574 "," mh-show-header-display
664 "c" mh-show-narrow-to-cc
699 (defun mh-header-field-font-lock (field limit)
700 "Return the value of a header field FIELD to font-lock.
704 (let* ((mail-header-end (mh-mail-header-end))
705 (lesser-limit (if (< mail-header-end limit) mail-header-end limit))
707 (when (and (< (point) mail-header-end) ;Only within header
711 (mh-header-field-end)
718 (defun mh-header-to-font-lock (limit)
719 "Return the value of a header field To to font-lock.
721 (mh-header-field-font-lock "To:" limit))
723 (defun mh-header-cc-font-lock (limit)
724 "Return the value of a header field cc to font-lock.
726 (mh-header-field-font-lock "cc:" limit))
728 (defun mh-header-subject-font-lock (limit)
729 "Return the value of a header field Subject to font-lock.
731 (mh-header-field-font-lock "Subject:" limit))
733 (defun mh-letter-header-font-lock (limit)
734 "Return the entire mail header to font-lock.
738 (let* ((mail-header-end (save-match-data (mh-mail-header-end)))
739 (lesser-limit (if (< mail-header-end limit) mail-header-end limit)))
740 (when (mh-in-header-p)
746 "Limit font-lock in `mh-show-mode' to the header.
753 (let ((header-end (mh-mail-header-end)))
755 ((and (< beg header-end)(< end header-end))
757 ((and (< beg header-end)(>= end header-end))
758 (font-lock-default-fontify-region beg header-end loudly))
766 (mh-header-to-font-lock
769 (mh-header-cc-font-lock
771 (1 'mh-show-cc))
775 (mh-header-subject-font-lock
780 (2 'mh-show-cc))
784 (mh-letter-header-font-lock
785 (0 'mh-show-header append t)))
847 (set (make-local-variable 'mail-header-separator) mh-mail-header-separator)
892 (goto-char (mh-mail-header-end))