;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(defconst feedmail-patch-level "11-beta-1")
(byte-code "\300\301!\210\302\303\304\"\210\305\306\307\310\311\312\311\313\314\315&	\210\305\316\307\317\314\306%\210\305\320\307\321\314\306%\210\305\322\307\323\314\306%\210\305\324\307\325\314\306%\210\326\327\330\331\332DD\333\314\316\334\335&\210\326\336\330\331\337DD\340\341\342\314\316\334\343&	\210\326\344\330\331\345DD\346\341\342\314\316\334\347&	\210\326\350\330\331\351DD\352\314\320\334\353&\210\326\354\330\331\355DD\356\314\320\334\353&\210\326\357\330\331\360DD\361\314\320\334\362&\210\326\363\330\331\364DD\365\314\320\334\353&\210\326\366\330\331\367DD\370\314\320\334\371&\210\326\372\330\331\373DD\374\314\320\334\353&\210\326\375\330\331\376DD\377\314\320\334\201@&\210\326\201A\330\331\201BDD\201C\314\320\334\353&\210\326\201D\330\331\201EDD\201F\314\320\334\353&\210\326\201G\330\331\201HDD\201I\314\320\334\201J&\210\326\201K\330\331\201LDD\201M\314\316\334\353&\210\326\201N\330\331\201ODD\201P\314\320\334\201Q&\210\326\201R\330\331\201SDD\201T\341\342\314\320\334\353&	\210\326\201U\330\331\201VDD\201W\314\320\334\353&\210\326\201X\330\331\201YDD\201Z\314\320\334\201[&\210\326\201\\\330\331\201]DD\201^\314\320\334\201_&\210\326\201`\330\331\201aDD\201b\314\320\334\201c&\210\326\201d\330\331\201eDD\201f\314\320\334\201g&\210\326\201h\330\331\201iDD\201j\314\320\334\201k&\210\326\201l\330\331\201mDD\201n\314\320\334\353&\210\326\201o\330\331\201pDD\201q\314\320\334\201r&\210\326\201s\330\331\201tDD\201u\314\201v\334\353&\207" [require mail-utils autoload mail-do-fcc "sendmail" custom-declare-group feedmail nil "Assist other email packages to massage outgoing messages." :link (url-link "http://www.carpenter.org/feedmail/feedmail.html") (emacs-commentary-link "feedmail") :group mail feedmail-misc "Miscellaneous feedmail options that don't fit in other groups." feedmail-headers "Options related to manipulating specific headers or types of headers." feedmail-queue "Options related to queuing messages for later sending." feedmail-debug "Options related to debug messages for later sending." custom-declare-variable feedmail-confirm-outgoing funcall function #[0 "\300\207" [nil] 1 #1=""] "If non-nil, give a y-or-n confirmation prompt before sending mail.\nThis is done after the message is completely prepped, and you'll be\nlooking at the top of the message in a buffer when you get the prompt.\nIf set to the symbol `queued', give the confirmation prompt only while\nrunning the queue (however, the prompt is always suppressed if you are\nprocessing the queue via `feedmail-run-the-queue-no-prompts').  If set\nto the symbol `immediate', give the confirmation prompt only when\nsending immediately.  For any other non-nil value, prompt in both\ncases.  You can give a timeout for the prompt; see variable\n`feedmail-confirm-outgoing-timeout'." :type (choice (const nil) (const queued) (const immediate) (other t)) feedmail-display-full-frame #[0 "\300\207" [queued] 1 #1#] "If non-nil, show prepped messages in a full frame.\nIf nil, the prepped message will be shown, for confirmation or\notherwise, in some window in the current frame without resizing\nanything.  That may or may not display enough of the message to\ndistinguish it from others.  If set to the symbol `queued', take\nthis action only when running the queue.  If set to the symbol\n`immediate', take this action only when sending immediately.  For\nany other non-nil value, take the action in both cases.  Even if\nyou're not confirming the sending of immediate or queued messages,\nit can still be interesting to see a lot about them as they are\nshuttled robotically onward." :version "24.1" (choice (const nil) (const queued) (const immediate) (other t)) feedmail-confirm-outgoing-timeout #[0 "\300\207" [nil] 1 #1#] "If non-nil, a timeout in seconds at the send confirmation prompt.\nIf a positive number, it's a timeout before sending.  If a negative\nnumber, it's a timeout before not sending." (choice (const nil) integer) feedmail-nuke-bcc #[0 "\300\207" [t] 1 #1#] "If non-nil remove Bcc: lines from the message headers.\nIn any case, the Bcc: lines do participate in the composed address\nlist.  You may want to leave them in if you're using sendmail\n(see `feedmail-buffer-eating-function')." boolean feedmail-nuke-resent-bcc #[0 "\300\207" [t] 1 #1#] "If non-nil remove Resent-Bcc: lines from the message headers.\nIn any case, the Resent-Bcc: lines do participate in the composed\naddress list.  You may want to leave them in if you're using sendmail\n(see `feedmail-buffer-eating-function')." feedmail-deduce-bcc-where #[0 "\300\207" [nil] 1 #1#] "Where Bcc:/Resent-Bcc: addresses should appear in the envelope list.\nAddresses for the message envelope are deduced by examining\nappropriate address headers in the message.  Generally, they will show\nup in the list of deduced addresses in the order that the headers\nhappen to appear (duplicate addresses are eliminated in any case).\nThis variable can be set to the symbol `first', in which case the\nBcc:/Resent-Bcc: addresses will appear at the beginning in the list;\nor, it can be set to the symbol `last', in which case they will appear\nat the end of the list.\n\nWhy should you care?  Well, maybe you don't, and certainly the same\nthings could be accomplished by affecting the order of message headers\nin the outgoing message.  Some people use Bcc: as a way of getting\ntheir own \"come back\" copy of each message they send.  If Bcc:\naddresses are not handled first, there can be substantial delays in\nseeing the message again.  Some configurations of sendmail, for example,\nseem to try to deliver to each addressee at least once, immediately\nand serially, so slow SMTP conversations can add up to a delay.  There\nis an option for either `first' or `last' because you might have a\ndelivery agent that processes the addresses backwards." (choice (const nil) (const first) (const last)) feedmail-fill-to-cc #[0 "\300\207" [t] 1 #1#] "If non-nil do smart filling of addressee header lines.\nSmart filling means breaking long lines at appropriate points and\nmaking continuation lines.  Despite the function name, it includes\nTo:, Cc:, Bcc: (and their Resent-* forms), as well as From: and\nReply-To: (though they seldom need it).  If nil, the lines are left\nas-is.  The filling is done after mail address alias expansion." feedmail-fill-to-cc-fill-column #[0 "\300\301!\207" [default-value fill-column] 2 #1#] "Fill column used by `feedmail-fill-to-cc'." integer feedmail-nuke-bcc-in-fcc #[0 "\300\207" [nil] 1 #1#] "If non-nil remove [Resent-]Bcc: lines in message copies saved via Fcc:.\nThis is independent of whether the Bcc: header lines are actually sent\nwith the message (see feedmail-nuke-bcc).  Though not implied in the name,\nthe same Fcc: treatment applies to both Bcc: and Resent-Bcc: lines." feedmail-nuke-body-in-fcc #[0 "\300\207" [nil] 1 #1#] "If non-nil remove body of message in copies saved via Fcc:.\nIf a positive integer value, leave (up to) that many lines of the\nbeginning of the body intact.  The result is that the Fcc: copy will\nconsist only of the message headers, serving as a sort of an outgoing\nmessage log." (choice (const nil) (const t) integer) feedmail-force-expand-mail-aliases #[0 "\300\207" [nil] 1 #1#] "If non-nil, force the calling of `expand-mail-aliases'.\nNormally, feedmail tries to figure out if you're using mailalias or\nmailabbrevs and only calls `expand-mail-aliases' if it thinks you're\nusing the mailalias package.  This user option can be used to force\nthe issue since there are configurations which fool the figuring\nout." feedmail-nuke-empty-headers #[0 "\300\207" [t] 1 #1#] "If non-nil, remove header lines which have no contents.\nA completely empty Subject: header is always removed, regardless of\nthe setting of this variable.  The only time you would want them left\nin would be if you used some headers whose presence indicated\nsomething rather than their contents.  This is rare in Internet email\nbut common in some proprietary systems." feedmail-sender-line #[0 "\300\207" [nil] 1 #1#] "If non-nil and the email has no Sender: header, use this value.\nMay be nil, in which case nothing in particular is done with respect\nto Sender: lines.  By design, will not replace an existing Sender:\nline, but you can achieve that with a fiddle-plex replace action.\nNB: it makes no sense to use the value t since there is no sensible\ndefault for Sender:.\n\nIf not nil, it may be a string, a fiddle-plex, or a function which\nreturns either nil, t, a string, or a fiddle-plex (or, in fact,\nanother function, but let's not be ridiculous).  If a string, it\nshould be just the contents of the header, not the name of the header\nitself nor the trailing newline.  If a function, it will be called\nwith no arguments.  For an explanation of fiddle-plexes, see the\ndocumentation for the variable `feedmail-fiddle-plex-blurb'.  In all\ncases the name element of the fiddle-plex is ignored and is hardwired\nby feedmail to either \"Sender\" or \"Resent-Sender\".\n\nYou can probably leave this nil, but if you feel like using it, a good\nvalue would be a string of a fully-qualified domain name form of your\naddress.  For example, \"bill@example.net (WJCarpenter)\".  The Sender:\nheader is fiddled after the From: header is fiddled." (choice (const nil) string) feedmail-force-binary-write #[0 "\300\207" [t] 1 #1#] "If non-nil, force writing file as binary (this applies to queues and Fcc:).\nOn systems where there is a difference between binary and text files,\nfeedmail will temporarily manipulate the value of `coding-system-for-write'\nto make the writing as binary.  If nil, writing will be in text mode.\nOn systems where there is no distinction or where it is controlled by other\nvariables or other means, this option has no effect." feedmail-from-line #[0 "\300\207" [t] 1 #1#] "If non-nil and the email has no From: header, use this value.\nMay be t, in which case a default is computed (and you probably won't\nbe happy with it).  May be nil, in which case nothing in particular is\ndone with respect to From: lines.  By design, will not replace an\nexisting From: line, but you can achieve that with a fiddle-plex `replace'\naction.\n\nIf neither nil nor t, it may be a string, a fiddle-plex, or a function\nwhich returns either nil, t, a string, or a fiddle-plex (or, in fact,\nanother function, but let's not be ridiculous).  If a string, it\nshould be just the contents of the header, not the name of the header\nitself nor the trailing newline.  If a function, it will be called\nwith no arguments.  For an explanation of fiddle-plexes, see the\ndocumentation for the variable `feedmail-fiddle-plex-blurb'.  In all\ncases the name element of the fiddle-plex is ignored and is hardwired\nby feedmail to either \"From\" or \"Resent-From\".\n\nA good value would be a string fully-qualified domain name form of\nyour address.  For example, \"bill@example.net (WJCarpenter)\".  The\ndefault value of this variable uses the standard elisp variable\n`user-mail-address' which should be set on every system but has a decent\nchance of being wrong.  It also honors `mail-from-style'.  Better to set\nthis variable explicitly to the string you want or find some other way\nto arrange for the message to get a From: line." (choice (const t) (const nil) string) feedmail-sendmail-f-doesnt-sell-me-out #[0 "\300\207" [nil] 1 #1#] "Whether sendmail should issue a warning header if called with \"-f\".\nThe sendmail program has a useful feature to let you set the envelope FROM\naddress via a command line option, \"-f\".  Unfortunately, it also has a widely\ndisliked default behavior of selling you out if you do that by inserting\nan unattractive warning in the headers.  It looks something like this:\n\n  X-Authentication-Warning: u1.example.com: niceguy set\n      sender to niceguy@example.com using -f\n\nIt is possible to configure sendmail to not do this, but such a\nreconfiguration is not an option for many users.  As this is the\ndefault behavior of most sendmail installations, one can mostly\nonly wish it were otherwise.  If feedmail believes the sendmail\nprogram will sell you out this way, it won't use the \"-f\"\noption when calling sendmail.  If it doesn't think sendmail will\nsell you out, it will use the \"-f\" (since it is a handy\nfeature).  You control what feedmail thinks with this variable.\nThe default is nil, meaning that feedmail will believe that\nsendmail will sell you out." feedmail-deduce-envelope-from #[0 "\300\207" [t] 1 #1#] "If non-nil, deduce message envelope \"from\" from header From: or Sender:.\nIn other words, if there is a Sender: header in the message, temporarily\nchange the value of `user-mail-address' to be the same while the message\nis being sent.  If there is no Sender: header, use the From: header,\nif any.  Address values are taken from the actual message just before\nit is sent, and the process is independent of the values of\n`feedmail-from-line' and/or `feedmail-sender-line'.\n\nThere are many and good reasons for having the message header\nFrom:/Sender: be different from the message envelope \"from\"\ninformation.  However, for most people and for most circumstances, it\nis usual for them to be the same (this is probably especially true for\nthe case where the user doesn't understand the difference between the\ntwo in the first place).\n\nThe idea behind this feature is that you can have everything set up\nsome normal way for yourself.  If for some reason you want to send a\nmessage with another From: line, you can just type it at the top of\nthe message, and feedmail will take care of \"fixing up\" the envelope\n\"from\".  This only works for mail senders which make use of\n`user-mail-address' as the envelope \"from\" value.  For some mail\nsenders (e.g., feedmail-buffer-to-bin-mail), there is no simple way to\ninfluence what they will use as the envelope." feedmail-x-mailer-line-user-appendage #[0 "\300\207" [nil] 1 #1#] "See feedmail-x-mailer-line." (choice (const nil) (const t) string) feedmail-x-mailer-line #[0 "\300\207" [t] 1 #1#] "Control the form of an X-Mailer: header in an outgoing message.\nModerately useful for debugging, keeping track of your correspondents'\nmailer preferences, or just wearing your MUA on your sleeve.  You\nshould probably know that some people are fairly emotional about the\npresence of X-Mailer: lines in email.\n\nIf nil, nothing is done about X-Mailer:.\n\nIf t, an X-Mailer: header of a predetermined format is produced,\ncombining its efforts with any existing X-Mailer: header.  If you want\nto take the default construct and just add a little blob of your own\nat the end, define the variable feedmail-x-mailer-line-user-appendage\nas that blob string.  A value of t is equivalent to using the function\nfeedmail-default-x-mailer-generator.\n\nIf neither nil nor t, it may be a string, a fiddle-plex, or a function\nwhich returns either nil, t, a string, or a fiddle-plex (or, in fact,\nanother function, but let's not be ridiculous).  If a string, it\nshould be just the contents of the header, not the name of the header\nitself nor the trailing newline.  If a function, it will be called\nwith no arguments.  For an explanation of fiddle-plexes, see the\ndocumentation for the variable `feedmail-fiddle-plex-blurb'.  In all\ncases the name element of the fiddle-plex is ignored and is hardwired\nby feedmail to either \"X-Mailer\" or \"X-Resent-Mailer\"." (choice (const t) (const nil) string function) feedmail-message-id-generator #[0 "\300\207" [t] 1 #1#] "Specifies the creation of a Message-Id: header field.\n\nIf nil, nothing is done about Message-Id:.\n\nIf t, a Message-Id: header of a predetermined format is produced, but\nonly if there is not already a Message-Id: in the message.  A value of\nt is equivalent to using the function feedmail-default-message-id-generator.\n\nIf neither nil nor t, it may be a string, a fiddle-plex, or a function\nwhich returns either nil, t, a string, or a fiddle-plex (or, in fact,\nanother function, but let's not be ridiculous).  If a string, it\nshould be just the contents of the header, not the name of the header\nitself nor the trailing newline.  If a function, it will be called\nwith one argument: the possibly-nil name of the file associated with\nthe message buffer.  For an explanation of fiddle-plexes, see the\ndocumentation for the variable `feedmail-fiddle-plex-blurb'.  In all\ncases the name element of the fiddle-plex is ignored and is hardwired\nby feedmail to either \"Message-Id\" or \"Resent-Message-Id\".\n\nYou should let feedmail generate a Message-Id: for you unless you are sure\nthat whatever you give your messages to will do it for you (e.g., most\nconfigurations of sendmail).  Even if the latter case is true, it\nprobably won't hurt you to generate your own, and it will then show up\nin the saved message if you use Fcc:." (choice (const t) (const nil) function) feedmail-message-id-suffix #[0 "\300\207" [nil] 1 #1#] "If non-nil, used as a suffix for generating unique Message-Id: headers.\nThe function `feedmail-default-message-id-generator' creates its work based\non a formatted date-time string, a random number, and a domain-looking suffix.\nYou can control the suffix used by assigning a string value to this variable.\nIf you don't supply one, the value of the variable `user-mail-address' will be\nused.  If the value of `feedmail-message-id-suffix' contains an \"@\" character,\nthe string will be used verbatim, else an \"@\" character will be prepended\nautomatically." (choice (const nil) string) feedmail-date-generator #[0 "\300\207" [t] 1 #1#] "Specifies the creation of a Date: header field.\n\nIf nil, nothing is done about Date:.\n\nIf t, a Date: header of a predetermined format is produced, but only\nif there is not already a Date: in the message.  A value of t is\nequivalent to using the function `feedmail-default-date-generator'.\n\nIf neither nil nor t, it may be a string, a fiddle-plex, or a function\nwhich returns either nil, t, a string, or a fiddle-plex (or, in fact,\nanother function, but let's not be ridiculous).  If a string, it\nshould be just the contents of the header, not the name of the header\nitself nor the trailing newline.  If a function, it will be called\nwith one argument: the possibly-nil name of the file associated with\nthe message buffer.  For an explanation of fiddle-plexes, see the\ndocumentation for the variable `feedmail-fiddle-plex-blurb'.  In all\ncases the name element of the fiddle-plex is ignored and is hardwired\nby feedmail to either \"Date\" or \"Resent-Date\".\n\nIf you decide to format your own date field, do us all a favor and know\nwhat you're doing.  Study the relevant parts of RFC-822-or-later and RFC-1123.\nDon't make me come up there!\n\nYou should let feedmail generate a Date: for you unless you are sure\nthat whatever you give your messages to will do it for you (e.g., most\nconfigurations of sendmail).  Even if the latter case is true, it\nprobably won't hurt you to generate your own, and it will then show up\nin the saved message if you use Fcc:." (choice (const t) (const nil) function) feedmail-fiddle-headers-upwardly #[0 "\300\207" [t] 1 #1#] "Non-nil means fiddled header fields should go at the top of the header.\nnil means insert them at the bottom.  This is mostly a novelty issue since\nthe standards define the ordering of header fields to be immaterial and it's\nfairly likely that some MTA/MUA along the way will have its own idea of what the\norder should be, regardless of what you specify." feedmail-fiddle-plex-user-list #[0 "\300\207" [nil] 1 #1#] "If non-nil, should be a list of one or more fiddle-plexes.\nEach element of the list can also be a function which returns a\nfiddle-plex.\n\nfeedmail will use this list of fiddle-plexes to manipulate user-specified\nmessage header fields.  It does this after it has completed all normal\nmessage header field manipulation and before calling\n`feedmail-last-chance-hook'.\n\nFor an explanation of fiddle-plexes, see the documentation for the\nvariable `feedmail-fiddle-plex-blurb'.  In contrast to some other fiddle-plex\nmanipulation functions, in this context, it makes no sense to have an element\nwhich is nil, t, or a simple string." (repeat (choice function) sexp) feedmail-enable-spray #[0 "\300\207" [nil] 1 #1#] "If non-nil, transmit message separately to each addressee.\nfeedmail normally accumulates a list of addressees and passes the message\nalong with that list to a buffer-eating function which expects any number\nof addressees.  If this variable is non-nil, however, feedmail will\nrepeatedly call the same buffer-eating function.  Each time, the list of\naddressees will be just one item from the original list.  This only affects\nthe message envelope addresses and doesn't affect what appears in the\nmessage headers except as noted.\n\nSpray mode is usually pointless, and if you can't think of a good reason for\nit, you should avoid it since it is inherently less efficient than normal\nmultiple delivery.  One reason to use it is to overcome mis-featured mail\ntransports which betray your trust by revealing Bcc: addressees in the\nheaders of a message.  Another use is to do a crude form of mailmerge, for\nwhich see `feedmail-spray-address-fiddle-plex-list'.\n\nIf one of the calls to the buffer-eating function results in an error,\nwhat happens next is carelessly defined, so beware.  This should get ironed\nout in some future release, and there could be other API changes for spraying\nas well." feedmail-spray] 10)
#@81 Do not set this variable, except via `feedmail-spray-address-fiddle-plex-list'.
(defvar feedmail-spray-this-address nil (#$ . 21807))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable feedmail-spray-address-fiddle-plex-list funcall function #[0 "\300\207" [nil] 1 ""] "User-supplied specification for a crude form of mailmerge capability.\nWhen spraying is enabled, feedmail composes a list of envelope addresses.\nIn turn, `feedmail-spray-this-address' is temporarily set to each address\n(stripped of any comments and angle brackets) and a function is called which\nfiddles message headers according to this variable.  See the documentation for\n`feedmail-fiddle-plex-blurb', for an overview of fiddle-plex data structures.\n\nMay be nil, in which case nothing in particular is done about message\nheaders for specific addresses.\n\nMay be t, in which case a \"To:\" header is added to the message with\nthe stripped address as the header contents.  The fiddle-plex operator\nis `supplement'.\n\nMay be a string, in which case the string is assumed to be the name of\na message header field with the stripped address serving as the value.\nThe fiddle-plex operator is `supplement'.\n\nMay be a function, in which case it is called with no arguments and is\nexpected to return nil, t, a string, another function, or a fiddle-plex.\nThe result is used recursively.  The function may alter the value of the\nvariable feedmail-spray-this-address, perhaps to embellish it with a\nhuman name.  It would be logical in such a case to return as a value a\nstring naming a message header like \"TO\" or an appropriately constructed\nfiddle-plex.  For an example, see feedmail-spray-via-bbdb.\n\nMay be a list of any combination of the foregoing and/or\nfiddle-plexes.  (A value for this variable which consists of a single\nfiddle-plex must be nested inside another list to avoid ambiguity.)\nIf a list, each item is acted on in turn as described above.\n\nFor example,\n\n  (setq feedmail-spray-address-fiddle-plex-list \\='feedmail-spray-via-bbdb)\n\nThe idea of the example is that, during spray mode, as each message is\nabout to be transmitted to an individual address, the function will be\ncalled and will consult `feedmail-spray-this-address' to find the\nstripped envelope email address (no comments or angle brackets).  The\nfunction should return an embellished form of the address.\n\nThe recipe for sending form letters is: (1) create a message with\nall addressees on Bcc: headers; (2) tell feedmail to remove Bcc:\nheaders before sending the message; (3) create a function which\nwill embellish stripped addresses, if desired; (4) define\n`feedmail-spray-address-fiddle-plex-list' appropriately; (5) send\nthe message with `feedmail-enable-spray' set non-nil; (6) stand\nback and watch co-workers wonder at how efficient you are at\naccomplishing inherently inefficient things." :group feedmail-spray :type sexp] 8)
#@148 Example function for use with feedmail spray mode.
NB: it's up to the user to have the BBDB environment already set up properly
before using this.
(defalias 'feedmail-spray-via-bbdb #[0 "\301\211\211\302\303!\304Q\262\305\306 \301\211$\262@\203%A\204%@\262\202(\301\262\2031\307!\262
\211\203:\310
\311E\207\310\311E\207" [feedmail-spray-this-address nil "^" regexp-quote "$" bbdb-search bbdb-records bbdb-dwim-net-address "To" supplement] 8 (#$ . 24774)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\311&\210\300\315\302\303\316DD\317\306\307\310\320&\210\300\321\302\303\322DD\323\306\307\310\320&\210\300\324\302\303\325DD\326\306\307\310\311&\210\300\327\302\303\330DD\331\306\307\310\320&\210\300\332\302\303\333DD\334\306\307\310\320&\210\300\335\302\303\336DD\337\306\307\310\340&\207" [custom-declare-variable feedmail-enable-queue funcall function #[0 "\300\207" [nil] 1 #1=""] "If non-nil, provide for stashing outgoing messages in a queue.\nThis is the master on/off switch for feedmail message queuing.\nQueuing is quite handy for laptop-based users.  It's also handy if you\nget a lot of mail and process it more or less sequentially.  For\nexample, you might change your mind about contents of a reply based on\na message you see a bit later.\n\nThere is a separate queue for draft messages, intended to prevent\nyou from accidentally sending incomplete messages.  The queues are\ndisk-based and intended for later transmission.  The messages are\nqueued in their raw state as they appear in the `mail-mode' buffer and\ncan be arbitrarily edited later, before sending, by visiting the\nappropriate file in the queue directory (and setting the buffer to\nmail-mode or whatever).  If you visit a file in the queue directory\nand try to queue it again, it will just get saved in its existing file\nname.  You can move a message from the draft to the main queue or vice\nversa by pretending to send it and then selecting whichever queue\ndirectory you want at the prompt.  The right thing will happen.\n\nTo transmit all the messages in the queue, invoke the command\n`feedmail-run-the-queue' or `feedmail-run-the-queue-no-prompts'." :group feedmail-queue :type boolean feedmail-queue-runner-confirm-global #[0 "\300\207" [nil] 1 #1#] "If non-nil, give a y-or-n confirmation prompt before running the queue.\nPrompt even if the queue is about to be processed as a result of a call to\n`feedmail-run-the-queue-no-prompts'.  This gives you a way to bail out\nwithout having to answer no to the individual message prompts." feedmail-queue-directory #[0 "\300\301!\207" [expand-file-name "~/mail/q"] 2 #1#] "Name of a directory where messages will be queued.\nDirectory will be created if necessary.  Should be a string that\ndoesn't end with a slash.  Default is \"~/mail/q\"." string feedmail-queue-draft-directory #[0 "\300\301!\207" [expand-file-name "~/mail/draft"] 2 #1#] "Name of a directory where draft messages will be queued.\nDirectory will be created if necessary.  Should be a string that\ndoesn't end with a slash.  Default is \"~/mail/draft\"." feedmail-ask-before-queue #[0 "\300\207" [t] 1 #1#] "If non-nil, feedmail will ask what you want to do with the message.\nDefault choices for the message action prompt will include sending it\nimmediately, putting it in the main queue, putting it in the draft\nqueue, or returning to the buffer to continue editing.  Only matters if\nqueuing is enabled.  If nil, the message is placed in the main queue\nwithout a prompt." feedmail-ask-before-queue-prompt #[0 "\300\207" ["FQM: Message action (q, i, d, e, ?)? [%s]: "] 1 #1#] "A string which will be used for the message action prompt.\nIf it contains a \"%s\", that will be replaced with the value of\n`feedmail-ask-before-queue-default'." feedmail-ask-before-queue-reprompt #[0 "\300\207" ["FQM: Please type q, i, d, or e; or ? for help [%s]: "] 1 #1#] "A string which will be used for reprompting after invalid input.\nIf it contains a \"%s\", that will be replaced with the value of\n`feedmail-ask-before-queue-default'." feedmail-ask-before-queue-default #[0 "\300\207" ["queue"] 1 #1#] "Meaning if user hits return in response to the message action prompt.\nShould be a character or a string; if a string, only the first\ncharacter is significant.  Useful values are those described in\nthe help for the message action prompt." (choice string integer)] 8)
#@571 An alist of choices for the message action prompt.
All of the values are function names, except help, which is a special
symbol that calls up help for the prompt (the help describes the
actions from the standard alist).  To customize your own choices,
define a similar alist called `feedmail-prompt-before-queue-user-alist'.
The actual alist used for message action will be the standard alist
overlaid with the user-alist.  To neutralize an item in the standard
alist without providing a replacement, define an appropriate element
in the user alist with a value of nil.
(defvar feedmail-prompt-before-queue-standard-alist '((113 . feedmail-message-action-queue) (81 . feedmail-message-action-queue-strong) (100 . feedmail-message-action-draft) (114 . feedmail-message-action-draft) (68 . feedmail-message-action-draft-strong) (82 . feedmail-message-action-draft-strong) (101 . feedmail-message-action-edit) (69 . feedmail-message-action-edit) (7 . feedmail-message-action-edit) (110 . feedmail-message-action-edit) (78 . feedmail-message-action-edit) (105 . feedmail-message-action-send) (73 . feedmail-message-action-send-strong) (115 . feedmail-message-action-send) (83 . feedmail-message-action-send-strong) (42 . feedmail-message-action-toggle-spray) (62 . feedmail-message-action-scroll-up) (60 . feedmail-message-action-scroll-down) (32 . feedmail-message-action-scroll-up) (63 . feedmail-message-action-help)) (#$ . 29238))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\315&\210\300\316\302\303\317DD\320\306\307\310\321&\210\300\322\302\303\323DD\324\306\307\310\325&\210\300\326\302\303\327DD\330\306\307\310\331&\210\300\332\302\303\333DD\334\306\307\310\335&\210\300\336\302\303\337DD\340\306\307\310\325&\210\300\341\302\303\342DD\343\306\307\310\325&\210\300\344\302\303\345DD\346\306\307\310\325&\210\300\347\302\303\350DD\351\306\307\310\352&\210\300\353\302\303\354DD\355\356\357\306\307\310\360&	\210\300\361\302\303\362DD\363\306\307\310\364&\210\300\365\302\303\366DD\367\306\307\310\370&\210\300\371\302\303\372DD\373\306\307\310\325&\210\300\374\302\303\375DD\376\306\307\310\325&\210\300\377\302\303\201@DD\201A\356\357\306\377\310\325&	\210\300\201B\302\303\201CDD\201D\356\357\306\377\310\331&	\207" [custom-declare-variable feedmail-prompt-before-queue-user-alist funcall function #[0 "\300\207" [nil] 1 #1=""] "See `feedmail-prompt-before-queue-standard-alist'." :group feedmail-queue :type (repeat (cons character function)) feedmail-prompt-before-queue-help-supplement #[0 "\300\207" [nil] 1 #1#] "User-provided supplementary help string for the message action prompt.\nWhen the message action prompt is shown, the user can as for verbose help,\nat which point a buffer pops up describing the meaning of possible\nresponses to the prompt.  Through various customizations (see, for\nexample, `feedmail-prompt-before-queue-user-alist'), the available responses\nand the prompt itself can be changed.  If this variable is set to a string\nvalue, that string is written to the help buffer after the standard info.\nIt may contain embedded line breaks.  It will be printed via `princ'." (choice (const nil) string) feedmail-queue-reminder-alist #[0 "\300\207" [((after-immediate . feedmail-queue-reminder-brief) (after-queue . feedmail-queue-reminder-medium) (after-draft . feedmail-queue-reminder-medium) (after-run . feedmail-queue-reminder-brief) (on-demand . feedmail-run-the-queue-global-prompt))] 1 #1#] "See `feedmail-queue-reminder'." (repeat (cons (choice :tag "Event" (const on-demand) (const after-immediate) (const after-queue) (const after-draft) (const after-run)) function)) feedmail-queue-chatty #[0 "\300\207" [t] 1 #1#] "If non-nil, blat a few status messages and such in the mini-buffer.\nIf nil, just do the work and don't pester people about what's going on.\nIn some cases, though, specific options inspire mini-buffer prompting.\nThat's not affected by this variable setting.  Also does not control\nreporting of error/abnormal conditions." boolean feedmail-queue-chatty-sit-for #[0 "\300\207" [2] 1 #1#] "Duration of pause after most queue-related messages.\nAfter some messages are divulged, it is prudent to pause before\nsomething else obliterates them.  This value controls the duration of\nthe pause." integer feedmail-queue-run-orderer #[0 "\300\207" [nil] 1 #1#] "If non-nil, name a function which will sort the queued messages.\nThe function is called during a running of the queue for sending, and\ntakes one argument, a list of the files in the queue directory.  It\nmay contain the names of non-message files, and it's okay to leave\nthem in the list when reordering it; they get skipped over later.\nWhen nil, the default action processes the messages in normal sort\norder by queued file name, which will typically result in the order\nthey were placed in the queue." (choice (const nil) function) feedmail-queue-use-send-time-for-date #[0 "\300\207" [nil] 1 #1#] "If non-nil, use send time for the Date: header value.\nThis variable is used by the default date generating function,\nfeedmail-default-date-generator.  If nil, the default, the\nlast-modified timestamp of the queue file is used to create the\nmessage Date: header; if there is no queue file, the current time\nis used.  If you are using VM, it might be supplying this header\nfor you.  To suppress VM's version\n\n	(setq vm-mail-header-insert-date nil)" feedmail-queue-use-send-time-for-message-id #[0 "\300\207" [nil] 1 #1#] "If non-nil, use send time for the Message-Id: header value.\nThis variable is used by the default Message-Id: generating function,\n`feedmail-default-message-id-generator'.  If nil, the default, the\nlast-modified timestamp of the queue file is used to create the\nmessage Message-Id: header; if there is no queue file, the current time is\nused.  If you are using VM, it might be supplying this header for\nyou.  To suppress VM's version\n\n	(setq vm-mail-header-insert-date nil)" feedmail-ask-for-queue-slug #[0 "\300\207" [nil] 1 #1#] "If non-nil, prompt user for part of the queue file name.\nThe file will automatically get the FQM suffix and an embedded\nsequence number for uniqueness, so don't specify that.  feedmail will\nget rid of all characters other than alphanumeric and hyphen in the\nresults.  If this variable is nil or if you just hit return in\nresponse to the prompt, feedmail queuing will take care of things\nproperly.  At the prompt, completion is available if you want to see\nwhat filenames are already in use, though, as noted, you will not be\ntyping a complete file name.  You probably don't want to be bothered\nwith this prompting since feedmail, by default, uses queue file names\nbased on the subjects of the messages." feedmail-queue-slug-maker #[0 "\300\207" [feedmail-queue-subject-slug-maker] 1 #1#] "If non-nil, a function which creates part of the queued file name.\nTakes a single argument giving the name of the directory into\nwhich the message will be queued.  The returned string should be just\nthe non-directory filename part, without FQM suffix or uniquifying\nsequence numbers.  The current buffer holds the raw message.  The\ndefault function creates the slug based on the message subject, if\nany." (choice (const nil) function) feedmail-queue-slug-suspect-regexp #[0 "\300\207" ["[^a-z0-9-]+"] 1 #1#] "Regular expression for characters/substrings to be replaced.\nWhen feedmail creates a filename from a subject string, it puts hyphens\nin place of strings which may cause problems in filenames.  By default,\nonly alphanumeric and hyphen characters are kept, and all others are\nconverted.  In non-ASCII environments, it may be more helpful to\ntweak this regular expression to reflect local or personal language\nconventions.  Substitutions are done repeatedly until the regular expression\nno longer matches to transformed string.  Used by function\nfeedmail-tidy-up-slug and indirectly by feedmail-queue-subject-slug-maker." :version "24.1" regexp feedmail-queue-default-file-slug #[0 "\300\207" [t] 1 #1#] "Indicates what to use for subject-less messages when forming a file name.\nWhen feedmail queues a message, it creates a unique file name.  By default,\nthe file name is based in part on the subject of the message being queued.\nIf there is no subject, consult this variable.  See documentation for the\nfunction `feedmail-queue-subject-slug-maker'.\n\nIf t, an innocuous default is used.\n\nIf a string, it is used directly.\n\nIf a function, it is called with no arguments from the buffer containing the raw\ntext of the message.  It must return a string (which may be empty).\n\nIf the symbol `ask', you will be prompted for a string in the mini-buffer.\nFilename completion is available so that you can inspect what's already been\nused, but feedmail will do further manipulation on the string you return, so\nit's not expected to be a complete filename." (choice (const :tag "Default" t) string function (const ask)) feedmail-queue-fqm-suffix #[0 "\300\207" [".fqm"] 1 #1#] "The FQM suffix used to distinguish feedmail queued message files.\nYou probably want this to be a period followed by some letters and/or\ndigits.  The distinction is to be able to tell them from other random\nfiles that happen to be in the `feedmail-queue-directory' or\n`feedmail-queue-draft-directory'.  By the way, FQM stands for feedmail\nqueued message." string feedmail-nuke-buffer-after-queue #[0 "\300\207" [nil] 1 #1#] "If non-nil, silently kill the buffer after a message is queued.\nYou might like that since a side-effect of queueing the message is\nthat its buffer name gets changed to the filename.  That means that\nthe buffer won't be reused for the next message you compose.  If you\nare using VM for creating messages, you probably want to leave this\nnil, since VM has its own options for managing the recycling of\nmessage buffers." feedmail-queue-auto-file-nuke #[0 "\300\207" [nil] 1 #1#] "If non-nil, automatically delete queue files when a message is sent.\nNormally, feedmail will notice such files when you send a message in\nimmediate mode (i.e., not when you're running the queue) and will ask if\nyou want to delete them.  Since the answer is usually yes, setting this\nvariable to non-nil will tell feedmail to skip the prompt and just delete\nthe file without bothering you." feedmail-debug #[0 "\300\207" [nil] 1 #1#] "If non-nil, blat a debug messages and such in the mini-buffer.\nThis is intended as an aid to tracing what's going on but is probably\nof casual real use only to the feedmail developer." feedmail-debug-sit-for #[0 "\300\207" [0] 1 #1#] "Duration of pause after feedmail-debug messages.\nAfter some messages are divulged, it may be helpful to pause before\nsomething else obliterates them.  This value controls the duration of\nthe pause.  If the value is nil or 0, the `sit-for' is not done, which\nhas the effect of not pausing at all.  Debug messages can be seen after\nthe fact in the messages buffer."] 10)
#@1442 If non-nil, has the value normally expected of `buffer-file-name'.
You are not intended to set this to something in your configuration.  Rather,
you might programmatically set it to something via a hook or function
advice or whatever.  You might like to do this if you are using a mail
composition program that eventually uses sendmail.el's `mail-send'
function to process the message.  If there is a filename associated
with the message buffer, `mail-send' will ask you for confirmation.
There's no trivial way to avoid it.  It's unwise to just set the value
of `buffer-file-name' to nil because that will defeat feedmail's file
management features.  Instead, arrange for this variable to be set to
the value of `buffer-file-name' before setting that to nil.  An easy way
to do that would be with an advice on `mail-send'.

feedmail will pretend that `buffer-file-name', if nil, has the value
assigned of `feedmail-queue-buffer-file-name' and carry out its normal
activities.  feedmail does not restore the non-nil value of
`buffer-file-name'.  For safe bookkeeping, the user should ensure that
feedmail-queue-buffer-file-name is restored to nil.

Example advice for mail-send:

    (advice-add 'mail-send :around #'my-feedmail-mail-send-advice)
    (defun my-feedmail-mail-send-advice (orig-fun &rest args)
      (let ((feedmail-queue-buffer-file-name buffer-file-name)
             (buffer-file-name nil))
        (apply orig-fun args)))
(defvar feedmail-queue-buffer-file-name nil (#$ . 40274))
(defvar feedmail-error-buffer nil)
(defvar feedmail-prepped-text-buffer nil)
(defvar feedmail-raw-text-buffer nil)
(defvar feedmail-address-list nil)
#@392 Non-nil means we're inside the logic of the queue-running loop.
That is, iterating over all messages in the queue to send them.  In
that case, the value is the name of the queued message file currently
being processed.  This can be used for differentiating customized code
for different scenarios.  Users shouldn't set or change this
variable, but may depend on its value as described here.
(defvar feedmail-queue-runner-is-active nil (#$ . 41930))
#@881 Facilitate dividing `mail-send-hook' things into queued and immediate cases.
If you have `mail-send-hook' functions that should only be called
for sending/ queueing messages or only be called for the sending
of queued messages, this is for you.  Add this function to
`mail-send-hook' with something like this:

	(add-hook \='mail-send-hook \='feedmail-mail-send-hook-splitter)

Then add the functions you want called to either
`feedmail-mail-send-hook-queued' or `feedmail-mail-send-hook', as
appropriate.  The distinction is that `feedmail-mail-send-hook'
will be called when you send mail from a composition
buffer (typically by typing C-c C-c), whether the message is sent
immediately or placed in the queue or drafts directory.
`feedmail-mail-send-hook-queued' is called when messages are
being sent from the queue directory, typically via a call to
`feedmail-run-the-queue'.
(defalias 'feedmail-mail-send-hook-splitter #[0 "\301\302\"\210\203
\303\304!\207\303\305!\207" [feedmail-queue-runner-is-active feedmail-say-debug ">in-> feedmail-mail-send-hook-splitter %s" run-hooks feedmail-mail-send-hook-queued feedmail-mail-send-hook] 3 (#$ . 42386)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\311&\207" [custom-declare-variable feedmail-mail-send-hook funcall function #[0 "\300\207" [nil] 1 #1=""] "Hook run by `feedmail-mail-send-hook-splitter' for immediate mail.\nSee documentation of `feedmail-mail-send-hook-splitter' for details." :type hook :group feedmail feedmail-mail-send-hook-queued #[0 "\300\207" [nil] 1 #1#] "Hook run by `feedmail-mail-send-hook-splitter' for queued mail.\nSee documentation of `feedmail-mail-send-hook-splitter' for details."] 8)
#@188 An example of a `feedmail-last-chance-hook'.
It shows the simple addresses and gets a confirmation.  Use as:
 (setq feedmail-last-chance-hook \='feedmail-confirm-addresses-hook-example).
(defalias 'feedmail-confirm-addresses-hook-example #[0 "\301 \302\303\"\216\304\305\306!q!\210\307 \210\310\311\312#c\210\313\314!?\205\"\315\316!)\207" [feedmail-address-list current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] display-buffer get-buffer-create " F-C-A-H-E" erase-buffer mapconcat identity " " y-or-n-p "How do you like them apples? " error "FQM: Sending...gave up in last chance hook"] 5 (#$ . 44122)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\315\316\306\317\310\311&	\210\300\320\302\303\321DD\322\306\307\310\311&\210\300\323\302\303\324DD\325\306\317\310\303&\210\300\326\302\303\327DD\330\306\317\310\331&\210\300\332\302\303\333DD\334\315\316\306\317\310\303&	\210\300\335\302\303\336DD\337\306\317\310\303&\207" [custom-declare-variable feedmail-last-chance-hook funcall function #[0 "\300\207" [nil] 1 #1=""] "User's last opportunity to modify the message on its way out.\nWhen this hook runs, the current buffer is already the appropriate\nbuffer.  It has already had all the header prepping from the standard\npackage.  The next step after running the hook will be to save the\nmessage via Fcc: processing.  The hook might be interested in these:\n(1) `feedmail-prepped-text-buffer' contains the header and body of the\nmessage, ready to go; (2) `feedmail-address-list' contains a list\nof simplified recipients of addresses which are to be given to the\nsubprocess (the hook may change the list); (3) `feedmail-error-buffer'\nis an empty buffer intended to soak up errors for display to the user.\nIf the hook allows interactive activity, the user should not send more\nmail while in the hook since some of the internal buffers will be\nreused and things will get confused.  It's not necessary to\narrange for the undoing of any changes you make to the buffer." :group feedmail-misc :type hook feedmail-queue-express-hook #[0 "\300\207" [nil] 1 #1#] "Chance to modify a message being sent directly to a queue.\nRun by feedmail-queue-express-to-queue and feedmail-queue-express-to-draft.\nFor example, you might want to run vm-mime-encode-composition to take\ncare of attachments.  If you subsequently edit the message buffer, you\ncan undo the encoding." :version "24.1" feedmail-queue feedmail-before-fcc-hook #[0 "\300\207" [nil] 1 #1#] "User's last opportunity to modify the message before Fcc action.\nIt has already had all the header prepping from the standard package.\nThe next step after running the hook will be to save the message via\nFcc: processing.  The hook might be interested in these: (1)\n`feedmail-prepped-text-buffer' contains the header and body of the\nmessage, ready to go; (2) `feedmail-address-list' contains a list of\nsimplified recipients of addressees to whom the message was sent (3)\n`feedmail-error-buffer' is an empty buffer intended to soak up errors\nfor display to the user.  If the hook allows interactive activity, the\nuser should not send more mail while in the hook since some of the\ninternal buffers will be reused and things will get confused." feedmail-queue-runner-mode-setter #[0 "\300\207" [#[256 "\300 \207" [mail-mode] 2 "\n\n(fn &optional _)"]] 1 #1#] "A function to set the proper mode of a message file.\nCalled when the message is read back out of the queue directory with a single\nargument, the optional argument used in the call to\n`feedmail-run-the-queue' or `feedmail-run-the-queue-no-prompts'.\n\nMost people want `mail-mode', so the default value is an anonymous\nfunction which is just a wrapper to ignore the supplied argument when\ncalling it, but here's your chance to have something different.\nIf you are a VM user, you might like feedmail-vm-mail-mode, though you\nreally don't need that (and it's not particularly well-tested).\n\nCalled with funcall, not `call-interactively'." feedmail-queue-alternative-mail-header-separator #[0 "\300\207" [nil] 1 #1#] "Alternative header demarcation for queued messages.\nIf you sometimes get alternative values for `mail-header-separator' in\nqueued messages, set the value of this variable to whatever it is.\nFor example, `rmail-resend' uses a `mail-header-separator' value of empty\nstring (\"\") when you send/queue a message.\n\nWhen trying to send a queued message, if the value of this variable is\nnon-nil, feedmail will first try to send the message using the value\nof `mail-header-separator'.  If it can't find that, it will temporarily\nset `mail-header-separator' to the value of\n`feedmail-queue-alternative-mail-header-separator' and try again." (choice (const nil) string) feedmail-queue-runner-message-sender #[0 "\300\207" [#[256 "\300\301!\210\302 \207" [require sendmail mail-send] 3 "\n\n(fn &optional _)"]] 1 #1#] "Function to initiate sending a message file.\nCalled for each message read back out of the queue directory with a\nsingle argument, the optional argument used in the call to\n`feedmail-run-the-queue' or `feedmail-run-the-queue-no-prompts'.\nInteractively, that argument will be the prefix argument.\nMost people want `mail-send' (bound to C-c C-s in mail-mode), but here's\nyour chance to have something different.  The default value is just a\nwrapper function which discards the optional argument and calls\nmail-send.  If you are a VM user, you might like vm-mail-send, though\nyou really don't need that.  Called with funcall, not call-interactively." feedmail-queue-runner-cleaner-upper #[0 "\300\207" [#[513 "\300!\210\211\205\f\301\302\"\207" [delete-file feedmail-say-chatter "Nuked %s"] 5 "\n\n(fn FQM-FILE &optional ARG)"]] 1 #1#] "Function that will be called after a message has been sent.\nNot called in the case of errors.  This function is called with two\narguments: the name of the message queue file for the message just sent,\nand the optional argument used in the call to `feedmail-run-the-queue'\nor `feedmail-run-the-queue-no-prompts' (prefix arg if interactive).\nIn any case, the affiliated buffer is killed elsewhere, so don't do that\ninside this function.  Return value is ignored.\n\nThe default action is an anonymous function which gets rid of the file\nfrom the queue directory.  With a non-nil second argument, a brief\nmessage is give for each file deleted.  You could replace this\nfunction, for example, to archive all of your sent messages someplace\n(though there are better ways to get that particular result)."] 10)
#@345 Non-nil means the message is a Resend (in the RFC-822-or-later sense).
This affects the composition of certain headers.  feedmail sets this
variable as soon as it starts prepping the message text buffer, so any
user-supplied functions can rely on it.  Users shouldn't set or change this
variable, but may depend on its value as described here.
(defvar feedmail-is-a-resend nil (#$ . 50746))
(byte-code "\300\301\302\303\304DD\305\306\307\310\303&\207" [custom-declare-variable feedmail-buffer-eating-function funcall function #[0 "\300\207" [feedmail-buffer-to-binmail] 1 ""] "Function used to send the prepped buffer to a subprocess.\nThe function's three (mandatory) arguments are: (1) the buffer\ncontaining the prepped message; (2) a buffer where errors should be\ndirected; and (3) a list containing the addresses individually as\nstrings.  Popular choices for this are `feedmail-buffer-to-binmail',\n`feedmail-buffer-to-smtpmail', `feedmail-buffer-to-sendmail', and\n`feedmail-buffer-to-smtp'.  If you use the sendmail form, you probably\nwant to set `feedmail-nuke-bcc' and/or `feedmail-nuke-resent-bcc to nil'.\nIf you use the binmail form, check the value of `feedmail-binmail-template'." :group feedmail-misc :type] 8)
#@241 Good candidate for GNU/Linux systems and maybe others.
You may need to modify this if your "rmail" is in a different place.
For example, I hear that in some Debian systems, it's /usr/sbin/rmail.
See feedmail-binmail-template documentation.
(defconst feedmail-binmail-gnulinuxish-template (byte-code "\301\302\300!\203\202\f\303\304Q\207" [user-login-name "(echo From " boundp "feedmail" " ; cat -) | /usr/bin/rmail %s"] 3) (#$ . 51983))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\207" [custom-declare-variable feedmail-binmail-template funcall function #[0 "\203\301\207\302\303!\203\304\207\301\207" [mail-interactive "/bin/mail %s" file-exists-p "/bin/rmail" "/bin/rmail %s"] 2 ""] "Command template for the subprocess which will get rid of the mail.\nIt can result in any command understandable by /bin/sh.  Might not\nwork at all in non-UNIX environments.  The single `%s', if present,\ngets replaced by the space-separated, simplified list of addressees.\nUsed in `feedmail-buffer-to-binmail' to form the shell command which\nwill receive the contents of the prepped buffer as stdin.  The default\nvalue uses /bin/rmail (if it exists) unless `mail-interactive' has been\nset non-nil.\n\nIf you'd like your errors to come back as mail instead of immediately\nin a buffer, try /bin/rmail instead of /bin/mail.  If /bin/rmail\nexists, this can be accomplished by keeping the default nil setting of\n`mail-interactive'.  You might also like to consult local mail experts\nfor any other interesting command line possibilities.  Some versions\nof UNIX have an rmail program which behaves differently from\n/bin/rmail and complains if feedmail gives it a message on stdin.  If\nyou don't know about such things and if there is no local expert to\nconsult, stick with /bin/mail or use one of the other buffer eating\nfunctions.\n\nThe above description applies to \"classic\" UNIX /bin/mail and /bin/rmail.\nOn most GNU/Linux systems and perhaps other places, /bin/mail behaves\ncompletely differently and shouldn't be used at all in this template.\nInstead of /bin/rmail, there is a /usr/bin/rmail, and it can be used\nwith a wrapper.  The wrapper is necessary because /usr/bin/rmail on such\nsystems requires that the first line of the message appearing on standard\ninput have a UNIX-style From_ postmark.  If you have such a system, the\nwrapping can be accomplished by setting the value of `feedmail-binmail-template'\nto `feedmail-binmail-gnulinuxish-template'.  You should then send some test\nmessages to make sure it works as expected." :version "24.1" :group feedmail-misc :type string] 10)
#@119 Function which actually calls /bin/mail as a subprocess.
Feeds the buffer to it.

(fn PREPPED ERRORS-TO ADDR-LISTOID)
(defalias 'feedmail-buffer-to-binmail #[771 "\301\302\"\210q\210\303\304\305ed\306\307\307\310\311\312\313\314#\"\257!\"\207" [feedmail-binmail-template feedmail-say-debug ">in-> feedmail-buffer-to-binmail %s" apply call-process-region append "/bin/sh" nil "-c" format mapconcat identity " "] 19 (#$ . 54619)])
#@314 Function which actually calls sendmail as a subprocess.
Feeds the buffer to it.  Probably has some flaws for Resent-* and other
complicated cases.  Takes addresses from message headers and
might disappoint you with Bcc: handling.  In case of odd results, consult
local gurus.

(fn PREPPED ERRORS-TO ADDR-LISTOID)
(defalias 'feedmail-buffer-to-sendmail #[771 "\304\305!\210\306\307\"\210q\210\310\311\312ed\313\313\314\315\257	\205!\316\nD?\205'\317#\"\207" [sendmail-program feedmail-sendmail-f-doesnt-sell-me-out user-mail-address mail-interactive require sendmail feedmail-say-debug ">in-> feedmail-buffer-to-sendmail %s" apply call-process-region append nil "-oi" "-t" "-f" ("-oem" "-odb")] 14 (#$ . 55063)])
#@114 Function which actually calls `smtpmail-via-smtp' to send buffer as e-mail.

(fn PREPPED ERRORS-TO ADDR-LISTOID)
(defalias 'feedmail-buffer-to-smtpmail #[771 "\302\303\"\210\304\305!\210\306
\"\211\205,q\210\307
\261\210\310\311\312!P
\313\314\315\"\316 \")\266\202\207" [smtpmail-smtp-server case-fold-search feedmail-say-debug ">in-> feedmail-buffer-to-smtpmail %s" require smtpmail smtpmail-via-smtp "Send via smtpmail failed: " t "trace.*smtp.*" regexp-quote mapcar make-closure #[257 "\301\300\302!\"\205\303\302!\304\261\210\305
!\210\306c\207" [V0 string-match buffer-name "SMTP Trace from " "\n---------------" insert-buffer-substring "\n\n"] 5 "\n\n(fn BUFFY)"] buffer-list] 10 (#$ . 55791)])
#@108 Function which actually calls smtp-via-smtp to send buffer as e-mail.

(fn PREPPED ERRORS-TO ADDR-LISTOID)
(defalias 'feedmail-buffer-to-smtp #[771 "\303\304\"\210\305\306!\210\307#?\205.
q\210\310c\210\311c\210\312\313\314	!P
\315\316\317\"\320 \")\266\202\207" [user-mail-address smtp-server case-fold-search feedmail-say-debug ">in-> feedmail-buffer-to-smtp %s" require smtp smtp-via-smtp "Send via smtp failed.  Probable SMTP protocol error.\n" "Look for details below or in the *Messages* buffer.\n\n" t "trace.*smtp.*" regexp-quote mapcar make-closure #[257 "\301\300\302!\"\205\303\302!\304\261\210\305
!\210\306c\207" [V0 string-match buffer-name "SMTP Trace from " "\n---------------" insert-buffer-substring "\n\n"] 5 "\n\n(fn BUFFY)"] buffer-list] 9 (#$ . 56513)])
#@2729 A fiddle-plex is a concise way of specifying header field fiddling.
It is a list of up to 4 elements: NAME, VALUE, ACTION, FOLDING.  The element
VALUE can also be a list sometimes.

NAME is the name of the header field to be fiddled with.  Although case
doesn't matter in looking for headers, case of NAME is preserved when a header
is inserted via fiddling.  It shouldn't include the trailing colon.

VALUE is either nil, a simple string, a function returning nil or a string, or,
as described below for ACTION `combine', a list of up to three values.

ACTION describes the nature of the fiddling to be done.  Possibilities
for ACTION (default is `supplement'):

  `supplement'  Leave other like fields as-is, insert this one.

  `replace'     Delete other like fields, if any, and insert this one.

  `create'      Insert this one only if no like field exists.

  `combine'     Combine aggregate values of like fields with this one.
                In this case, VALUE has a special form.  It is a list
                of three items: VAL-PRE, VAL-LIKE, and VAL-POST.
                VAL-PRE and VAL-POST are strings or nil.  VAL-LIKE may
                be either a string or a function (it may also be nil,
                but there's not much point to that).

                Values of like header fields are aggregated, leading and
                trailing whitespace is removed, and embedded
                whitespace is left as-is.  If there are no like
                fields, or the aggregate value is an empty string,
                VAL-LIKE is not used.  Else, if VAL-LIKE is a function,
                it is called with two arguments: NAME and the
                aggregate like values.  Else, if VAL-LIKE is a string, it is
                used as a format string where a single %s will be
                replaced by the aggregate values of like fields.

                VAL-PRE, the results of using VAL-LIKE, and VAL-POST
                are concatenated, and the result, if not nil and not
                an empty string, is used as the new value for the
                field.  Although this description sounds a bit
                complicated, the idea is to provide a mechanism for
                combining the old value with a new value in a flexible
                way.  For example, if you wanted to add a new value to
                an existing header field by adding a semi-colon and
                then starting the new value on a continuation line,
                you might specify this:

                 (nil "%s;\n\t" "This is my new value")

FOLDING can be nil, in which case VALUE is used as-is.  If FOLDING is
non-nil, feedmail "smart filling" is done on VALUE just before
insertion.
(defconst feedmail-fiddle-plex-blurb nil (#$ . 57309))
#@461 Make something like a buffer that has been created via `vm-mail'.
The optional argument is ignored and is just for argument compatibility with
`feedmail-queue-runner-mode-setter'.  This function is suitable for being
applied to a file after you've just read it from disk: for example, a
feedmail FQM message file from a queue.  You could use something like
this:

    (add-to-list 'auto-mode-alist \='("\\.fqm\\\='" . feedmail-vm-mail-mode))

(fn &optional _)
(defalias 'feedmail-vm-mail-mode #[256 "\301\302!\210p\303 \210ed|\210\304
!\210\300
!\305\306!!\210r\211q\210\305\307!\210)\310
!\207" [buffer-file-name feedmail-say-debug ">in-> feedmail-vm-mail-mode" vm-mail insert-buffer-substring set-buffer-modified-p buffer-modified-p nil kill-buffer] 5 (#$ . 60099)])
#@199 Send the current mail buffer using the Feedmail package.
This is a suitable value for `send-mail-function'.  It can be used
with various lower-level mechanisms to provide features such as queueing.
(defalias 'feedmail-send-it #[0 "\306\307!\210\212\310\204	\203	\311\262
\n\203\312\n!\203#\312!\f\204-\313 \210\202=
\2038\314  \210\202=\315\n\316\"\210\211\205D\211\262
)\207" [buffer-file-name feedmail-queue-buffer-file-name feedmail-queue-directory feedmail-queue-draft-directory feedmail-enable-queue feedmail-ask-before-queue feedmail-say-debug ">in-> feedmail-send-it" nil t expand-file-name feedmail-send-it-immediately-wrapper feedmail-queue-send-edit-prompt feedmail-dump-message-to-queue after-queue] 4 (#$ . 60877)])
(defalias 'feedmail-message-action-send #[0 "\300\301!\210\302\303!\210\304 \207" [feedmail-say-debug ">in-> feedmail-message-action-send" message "FQM: Immediate send..." feedmail-send-it-immediately-wrapper] 2])
#@72 Send message directly to the queue, with a minimum of fuss and bother.
(defalias 'feedmail-queue-express-to-queue #[0 "\304\305!\210\306\307!\210\310\311\211\312\313 ,\207" [feedmail-queue-chatty-sit-for feedmail-queue-reminder-alist feedmail-ask-before-queue feedmail-enable-queue feedmail-say-debug ">in-> feedmail-queue-express-to-queue" run-hooks feedmail-queue-express-hook t nil 0 feedmail-send-it] 4 (#$ . 61845) nil])
#@78 Send message directly to the draft queue, with a minimum of fuss and bother.
(defalias 'feedmail-queue-express-to-draft #[0 "\302\303!\210\304 )\207" [feedmail-queue-draft-directory feedmail-queue-directory feedmail-say-debug ">in-> feedmail-queue-express-to-draft" feedmail-queue-express-to-queue] 2 (#$ . 62281) nil])
(defalias 'feedmail-message-action-send-strong #[0 "\301\302!\210\303\304 )\207" [feedmail-confirm-outgoing feedmail-say-debug ">in-> feedmail-message-action-send-strong" nil feedmail-message-action-send] 2])
(defalias 'feedmail-message-action-edit #[0 "\300\301!\210\302\303!\207" [feedmail-say-debug ">in-> feedmail-message-action-edit" error "FQM: Message not queued; returning to edit"] 2])
(defalias 'feedmail-message-action-draft #[0 "\301\302!\210\303\304\"\207" [feedmail-queue-draft-directory feedmail-say-debug ">in-> feedmail-message-action-draft" feedmail-dump-message-to-queue after-draft] 3])
(defalias 'feedmail-message-action-draft-strong #[0 "\301\302!\210\303\304 )\207" [buffer-file-name feedmail-say-debug ">in-> feedmail-message-action-draft-strong" nil feedmail-message-action-draft] 2])
(defalias 'feedmail-message-action-queue #[0 "\301\302!\210\303\304\"\207" [feedmail-queue-directory feedmail-say-debug ">in-> feedmail-message-action-queue" feedmail-dump-message-to-queue after-queue] 3])
(defalias 'feedmail-message-action-queue-strong #[0 "\301\302!\210\303\304 )\207" [buffer-file-name feedmail-say-debug ">in-> feedmail-message-action-queue-strong" nil feedmail-message-action-queue] 2])
(defalias 'feedmail-message-action-toggle-spray #[0 "\301\302!\210?\211\203\303\304!\210\202\303\305!\210\306\307!\210\310 )\207" [feedmail-enable-spray feedmail-say-debug ">in-> feedmail-message-action-toggle-spray" message "FQM: For this message, spray toggled ON" "FQM: For this message, spray toggled OFF" sit-for 3 feedmail-send-it] 3])
(defconst feedmail-p-h-b-n "*FQM Help*")
(defalias 'feedmail-message-action-help #[0 "\302\303!\210\304\305!	;\203	\262\202\306	!\262\211\203*\307
!\203*\310\311\"\210\202.\312!\210\313 \207" [feedmail-p-h-b-n feedmail-ask-before-queue-default feedmail-say-debug ">in-> feedmail-message-action-help" " " get-buffer char-to-string get-buffer-window feedmail-scroll-buffer up feedmail-message-action-help-blat feedmail-send-it] 5])
#@17 

(fn D-STRING)
(defalias 'feedmail-message-action-help-blat #[257 "\306\307!\210r\310	!q\210p\311 \210
\312\211\313\211\313\314 \210\315\316!\210+\211\317\320\321!!\210\317!\210\317\322!\210;\203@\317!\210rq\210\323 )\324!\210)\207" [default-directory feedmail-p-h-b-n buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks feedmail-say-debug ">in-> feedmail-message-action-help-blat" get-buffer-create kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ substitute-command-keys "You're dispatching a message and feedmail queuing is enabled.\nTyping ? again will normally scroll this help buffer.\n\nChoices:\n   q  QUEUE        for later sending (via feedmail-run-the-queue)\n   Q  QUEUE!       like \"q\", but always make a new file\n   i  IMMEDIATELY  send this (but not the other queued messages)\n   I  IMMEDIATELY! like \"i\", but skip following confirmation prompt\n   d  DRAFT        queue in the draft directory\n   D  DRAFT!       like \"d\", but always make a new file\n   e  EDIT         return to the message edit buffer (don't send or queue)\n   *  SPRAY        toggle spray mode (individual message transmissions)\n   >  SCROLL UP    scroll message up (toward end of message)\n   <  SCROLL DOWN  scroll message down (toward beginning of message)\n   ?  HELP         show or scroll this help buffer\n\nSynonyms:\n   s  SEND         immediately (same as \"i\")\n   S  SEND!        immediately (same as \"I\")\n   r  ROUGH        draft (same as \"d\")\n   R  ROUGH!       draft (same as \"D\")\n   n  NOPE         didn't mean it (same as \"e\")\n   y  YUP          do the default behavior (same as \"C-m\")\n  SPC SCROLL UP    (same as \">\")\n\nThe user-configurable default is currently \"" "\".  For other possibilities,\nsee the variable feedmail-prompt-before-queue-user-alist.\n" help-mode internal-temp-output-buffer-show inhibit-read-only standard-output feedmail-prompt-before-queue-help-supplement] 7 (#$ . 64623)])
(defalias 'feedmail-message-action-scroll-up #[0 "\300\301!\210\302\303!\210\304 \207" [feedmail-say-debug ">in-> feedmail-message-action-scroll-up" feedmail-scroll-buffer up feedmail-send-it] 2])
(defalias 'feedmail-message-action-scroll-down #[0 "\300\301!\210\302\303!\210\304 \207" [feedmail-say-debug ">in-> feedmail-message-action-scroll-down" feedmail-scroll-buffer down feedmail-send-it] 2])
#@87 Like `feedmail-run-the-queue', but suppress confirmation prompts.

(fn &optional ARG)
(defalias 'feedmail-run-the-queue-no-prompts #[256 "\301\302!\210\303\304
!)\207" [feedmail-confirm-outgoing feedmail-say-debug ">in-> feedmail-run-the-queue-no-prompts" nil feedmail-run-the-queue] 3 (#$ . 67041) "p"])
#@232 Like `feedmail-run-the-queue', but with a global confirmation prompt.
This is generally most useful if run non-interactively, since you can
bail out with an appropriate answer to the global confirmation prompt.

(fn &optional ARG)
(defalias 'feedmail-run-the-queue-global-prompt #[256 "\301\302!\210\303\304
!)\207" [feedmail-queue-runner-confirm-global feedmail-say-debug ">in-> feedmail-run-the-queue-global-prompts" t feedmail-run-the-queue] 3 (#$ . 67354) "p"])
#@271 Visit each message in the feedmail queue directory and send it out.
Return value is a list of three things: number of messages sent, number of
messages skipped, and number of non-message things in the queue (commonly
backup file names and the like).

(fn &optional ARG)
(defalias 'feedmail-run-the-queue #[256 "\306\307!\210\203\f\310!	\203\310	!\311C\312!\312	!
@A@@A@\313C\313C\311C\311C\314\311	\313V\203L\n\203L\315\316\317\n\n%\320\311#\262
\204X\n\240\210\202\210\321 \322\323\"\216\324\314\"\262\203n!\262\325\322\326



&	\"\210)\210\f\203\240\327\330\242\242\f$\210\331\332!\210\333
!\210\242\242\nE\207" [feedmail-queue-directory feedmail-queue-draft-directory feedmail-queue-runner-confirm-global feedmail-queue-run-orderer feedmail-queue-chatty feedmail-queue-chatty-sit-for feedmail-say-debug ">in-> feedmail-run-the-queue" expand-file-name nil feedmail-look-at-queue-directory 0 t y-or-n-p-with-timeout format "FQM: Draft: %dm+%d,  Queue: %dm+%d; run the queue? " 5 current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] directory-files mapc #[257 "\301\3108\"\240\210\311\301\242!\203\312\207\313
!\205$
\306\314\315P!\240\210\307\316\301\242!\240\210\307\242\203O\317\307\242!\203O\320 \321\322\"\216\323\307\242q!\210\324\325\326\"\327\330#\203M\331 \210)\210\306\242q\210\3129\332\306\242!\210\333\301\242!\210eb\210\334\335!\203z\336\337\312\330#\203z\340\341\312\330#\210\202i:\300!\210\3421\355\312\301\242;<\343\330!\204\232\344\345\301\242\"\210\346\347!\210\350\351\301\242\"\210\3522\251=\300!0\210\306\242q\210\317 \203\303\305\211\242T\240\210\344\353\301\242>#\202\347\304\211\242T\240\210?\301\242\300\"\210\307\242\205\347\354\301\242!?\205\347r\307\242q\210\312\211@)*0\210\202
\305\211\242T\240\210\355\330!\210\356\357@\"\210\360\361!\210\356\362\363\364A\365#\"\210\360\361!\266\366\306\242!\210\344\367\302\304\242Z\305\242Z\304\242\305\242\303%\207" [V0 V1 V2 V3 V4 V5 V6 V7 expand-file-name file-directory-p nil feedmail-fqm-p generate-new-buffer "FQM " find-buffer-visiting buffer-modified-p current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] display-buffer y-or-n-p-with-timeout format "FQM: Visiting %s; save before send? " 10 t save-buffer buffer-disable-undo insert-file-contents-literally looking-at ".*
\n.*
\n" search-forward "
\n" replace-match "\n" (error) feedmail-find-eoh feedmail-say-chatter "Skipping %s; no mail-header-separator" error "FQM: You should never see this message" feedmail-say-debug "Prepping %s" skip-me-q "%s wasn't sent by %s" file-exists-p ding message "FQM: Trapped `%s', message left in queue." sit-for 3 "FQM: Trap details: \"%s\"" mapconcat identity "\" \"" kill-buffer "%d to go, %d sent, %d skipped (%d other files ignored)" feedmail-queue-directory buffer-offer-save feedmail-queue-runner-mode-setter feedmail-queue-runner-is-active feedmail-enable-queue feedmail-queue-runner-message-sender feedmail-buffer-eating-function feedmail-queue-runner-cleaner-upper buffer-file-name] 8 "\n\n(fn BLOBBY)"] feedmail-say-chatter "%d sent, %d skipped (%d other files ignored)" feedmail-queue-reminder after-run sit-for] 26 (#$ . 67828) "p"])
#@1091 Perform some kind of reminder activity about queued and draft messages.
Called with an optional symbol argument which says what kind of event
is triggering the reminder activity.  The default is `on-demand', which
is what you typically would use if you were putting this in your Emacs start-up
or mail hook code.  Other recognized values for WHAT-EVENT (these are passed
internally by feedmail):

   after-immediate      (a message has just been sent in immediate mode)
   after-queue          (a message has just been queued)
   after-draft          (a message has just been placed in the draft directory)
   after-run            (the queue has just been run, possibly sending messages)

WHAT-EVENT is used as a key into the table `feedmail-queue-reminder-alist'.  If
the associated value is a function, it is called without arguments and is
expected to perform the reminder activity.  You can supply your own reminder
functions by redefining `feedmail-queue-reminder-alist'.  If you don't want any
reminders, you can set `feedmail-queue-reminder-alist' to nil.

(fn &optional WHAT-EVENT)
(defalias 'feedmail-queue-reminder #[256 "\301\302\"\210\211\203\2119\203\211\202\303\304\211\305\"\262
A\262
\306
!\205'\211 \207" [feedmail-queue-reminder-alist feedmail-say-debug ">in-> feedmail-queue-reminder %s" on-demand nil assoc fboundp] 7 (#$ . 71116) "p"])
#@65 Brief display of draft and queued message counts in minibuffer.
(defalias 'feedmail-queue-reminder-brief #[0 "\302\303!\210\304\211\211\211\305!\262\305	!\262

@\262\211@\262\306V\204&\306V\205,\307\310#\207" [feedmail-queue-directory feedmail-queue-draft-directory feedmail-say-debug ">in-> feedmail-queue-reminder-brief" nil feedmail-look-at-queue-directory 0 message "FQM: [D: %d,  Q: %d]"] 8 (#$ . 72490) nil])
#@67 Verbose display of draft and queued message counts in minibuffer.
(defalias 'feedmail-queue-reminder-medium #[0 "\302\303!\210\304\211\211\211\211\211\305!\262\305	!\262

@\262\211@\262
A@\262\211A@\262\306V\2042\306V\205C\307\310\311	!\n	\311!&\207" [feedmail-queue-directory feedmail-queue-draft-directory feedmail-say-debug ">in-> feedmail-queue-reminder-medium" nil feedmail-look-at-queue-directory 0 message "FQM: Draft: %dm+%d in \"%s\",  Queue: %dm+%d in \"%s\"" file-name-nondirectory] 15 (#$ . 72922) nil])
#@78 Ask whether to queue, send immediately, or return to editing a message, etc.
(defalias 'feedmail-queue-send-edit-prompt #[0 "\305\306!\210\307	\n\310\f&\207" [feedmail-ask-before-queue-default feedmail-ask-before-queue-prompt feedmail-ask-before-queue-reprompt feedmail-prompt-before-queue-standard-alist feedmail-prompt-before-queue-user-alist feedmail-say-debug ">in-> feedmail-queue-send-edit-prompt" feedmail-queue-send-edit-prompt-inner feedmail-message-action-help] 7 (#$ . 73461)])
#@65 

(fn DEFAULT PROMPT REPROMPT HELPER STANDARD-ALIST USER-ALIST)
(defalias 'feedmail-queue-send-edit-prompt-inner #[1542 "\305\306!\210\204\307 \210\310 \311\312\"\216\313\211\314	;\203(\315\n!\262	\262
\2022\316\n!\262
	\262\204\223\317	\"\210\320\211\321\322 +\211\fU\203U\323B\262\210\2022\211\324=\204g\211\325=\204g\211\326=\203j\262
\327
\"\206w\327
\"\262\203\202A\204\217\330 \210\317	\"\210\331\332!\210\210\2022A\266\203)\207" [defining-kbd-macro echo-keystrokes cursor-in-echo-area inhibit-quit help-char feedmail-say-debug ">in-> feedmail-queue-send-edit-prompt-inner" discard-input current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] nil " " string-to-char char-to-string message t 0 read-char-exclusive ^ 13 10 121 assoc beep sit-for 3] 14 (#$ . 73959)])
#@34 

(fn DIRECTION &optional BUFFY)
(defalias 'feedmail-scroll-buffer #[513 "\300\301\"\210\302 r\303\304\"\216\305\203\202p!\306
!\210\307=\2034\310d\"\203/\311\312!\202C\313 \202C\310e\"\203A\313\312!\202C\311 \262
*\207" [feedmail-say-debug ">in-> feedmail-scroll-buffer %s" internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] display-buffer select-window up pos-visible-in-window-p scroll-down 999999 scroll-up] 7 (#$ . 74819)])
#@282 Find out some things about a queue directory.
Result is a list containing a count of queued messages in the
directory, a count of other files in the directory, and a high water
mark for prefix sequence numbers.  Subdirectories are not included in
the counts.

(fn QUEUE-DIRECTORY)
(defalias 'feedmail-look-at-queue-directory #[257 "\300\301\"\210\302C\302C\302C\303C\304!\203&\305\306\307%\310\311\"\"\210\242\242\242E\207" [feedmail-say-debug ">in-> feedmail-look-at-queue-directory %s" 0 nil file-directory-p mapc make-closure #[257 "\304
!\203\305\207\306
!\2038\303\307!\240\210\310\311\303\242\"\2032\305\312\303\242\313\314O!\262
\211\302\242V\2031\302
\240\210\210\300\211\242T\240\207\301\211\242T\240\207" [V0 V1 V2 V3 file-directory-p nil feedmail-fqm-p file-name-nondirectory string-match "^[0-9][0-9][0-9]-" string-to-number 0 3] 6 "\n\n(fn BLOBBY)"] directory-files t] 12 (#$ . 75337)])
#@80 Utility for mapping out suspect characters in a potential filename.

(fn SLUG)
(defalias 'feedmail-tidy-up-slug #[257 "\301\302\"\210\211\204\f\303\262
\304\"\203\305\306\307\211$\262
\202\f\304\310\"\2030\305\306\307\211$\262
\202\304\311\"\203?\305\303\307\211$\262
\304\312\"\203N\305\303\307\211$\262
\207" [feedmail-queue-slug-suspect-regexp feedmail-say-debug ">in-> feedmail-tidy-up-slug %s" "" string-match replace-match "-" nil "--+" "^-*" "-*$"] 6 (#$ . 76265)])
#@377 Create a name for storing the message in the queue.
Optional argument QUEUE-DIRECTORY specifies into which directory the
file will be placed.  The name is based on the Subject: header (if
there is one).  If there is no subject,
`feedmail-queue-default-file-slug' is consulted.  Special characters are
mapped to mostly alphanumerics for safety.

(fn &optional QUEUE-DIRECTORY)
(defalias 'feedmail-queue-subject-slug-maker #[256 "\302\303\"\210\304\305\306\304\307 \262eb\210\310\311\305#\203&`\262
\304\210\312
`\"\262\313!\262
G\314U\203a	;\203;	\202_\315	!\203H\212	 )\202_	\316=\203^\317\320\321\322!\304%!\202_\323\262\313!)\207" [case-fold-search feedmail-queue-default-file-slug feedmail-say-debug ">in-> feedmail-queue-subject-slug-maker %s" nil t "" feedmail-find-eoh re-search-forward "^Subject:" buffer-substring-no-properties feedmail-tidy-up-slug 0 fboundp ask file-name-nondirectory read-file-name "FQM: Message filename slug? " file-name-as-directory "no subject"] 12 (#$ . 76764)])
#@24 

(fn QUEUE-DIRECTORY)
(defalias 'feedmail-create-queue-filename #[257 "\303\304\"\210\305\203\212!\262
)\202)	\203)\306\307\310\311Q\312!\313%!\262
\314
!\262
\315\316\317\320!8T#\262
\321
\"\nP\207" [feedmail-queue-slug-maker feedmail-ask-for-queue-slug feedmail-queue-fqm-suffix feedmail-say-debug ">in-> feedmail-create-queue-filename %s" "wjc" file-name-nondirectory read-file-name "FQM: Message filename slug? [" "]? " file-name-as-directory nil feedmail-tidy-up-slug format "%03d-%s" 2 feedmail-look-at-queue-directory expand-file-name] 9 (#$ . 77790)])
#@35 

(fn QUEUE-DIRECTORY WHAT-EVENT)
(defalias 'feedmail-dump-message-to-queue #[514 "\306\307#\210\310!\204\311\312\"\210\310!\204\313\314\"\210\315\211\211\211\2039\316!\262\317\320!!\317\320\321!!!\230\262\203G
\203G\262\202M\322!\262	\203U\323\202V\n\324!\210)\211\203\234\203h
\204\234\315\211\211\325!\262\321!\262\211GS\315O\262
\326GSO\262\325!\262\327\330\331$!\266\203\203\234\332
!\210\203\266\f\333p!\203\265
\203\265\334
!\203\265\332
!\210\210\335\336\"\210!\205\310\337!\210\340\"!\207" [buffer-file-name feedmail-force-binary-write coding-system-for-write feedmail-nuke-buffer-after-queue buffer-auto-save-file-name delete-auto-save-files feedmail-say-debug ">in-> feedmail-dump-message-to-queue %s %s" file-accessible-directory-p make-directory t error "FQM: Message not queued; trouble with directory %s" nil feedmail-fqm-p directory-file-name expand-file-name file-name-directory feedmail-create-queue-filename no-conversion write-file file-name-nondirectory 0 y-or-n-p format "FQM: Was previously %s%s%s; delete that? " delete-file kill-buffer file-exists-p feedmail-say-chatter "Queued in %s" feedmail-queue-reminder sit-for feedmail-queue-chatty feedmail-queue-chatty-sit-for] 15 (#$ . 78373)])
#@13 

(fn TIME)
(defalias 'feedmail-rfc822-time-zone #[257 "\300\301\"\210\302
!@\206
\303\304
!\305\245\306\307\303W\203\310\202\311\305\245\305\246$\207" [feedmail-say-debug ">in-> feedmail-rfc822-time-zone %s" current-time-zone 0 abs 60 format "%c%02d%02d" 45 43] 9 (#$ . 79653)])
#@17 

(fn ARG-TIME)
(defalias 'feedmail-rfc822-date #[257 "\301\302\"\210\211\206\303 \304\305\306\"\307!P)\207" [system-time-locale feedmail-say-debug ">in-> feedmail-rfc822-date %s" current-time "C" format-time-string "%a, %e %b %Y %T " feedmail-rfc822-time-zone] 5 (#$ . 79948)])
#@29 Wrapper to catch skip-me-i.
(defalias 'feedmail-send-it-immediately-wrapper #[0 "\3002\301 0\300=\205\302\303!\207" [skip-me-i feedmail-send-it-immediately error "FQM: Sending...abandoned!"] 2 (#$ . 80239)])
#@57 Handle immediate sending, including during a queue run.
(defalias 'feedmail-send-it-immediately #[0 "\306\307!\210\310\311!\310\312!p\313\211\211\211\314\216r\fq\210\315 \210q\210\315 \210\316\n!\210db\210h\317U\2049\317c\210\313\306\320\"\210\321 \262\306\322\"\210\323\324\323!\210)\306\325!\210@\204^A\203c\326e\"\210B\203l\327!\210eb\210\330\331\332#\203\204`W\203\204\324\333!\210\202o\332\313
eb\210\330\334\332#CD\335=\203\257C\203\243\336\202\244\337\262
\340e	%D\341>\203\303C\203\277\342\202\315\343\202\315C\203\314\344\202\315\345\262
\340e	%D\346=\203\364C\203\350\336\202\351\337\262
\340e	%	\204\374\347\350!\210	\237\351\337\"\262\351\336\"\262\203
E\204
eb\210c\210\203)
F\204)
eb\210c\210eb\210\352 \210\353 \210\354 \210\355G\206>
\356\n!!\210\357G\206I
\356\n!!\210\360H!\210eb\210I\203h
\330\361\332#\203h
\324\323!\210\202X
)\266\306\3624\"\210\363\364!\210\365 \366\367\"\216\351\370\"\313J\371\267\202\223
G?\202\225
G\202\225
JK\372\267\202\247
G?\202\251
G\202\251
K\211\203\265
\373\332\"\210\374 \210
\203\277
\375!\203w\376!L\306\377!\210\201V \210\306\201W!\210G\204\356\n!\211\262\203\201X!\262M\204\375
\201Y\201Z\201[\"!\203\201\\!\210r\nq\210\313\211N.)eb\210\203qO\201]>\203)P\203)\201^\202+QQ\201_\216c\210R\204I\203Bc\210\203Ic\210\363\201`!\210S\203ib\210\201aS!\203eSy\210`d|\210\201b!\210*)\266\202\223G\203\211\201c\201d\211\"\266\202\223\201c\201e\211\"\266)\210.\266T\205\262G?\205\262\201f\201g!\210\201hU!\207" [mail-header-separator feedmail-address-list feedmail-raw-text-buffer feedmail-prepped-text-buffer feedmail-error-buffer case-fold-search feedmail-say-debug ">in-> feedmail-send-it-immediately" get-buffer-create " *FQM Outgoing Email Errors*" " *FQM Outgoing Email Text*" nil #[0 "\304!\210	q\210\305 \306U\203\304	!\210\202)\307	!\210\n\203%\310\311!\210\312\313!\210\314\315!\210q\207" [feedmail-prepped-text-buffer feedmail-error-buffer feedmail-queue-runner-is-active feedmail-raw-text-buffer kill-buffer buffer-size 0 display-buffer ding t feedmail-say-chatter "Sending...failed" error "FQM: Sending...failed"] 2] erase-buffer insert-buffer-substring 10 "looking for m-h-s \"%s\"" feedmail-find-eoh "found m-h-s %s" "" replace-match "expanding mail aliases" expand-mail-aliases feedmail-fill-to-cc-function re-search-forward "\n\n\n*" t "\n" "^\\(Resent-To:\\|Resent-Cc:\\|Resent-Bcc:\\)\\s-*\\S-+.*$" first "^Resent-Bcc:" "^Bcc:" feedmail-deduce-address-list (first last) "^Resent-\\(To\\|Cc\\):" "^\\(To\\|Cc\\):" "^Resent-\\(To\\|Cc\\|Bcc\\):" "^\\(To\\|Cc\\|Bcc\\):" last error "FQM: Sending...abandoned, no addressees" feedmail-accume-n-nuke-header feedmail-fiddle-from feedmail-fiddle-sender feedmail-fiddle-x-mailer feedmail-fiddle-message-id buffer-file-name feedmail-fiddle-date feedmail-fiddle-list-of-fiddle-plexes "^[A-Za-z0-9-]+:[ 	]*\n" "last chance hook: %s" run-hooks feedmail-last-chance-hook current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] "^Fcc:" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (immediate 392 queued 398)) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (immediate 412 queued 418)) switch-to-buffer delete-other-windows feedmail-one-last-look feedmail-envelope-deducer "give it to buffer-eater" feedmail-force-expand-mail-aliases mail-aliases feedmail-fill-to-cc feedmail-is-a-resend feedmail-deduce-bcc-where feedmail-nuke-bcc feedmail-nuke-resent-bcc feedmail-queue-runner-is-active feedmail-fiddle-plex-user-list feedmail-nuke-empty-headers feedmail-confirm-outgoing feedmail-display-full-frame user-mail-address feedmail-queue-auto-file-nuke buffer-offer-save system-type feedmail-force-binary-write coding-system-for-write feedmail-nuke-bcc-in-fcc feedmail-nuke-body-in-fcc feedmail-queue-chatty feedmail-queue-chatty-sit-for feedmail-give-it-to-buffer-eater "gave it to buffer-eater" expand-file-name y-or-n-p format "FQM: Delete message file %s? " delete-file (ms-dos windows-nt) no-conversion #[0 "\300\207" [nil] 1] feedmail-before-fcc-hook natnump mail-do-fcc throw skip-me-q skip-me-i feedmail-queue-reminder after-immediate sit-for] 17 (#$ . 80457)])
#@264 Internal feedmail function for jamming fields into message header.
NAME, VALUE, ACTION, and FOLDING are the four elements of a
fiddle-plex, as described in the documentation for the variable
`feedmail-fiddle-plex-blurb'.

(fn NAME VALUE &optional ACTION FOLDING)
(defalias 'feedmail-fiddle-header #[1026 "\302\303%\210\304\305!\306P\307\211\211\211\211\211\310P\262\311 \262eb\210\312\304#\262	\2045\313\262\n	\314\267\202C
\315\316\f\"\203L\n\317\225\307O\262\315\320\f\"\203\\\n\317\211\224O\262\nG\317V\205D
	\203neb\210\202qb\210`\262
\321\f\322\261\210\205D
\323
`\"\202D
\203\223\324\"\210\325\f\f\313\f$\202D
?\205D
\325\f\f\313\f$\202D
\nA@\262\324\"\206\277\326\262\315\327P\"\203\324\330\326\304\211$\262\315\322\327Q\"\203\353\330\331\304\211$\262\202\324\315\316\"\203\371\317\225\307O\262\315\320\"\203
\317\211\224O\262G\317V\2030

9\203!
\332!\203!

\f\"\202.

;\203-
\333\"\202.
\307\262\325\f\f@\3348Q\313\f$\202D
\307)\207" [case-fold-search feedmail-fiddle-headers-upwardly feedmail-say-debug ">in-> feedmail-fiddle-header %s %s %s %s" t regexp-quote ":" nil "^" feedmail-find-eoh re-search-forward supplement #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (supplement 60 replace 137 create 159 combine 176)) string-match "\\`[ 	\n]+" 0 "[ 	\n]+\\'" ": " "\n" feedmail-fill-this-one feedmail-accume-n-nuke-header feedmail-fiddle-header "" "[ 	\n]+" replace-match "\n	" fboundp format 2] 18 (#$ . 84836)])
(defalias 'feedmail-give-it-to-buffer-eater #[0 "\305\306!\210\212\203\307\310	\"\202\305\311\n\"\210\n\f	#)\207" [feedmail-enable-spray feedmail-address-list feedmail-buffer-eating-function feedmail-prepped-text-buffer feedmail-error-buffer feedmail-say-debug ">in-> feedmail-give-it-to-buffer-eater" mapcar #[257 "\211\305\306!
r\211q\210\307 \210\310	!\210\311\n!\210\211	\fC#\210*\312
!)\207" [feedmail-spray-this-address feedmail-prepped-text-buffer feedmail-spray-address-fiddle-plex-list feedmail-buffer-eating-function feedmail-error-buffer get-buffer-create " *FQM Outgoing Email Spray*" erase-buffer insert-buffer-substring feedmail-fiddle-list-of-spray-fiddle-plexes kill-buffer] 7 "\n\n(fn ADDRESS)"] "calling buffer-eater %s"] 4])
#@167 If `feedmail-deduce-envelope-from' is false, simply return `user-mail-address'.
Else, look for Sender: or From: (or Resent-*) and
return that value.

(fn EOH-MARKER)
(defalias 'feedmail-envelope-deducer #[257 "\303\304\"\210\204	\207\305\306pe\n\203\307\202\310\305%\262
\211\2042\306pe\n\203-\311\202.\312%\262
\211\203>\211@\203>\211@\207	\207" [feedmail-deduce-envelope-from user-mail-address feedmail-is-a-resend feedmail-say-debug ">in-> feedmail-envelope-deducer %s" nil feedmail-deduce-address-list "^Resent-Sender:" "^Sender:" "^Resent-From:" "^From:"] 8 (#$ . 87152)])
#@15 Fiddle From:.
(defalias 'feedmail-fiddle-from #[0 "\304\305!\210\306\267\2020\307\207	\310\267\202*\n\202+\n\311\312 \313R\202+\314\312 \315\n\316\260\202+\307\317 )\207;\203>\320\321E\317 )\2079\203P\322!\203P \317 )\207<\205i\323\203^\324\202_\325A@\3268\3278$\207" [feedmail-from-line mail-from-style user-mail-address feedmail-is-a-resend feedmail-say-debug ">in-> feedmail-fiddle-from" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 10 t 12)) nil #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 18 parens 22 angles 31)) " (" user-full-name ")" "\"" "\" <" ">" feedmail-fiddle-from "ignored" create fboundp feedmail-fiddle-header "Resent-From" "From" 2 3] 6 (#$ . 87752)])
#@17 Fiddle Sender:.
(defalias 'feedmail-fiddle-sender #[0 "\302\303!\210\304\267\202\305\207\305\207;\203\306\307E\310 )\2079\203.\311!\203. \310 )\207<\205G\312	\203<\313\202=\314A@\3158\3168$\207" [feedmail-sender-line feedmail-is-a-resend feedmail-say-debug ">in-> feedmail-fiddle-sender" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 10 t 12)) nil "ignored" create feedmail-fiddle-sender fboundp feedmail-fiddle-header "Resent-Sender" "Sender" 2 3] 6 (#$ . 88546)])
#@73 Default function for generating Date: header contents.

(fn MAYBE-FILE)
(defalias 'feedmail-default-date-generator #[257 "\301\302!\210\211\205\303
!\211\2036\301\304\305\306
8\262
!P!\210\301\307\305\310
8\262
!P!\210\301\311\305\312
8\262
!P!\210\305
\205F?\205F
\310
8\262
!\207" [feedmail-queue-use-send-time-for-date feedmail-say-debug ">in-> feedmail-default-date-generator" file-attributes "4 cre " feedmail-rfc822-date 4 "5 mod " 5 "6 sta " 6] 8 (#$ . 89083)])
#@81 Fiddle Date:.  See documentation of `feedmail-date-generator'.

(fn MAYBE-FILE)
(defalias 'feedmail-fiddle-date #[257 "\302\303!\210\304\267\202\305\207\306
!\307
!)\207;\203$\310\311E\307
!)\2079\2038\312!\2038
!\307
!)\207<\205Q\313	\203F\314\202G\315A@\3168\3178$\207" [feedmail-date-generator feedmail-is-a-resend feedmail-say-debug ">in-> feedmail-fiddle-date" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 10 t 12)) nil feedmail-default-date-generator feedmail-fiddle-date "ignored" create fboundp feedmail-fiddle-header "Resent-Date" "Date" 2 3] 7 (#$ . 89567)])
#@327 Default function for generating Message-Id: header contents.
Based on a date and a sort of random number for tie breaking.  Unless
`feedmail-message-id-suffix' is defined, uses `user-mail-address', so be
sure it's set.  If both are nil, creates a quasi-random suffix that is
probably not appropriate for you.

(fn MAYBE-FILE)
(defalias 'feedmail-default-message-id-generator #[257 "\304\305\"\210\306\307\203\202	
\211\204\310\311\312 \"\262
\313\314\"\2038\315\224\315\225\232\2030\316\2021\317
P\262
\202=\320
P\262
\204O\203O\321!\322
8\262
\262\310\323\324\312 \325\"\326\327\"\330!%)\207" [feedmail-message-id-suffix user-mail-address system-time-locale feedmail-queue-use-send-time-for-message-id feedmail-say-debug ">in-> feedmail-default-message-id-generator %s" nil "C" format "%d.example.com" random string-match "^\\(.*\\)@" 1 "" "-" "@" file-attributes 5 "<%d-%s%s%s>" mod 10000 format-time-string "%a%d%b%Y%H%M%S" feedmail-rfc822-time-zone] 10 (#$ . 90209)])
#@93 Fiddle Message-Id:.  See documentation of `feedmail-message-id-generator'.

(fn MAYBE-FILE)
(defalias 'feedmail-fiddle-message-id #[257 "\302\303\"\210\304\267\202\305\207\306
!\307
!)\207;\203%\310\311E\307
!)\2079\2039\312!\2039
!\307
!)\207<\205R\313	\203G\314\202H\315A@\3168\3178$\207" [feedmail-message-id-generator feedmail-is-a-resend feedmail-say-debug ">in-> feedmail-fiddle-message-id %s" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 11 t 13)) nil feedmail-default-message-id-generator feedmail-fiddle-message-id "ignored" create fboundp feedmail-fiddle-header "Resent-Message-Id" "Message-Id" 2 3] 7 (#$ . 91213)])
#@60 Default function for generating X-Mailer: header contents.
(defalias 'feedmail-default-x-mailer-generator #[0 "\306\307\310	\"\203
\311\202\312)	\313\n\203\314\202\315\f\203#\316\202$\311
\203,\317\202-\320
\260\207" [case-fold-search emacs-version feedmail-patch-level feedmail-queue-runner-is-active feedmail-enable-spray feedmail-x-mailer-line-user-appendage t string-match "emacs" "" "emacs " " (via feedmail " " Q" " I" "S" ") " ")"] 8 (#$ . 91913)])
#@67 Fiddle X-Mailer:.  See documentation of `feedmail-x-mailer-line'.
(defalias 'feedmail-fiddle-x-mailer #[0 "\302\303!\210\304\267\202\305\207\306 \307 )\207;\203#\310\311D\312E\307 )\2079\2035\313!\2035 \307 )\207<\205N\314	\203C\315\202D\316A@\3178\3208$\207" [feedmail-x-mailer-line feedmail-is-a-resend feedmail-say-debug ">in-> feedmail-fiddle-x-mailer" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 10 t 12)) nil feedmail-default-x-mailer-generator feedmail-fiddle-x-mailer "ignored" ";\n	%s" combine fboundp feedmail-fiddle-header "X-Resent-Mailer" "X-Mailer" 2 3] 6 (#$ . 92389)])
#@94 Fiddle header for single spray address.  Uses `feedmail-spray-this-address'.

(fn ADDY-PLEX)
(defalias 'feedmail-fiddle-spray-address #[257 "\301\302\"\210\211\303\267\202\304\207\305D\306
!\207\211;\203 \211D\306
!\207\2119\2031\307
!\2031\211 \306
!\207\211<\205C\310
@A@\3118\3128$\207" [feedmail-spray-this-address feedmail-say-debug ">in-> feedmail-fiddle-spray-address %s" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 11 t 13)) nil "To" feedmail-fiddle-spray-address fboundp feedmail-fiddle-header 2 3] 7 (#$ . 93047)])
#@85 Fiddling based on a list of fiddle-plexes for spraying.

(fn LIST-OF-FIDDLE-PLEXES)
(defalias 'feedmail-fiddle-list-of-spray-fiddle-plexes #[257 "\300\301!\210\211\302<\203
\205!
@\262

A\262\303
!\210\202\303!\207" [feedmail-say-debug ">in-> feedmail-fiddle-list-of-spray-fiddle-plexes" nil feedmail-fiddle-spray-address] 5 (#$ . 93636)])
#@113 Fiddling based on a list of fiddle-plexes.
Values t, nil, and string are pointless.

(fn LIST-OF-FIDDLE-PLEXES)
(defalias 'feedmail-fiddle-list-of-fiddle-plexes #[257 "\300\301!\210\211\302
\205>
@\262

A\262\2119\203(\303
!\203(\211 C\304
!\266\202\211<\203\305
@A@\3068\3078$\210\202\207" [feedmail-say-debug ">in-> feedmail-fiddle-list-of-fiddle-plexes" nil fboundp feedmail-fiddle-list-of-fiddle-plexes feedmail-fiddle-header 2 3] 9 (#$ . 93991)])
#@268 Delete headers matching a regexp and their continuation lines.
There may be multiple such lines, and each may have arbitrarily
many continuation lines.  Return an accumulation of the deleted
headers, including the intervening newlines.

(fn HEADER-END HEADER-REGEXP)
(defalias 'feedmail-accume-n-nuke-header #[514 "\301\302#\210\303\304
\212eb\210\305\303#\203F\306y\210\211\307\310\224`\"P\262
\310\224`|\210\311\312!\203`W\203\306y\210\211\307\310\224`\"P\262
\313\314!\210\202'*\207" [case-fold-search feedmail-say-debug ">in-> feedmail-accume-n-nuke-header %s %s" t nil re-search-forward 1 buffer-substring-no-properties 0 looking-at "^[ 	].*\n" replace-match ""] 8 (#$ . 94464)])
#@325 Smart filling of address headers (don't be fooled by the name).
The filling tries to avoid splitting lines except at commas.  This
avoids, in particular, splitting within parenthesized comments in
addresses.  Headers filled include From:, Reply-To:, To:, Cc:, Bcc:,
Resent-To:, Resent-Cc:, and Resent-Bcc:.

(fn HEADER-END)
(defalias 'feedmail-fill-to-cc-function #[257 "\301\302!\210\303\304\211\212eb\210\305\306\303#\205F\307\224\262\310\311!\203#\312\313!\210\314y\210\310\315!\2038`W\2038\314y\210\202&\316 \262
\212\317\"\210)\202
*\207" [case-fold-search feedmail-say-debug ">in-> feedmail-fill-to-cc-function" t nil re-search-forward "^\\(From:\\|Reply-To:\\|To:\\|Cc:\\|Bcc:\\|Resent-To:\\|Resent-Cc:\\|Resent-Bcc:\\)" 0 looking-at "[ 	]*" replace-match " " 1 "[ 	]+" point-marker feedmail-fill-this-one] 8 (#$ . 95168)])
#@98 In-place smart filling of the region bounded by the two arguments.

(fn THIS-LINE THIS-LINE-END)
(defalias 'feedmail-fill-this-one #[514 "\303\304!\210\305
b\210\306\307S\310#\203\311\312!\210\202\313\314\315\310%\210\313\316\314\310%\210\317\"\210\313\314\316\310%\210\313\315\314\310%\210
b\210\306\320\310#\205R\311\321!\210\202C*\207" [feedmail-fill-to-cc-fill-column fill-column fill-prefix feedmail-say-debug ">in-> feedmail-fill-this-one" "	" re-search-forward "\\s-+" t replace-match " " subst-char-in-region 32 2 44 fill-region-as-paragraph "\\([^,]\\)\n	[ ]*" "\\1,\n	"] 8 (#$ . 96018)])
#@293 Get address list with all comments and other excitement trimmed.
Addresses are collected only from headers whose names match the fourth
argument.  Returns a list of strings.  Duplicate addresses will have
been weeded out.

(fn MESSAGE-BUFFER HEADER-START HEADER-END ADDR-REGEXP ADDRESS-LIST)
(defalias 'feedmail-deduce-address-list #[1285 "\301\302#\210\303\211\211\211\304\216r\305\306!q\210\307 \210\310			#\210eb\210\311\312d\311#\203{\313\314!\210\315\224\262\316y\210\317\320!\203I`dW\203I\316y\210\2027\321 \262
\322\323\"!\262\324\325\"\203#\326\224\326\225O\262\313\314\311\211$\262\235\204UB\262\202U)\327\303!\210*\207" [case-fold-search feedmail-say-debug ">in-> feedmail-deduce-address-list %s %s" nil #[0 "\300\207" [nil] 1] get-buffer-create " *FQM scratch*" erase-buffer insert-buffer-substring t re-search-forward replace-match "" 0 1 looking-at "^[ 	]+" point-marker mail-strip-quoted-names buffer-substring-no-properties string-match "\\([, 	\n
]*\\)\\([^, 	\n
]+\\)" 2 kill-buffer] 14 (#$ . 96644)])
#@60 Offer the user one last chance to give it up.

(fn BUFFER)
(defalias 'feedmail-one-last-look #[257 "\301\302!\210\212\303 \304\305\"\216\306!\210\247\203!\307\310\311!\312V#\202$\313\310!)\262
)\207" [feedmail-confirm-outgoing-timeout feedmail-say-debug ">in-> feedmail-one-last-look" current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] switch-to-buffer y-or-n-p-with-timeout "FQM: Send this email? " abs 0 y-or-n-p] 7 (#$ . 97700)])
#@61 Internal; does filename end with FQM suffix?

(fn MIGHT-BE)
(defalias 'feedmail-fqm-p #[257 "\301\302\"\210\303\304!\305P\"\207" [feedmail-queue-fqm-suffix feedmail-say-debug ">in-> feedmail-fqm-p %s" string-match regexp-quote "$"] 4 (#$ . 98190)])
#@102 Internal; emits debug messages in standard format.

(fn FORMAT &optional A1 A2 A3 A4 A5 A6 A7 A8 A9)
(defalias 'feedmail-say-debug #[2561 "\205,\302\303P\n\n\n\n\n\n\n\n\n&\n\210	\205,	\304U?\205,\305	!\207" [feedmail-debug feedmail-debug-sit-for message "FQM DB: " 0 sit-for] 21 (#$ . 98449)])
#@110 Internal; emits queue chatter messages in standard format.

(fn FORMAT &optional A1 A2 A3 A4 A5 A6 A7 A8 A9)
(defalias 'feedmail-say-chatter #[2561 "\205,\302\303P\n\n\n\n\n\n\n\n\n&\n\210	\205,	\304U?\205,\305	!\207" [feedmail-queue-chatty feedmail-queue-chatty-sit-for message "FQM: " 0 sit-for] 21 (#$ . 98766)])
#@102 Internal; find the end of message header fields, return mark just before it.

(fn &optional NOERROR)
(defalias 'feedmail-find-eoh #[256 "\302\303\"\210	\304\211\305\306!\307Q\262\305\306\206\310!\307Q\262
\212eb\210\311\304\312#\2045\203=\311
\304\312#\203=\313 \210\314 \202E?\205E\315\316!)\207" [mail-header-separator feedmail-queue-alternative-mail-header-separator feedmail-say-debug ">in-> feedmail-find-eoh %s" nil "^" regexp-quote "$" "" re-search-forward t beginning-of-line point-marker error "FQM: Can't find message-header-separator or alternate"] 9 (#$ . 99104)])
(provide 'feedmail)