Lines Matching +defs:header +defs:text
63 "Alist of header fields and completion functions to use.")
70 citation text as modified.
189 "\C-c\C-t" mh-letter-toggle-header-field-display
194 "\t" mh-letter-next-header-field-or-indent
195 [backtab] mh-letter-previous-header-field)
239 (1 'mh-letter-header-field prepend t)))
243 "Find header field region between point and LIMIT."
244 (and (< (point) (mh-letter-header-end))
246 (let ((end (min limit (mh-letter-header-end)))
260 (cond ((and field (mh-letter-skipped-header-field-p field))
267 (defun mh-letter-header-end ()
268 "Find the end of the message header.
270 searching for `mh-mail-header-separator' in the buffer."
273 (cond ((equal mh-mail-header-separator "") (point-min))
274 ((search-forward (format "\n%s\n" mh-mail-header-separator) nil t)
305 When a message is composed, the hooks `text-mode-hook',
323 ;; Set the local value of mh-mail-header-separator according to what is
325 (set (make-local-variable 'mh-mail-header-separator)
327 (goto-char (mh-mail-header-end))
329 (make-local-variable 'mail-header-separator)
330 (setq mail-header-separator mh-mail-header-separator) ;override sendmail.el
342 ;; is that gnus uses static text properties which are not appropriate
344 ;; the citations and header...
347 ;; ...or the header only
356 ;; If text-mode-hook turned on auto-fill, tune it for messages
393 undesirable header fields (see
394 `mh-invisible-header-fields-compiled') are removed before
397 If given a prefix argument VERBATIM, the header is left intact, the
425 (mh-clean-msg-header start mh-invisible-header-fields-compiled nil)
437 By default, the text of your signature is taken from the file
463 (insert "<#part type=\"text/x-vcard\" filename=\""
466 (insert "#text/x-vcard; name=\""
474 (mml-insert-tag 'part 'type "text/plain" 'disposition "inline"
500 "Perform completion on header field or word preceding point.
511 (cond ((not (mh-in-header-p))
513 ((setq func (cdr (assoc (mh-letter-header-field-at-point)
522 this command to perform completion in the header. Otherwise, a
532 ((not (mh-in-header-p)) (self-insert-command arg))
534 ((setq func (cdr (assoc (mh-letter-header-field-at-point)
546 (cond ((not (mh-in-header-p)) (self-insert-command 1))
547 ((eq (cdr (assoc (mh-letter-header-field-at-point)
554 (defun mh-letter-next-header-field-or-indent (arg)
557 Within the header of the message, this command moves between
559 `mh-letter-header-field', skipping those fields listed in
560 `mh-compose-skipped-header-fields'. After the last field, this
566 (let ((header-end (save-excursion
567 (goto-char (mh-mail-header-end))
570 (if (> (point) header-end)
572 (mh-letter-next-header-field))))
574 (defun mh-letter-previous-header-field ()
575 "Cycle to the previous header field.
579 \\[mh-letter-next-header-field-or-indent], it will always take
582 (let ((header-end (mh-mail-header-end)))
583 (if (>= (point) header-end)
584 (goto-char header-end)
585 (mh-header-field-beginning))
586 (cond ((re-search-backward mh-letter-header-field-regexp nil t)
587 (if (mh-letter-skipped-header-field-p (match-string 1))
588 (mh-letter-previous-header-field)
590 (mh-letter-skip-leading-whitespace-in-header-field)))
591 (t (goto-char header-end)
614 "Move to \"Fcc:\" header field.
648 "Move to specified header field.
684 It is often useful to insert a snippet of text from a letter that
687 text from the message to which you're replying, and inserting
703 appearance of the included text by setting `mail-citation-hook'
732 ;; supercite needs the full header
734 (buffer-substring (point-min) (mh-mail-header-end))
745 (mh-goto-header-end 1)
757 (insert (mh-filter-out-non-text mh-ins-str))
768 ;; text, so leave the cursor at the end of the yanked text. In
770 ;; text to make it easy to jump or delete to the other end of the
771 ;; text.
787 (if (mh-in-header-p)
792 (defun mh-filter-out-non-text (string)
803 (cond ((and (not (get-text-property (point) 'mh-data))
807 ((get-text-property (point) 'mh-data)
830 (defun mh-letter-next-header-field ()
831 "Cycle to the next header field.
832 If we are at the last header field go to the start of the message
834 (let ((header-end (mh-mail-header-end)))
835 (cond ((>= (point) header-end) (goto-char (point-min)))
838 (re-search-forward mh-letter-header-field-regexp
843 (cond ((re-search-forward mh-letter-header-field-regexp header-end t)
844 (if (mh-letter-skipped-header-field-p (match-string 1))
845 (mh-letter-next-header-field)
846 (mh-letter-skip-leading-whitespace-in-header-field)))
847 (t (goto-char header-end)
852 "Move to the end of the FIELD in the header.
853 Move to end of entire header if FIELD not found.
857 (cond ((mh-goto-header-field field)
858 (mh-header-field-end)
860 ((mh-goto-header-end 0)
863 (defun mh-letter-header-field-at-point ()
864 "Return the header field name at point.
869 (and (re-search-backward mh-letter-header-field-regexp nil t)
873 "Do folder name completion in Fcc header field."
887 Any match found replaces the text from BEGIN to END."
915 (string-equal "text/x-vcard" (mh-file-mime-type file))))))
918 (defun mh-letter-toggle-header-field-display-button (event)
919 "Toggle header field display at location of EVENT.
921 `mh-letter-toggle-header-field-display' except that it is
925 (mh-letter-toggle-header-field-display nil)))
928 "Extract phrase or comment from From header field."
930 (if (not (mh-goto-header-field "From: "))