Lines Matching +defs:header +defs:text
100 The value should be either a string, or the symbol `header' (in
101 which case the contents of the \"From\" header of the message
106 (const :tag "Use From: header from message" header)
153 not a valid RFC822 header or continuation line,
154 that matches the variable `mail-header-separator'.
165 (defcustom mail-header-separator "--text follows this line--"
166 "Line used to separate headers from text in messages being composed."
170 ;; Set up mail-header-separator for use as a category text property.
171 (put 'mail-header-separator 'rear-nonsticky '(category))
177 ;;(put 'mail-header-separator 'read-only t)
250 text as modified.
259 and should leave point and mark around the citation text as modified.
260 The hook functions can find the header of the cited message
261 in the variable `mail-citation-header', whether or not this is included
269 (defvar mail-citation-header nil
270 "While running `mail-citation-hook', this variable holds the message header.
271 This enables the hook functions to see the whole message header
272 regardless of what part of it (if any) is included in the cited text.")
297 (define-key map "\C-c\C-t" 'mail-text)
335 (define-key map [menu-bar headers text]
336 '("Text" . mail-text))
375 "Expand all mail aliases in suitable header fields found between BEG and END.
376 Suitable header fields are `To', `Cc' and `Bcc' and their `Resent-' variants.
377 Optional second arg EXCLUDE may be a regular expression defining text to be
399 "File containing the text inserted at end of mail buffer."
420 "A string containing header lines, to be inserted in outgoing messages.
440 `mime' means add an appropriate MIME header if none already present.
472 "Set this non-nil if the system's mailer runs the header and body together.
479 ;; define-derived-mode will make it inherit from text-mode-syntax-table.
495 ;; Use EVAL to delay in case `mail-header-separator' gets changed.
497 (let ((separator (if (zerop (length mail-header-separator))
499 (regexp-quote mail-header-separator))))
585 (put-text-property (point)
587 (insert mail-header-separator "\n")
589 'category 'mail-header-separator)
615 (defvar mail-mode-abbrev-table text-mode-abbrev-table)
617 (define-derived-mode mail-mode text-mode "Mail"
624 Here are commands that move to a header field (and create it if there isn't):
630 \\[mail-text] move to message text.
635 Turning on Mail mode runs the normal hooks `text-mode-hook' and
665 (setq paragraph-separate (concat (regexp-quote mail-header-separator)
672 (defun mail-header-end ()
680 (defun mail-text-start ()
681 "Return the buffer location of the start of text, as a number."
689 (defun mail-sendmail-delimit-header ()
690 "Set up whatever header delimiter convention sendmail will use.
691 Concretely: replace the first blank line in the header with the separator."
693 (insert mail-header-separator)
696 (defun mail-sendmail-undelimit-header ()
697 "Remove header separator to put the message in correct form for sendmail.
705 (if (< (point) (mail-header-end))
720 (if (< (point) (mail-header-end))
812 header when sending a message to a mailing list."
843 (new-header-values ; To: and Cc:
847 (when (string-match ml new-header-values)
850 (goto-char (mail-header-end))
858 (split-string new-header-values
864 (goto-char (mail-header-end))
879 (re-search-forward (regexp-quote mail-header-separator) (point-max) t)
880 (let ((header-end (or (match-beginning 0) (point-max))))
882 (while (< (point) header-end)
885 (error "Invalid header line (maybe a continuation line lacks initial whitespace)"))
908 (if (eq mail-envelope-from 'header)
1026 ;; Change header-delimiter to be what sendmail expects.
1027 (goto-char (mail-header-end))
1034 ;; Ignore any blank lines in the header
1079 ;; This one matches a Subject just before the header delimiter.
1088 ;; Possibly add a MIME header for the current coding system
1100 "Content-type: text/plain; charset="
1172 (defun mail-do-fcc (header-end)
1173 (unless (markerp header-end)
1174 (error "Value of `header-end' must be a marker"))
1182 (while (re-search-forward "^FCC:[ \t]*" header-end t)
1300 "Make a Sent-via header line from each To or CC header line."
1303 ;; put a marker at the end of the header
1304 (let ((end (copy-marker (mail-header-end)))
1318 ;; Insert a copy, with altered header field name.
1385 (setq end (mail-header-end))
1399 (defun mail-text ()
1400 "Move point to beginning of text field."
1403 (goto-char (mail-text-start)))
1427 (goto-char (mail-text-start))
1434 "Modify text just inserted from a message to be cited.
1435 The inserted text should be the region.
1436 When this function returns, the region is again around the modified text.
1453 Puts point after the text and mark before.
1458 and don't delete any header fields."
1474 (set-text-properties (point) (mark t) nil))
1484 ;; Bind mail-citation-header to the inserted
1485 ;; message's header.
1486 (let ((mail-citation-header
1502 ;; loop would deactivate the mark because we inserted text.
1528 Puts point after the text and mark before.
1533 and don't delete any header fields."
1545 ;; Insert the citation text.
1549 ;; Indent or otherwise annotate the citation text.
1555 ;; Bind mail-citation-hook to the original message's header.
1556 (let ((mail-citation-header
1616 to move to message header fields:
1641 the initial contents of those header fields.
1771 to recover text of message whose composition was interrupted.
1772 To browse text of a draft, type v on the draft file's line.