Lines Matching defs:header
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--"
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)
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
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.
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.
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))))
587 (insert mail-header-separator "\n")
589 'category 'mail-header-separator)
624 Here are commands that move to a header field (and create it if there isn't):
665 (setq paragraph-separate (concat (regexp-quote mail-header-separator)
672 (defun mail-header-end ()
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
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))
1458 and don't delete any header fields."
1484 ;; Bind mail-citation-header to the inserted
1485 ;; message's header.
1486 (let ((mail-citation-header
1533 and don't delete any header fields."
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.