Lines Matching +defs:cc +defs:header
130 ;; --- you can generate/modify an X-Mailer: message header
161 ;; (setq feedmail-queue-alternative-mail-header-separator "")
199 ;; provide a Date: header by default
200 ;; provide a default for generating Message-Id: header contents
211 ;; header munging in the saved file
250 ;; feedmail-queue-alternative-mail-header-separator
400 (defcustom feedmail-fill-to-cc t
401 "*If non-nil do smart filling of addressee header lines.
412 (defcustom feedmail-fill-to-cc-fill-column default-fill-column
413 "*Fill column used by `feedmail-fill-to-cc'."
421 This is independent of whether the Bcc: header lines are actually sent
453 "*If non-nil, remove header lines which have no contents.
454 A completely empty Subject: header is always removed, regardless of
471 "*If non-nil and the email has no Sender: header, use this value.
481 should be just the contents of the header, not the name of the header
491 header is fiddled after the From: header is fiddled."
511 "*If non-nil and the email has no From: header, use this value.
521 should be just the contents of the header, not the name of the header
541 "*If non-nil, deduce message envelope \"from\" from header From: or Sender:.
542 In other words, if there is a Sender: header in the message, temporarily
544 is being sent. If there is no Sender: header, use the From: header,
549 There are many and good reasons for having the message header
577 "*Control the form of an X-Mailer: header in an outgoing message.
585 If t, an X-Mailer: header of a predetermined format is produced,
586 combining its efforts with any existing X-Mailer: header. If you want
595 should be just the contents of the header, not the name of the header
607 "*Specifies the creation of a Message-Id: header field.
611 If t, a Message-Id: header of a predetermined format is produced, but
618 should be just the contents of the header, not the name of the header
652 "*Specifies the creation of a Date: header field.
656 If t, a Date: header of a predetermined format is produced, but only
663 should be just the contents of the header, not the name of the header
686 "*Non-nil means fiddled header fields should go at the top of the header.
688 the standards define the ordering of header fields to be immaterial and it's
702 message header fields. It does this after it has completed all normal
703 message header field manipulation and before calling `feedmail-last-chance-hook'.
752 May be t, in which case a \"To:\" header is added to the message with
753 the stripped address as the header contents. The fiddle-plex operator
757 a message header field with the stripped address serving as the value.
1006 "*If non-nil, use send time for the Date: header value.
1010 message Date: header; if there is no queue file, the current time is
1018 "*If non-nil, use send time for the Message-Id: header value.
1022 message Message-Id: header; if there is no queue file, the current time is
1179 It has already had all the header prepping from the standard package.
1182 these: (1) `feedmail-prepped-text-buffer' contains the header and body
1197 It has already had all the header prepping from the standard package.
1200 `feedmail-prepped-text-buffer' contains the header and body of the
1227 (defcustom feedmail-queue-alternative-mail-header-separator nil
1228 "*Alternative header demarcation for queued messages.
1229 If you sometimes get alternative values for `mail-header-separator' in
1231 For example, `rmail-resend' uses a `mail-header-separator' value of empty
1236 of `mail-header-separator'. If it can't find that, it will temporarily
1237 set `mail-header-separator' to the value of
1238 `feedmail-queue-alternative-mail-header-separator' and try again."
1390 "A fiddle-plex is a concise way of specifying header field fiddling.
1394 NAME is the name of the header field to be fiddled with. Although case
1395 doesn't matter in looking for headers, case of NAME is preserved when a header
1417 Values of like header fields are aggregated, leading and
1434 an existing header field by adding a semi-colon and
1618 ;; manipulation of mail-header-separator
1625 (or (not feedmail-queue-alternative-mail-header-separator)
1627 (let ((mail-header-separator feedmail-queue-alternative-mail-header-separator))
1635 feedmail-queue-alternative-mail-header-separator
1636 (let ((mail-header-separator feedmail-queue-alternative-mail-header-separator))
1638 (setq this-mhsep feedmail-queue-alternative-mail-header-separator)
1639 (setq this-mhsep mail-header-separator))
1643 (mail-header-separator this-mhsep)
1872 file will be placed. The name is based on the Subject: header (if
1992 (mail-header-separator mail-header-separator)
2007 ;; Change header-delimiter to be what mailers expect (empty line).
2011 (setq mail-header-separator ""))
2019 (if feedmail-fill-to-cc (feedmail-fill-to-cc-function eoh-marker))
2020 ;; ignore any blank lines in the header
2033 ;; header name, followed by optional whitespace, followed by
2058 (setq bcc-holder (feedmail-accume-n-nuke-header eoh-marker "^Bcc:"))
2059 (setq resent-bcc-holder (feedmail-accume-n-nuke-header eoh-marker "^Resent-Bcc:"))
2081 (and feedmail-nuke-empty-headers ; hey, who's an empty-header?
2087 (let ((fcc (feedmail-accume-n-nuke-header eoh-marker "^Fcc:"))
2151 (defun feedmail-fiddle-header (name value &optional action folding)
2152 "Internal feedmail function for jamming fields into message header.
2157 (header-colon (concat (regexp-quote name) ":"))
2158 header-regexp eoh-marker has-like ag-like val-like that-point)
2159 (setq header-regexp (concat "^" header-colon))
2162 (setq has-like (re-search-forward header-regexp eoh-marker t))
2182 (if has-like (feedmail-accume-n-nuke-header eoh-marker header-regexp))
2183 (feedmail-fiddle-header name value 'supplement folding))
2186 (if (not has-like) (feedmail-fiddle-header name value 'supplement folding)))
2190 (setq ag-like (or (feedmail-accume-n-nuke-header eoh-marker header-regexp) ""))
2191 ;; get rid of initial header name from first instance (front of string)
2192 (if (string-match (concat header-regexp "[ \t\n]+") ag-like)
2194 ;; get rid of embedded header names from subsequent instances
2195 (while (string-match (concat "\n" header-colon "[ \t\n]+") ag-like)
2212 (feedmail-fiddle-header name (concat (nth 0 value) ag-like (nth 2 value)) 'supplement folding)))
2303 (feedmail-fiddle-header
2331 (feedmail-fiddle-header
2339 "Default function for generating Date: header contents."
2370 (feedmail-fiddle-header
2378 "Default function for generating Message-Id: header contents.
2420 (feedmail-fiddle-header
2428 "Default function for generating X-Mailer: header contents."
2459 (feedmail-fiddle-header
2467 "Fiddle header for single spray address. Uses `feedmail-spray-this-address'."
2478 ;; the string names a header field (e.g., "To")
2490 (feedmail-fiddle-header
2524 (feedmail-fiddle-header
2531 (defun feedmail-accume-n-nuke-header (header-end header-regexp)
2540 (while (re-search-forward header-regexp header-end t)
2545 (while (and (looking-at "^[ \t].*\n") (< (point) header-end))
2551 (defun feedmail-fill-to-cc-function (header-end)
2566 header-end t)
2572 (while (and (looking-at "[ \t]+") (< (point) header-end))
2582 (fill-column feedmail-fill-to-cc-fill-column))
2607 (defun feedmail-deduce-address-list (message-buffer header-start header-end addr-regexp address-list)
2619 (insert-buffer-substring message-buffer header-start header-end)
2662 "Internal; finds the end of message header fields, returns mark just before it"
2666 (regexp-quote mail-header-separator)
2669 (and feedmail-queue-alternative-mail-header-separator
2673 feedmail-queue-alternative-mail-header-separator)