Lines Matching +defs:mail +defs:header +defs:message +defs:id
8 ;; Keywords: email, queue, mail, sendmail, message, spray, smtp, draft
14 ;; it's what handles your outgoing mail after you hit C-c C-c in mail
68 ;; This file requires the mail-utils library.
84 ;; In other words, it takes over after you hit "C-c C-c" in mail mode.
96 ;; --- you can get one last look at the prepped outbound message and
112 ;; message was written or the time it is being sent
115 ;; handled via a call to mail-strip-quoted-names); the
117 ;; to a subprocess, not in the headers in the mail itself
124 ;; run a hook on the prepped message and simplified address
127 ;; --- you can specify something other than /bin/mail for the
130 ;; --- you can generate/modify an X-Mailer: message header
140 ;; (setq send-mail-function 'feedmail-send-it)
148 ;; (setq auto-mode-alist (cons '("\\.fqm$" . mail-mode) auto-mode-alist))
161 ;; (setq feedmail-queue-alternative-mail-header-separator "")
166 ;; (autoload 'feedmail-mail-send-hook-splitter "feedmail")
167 ;; (add-hook 'mail-send-hook 'feedmail-mail-send-hook-splitter)
168 ;; (add-hook 'feedmail-mail-send-hook 'ispell-message)
170 ;; If you are using message-mode to compose and send mail, feedmail will
174 ;; (setq message-send-mail-function 'feedmail-send-it)
175 ;; (add-hook 'message-mail-send-hook 'feedmail-mail-send-hook-splitter)
183 ;; feedmail|Bill Carpenter|bill@bubblegum.net,bill@carpenter.ORG|Outbound mail queue handling|98-06-15|8|feedmail.el
189 ;; 5-may-92 jwz Conditionalized calling expand-mail-aliases, since that
191 ;; mail-abbrevs.el.
199 ;; provide a Date: header by default
200 ;; provide a default for generating Message-Id: header contents
204 ;; user-mail-address as default for From:
208 ;; user-configurable default message action
211 ;; header munging in the saved file
227 ;; feedmail-force-expand-mail-aliases in case you can't figure
250 ;; feedmail-queue-alternative-mail-header-separator
251 ;; at message action prompt, "I"/"S" bypass message confirmation prompt
252 ;; feedmail-mail-send-hook-splitter, feedmail-mail-send-hook,
253 ;; feedmail-mail-send-hook-queued
254 ;; user can supply stuff for message action prompt
262 ;; always supply envelope "from" (user-mail-address) to sendmail
263 ;; feedmail-message-id-suffix
273 ;; honor mail-from-style in constructing default for feedmail-from-line
306 (autoload 'mail-do-fcc "sendmail")
312 :group 'mail)
328 "*If non-nil, give a y-or-n confirmation prompt before sending mail.
329 This is done after the message is completely prepped, and you'll be
330 looking at the top of the message in a buffer when you get the prompt.
355 "*If non-nil remove Bcc: lines from the message headers.
365 "*If non-nil remove Resent-Bcc: lines from the message headers.
376 Addresses for the message envelope are deduced by examining
377 appropriate address headers in the message. Generally, they will show
386 things could be accomplished by affecting the order of message headers
387 in the outgoing message. Some people use Bcc: as a way of getting
388 their own \"come back\" copy of each message they send. If Bcc:
390 seeing the message again. Some configurations of sendmail, for example,
401 "*If non-nil do smart filling of addressee header lines.
406 as-is. The filling is done after mail address alias expansion."
420 "*If non-nil remove [Resent-]Bcc: lines in message copies saved via Fcc:.
421 This is independent of whether the Bcc: header lines are actually sent
422 with the message (see feedmail-nuke-bcc). Though not implied in the name,
430 "*If non-nil remove body of message in copies saved via Fcc:.
433 consist only of the message headers, serving as a sort of an outgoing
434 message log."
440 (defcustom feedmail-force-expand-mail-aliases nil
441 "*If non-nil, force the calling of `expand-mail-aliases'.
443 mailabbrevs and only calls `expand-mail-aliases' if it thinks you're
453 "*If non-nil, remove header lines which have no contents.
454 A completely empty Subject: header is always removed, regardless of
465 ;; maybe some distant mail system needs it. Really, though, if you
466 ;; want a sender line in your mail, just put one in there and don't
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
531 `user-mail-address' which should be set on every system but has a decent
532 chance of being wrong. It also honors `mail-from-style'. Better to set
534 to arrange for the message to get a From: line."
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
543 change the value of `user-mail-address' to be the same while the message
544 is being sent. If there is no Sender: header, use the From: header,
545 if any. Address values are taken from the actual message just before
549 There are many and good reasons for having the message header
550 From:/Sender: be different from the message envelope \"from\"
558 message with another From: line, you can just type it at the top of
559 the message, and feedmail will take care of \"fixing up\" the envelope
560 \"from\". This only works for mail senders which make use of
561 `user-mail-address' as the envelope \"from\" value. For some mail
562 senders (e.g., feedmail-buffer-to-bin-mail), there is no simple way to
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
606 (defcustom feedmail-message-id-generator t
607 "*Specifies the creation of a Message-Id: header field.
611 If t, a Message-Id: header of a predetermined format is produced, but
612 only if there is not already a Message-Id: in the message. A value of
613 t is equivalent to using the function feedmail-default-message-id-generator.
618 should be just the contents of the header, not the name of the header
621 the message buffer. For an explanation of fiddle-plexes, see the
630 in the saved message if you use Fcc:."
636 (defcustom feedmail-message-id-suffix nil
638 The function `feedmail-default-message-id-generator' creates its work based
641 If you don't supply one, the value of the variable `user-mail-address' will be
642 used. If the value of `feedmail-message-id-suffix' contains an \"@\" character,
652 "*Specifies the creation of a Date: header field.
656 If t, a Date: header of a predetermined format is produced, but only
657 if there is not already a Date: in the message. A value of t is
663 should be just the contents of the header, not the name of the header
666 the message buffer. For an explanation of fiddle-plexes, see the
679 in the saved message if you use Fcc:."
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'.
716 "If non-nil, transmit message separately to each addressee.
717 feedmail normally accumulates a list of addressees and passes the message
722 the message envelope addresses and doesn't affect what appears in the
723 message headers except as noted.
727 multiple delivery. One reason to use it is to overcome mis-featured mail
729 headers of a message. Another use is to do a crude form of mailmerge, for
746 fiddles message headers according to this variable. See the documentation for
749 May be nil, in which case nothing in particular is done about message
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.
773 The idea of the example is that, during spray mode, as each message is
779 The recipe for sending form letters is: (1) create a message with all
781 before sending the message; (3) create a function which will embellish
783 appropriately; (5) send the message with `feedmail-enable-spray' set
793 This is the master on/off switch for feedmail message queuing.
795 get a lot of mail and process it more or less sequentially. For
797 a message you see a bit later.
802 queued in their raw state as they appear in the mail-mode buffer and
805 mail-mode or whatever). If you visit a file in the queue directory
807 name. You can move a message from the draft to the main queue or vice
822 without having to answer no to the individual message prompts."
835 (concat (getenv "HOME") "/mail/q"))
838 doesn't end with a slash. Default, except on VMS, is \"$HOME/mail/q\"."
847 (concat (getenv "HOME") "/mail/draft"))
850 doesn't end with a slash. Default, except on VMS, is \"$HOME/mail/draft\"."
857 "*If non-nil, feedmail will ask what you want to do with the message.
858 Default choices for the message action prompt will include sending it
861 queuing is enabled. If nil, the message is placed in the main queue
869 "*A string which will be used for the message action prompt.
887 "*Meaning if user hits return in response to the message action prompt.
890 the help for the message action prompt."
897 '((?q . feedmail-message-action-queue)
898 (?Q . feedmail-message-action-queue-strong)
900 (?d . feedmail-message-action-draft)
901 (?r . feedmail-message-action-draft)
902 (?D . feedmail-message-action-draft-strong)
903 (?R . feedmail-message-action-draft-strong)
905 (?e . feedmail-message-action-edit)
906 (?E . feedmail-message-action-edit)
907 (?\C-g . feedmail-message-action-edit)
908 (?n . feedmail-message-action-edit)
909 (?N . feedmail-message-action-edit)
911 (?i . feedmail-message-action-send)
912 (?I . feedmail-message-action-send-strong)
913 (?s . feedmail-message-action-send)
914 (?S . feedmail-message-action-send-strong)
916 (?* . feedmail-message-action-toggle-spray)
918 (?\C-v . feedmail-message-action-help)
919 (?? . feedmail-message-action-help))
920 "An alist of choices for the message action prompt.
925 The actual alist used for message action will be the standard alist
939 "User-provided supplementary help string for the message action prompt.
940 When the message action prompt is shown, the user can as for verbose help,
995 may contain the names of non-message files, and it's okay to leave
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
1017 (defcustom feedmail-queue-use-send-time-for-message-id nil
1018 "*If non-nil, use send time for the Message-Id: header value.
1020 `feedmail-default-message-id-generator'. If nil, the default, the
1022 message Message-Id: header; if there is no queue file, the current time is
1049 which the message will be queued. The returned string should be just
1051 sequence numbers. The current buffer holds the raw message. The
1052 default function creates the slug based on the message subject, if
1061 When feedmail queues a message, it creates a unique file name. By default,
1062 the file name is based in part on the subject of the message being queued.
1071 text of the message. It must return a string (which may be empty).
1083 "*The FQM suffix used to distinguish feedmail queued message files.
1088 queued message."
1095 "*If non-nil, silently kill the buffer after a message is queued.
1096 You might like that since a side-effect of queueing the message is
1098 the buffer won't be reused for the next message you compose. If you
1101 message buffers."
1108 "*If non-nil, automatically delete queue files when a message is sent.
1109 Normally, feedmail will notice such files when you send a message in
1129 that case, the value is the name of the queued message file currently
1135 (defun feedmail-mail-send-hook-splitter ()
1136 "Facilitate dividing `mail-send-hook' things into queued and immediate cases.
1137 If you have `mail-send-hook' functions that should only be called for sending/
1139 for you. Add this function to `mail-send-hook' with something like this:
1141 (add-hook 'mail-send-hook 'feedmail-mail-send-hook-splitter)
1143 Then add the functions you want called to either `feedmail-mail-send-hook-queued'
1144 or `feedmail-mail-send-hook', as apprpriate. The distinction is that
1145 `feedmail-mail-send-hook' will be called when you send mail from a composition
1146 buffer (typically by typing C-c C-c), whether the message is sent immediately
1147 or placed in the queue or drafts directory. `feedmail-mail-send-hook-queued' is
1151 (run-hooks 'feedmail-mail-send-hook-queued)
1152 (run-hooks 'feedmail-mail-send-hook))
1156 (defvar feedmail-mail-send-hook nil
1157 "*See documentation for `feedmail-mail-send-hook-splitter'.")
1160 (defvar feedmail-mail-send-hook-queued nil
1161 "*See documentation for `feedmail-mail-send-hook-splitter'.")
1178 "*User's last opportunity to modify the message on its way out.
1179 It has already had all the header prepping from the standard package.
1181 subprocess that mails the mail. The hook might be interested in
1182 these: (1) `feedmail-prepped-text-buffer' contains the header and body
1183 of the message, ready to go; (2) `feedmail-address-list' contains a list
1188 mail while in the hook since some of the internal buffers will be
1196 "*User's last opportunity to modify the message before Fcc action.
1197 It has already had all the header prepping from the standard package.
1198 The next step after running the hook will be to save the message via
1200 `feedmail-prepped-text-buffer' contains the header and body of the
1201 message, ready to go; (2) `feedmail-address-list' contains a list of
1202 simplified recipients of addressees to whom the message was sent (3)
1205 user should not send more mail while in the hook since some of the
1212 '(lambda (&optional arg) (mail-mode))
1213 "*A function to set the proper mode of a message file.
1214 Called when the message is read back out of the queue directory with a single
1218 Most people want `mail-mode', so the default value is an anonymous
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
1232 string (\"\") when you send/queue a message.
1234 When trying to send a queued message, if the value of this variable is
1235 non-nil, feedmail will first try to send the message using the value
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."
1244 (defcustom feedmail-queue-runner-message-sender 'mail-send-and-exit
1245 "*Function to initiate sending a message file.
1246 Called for each message read back out of the queue directory with a
1250 want `mail-send-and-exit' (bound to C-c C-c in mail-mode), but here's
1261 (if (and arg feedmail-queue-chatty) (message "FQM: Nuked %s" fqm-file)))
1262 "*Function that will be called after a message has been sent.
1264 arguments: the name of the message queue file for the message just sent,
1272 message is give for each file deleted. You could replace this
1281 "*Non-nil means the message is a Resend (in the RFC-822 sense).
1283 variable as soon as it starts prepping the message text buffer, so any
1291 containing the prepped message; (2) a buffer where errors should be
1304 (defcustom feedmail-binmail-template (if mail-interactive "/bin/mail %s" "/bin/rmail %s")
1305 "*Command template for the subprocess which will get rid of the mail.
1311 like your errors to come back as mail instead of immediately in a
1312 buffer, try /bin/rmail instead of /bin/mail (this can be accomplished
1313 by keeping the default nil setting of `mail-interactive'). You might
1314 also like to consult local mail experts for any other interesting
1326 "Function which actually calls /bin/mail as a subprocess.
1354 (list "-f" user-mail-address)
1355 ;; These mean "report errors by mail" and "deliver in background".
1356 (if (null mail-interactive) '("-oem" "-odb")))))
1365 "Function which actually calls `smtpmail-via-smtp' to send buffer as e-mail."
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
1446 "Send the current mail buffer using the Feedmail package.
1447 This is a suitable value for `send-mail-function'. It can be used
1459 (feedmail-dump-message-to-queue feedmail-queue-directory 'after-queue))))
1462 (defun feedmail-message-action-send ()
1464 (message "FQM: Immediate send...")
1470 "*Send message directly to the queue, with a minimum of fuss and bother."
1482 "*Send message directly to the draft queue, with a minimum of fuss and bother."
1490 (defun feedmail-message-action-send-strong ()
1491 (let ((feedmail-confirm-outgoing nil)) (feedmail-message-action-send)))
1494 (defun feedmail-message-action-edit ()
1498 (defun feedmail-message-action-draft ()
1499 (feedmail-dump-message-to-queue feedmail-queue-draft-directory 'after-draft))
1502 (defun feedmail-message-action-draft-strong ()
1504 (feedmail-message-action-draft)))
1507 (defun feedmail-message-action-queue ()
1508 (feedmail-dump-message-to-queue feedmail-queue-directory 'after-queue))
1511 (defun feedmail-message-action-queue-strong ()
1513 (feedmail-message-action-queue)))
1516 (defun feedmail-message-action-toggle-spray ()
1519 (message "FQM: For this message, spray toggled ON")
1520 (message "FQM: For this message, spray toggled OFF"))
1526 (defun feedmail-message-action-help ()
1552 "Visit each message in the feedmail queue directory and send it out.
1554 messages skipped, and number of non-message things in the queue (commonly
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)
1645 (funcall feedmail-queue-runner-message-sender arg)
1661 (message "FQM: %d to go, %d sent, %d skipped (%d other files ignored)"
1668 (message "FQM: %d sent, %d skipped (%d other files ignored)"
1682 or mail hook code. Other recognized values for WHAT-EVENT (these are passed
1685 after-immediate (a message has just been sent in immediate mode)
1686 after-queue (a message has just been queued)
1687 after-draft (a message has just been placed in the draft directory)
1704 "Brief display of draft and queued message counts in modeline."
1713 (message "FQM: [D: %d, Q: %d]" d-cnt q-cnt))))
1718 "Verbose display of draft and queued message counts in modeline."
1729 (message "FQM: Draft: %dm+%d in \"%s\", Queue: %dm+%d in \"%s\""
1736 "Ask whether to queue, send immediately, or return to editing a message."
1749 (message feedmail-ask-before-queue-prompt d-string)
1754 (setq answer '(^ . feedmail-message-action-help))
1771 (message feedmail-ask-before-queue-reprompt d-string)
1799 (princ "You're dispatching a message and feedmail queuing is enabled.
1809 e EDIT return to the message edit buffer (don't send or queue)
1810 * SPRAY toggle spray mode (individual message transmissions)
1870 "Create a name for storing the message in the queue.
1872 file will be placed. The name is based on the Subject: header (if
1920 (defun feedmail-dump-message-to-queue (queue-directory what-event)
1936 ;; if visiting a queued message, just save
1954 (progn (message "%s" (concat "FQM: Queued in " filename))
1962 ;; from a similar function in mail-utils.el
1992 (mail-header-separator mail-header-separator)
1999 ;; jam contents of user-supplied mail buffer into our scratch buffer
2007 ;; Change header-delimiter to be what mailers expect (empty line).
2011 (setq mail-header-separator ""))
2013 ;; mail-aliases nil = mail-abbrevs.el
2014 (if (or feedmail-force-expand-mail-aliases
2015 (and (fboundp 'expand-mail-aliases) mail-aliases))
2016 (expand-mail-aliases (point-min) 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:"))
2072 (feedmail-fiddle-message-id
2081 (and feedmail-nuke-empty-headers ; hey, who's an empty-header?
2087 (let ((fcc (feedmail-accume-n-nuke-header eoh-marker "^Fcc:"))
2095 (let ((user-mail-address (feedmail-envelope-deducer eoh-marker)))
2101 (y-or-n-p (format "FQM: Delete message file %s? " also-file)))
2128 (mail-do-fcc eoh-marker)
2140 (progn (message "FQM: Sending...failed") (ding t) (sit-for 3)))
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)))
2228 ;; a message in the spray should have a distinct Message-Id:. There
2252 "If `feedmail-deduce-envelope-from' is false, simply return `user-mail-address'.
2256 user-mail-address
2267 (if (and from-list (car from-list)) (car from-list) user-mail-address))))
2278 ;; improvement using user-mail-address suggested by
2283 (if user-mail-address user-mail-address (concat (user-login-name) "@" (system-name)))))
2285 ((eq mail-from-style nil) at-stuff)
2286 ((eq mail-from-style 'parens) (concat at-stuff " (" (user-full-name) ")"))
2287 ((eq mail-from-style 'angles) (concat "\"" (user-full-name) "\" <" at-stuff ">"))
2303 (feedmail-fiddle-header
2331 (feedmail-fiddle-header
2339 "Default function for generating Date: header contents."
2370 (feedmail-fiddle-header
2377 (defun feedmail-default-message-id-generator (maybe-file)
2378 "Default function for generating Message-Id: header contents.
2380 `feedmail-message-id-suffix' is defined, uses `user-mail-address', so be
2383 (end-stuff (if feedmail-message-id-suffix feedmail-message-id-suffix user-mail-address)))
2388 (if (and (not feedmail-queue-use-send-time-for-message-id) maybe-file)
2397 (defun feedmail-fiddle-message-id (maybe-file)
2398 "Fiddle Message-Id:. See documentation of `feedmail-message-id-generator'."
2402 ((eq nil feedmail-message-id-generator) nil)
2403 ;; t is the same a using the function feedmail-default-message-id-generator, so let it and recurse
2404 ((eq t feedmail-message-id-generator)
2405 (let ((feedmail-message-id-generator (feedmail-default-message-id-generator maybe-file)))
2406 (feedmail-fiddle-message-id maybe-file)))
2409 ((stringp feedmail-message-id-generator)
2410 (let ((feedmail-message-id-generator (list "ignored" feedmail-message-id-generator 'create)))
2411 (feedmail-fiddle-message-id maybe-file)))
2414 ((and (symbolp feedmail-message-id-generator) (fboundp feedmail-message-id-generator))
2415 (let ((feedmail-message-id-generator (funcall feedmail-message-id-generator maybe-file)))
2416 (feedmail-fiddle-message-id maybe-file)))
2419 ((listp feedmail-message-id-generator)
2420 (feedmail-fiddle-header
2422 (nth 1 feedmail-message-id-generator) ; value
2423 (nth 2 feedmail-message-id-generator) ; action
2424 (nth 3 feedmail-message-id-generator))))) ; folding
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))
2606 (require 'mail-utils) ; pick up mail-strip-quoted-names
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)
2632 (mail-strip-quoted-names (buffer-substring this-line this-line-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)