/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / lemacs-19.6 / lisp / packages / feedmail.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 77 7a 40 74 68 61 |piled by| jwz@tha|
|00000020| 6c 69 64 6f 6d 69 64 65 | 20 6f 6e 20 4d 6f 6e 20 |lidomide| on Mon |
|00000030| 46 65 62 20 20 31 20 31 | 39 3a 30 38 3a 34 39 20 |Feb  1 1|9:08:49 |
|00000040| 31 39 39 33 0a 3b 3b 3b | 20 66 72 6f 6d 20 66 69 |1993.;;;| from fi|
|00000050| 6c 65 20 2f 63 61 64 69 | 6c 6c 61 63 31 2f 63 6f |le /cadi|llac1/co|
|00000060| 64 65 2f 62 75 69 6c 64 | 2f 6c 65 6d 61 63 73 2f |de/build|/lemacs/|
|00000070| 6c 69 73 70 2f 70 61 63 | 6b 61 67 65 73 2f 66 65 |lisp/pac|kages/fe|
|00000080| 65 64 6d 61 69 6c 2e 65 | 6c 0a 3b 3b 3b 20 65 6d |edmail.e|l.;;; em|
|00000090| 61 63 73 20 76 65 72 73 | 69 6f 6e 20 31 39 2e 34 |acs vers|ion 19.4|
|000000a0| 2e 31 33 20 4c 75 63 69 | 64 2e 0a 3b 3b 3b 20 62 |.13 Luci|d..;;; b|
|000000b0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000c0| 32 2e 31 30 3b 20 20 31 | 2d 66 65 62 2d 39 33 2e |2.10;  1|-feb-93.|
|000000d0| 0a 3b 3b 3b 20 6f 70 74 | 69 6d 69 7a 61 74 69 6f |.;;; opt|imizatio|
|000000e0| 6e 20 69 73 20 6f 6e 2e | 0a 3b 3b 3b 20 74 68 69 |n is on.|.;;; thi|
|000000f0| 73 20 66 69 6c 65 20 75 | 73 65 73 20 6f 70 63 6f |s file u|ses opco|
|00000100| 64 65 73 20 77 68 69 63 | 68 20 64 6f 20 6e 6f 74 |des whic|h do not|
|00000110| 20 65 78 69 73 74 20 69 | 6e 20 45 6d 61 63 73 31 | exist i|n Emacs1|
|00000120| 38 2e 0a 0a 28 69 66 20 | 28 61 6e 64 20 28 62 6f |8...(if |(and (bo|
|00000130| 75 6e 64 70 20 27 65 6d | 61 63 73 2d 76 65 72 73 |undp 'em|acs-vers|
|00000140| 69 6f 6e 29 0a 09 20 28 | 6f 72 20 28 61 6e 64 20 |ion).. (|or (and |
|00000150| 28 62 6f 75 6e 64 70 20 | 27 65 70 6f 63 68 3a 3a |(boundp |'epoch::|
|00000160| 76 65 72 73 69 6f 6e 29 | 20 65 70 6f 63 68 3a 3a |version)| epoch::|
|00000170| 76 65 72 73 69 6f 6e 29 | 0a 09 20 20 20 20 20 28 |version)|..     (|
|00000180| 73 74 72 69 6e 67 2d 6c | 65 73 73 70 20 65 6d 61 |string-l|essp ema|
|00000190| 63 73 2d 76 65 72 73 69 | 6f 6e 20 22 31 39 22 29 |cs-versi|on "19")|
|000001a0| 29 29 0a 20 20 20 20 28 | 65 72 72 6f 72 20 22 54 |)).    (|error "T|
|000001b0| 68 69 73 20 66 69 6c 65 | 20 77 61 73 20 63 6f 6d |his file| was com|
|000001c0| 70 69 6c 65 64 20 66 6f | 72 20 45 6d 61 63 73 31 |piled fo|r Emacs1|
|000001d0| 39 2e 22 29 29 0a 0a 28 | 64 65 66 76 61 72 20 66 |9."))..(|defvar f|
|000001e0| 65 65 64 6d 61 69 6c 2d | 63 6f 6e 66 69 72 6d 2d |eedmail-|confirm-|
|000001f0| 6f 75 74 67 6f 69 6e 67 | 20 6e 69 6c 20 22 5c 0a |outgoing| nil "\.|
|00000200| 2a 49 66 20 6e 6f 6e 2d | 6e 69 6c 2c 20 67 69 76 |*If non-|nil, giv|
|00000210| 65 73 20 61 20 79 2d 6f | 72 2d 6e 20 63 6f 6e 66 |es a y-o|r-n conf|
|00000220| 69 72 6d 61 74 69 6f 6e | 20 70 72 6f 6d 70 74 20 |irmation| prompt |
|00000230| 61 66 74 65 72 20 70 72 | 65 70 70 69 6e 67 2c 0a |after pr|epping,.|
|00000240| 62 65 66 6f 72 65 20 73 | 65 6e 64 69 6e 67 20 6d |before s|ending m|
|00000250| 61 69 6c 2e 22 29 0a 28 | 64 65 66 76 61 72 20 66 |ail.").(|defvar f|
|00000260| 65 65 64 6d 61 69 6c 2d | 6e 75 6b 65 2d 62 63 63 |eedmail-|nuke-bcc|
|00000270| 20 74 20 22 5c 0a 2a 4e | 6f 6e 2d 6e 69 6c 20 6d | t "\.*N|on-nil m|
|00000280| 65 61 6e 73 20 67 65 74 | 20 72 69 64 20 6f 66 20 |eans get| rid of |
|00000290| 74 68 65 20 42 43 43 3a | 20 6c 69 6e 65 73 20 66 |the BCC:| lines f|
|000002a0| 72 6f 6d 20 74 68 65 20 | 6d 65 73 73 61 67 65 20 |rom the |message |
|000002b0| 68 65 61 64 65 72 0a 74 | 65 78 74 20 62 65 66 6f |header.t|ext befo|
|000002c0| 72 65 20 73 65 6e 64 69 | 6e 67 20 74 68 65 20 6d |re sendi|ng the m|
|000002d0| 61 69 6c 2e 20 20 49 6e | 20 61 6e 79 20 63 61 73 |ail.  In| any cas|
|000002e0| 65 2c 20 74 68 65 20 42 | 43 43 3a 20 6c 69 6e 65 |e, the B|CC: line|
|000002f0| 73 20 64 6f 0a 70 61 72 | 74 69 63 69 70 61 74 65 |s do.par|ticipate|
|00000300| 20 69 6e 20 74 68 65 20 | 63 6f 6d 70 6f 73 65 64 | in the |composed|
|00000310| 20 61 64 64 72 65 73 73 | 20 6c 69 73 74 2e 20 20 | address| list.  |
|00000320| 59 6f 75 20 70 72 6f 62 | 61 62 6c 79 20 77 61 6e |You prob|ably wan|
|00000330| 74 20 74 6f 20 6b 65 65 | 70 0a 74 68 65 6d 20 69 |t to kee|p.them i|
|00000340| 66 20 79 6f 75 27 72 65 | 20 75 73 69 6e 67 20 73 |f you're| using s|
|00000350| 65 6e 64 6d 61 69 6c 20 | 28 73 65 65 20 66 65 65 |endmail |(see fee|
|00000360| 64 6d 61 69 6c 2d 62 75 | 66 66 65 72 2d 65 61 74 |dmail-bu|ffer-eat|
|00000370| 69 6e 67 2d 66 75 6e 63 | 74 69 6f 6e 29 2e 22 29 |ing-func|tion).")|
|00000380| 0a 28 64 65 66 76 61 72 | 20 66 65 65 64 6d 61 69 |.(defvar| feedmai|
|00000390| 6c 2d 66 69 6c 6c 2d 74 | 6f 2d 63 63 20 74 20 22 |l-fill-t|o-cc t "|
|000003a0| 5c 0a 2a 4e 6f 6e 2d 6e | 69 6c 20 6d 65 61 6e 73 |\.*Non-n|il means|
|000003b0| 20 64 6f 20 73 6d 61 72 | 74 20 66 69 6c 6c 69 6e | do smar|t fillin|
|000003c0| 67 20 28 6c 69 6e 65 2d | 77 72 61 70 70 69 6e 67 |g (line-|wrapping|
|000003d0| 29 20 6f 66 20 54 4f 3a | 20 61 6e 64 20 43 43 3a |) of TO:| and CC:|
|000003e0| 20 68 65 61 64 65 72 0a | 6c 69 6e 65 73 2e 20 20 | header.|lines.  |
|000003f0| 49 66 20 6e 69 6c 2c 20 | 74 68 65 20 6c 69 6e 65 |If nil, |the line|
|00000400| 73 20 61 72 65 20 6c 65 | 66 74 20 61 73 2d 69 73 |s are le|ft as-is|
|00000410| 2e 20 20 54 68 65 20 66 | 69 6c 6c 69 6e 67 20 69 |.  The f|illing i|
|00000420| 73 20 64 6f 6e 65 20 61 | 66 74 65 72 0a 6d 61 69 |s done a|fter.mai|
|00000430| 6c 20 61 64 64 72 65 73 | 73 20 61 6c 69 61 73 20 |l addres|s alias |
|00000440| 65 78 70 61 6e 73 69 6f | 6e 2e 22 29 0a 28 64 65 |expansio|n.").(de|
|00000450| 66 76 61 72 20 66 65 65 | 64 6d 61 69 6c 2d 66 69 |fvar fee|dmail-fi|
|00000460| 6c 6c 2d 74 6f 2d 63 63 | 2d 66 69 6c 6c 2d 63 6f |ll-to-cc|-fill-co|
|00000470| 6c 75 6d 6e 20 64 65 66 | 61 75 6c 74 2d 66 69 6c |lumn def|ault-fil|
|00000480| 6c 2d 63 6f 6c 75 6d 6e | 20 22 5c 0a 2a 46 69 6c |l-column| "\.*Fil|
|00000490| 6c 20 63 6f 6c 75 6d 6e | 20 75 73 65 64 20 77 68 |l column| used wh|
|000004a0| 65 6e 20 77 72 61 70 70 | 69 6e 67 20 6d 61 69 6c |en wrapp|ing mail|
|000004b0| 20 54 4f 3a 20 61 6e 64 | 20 43 43 3a 20 6c 69 6e | TO: and| CC: lin|
|000004c0| 65 73 2e 22 29 0a 28 64 | 65 66 76 61 72 20 66 65 |es.").(d|efvar fe|
|000004d0| 65 64 6d 61 69 6c 2d 6e | 75 6b 65 2d 65 6d 70 74 |edmail-n|uke-empt|
|000004e0| 79 2d 68 65 61 64 65 72 | 73 20 74 20 22 5c 0a 2a |y-header|s t "\.*|
|000004f0| 49 66 20 6e 6f 6e 2d 6e | 69 6c 2c 20 68 65 61 64 |If non-n|il, head|
|00000500| 65 72 73 20 77 69 74 68 | 20 6e 6f 20 63 6f 6e 74 |ers with| no cont|
|00000510| 65 6e 74 73 20 61 72 65 | 20 72 65 6d 6f 76 65 64 |ents are| removed|
|00000520| 20 66 72 6f 6d 20 74 68 | 65 20 6f 75 74 67 6f 69 | from th|e outgoi|
|00000530| 6e 67 0a 65 6d 61 69 6c | 2e 20 20 41 20 63 6f 6d |ng.email|.  A com|
|00000540| 70 6c 65 74 65 6c 79 20 | 65 6d 70 74 79 20 53 55 |pletely |empty SU|
|00000550| 42 4a 45 43 54 3a 20 68 | 65 61 64 65 72 20 69 73 |BJECT: h|eader is|
|00000560| 20 61 6c 77 61 79 73 20 | 72 65 6d 6f 76 65 64 2c | always |removed,|
|00000570| 0a 72 65 67 61 72 64 6c | 65 73 73 20 6f 66 20 74 |.regardl|ess of t|
|00000580| 68 65 20 73 65 74 74 69 | 6e 67 20 6f 66 20 74 68 |he setti|ng of th|
|00000590| 69 73 20 76 61 72 69 61 | 62 6c 65 2e 20 20 54 68 |is varia|ble.  Th|
|000005a0| 65 20 6f 6e 6c 79 20 74 | 69 6d 65 20 79 6f 75 20 |e only t|ime you |
|000005b0| 77 6f 75 6c 64 0a 77 61 | 6e 74 20 74 68 65 6d 20 |would.wa|nt them |
|000005c0| 6c 65 66 74 20 69 6e 20 | 77 6f 75 6c 64 20 62 65 |left in |would be|
|000005d0| 20 69 66 20 79 6f 75 20 | 75 73 65 64 20 73 6f 6d | if you |used som|
|000005e0| 65 20 68 65 61 64 65 72 | 73 20 77 68 6f 73 65 20 |e header|s whose |
|000005f0| 70 72 65 73 65 6e 63 65 | 0a 69 6e 64 69 63 61 74 |presence|.indicat|
|00000600| 65 64 20 73 6f 6d 65 74 | 68 69 6e 67 20 72 61 74 |ed somet|hing rat|
|00000610| 68 65 72 20 74 68 61 6e | 20 74 68 65 69 72 20 63 |her than| their c|
|00000620| 6f 6e 74 65 6e 74 73 2e | 22 29 0a 28 64 65 66 76 |ontents.|").(defv|
|00000630| 61 72 20 66 65 65 64 6d | 61 69 6c 2d 73 65 6e 64 |ar feedm|ail-send|
|00000640| 65 72 2d 6c 69 6e 65 20 | 6e 69 6c 20 22 5c 0a 2a |er-line |nil "\.*|
|00000650| 49 66 20 6e 69 6c 2c 20 | 6e 6f 20 53 45 4e 44 45 |If nil, |no SENDE|
|00000660| 52 3a 20 68 65 61 64 65 | 72 20 69 73 20 66 6f 72 |R: heade|r is for|
|00000670| 63 65 64 2e 20 20 49 66 | 20 6e 6f 6e 2d 6e 69 6c |ced.  If| non-nil|
|00000680| 20 61 6e 64 20 74 68 65 | 20 65 6d 61 69 6c 0a 61 | and the| email.a|
|00000690| 6c 72 65 61 64 79 20 68 | 61 73 20 61 20 46 52 4f |lready h|as a FRO|
|000006a0| 4d 3a 20 68 65 61 64 65 | 72 2c 20 61 20 53 45 4e |M: heade|r, a SEN|
|000006b0| 44 45 52 3a 20 68 65 61 | 64 65 72 20 69 73 20 66 |DER: hea|der is f|
|000006c0| 6f 72 63 65 64 20 77 69 | 74 68 20 74 68 69 73 20 |orced wi|th this |
|000006d0| 61 73 0a 69 74 73 20 63 | 6f 6e 74 65 6e 74 73 2e |as.its c|ontents.|
|000006e0| 20 20 59 6f 75 20 63 61 | 6e 20 70 72 6f 62 61 62 |  You ca|n probab|
|000006f0| 6c 79 20 6c 65 61 76 65 | 20 74 68 69 73 20 6e 69 |ly leave| this ni|
|00000700| 6c 2c 20 62 75 74 20 69 | 66 20 79 6f 75 20 66 65 |l, but i|f you fe|
|00000710| 65 6c 20 6c 69 6b 65 0a | 75 73 69 6e 67 20 69 74 |el like.|using it|
|00000720| 2c 20 61 20 67 6f 6f 64 | 20 76 61 6c 75 65 20 77 |, a good| value w|
|00000730| 6f 75 6c 64 20 62 65 20 | 61 20 66 75 6c 6c 79 2d |ould be |a fully-|
|00000740| 71 75 61 6c 69 66 69 65 | 64 20 64 6f 6d 61 69 6e |qualifie|d domain|
|00000750| 20 6e 61 6d 65 20 66 6f | 72 6d 20 6f 66 0a 79 6f | name fo|rm of.yo|
|00000760| 75 72 20 61 64 64 72 65 | 73 73 2e 20 20 46 6f 72 |ur addre|ss.  For|
|00000770| 20 65 78 61 6d 70 6c 65 | 2c 20 77 69 6c 6c 69 61 | example|, willia|
|00000780| 6d 2e 6a 2e 63 61 72 70 | 65 6e 74 65 72 40 61 74 |m.j.carp|enter@at|
|00000790| 74 2e 63 6f 6d 2e 20 20 | 44 6f 6e 27 74 0a 69 6e |t.com.  |Don't.in|
|000007a0| 63 6c 75 64 65 20 61 20 | 74 72 61 69 6c 69 6e 67 |clude a |trailing|
|000007b0| 20 6e 65 77 6c 69 6e 65 | 20 6f 72 20 74 68 65 20 | newline| or the |
|000007c0| 6b 65 79 77 6f 72 64 20 | 53 45 4e 44 45 52 3a 2e |keyword |SENDER:.|
|000007d0| 20 20 54 68 65 79 27 72 | 65 0a 61 75 74 6f 6d 61 |  They'r|e.automa|
|000007e0| 74 69 63 61 6c 6c 79 20 | 70 72 6f 76 69 64 65 64 |tically |provided|
|000007f0| 2e 22 29 0a 28 64 65 66 | 76 61 72 20 66 65 65 64 |.").(def|var feed|
|00000800| 6d 61 69 6c 2d 66 72 6f | 6d 2d 6c 69 6e 65 20 28 |mail-fro|m-line (|
|00000810| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 20 c1 c2 20 |byte-cod|e ". .. |
|00000820| c3 c4 20 c5 b0 06 87 22 | 20 5b 75 73 65 72 2d 6c |.. ...."| [user-l|
|00000830| 6f 67 69 6e 2d 6e 61 6d | 65 20 22 40 22 20 73 79 |ogin-nam|e "@" sy|
|00000840| 73 74 65 6d 2d 6e 61 6d | 65 20 22 20 28 22 20 75 |stem-nam|e " (" u|
|00000850| 73 65 72 2d 66 75 6c 6c | 2d 6e 61 6d 65 20 22 29 |ser-full|-name ")|
|00000860| 22 5d 20 36 29 20 22 5c | 0a 2a 49 66 20 6e 6f 6e |"] 6) "\|.*If non|
|00000870| 2d 6e 69 6c 20 61 6e 64 | 20 74 68 65 20 65 6d 61 |-nil and| the ema|
|00000880| 69 6c 20 68 61 73 20 6e | 6f 20 46 52 4f 4d 3a 20 |il has n|o FROM: |
|00000890| 68 65 61 64 65 72 2c 20 | 6f 6e 65 20 77 69 6c 6c |header, |one will|
|000008a0| 20 62 65 20 66 6f 72 63 | 65 64 0a 77 69 74 68 20 | be forc|ed.with |
|000008b0| 74 68 69 73 20 61 73 20 | 69 74 73 20 63 6f 6e 74 |this as |its cont|
|000008c0| 65 6e 74 73 2e 20 41 20 | 67 6f 6f 64 20 76 61 6c |ents. A |good val|
|000008d0| 75 65 20 77 6f 75 6c 64 | 20 62 65 20 61 20 66 75 |ue would| be a fu|
|000008e0| 6c 6c 79 2d 71 75 61 6c | 69 66 69 65 64 0a 64 6f |lly-qual|ified.do|
|000008f0| 6d 61 69 6e 20 6e 61 6d | 65 20 66 6f 72 6d 20 6f |main nam|e form o|
|00000900| 66 20 79 6f 75 72 20 61 | 64 64 72 65 73 73 2e 20 |f your a|ddress. |
|00000910| 20 46 6f 72 20 65 78 61 | 6d 70 6c 65 2c 20 77 69 | For exa|mple, wi|
|00000920| 6c 6c 69 61 6d 2e 6a 2e | 63 61 72 70 65 6e 74 65 |lliam.j.|carpente|
|00000930| 72 40 61 74 74 2e 63 6f | 6d 2e 0a 28 54 68 65 20 |r@att.co|m..(The |
|00000940| 64 65 66 61 75 6c 74 20 | 76 61 6c 75 65 20 6f 66 |default |value of|
|00000950| 20 74 68 69 73 20 76 61 | 72 69 61 62 6c 65 20 69 | this va|riable i|
|00000960| 73 20 70 72 6f 62 61 62 | 6c 79 20 6e 6f 74 20 76 |s probab|ly not v|
|00000970| 65 72 79 20 67 6f 6f 64 | 2c 20 73 69 6e 63 65 0a |ery good|, since.|
|00000980| 69 74 20 64 6f 65 73 6e | 27 74 20 68 61 76 65 20 |it doesn|'t have |
|00000990| 61 20 64 6f 6d 61 69 6e | 20 70 61 72 74 2e 29 20 |a domain| part.) |
|000009a0| 20 44 6f 6e 27 74 20 69 | 6e 63 6c 75 64 65 20 61 | Don't i|nclude a|
|000009b0| 20 74 72 61 69 6c 69 6e | 67 20 6e 65 77 6c 69 6e | trailin|g newlin|
|000009c0| 65 20 6f 72 0a 74 68 65 | 20 6b 65 79 77 6f 72 64 |e or.the| keyword|
|000009d0| 20 46 52 4f 4d 3a 2e 20 | 20 54 68 65 79 27 72 65 | FROM:. | They're|
|000009e0| 20 61 75 74 6f 6d 61 74 | 69 63 61 6c 6c 79 20 70 | automat|ically p|
|000009f0| 72 6f 76 69 64 65 64 2e | 22 29 0a 28 64 65 66 76 |rovided.|").(defv|
|00000a00| 61 72 20 66 65 65 64 6d | 61 69 6c 2d 6d 65 73 73 |ar feedm|ail-mess|
|00000a10| 61 67 65 2d 69 64 2d 67 | 65 6e 65 72 61 74 6f 72 |age-id-g|enerator|
|00000a20| 20 6e 69 6c 20 22 5c 0a | 2a 49 66 20 6e 6f 6e 2d | nil "\.|*If non-|
|00000a30| 6e 69 6c 2c 20 73 68 6f | 75 6c 64 20 62 65 20 61 |nil, sho|uld be a|
|00000a40| 20 66 75 6e 63 74 69 6f | 6e 20 28 63 61 6c 6c 65 | functio|n (calle|
|00000a50| 64 20 77 69 74 68 20 6e | 6f 20 61 72 67 75 6d 65 |d with n|o argume|
|00000a60| 6e 74 73 29 20 77 68 69 | 63 68 0a 77 69 6c 6c 20 |nts) whi|ch.will |
|00000a70| 67 65 6e 65 72 61 74 65 | 20 61 20 75 6e 69 71 75 |generate| a uniqu|
|00000a80| 65 20 6d 65 73 73 61 67 | 65 20 49 44 20 77 68 69 |e messag|e ID whi|
|00000a90| 63 68 20 77 69 6c 6c 20 | 62 65 20 69 6e 73 65 72 |ch will |be inser|
|00000aa0| 74 65 64 20 6f 6e 20 61 | 0a 4d 65 73 73 61 67 65 |ted on a|.Message|
|00000ab0| 2d 49 44 3a 20 68 65 61 | 64 65 72 2e 20 20 54 68 |-ID: hea|der.  Th|
|00000ac0| 65 20 6d 65 73 73 61 67 | 65 20 49 44 20 73 68 6f |e messag|e ID sho|
|00000ad0| 75 6c 64 20 62 65 20 74 | 68 65 20 72 65 74 75 72 |uld be t|he retur|
|00000ae0| 6e 20 76 61 6c 75 65 20 | 6f 66 20 74 68 65 0a 66 |n value |of the.f|
|00000af0| 75 6e 63 74 69 6f 6e 2e | 20 20 44 6f 6e 27 74 20 |unction.|  Don't |
|00000b00| 69 6e 63 6c 75 64 65 20 | 74 72 61 69 6c 69 6e 67 |include |trailing|
|00000b10| 20 6e 65 77 6c 69 6e 65 | 2c 20 6c 65 61 64 69 6e | newline|, leadin|
|00000b20| 67 20 73 70 61 63 65 2c | 20 6f 72 20 74 68 65 0a |g space,| or the.|
|00000b30| 6b 65 79 77 6f 72 64 20 | 4d 45 53 53 41 47 45 2d |keyword |MESSAGE-|
|00000b40| 49 44 2e 20 20 54 68 65 | 79 27 72 65 20 61 75 74 |ID.  The|y're aut|
|00000b50| 6f 6d 61 74 69 63 61 6c | 6c 79 20 70 72 6f 76 69 |omatical|ly provi|
|00000b60| 64 65 64 2e 20 20 44 6f | 20 69 6e 63 6c 75 64 65 |ded.  Do| include|
|00000b70| 0a 73 75 72 72 6f 75 6e | 64 69 6e 67 20 3c 3e 20 |.surroun|ding <> |
|00000b80| 62 72 61 63 6b 65 74 73 | 2e 20 20 46 6f 72 20 61 |brackets|.  For a|
|00000b90| 6e 20 65 78 61 6d 70 6c | 65 20 6f 66 20 61 20 6d |n exampl|e of a m|
|00000ba0| 65 73 73 61 67 65 20 49 | 44 20 67 65 6e 65 72 61 |essage I|D genera|
|00000bb0| 74 69 6e 67 0a 66 75 6e | 63 74 69 6f 6e 2c 20 79 |ting.fun|ction, y|
|00000bc0| 6f 75 20 63 6f 75 6c 64 | 20 6c 6f 6f 6b 20 61 74 |ou could| look at|
|00000bd0| 20 74 68 65 20 47 4e 55 | 53 20 66 75 6e 63 74 69 | the GNU|S functi|
|00000be0| 6f 6e 20 67 6e 75 73 2d | 69 6e 65 77 73 2d 6d 65 |on gnus-|inews-me|
|00000bf0| 73 73 61 67 65 2d 69 64 | 2e 0a 57 68 65 6e 20 63 |ssage-id|..When c|
|00000c00| 61 6c 6c 65 64 2c 20 74 | 68 65 20 63 75 72 72 65 |alled, t|he curre|
|00000c10| 6e 74 20 62 75 66 66 65 | 72 20 69 73 20 74 68 65 |nt buffe|r is the|
|00000c20| 20 70 72 65 70 70 65 64 | 20 6f 75 74 67 6f 69 6e | prepped| outgoin|
|00000c30| 67 20 6d 61 69 6c 20 62 | 75 66 66 65 72 0a 28 74 |g mail b|uffer.(t|
|00000c40| 68 65 20 66 75 6e 63 74 | 69 6f 6e 20 6d 61 79 20 |he funct|ion may |
|00000c50| 69 6e 73 70 65 63 74 20 | 69 74 2c 20 62 75 74 20 |inspect |it, but |
|00000c60| 73 68 6f 75 6c 64 6e 27 | 74 20 6d 6f 64 69 66 79 |shouldn'|t modify|
|00000c70| 20 69 74 29 2e 20 20 49 | 66 20 74 68 65 20 72 65 | it).  I|f the re|
|00000c80| 74 75 72 6e 65 64 0a 76 | 61 6c 75 65 20 64 6f 65 |turned.v|alue doe|
|00000c90| 73 6e 27 74 20 63 6f 6e | 74 61 69 6e 20 61 6e 79 |sn't con|tain any|
|00000ca0| 20 6e 6f 6e 2d 77 68 69 | 74 65 73 70 61 63 65 20 | non-whi|tespace |
|00000cb0| 63 68 61 72 61 63 74 65 | 72 73 2c 20 6e 6f 20 6d |characte|rs, no m|
|00000cc0| 65 73 73 61 67 65 20 49 | 44 0a 68 65 61 64 65 72 |essage I|D.header|
|00000cd0| 20 69 73 20 67 65 6e 65 | 72 61 74 65 64 2c 20 73 | is gene|rated, s|
|00000ce0| 6f 20 79 6f 75 20 63 6f | 75 6c 64 20 67 65 6e 65 |o you co|uld gene|
|00000cf0| 72 61 74 65 20 74 68 65 | 6d 20 63 6f 6e 64 69 74 |rate the|m condit|
|00000d00| 69 6f 6e 61 6c 6c 79 2c | 0a 62 61 73 65 64 20 6f |ionally,|.based o|
|00000d10| 6e 20 74 68 65 20 63 6f | 6e 74 65 6e 74 73 20 6f |n the co|ntents o|
|00000d20| 66 20 74 68 65 20 6d 61 | 69 6c 2e 22 29 0a 28 66 |f the ma|il.").(f|
|00000d30| 73 65 74 20 27 66 65 65 | 64 6d 61 69 6c 2d 63 6f |set 'fee|dmail-co|
|00000d40| 6e 66 69 72 6d 2d 61 64 | 64 72 65 73 73 65 73 2d |nfirm-ad|dresses-|
|00000d50| 68 6f 6f 6b 2d 65 78 61 | 6d 70 6c 65 20 23 5b 6e |hook-exa|mple #[n|
|00000d60| 69 6c 20 22 c0 8b 87 22 | 20 5b 28 28 62 79 74 65 |il "..."| [((byte|
|00000d70| 2d 63 6f 64 65 20 22 c0 | 09 21 88 c2 c3 21 3f ad |-code ".|.!...!?.|
|00000d80| 83 c4 c5 21 87 22 20 5b | 64 69 73 70 6c 61 79 2d |...!." [|display-|
|00000d90| 62 75 66 66 65 72 20 66 | 65 65 64 6d 61 69 6c 2d |buffer f|eedmail-|
|00000da0| 61 64 64 72 65 73 73 2d | 62 75 66 66 65 72 20 79 |address-|buffer y|
|00000db0| 2d 6f 72 2d 6e 2d 70 20 | 22 48 6f 77 20 64 6f 20 |-or-n-p |"How do |
|00000dc0| 79 6f 75 20 6c 69 6b 65 | 20 74 68 65 6d 20 61 70 |you like| them ap|
|00000dd0| 70 6c 65 73 3f 20 22 20 | 65 72 72 6f 72 20 22 53 |ples? " |error "S|
|00000de0| 65 6e 64 69 6e 67 2e 2e | 2e 67 61 76 65 20 75 70 |ending..|.gave up|
|00000df0| 20 69 6e 20 6c 61 73 74 | 20 63 68 61 6e 63 65 20 | in last| chance |
|00000e00| 68 6f 6f 6b 22 5d 20 32 | 29 29 5d 20 31 20 22 5c |hook"] 2|))] 1 "\|
|00000e10| 0a 41 6e 20 65 78 61 6d | 70 6c 65 20 6f 66 20 61 |.An exam|ple of a|
|00000e20| 20 6c 61 73 74 20 63 68 | 61 6e 63 65 20 68 6f 6f | last ch|ance hoo|
|00000e30| 6b 20 74 68 61 74 20 73 | 68 6f 77 73 20 74 68 65 |k that s|hows the|
|00000e40| 20 73 69 6d 70 6c 65 20 | 61 64 64 72 65 73 73 65 | simple |addresse|
|00000e50| 73 0a 61 6e 64 20 67 65 | 74 73 20 61 20 63 6f 6e |s.and ge|ts a con|
|00000e60| 66 69 72 6d 61 74 69 6f | 6e 2e 20 20 55 73 65 20 |firmatio|n.  Use |
|00000e70| 61 73 20 28 73 65 74 71 | 20 66 65 65 64 6d 61 69 |as (setq| feedmai|
|00000e80| 6c 2d 6c 61 73 74 2d 63 | 68 61 6e 63 65 2d 68 6f |l-last-c|hance-ho|
|00000e90| 6f 6b 0a 27 66 65 65 64 | 6d 61 69 6c 2d 63 6f 6e |ok.'feed|mail-con|
|00000ea0| 66 69 72 6d 2d 61 64 64 | 72 65 73 73 65 73 2d 68 |firm-add|resses-h|
|00000eb0| 6f 6f 6b 2d 65 78 61 6d | 70 6c 65 29 2e 22 5d 29 |ook-exam|ple)."])|
|00000ec0| 0a 28 64 65 66 76 61 72 | 20 66 65 65 64 6d 61 69 |.(defvar| feedmai|
|00000ed0| 6c 2d 6c 61 73 74 2d 63 | 68 61 6e 63 65 2d 68 6f |l-last-c|hance-ho|
|00000ee0| 6f 6b 20 6e 69 6c 20 22 | 5c 0a 2a 55 73 65 72 27 |ok nil "|\.*User'|
|00000ef0| 73 20 6c 61 73 74 20 6f | 70 70 6f 72 74 75 6e 69 |s last o|pportuni|
|00000f00| 74 79 20 74 6f 20 6d 6f | 64 69 66 79 20 74 68 65 |ty to mo|dify the|
|00000f10| 20 6d 65 73 73 61 67 65 | 20 6f 6e 20 69 74 73 20 | message| on its |
|00000f20| 77 61 79 20 6f 75 74 2e | 20 20 49 74 0a 68 61 73 |way out.|  It.has|
|00000f30| 20 61 6c 72 65 61 64 79 | 20 68 61 64 20 61 6c 6c | already| had all|
|00000f40| 20 74 68 65 20 68 65 61 | 64 65 72 20 70 72 65 70 | the hea|der prep|
|00000f50| 70 69 6e 67 20 66 72 6f | 6d 20 74 68 65 20 73 74 |ping fro|m the st|
|00000f60| 61 6e 64 61 72 64 20 70 | 61 63 6b 61 67 65 2e 0a |andard p|ackage..|
|00000f70| 54 68 65 20 6e 65 78 74 | 20 73 74 65 70 20 61 66 |The next| step af|
|00000f80| 74 65 72 20 72 75 6e 6e | 69 6e 67 20 74 68 65 20 |ter runn|ing the |
|00000f90| 68 6f 6f 6b 20 77 69 6c | 6c 20 62 65 20 74 6f 20 |hook wil|l be to |
|00000fa0| 70 75 73 68 20 74 68 65 | 20 62 75 66 66 65 72 20 |push the| buffer |
|00000fb0| 69 6e 74 6f 20 61 0a 73 | 75 62 70 72 6f 63 65 73 |into a.s|ubproces|
|00000fc0| 73 20 74 68 61 74 20 6d | 61 69 6c 73 20 74 68 65 |s that m|ails the|
|00000fd0| 20 6d 61 69 6c 2e 20 20 | 54 68 65 20 68 6f 6f 6b | mail.  |The hook|
|00000fe0| 20 6d 69 67 68 74 20 62 | 65 20 69 6e 74 65 72 65 | might b|e intere|
|00000ff0| 73 74 65 64 20 69 6e 20 | 74 68 65 73 65 0a 62 75 |sted in |these.bu|
|00001000| 66 66 65 72 73 3a 20 20 | 28 31 29 20 66 65 65 64 |ffers:  |(1) feed|
|00001010| 6d 61 69 6c 2d 70 72 65 | 70 70 65 64 2d 74 65 78 |mail-pre|pped-tex|
|00001020| 74 2d 62 75 66 66 65 72 | 20 63 6f 6e 74 61 69 6e |t-buffer| contain|
|00001030| 73 20 74 68 65 20 68 65 | 61 64 65 72 20 61 6e 64 |s the he|ader and|
|00001040| 20 62 6f 64 79 0a 6f 66 | 20 74 68 65 20 6d 65 73 | body.of| the mes|
|00001050| 73 61 67 65 2c 20 72 65 | 61 64 79 20 74 6f 20 67 |sage, re|ady to g|
|00001060| 6f 3b 20 20 28 32 29 20 | 66 65 65 64 6d 61 69 6c |o;  (2) |feedmail|
|00001070| 2d 61 64 64 72 65 73 73 | 2d 62 75 66 66 65 72 20 |-address|-buffer |
|00001080| 63 6f 6e 74 61 69 6e 73 | 20 74 68 65 0a 73 70 61 |contains| the.spa|
|00001090| 63 65 2d 73 65 70 61 72 | 61 74 65 64 2c 20 73 69 |ce-separ|ated, si|
|000010a0| 6d 70 6c 69 66 69 65 64 | 20 6c 69 73 74 20 6f 66 |mplified| list of|
|000010b0| 20 61 64 64 72 65 73 73 | 65 73 20 77 68 69 63 68 | address|es which|
|000010c0| 20 69 73 20 74 6f 20 62 | 65 20 67 69 76 65 6e 20 | is to b|e given |
|000010d0| 74 6f 0a 74 68 65 20 73 | 75 62 70 72 6f 63 65 73 |to.the s|ubproces|
|000010e0| 73 20 28 74 68 65 20 68 | 6f 6f 6b 20 6d 61 79 20 |s (the h|ook may |
|000010f0| 63 68 61 6e 67 65 20 74 | 68 65 6d 29 2e 20 20 66 |change t|hem).  f|
|00001100| 65 65 64 6d 61 69 6c 2d | 65 72 72 6f 72 2d 62 75 |eedmail-|error-bu|
|00001110| 66 66 65 72 20 69 73 0a | 61 6e 20 65 6d 70 74 79 |ffer is.|an empty|
|00001120| 20 62 75 66 66 65 72 20 | 69 6e 74 65 6e 64 65 64 | buffer |intended|
|00001130| 20 74 6f 20 73 6f 61 6b | 20 75 70 20 65 72 72 6f | to soak| up erro|
|00001140| 72 73 20 66 6f 72 20 64 | 69 73 70 6c 61 79 20 74 |rs for d|isplay t|
|00001150| 6f 20 74 68 65 20 75 73 | 65 72 2e 0a 49 66 20 74 |o the us|er..If t|
|00001160| 68 65 20 68 6f 6f 6b 20 | 61 6c 6c 6f 77 73 20 69 |he hook |allows i|
|00001170| 6e 74 65 72 61 63 74 69 | 76 65 20 61 63 74 69 76 |nteracti|ve activ|
|00001180| 69 74 79 2c 20 74 68 65 | 20 75 73 65 72 20 73 68 |ity, the| user sh|
|00001190| 6f 75 6c 64 20 6e 6f 74 | 20 73 65 6e 64 20 6d 6f |ould not| send mo|
|000011a0| 72 65 0a 6d 61 69 6c 20 | 77 68 69 6c 65 20 69 6e |re.mail |while in|
|000011b0| 20 74 68 65 20 68 6f 6f | 6b 20 73 69 6e 63 65 20 | the hoo|k since |
|000011c0| 73 6f 6d 65 20 6f 66 20 | 74 68 65 20 69 6e 74 65 |some of |the inte|
|000011d0| 72 6e 61 6c 20 62 75 66 | 66 65 72 73 20 77 69 6c |rnal buf|fers wil|
|000011e0| 6c 20 62 65 20 72 65 75 | 73 65 64 2e 22 29 0a 28 |l be reu|sed.").(|
|000011f0| 64 65 66 76 61 72 20 66 | 65 65 64 6d 61 69 6c 2d |defvar f|eedmail-|
|00001200| 62 75 66 66 65 72 2d 65 | 61 74 69 6e 67 2d 66 75 |buffer-e|ating-fu|
|00001210| 6e 63 74 69 6f 6e 20 27 | 66 65 65 64 6d 61 69 6c |nction '|feedmail|
|00001220| 2d 62 75 66 66 65 72 2d | 74 6f 2d 62 69 6e 6d 61 |-buffer-|to-binma|
|00001230| 69 6c 20 22 5c 0a 2a 46 | 75 6e 63 74 69 6f 6e 20 |il "\.*F|unction |
|00001240| 75 73 65 64 20 74 6f 20 | 73 65 6e 64 20 74 68 65 |used to |send the|
|00001250| 20 70 72 65 70 70 65 64 | 20 62 75 66 66 65 72 20 | prepped| buffer |
|00001260| 74 6f 20 61 20 73 75 62 | 70 72 6f 63 65 73 73 2e |to a sub|process.|
|00001270| 20 20 54 68 65 0a 66 75 | 6e 63 74 69 6f 6e 27 73 |  The.fu|nction's|
|00001280| 20 74 68 72 65 65 20 28 | 6d 61 6e 64 61 74 6f 72 | three (|mandator|
|00001290| 79 29 20 61 72 67 75 6d | 65 6e 74 73 20 61 72 65 |y) argum|ents are|
|000012a0| 3a 20 28 31 29 20 74 68 | 65 20 62 75 66 66 65 72 |: (1) th|e buffer|
|000012b0| 20 63 6f 6e 74 61 69 6e | 69 6e 67 0a 74 68 65 20 | contain|ing.the |
|000012c0| 70 72 65 70 70 65 64 20 | 6d 65 73 73 61 67 65 3b |prepped |message;|
|000012d0| 20 28 32 29 20 61 20 62 | 75 66 66 65 72 20 77 68 | (2) a b|uffer wh|
|000012e0| 65 72 65 20 65 72 72 6f | 72 73 20 73 68 6f 75 6c |ere erro|rs shoul|
|000012f0| 64 20 62 65 20 64 69 72 | 65 63 74 65 64 3b 20 61 |d be dir|ected; a|
|00001300| 6e 64 0a 28 33 29 20 61 | 20 73 74 72 69 6e 67 20 |nd.(3) a| string |
|00001310| 63 6f 6e 74 61 69 6e 69 | 6e 67 20 74 68 65 20 73 |containi|ng the s|
|00001320| 70 61 63 65 2d 73 65 70 | 61 72 61 74 65 64 20 6c |pace-sep|arated l|
|00001330| 69 73 74 20 6f 66 20 73 | 69 6d 70 6c 69 66 69 65 |ist of s|implifie|
|00001340| 64 0a 61 64 64 72 65 73 | 73 65 73 2e 20 20 54 77 |d.addres|ses.  Tw|
|00001350| 6f 20 70 6f 70 75 6c 61 | 72 20 63 68 6f 69 63 65 |o popula|r choice|
|00001360| 73 20 66 6f 72 20 74 68 | 69 73 20 61 72 65 20 27 |s for th|is are '|
|00001370| 66 65 65 64 6d 61 69 6c | 2d 62 75 66 66 65 72 2d |feedmail|-buffer-|
|00001380| 74 6f 2d 62 69 6e 6d 61 | 69 6c 0a 61 6e 64 20 27 |to-binma|il.and '|
|00001390| 66 65 65 64 6d 61 69 6c | 2d 62 75 66 66 65 72 2d |feedmail|-buffer-|
|000013a0| 74 6f 2d 73 65 6e 64 6d | 61 69 6c 2e 20 20 49 66 |to-sendm|ail.  If|
|000013b0| 20 79 6f 75 20 75 73 65 | 20 74 68 65 20 73 65 6e | you use| the sen|
|000013c0| 64 6d 61 69 6c 20 66 6f | 72 6d 2c 20 79 6f 75 0a |dmail fo|rm, you.|
|000013d0| 70 72 6f 62 61 62 6c 79 | 20 77 61 6e 74 20 74 6f |probably| want to|
|000013e0| 20 73 65 74 20 66 65 65 | 64 6d 61 69 6c 2d 6e 75 | set fee|dmail-nu|
|000013f0| 6b 65 2d 62 63 63 20 74 | 6f 20 6e 69 6c 2e 20 20 |ke-bcc t|o nil.  |
|00001400| 49 66 20 79 6f 75 20 75 | 73 65 20 74 68 65 20 62 |If you u|se the b|
|00001410| 69 6e 6d 61 69 6c 0a 66 | 6f 72 6d 2c 20 63 68 65 |inmail.f|orm, che|
|00001420| 63 6b 20 74 68 65 20 76 | 61 6c 75 65 20 6f 66 20 |ck the v|alue of |
|00001430| 66 65 65 64 6d 61 69 6c | 2d 62 69 6e 6d 61 69 6c |feedmail|-binmail|
|00001440| 2d 74 65 6d 70 6c 61 74 | 65 2e 22 29 0a 28 64 65 |-templat|e.").(de|
|00001450| 66 76 61 72 20 66 65 65 | 64 6d 61 69 6c 2d 62 69 |fvar fee|dmail-bi|
|00001460| 6e 6d 61 69 6c 2d 74 65 | 6d 70 6c 61 74 65 20 28 |nmail-te|mplate (|
|00001470| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 ab 82 c1 87 |byte-cod|e ".....|
|00001480| c2 87 22 20 5b 6d 61 69 | 6c 2d 69 6e 74 65 72 61 |.." [mai|l-intera|
|00001490| 63 74 69 76 65 20 22 2f | 62 69 6e 2f 6d 61 69 6c |ctive "/|bin/mail|
|000014a0| 20 25 73 22 20 22 2f 62 | 69 6e 2f 72 6d 61 69 6c | %s" "/b|in/rmail|
|000014b0| 20 25 73 22 5d 20 31 29 | 20 22 5c 0a 2a 43 6f 6d | %s"] 1)| "\.*Com|
|000014c0| 6d 61 6e 64 20 74 65 6d | 70 6c 61 74 65 20 66 6f |mand tem|plate fo|
|000014d0| 72 20 74 68 65 20 73 75 | 62 70 72 6f 63 65 73 73 |r the su|bprocess|
|000014e0| 20 77 68 69 63 68 20 77 | 69 6c 6c 20 67 65 74 20 | which w|ill get |
|000014f0| 72 69 64 20 6f 66 20 74 | 68 65 0a 6d 61 69 6c 2e |rid of t|he.mail.|
|00001500| 20 20 49 74 20 63 61 6e | 20 72 65 73 75 6c 74 20 |  It can| result |
|00001510| 69 6e 20 61 6e 79 20 63 | 6f 6d 6d 61 6e 64 20 75 |in any c|ommand u|
|00001520| 6e 64 65 72 73 74 61 6e | 64 61 62 6c 65 20 62 79 |nderstan|dable by|
|00001530| 20 2f 62 69 6e 2f 73 68 | 2e 20 20 54 68 65 0a 73 | /bin/sh|.  The.s|
|00001540| 69 6e 67 6c 65 20 27 25 | 73 27 2c 20 69 66 20 70 |ingle '%|s', if p|
|00001550| 72 65 73 65 6e 74 2c 20 | 67 65 74 73 20 72 65 70 |resent, |gets rep|
|00001560| 6c 61 63 65 64 20 62 79 | 20 74 68 65 20 73 70 61 |laced by| the spa|
|00001570| 63 65 2d 73 65 70 61 72 | 61 74 65 64 2c 0a 73 69 |ce-separ|ated,.si|
|00001580| 6d 70 6c 69 66 69 65 64 | 20 6c 69 73 74 20 6f 66 |mplified| list of|
|00001590| 20 61 64 64 72 65 73 73 | 65 65 73 2e 20 20 55 73 | address|ees.  Us|
|000015a0| 65 64 20 69 6e 20 66 65 | 65 64 6d 61 69 6c 2d 62 |ed in fe|edmail-b|
|000015b0| 75 66 66 65 72 2d 74 6f | 2d 62 69 6e 6d 61 69 6c |uffer-to|-binmail|
|000015c0| 20 74 6f 0a 66 6f 72 6d | 20 74 68 65 20 73 68 65 | to.form| the she|
|000015d0| 6c 6c 20 63 6f 6d 6d 61 | 6e 64 20 77 68 69 63 68 |ll comma|nd which|
|000015e0| 20 77 69 6c 6c 20 72 65 | 63 65 69 76 65 20 74 68 | will re|ceive th|
|000015f0| 65 20 63 6f 6e 74 65 6e | 74 73 20 6f 66 20 74 68 |e conten|ts of th|
|00001600| 65 20 70 72 65 70 70 65 | 64 0a 62 75 66 66 65 72 |e preppe|d.buffer|
|00001610| 20 61 73 20 73 74 64 69 | 6e 2e 20 20 49 66 20 79 | as stdi|n.  If y|
|00001620| 6f 75 27 64 20 6c 69 6b | 65 20 79 6f 75 72 20 65 |ou'd lik|e your e|
|00001630| 72 72 6f 72 73 20 74 6f | 20 63 6f 6d 65 20 62 61 |rrors to| come ba|
|00001640| 63 6b 20 61 73 20 6d 61 | 69 6c 0a 69 6e 73 74 65 |ck as ma|il.inste|
|00001650| 61 64 20 6f 66 20 69 6d | 6d 65 64 69 61 74 65 6c |ad of im|mediatel|
|00001660| 79 20 69 6e 20 61 20 62 | 75 66 66 65 72 2c 20 74 |y in a b|uffer, t|
|00001670| 72 79 20 2f 62 69 6e 2f | 72 6d 61 69 6c 20 69 6e |ry /bin/|rmail in|
|00001680| 73 74 65 61 64 20 6f 66 | 0a 2f 62 69 6e 2f 6d 61 |stead of|./bin/ma|
|00001690| 69 6c 20 28 74 68 69 73 | 20 63 61 6e 20 62 65 20 |il (this| can be |
|000016a0| 61 63 63 6f 6d 70 6c 69 | 73 68 65 64 20 62 79 20 |accompli|shed by |
|000016b0| 6b 65 65 70 69 6e 67 20 | 74 68 65 20 64 65 66 61 |keeping |the defa|
|000016c0| 75 6c 74 20 6e 69 6c 20 | 73 65 74 74 69 6e 67 0a |ult nil |setting.|
|000016d0| 6f 66 20 6d 61 69 6c 2d | 69 6e 74 65 72 61 63 74 |of mail-|interact|
|000016e0| 69 76 65 29 2e 20 20 59 | 6f 75 20 6d 69 67 68 74 |ive).  Y|ou might|
|000016f0| 20 61 6c 73 6f 20 6c 69 | 6b 65 20 74 6f 20 63 6f | also li|ke to co|
|00001700| 6e 73 75 6c 74 20 6c 6f | 63 61 6c 20 6d 61 69 6c |nsult lo|cal mail|
|00001710| 0a 65 78 70 65 72 74 73 | 20 66 6f 72 20 61 6e 79 |.experts| for any|
|00001720| 20 6f 74 68 65 72 20 69 | 6e 74 65 72 65 73 74 69 | other i|nteresti|
|00001730| 6e 67 20 63 6f 6d 6d 61 | 6e 64 20 6c 69 6e 65 20 |ng comma|nd line |
|00001740| 70 6f 73 73 69 62 69 6c | 69 74 69 65 73 2e 22 29 |possibil|ities.")|
|00001750| 0a 28 66 73 65 74 20 27 | 66 65 65 64 6d 61 69 6c |.(fset '|feedmail|
|00001760| 2d 62 75 66 66 65 72 2d | 74 6f 2d 62 69 6e 6d 61 |-buffer-|to-binma|
|00001770| 69 6c 20 23 5b 28 70 72 | 65 70 70 65 64 2d 6d 61 |il #[(pr|epped-ma|
|00001780| 69 6c 2d 62 75 66 66 65 | 72 20 6d 61 69 6c 2d 65 |il-buffe|r mail-e|
|00001790| 72 72 6f 72 2d 62 75 66 | 66 65 72 20 73 69 6d 70 |rror-buf|fer simp|
|000017a0| 6c 65 2d 61 64 64 72 65 | 73 73 2d 6c 69 73 74 29 |le-addre|ss-list)|
|000017b0| 20 22 8a 08 71 88 c1 c2 | c3 65 64 c4 c5 0e 06 c5 | "..q...|.ed.....|
|000017c0| c7 c8 0e 09 0e 5c 6e 5c | 22 af 08 21 5c 22 29 87 |.....\n\|"..!\").|
|000017d0| 22 20 5b 70 72 65 70 70 | 65 64 2d 6d 61 69 6c 2d |" [prepp|ed-mail-|
|000017e0| 62 75 66 66 65 72 20 61 | 70 70 6c 79 20 63 61 6c |buffer a|pply cal|
|000017f0| 6c 2d 70 72 6f 63 65 73 | 73 2d 72 65 67 69 6f 6e |l-proces|s-region|
|00001800| 20 61 70 70 65 6e 64 20 | 22 2f 62 69 6e 2f 73 68 | append |"/bin/sh|
|00001810| 22 20 6e 69 6c 20 6d 61 | 69 6c 2d 65 72 72 6f 72 |" nil ma|il-error|
|00001820| 2d 62 75 66 66 65 72 20 | 22 2d 63 22 20 66 6f 72 |-buffer |"-c" for|
|00001830| 6d 61 74 20 66 65 65 64 | 6d 61 69 6c 2d 62 69 6e |mat feed|mail-bin|
|00001840| 6d 61 69 6c 2d 74 65 6d | 70 6c 61 74 65 20 73 69 |mail-tem|plate si|
|00001850| 6d 70 6c 65 2d 61 64 64 | 72 65 73 73 2d 6c 69 73 |mple-add|ress-lis|
|00001860| 74 5d 20 31 33 20 22 5c | 0a 46 75 6e 63 74 69 6f |t] 13 "\|.Functio|
|00001870| 6e 20 77 68 69 63 68 20 | 61 63 74 75 61 6c 6c 79 |n which |actually|
|00001880| 20 63 61 6c 6c 73 20 2f | 62 69 6e 2f 6d 61 69 6c | calls /|bin/mail|
|00001890| 20 61 73 20 61 20 73 75 | 62 70 72 6f 63 65 73 73 | as a su|bprocess|
|000018a0| 20 61 6e 64 20 66 65 65 | 64 73 20 74 68 65 20 62 | and fee|ds the b|
|000018b0| 75 66 66 65 72 20 74 6f | 20 69 74 2e 22 5d 29 0a |uffer to| it."]).|
|000018c0| 28 66 73 65 74 20 27 66 | 65 65 64 6d 61 69 6c 2d |(fset 'f|eedmail-|
|000018d0| 62 75 66 66 65 72 2d 74 | 6f 2d 73 65 6e 64 6d 61 |buffer-t|o-sendma|
|000018e0| 69 6c 20 23 5b 28 70 72 | 65 70 70 65 64 2d 6d 61 |il #[(pr|epped-ma|
|000018f0| 69 6c 2d 62 75 66 66 65 | 72 20 66 65 65 64 6d 61 |il-buffe|r feedma|
|00001900| 69 6c 2d 65 72 72 6f 72 | 2d 62 75 66 66 65 72 20 |il-error|-buffer |
|00001910| 73 69 6d 70 6c 65 2d 61 | 64 64 72 65 73 73 2d 6c |simple-a|ddress-l|
|00001920| 69 73 74 29 20 22 8a 08 | 71 88 c1 c2 c3 65 64 c4 |ist) "..|q....ed.|
|00001930| c5 21 ab 83 0d aa 81 c6 | c7 0e 08 c7 c9 ca af 08 |.!......|........|
|00001940| cb 20 cc 9a ad 84 cd ce | 20 44 0e 0f 3f ad 81 d0 |. ......| D..?...|
|00001950| 23 5c 22 29 87 22 20 5b | 70 72 65 70 70 65 64 2d |#\")." [|prepped-|
|00001960| 6d 61 69 6c 2d 62 75 66 | 66 65 72 20 61 70 70 6c |mail-buf|fer appl|
|00001970| 79 20 63 61 6c 6c 2d 70 | 72 6f 63 65 73 73 2d 72 |y call-p|rocess-r|
|00001980| 65 67 69 6f 6e 20 61 70 | 70 65 6e 64 20 62 6f 75 |egion ap|pend bou|
|00001990| 6e 64 70 20 73 65 6e 64 | 6d 61 69 6c 2d 70 72 6f |ndp send|mail-pro|
|000019a0| 67 72 61 6d 20 22 2f 75 | 73 72 2f 6c 69 62 2f 73 |gram "/u|sr/lib/s|
|000019b0| 65 6e 64 6d 61 69 6c 22 | 20 6e 69 6c 20 66 65 65 |endmail"| nil fee|
|000019c0| 64 6d 61 69 6c 2d 65 72 | 72 6f 72 2d 62 75 66 66 |dmail-er|ror-buff|
|000019d0| 65 72 20 22 2d 6f 69 22 | 20 22 2d 74 22 20 75 73 |er "-oi"| "-t" us|
|000019e0| 65 72 2d 72 65 61 6c 2d | 6c 6f 67 69 6e 2d 6e 61 |er-real-|login-na|
|000019f0| 6d 65 20 22 72 6f 6f 74 | 22 20 22 2d 66 22 20 75 |me "root|" "-f" u|
|00001a00| 73 65 72 2d 6c 6f 67 69 | 6e 2d 6e 61 6d 65 20 6d |ser-logi|n-name m|
|00001a10| 61 69 6c 2d 69 6e 74 65 | 72 61 63 74 69 76 65 20 |ail-inte|ractive |
|00001a20| 28 22 2d 6f 65 6d 22 20 | 22 2d 6f 64 62 22 29 5d |("-oem" |"-odb")]|
|00001a30| 20 31 31 20 22 5c 0a 46 | 75 6e 63 74 69 6f 6e 20 | 11 "\.F|unction |
|00001a40| 77 68 69 63 68 20 61 63 | 74 75 61 6c 6c 79 20 63 |which ac|tually c|
|00001a50| 61 6c 6c 73 20 73 65 6e | 64 6d 61 69 6c 20 61 73 |alls sen|dmail as|
|00001a60| 20 61 20 73 75 62 70 72 | 6f 63 65 73 73 20 61 6e | a subpr|ocess an|
|00001a70| 64 20 66 65 65 64 73 20 | 74 68 65 20 62 75 66 66 |d feeds |the buff|
|00001a80| 65 72 20 74 6f 20 69 74 | 2e 22 5d 29 0a 28 66 73 |er to it|."]).(fs|
|00001a90| 65 74 20 27 66 65 65 64 | 6d 61 69 6c 2d 73 65 6e |et 'feed|mail-sen|
|00001aa0| 64 2d 69 74 20 23 5b 6e | 69 6c 20 22 c0 19 c2 c3 |d-it #[n|il "....|
|00001ab0| 21 1c c2 c5 21 1e 06 c2 | c7 21 1e 08 70 1e 09 ca |!...!...|.!..p...|
|00001ac0| 1e 0b ca 1e 0c cd 8e 8a | 0e 06 71 88 ce 20 88 cf |........|..q.. ..|
|00001ad0| 0e 09 21 88 64 62 88 68 | d0 55 ac 83 d0 63 88 65 |..!.db.h|.U...c.e|
|00001ae0| 62 88 d1 d2 d3 0e 14 21 | d5 51 21 88 d6 d5 21 88 |b......!|.Q!...!.|
|00001af0| d7 20 16 0c d8 d9 21 ab | 8a 0e 1a ab 86 d9 65 0e |. ....!.|......e.|
|00001b00| 0c 5c 22 88 0e 1b ab 85 | dc 0e 0c 21 88 65 62 88 |.\".....|...!.eb.|
|00001b10| d1 dd 0e 0c c0 23 ab 8c | 60 0e 0c 57 ab 86 d6 d5 |.....#..|`..W....|
|00001b20| 21 88 aa 6c c0 1e 0b de | 0e 06 65 0e 0c 23 88 8a |!..l....|..e..#..|
|00001b30| 0e 08 71 88 65 62 88 d1 | df 64 c0 23 ac 84 e0 e1 |..q.eb..|.d.#....|
|00001b40| 21 88 29 0e 5c 22 ab 85 | e3 0e 0c 21 88 65 62 88 |!.).\"..|...!.eb.|
|00001b50| d1 e4 0e 0c c0 23 ab 85 | e5 0e 0c 21 88 65 62 88 |.....#..|...!.eb.|
|00001b60| d1 e6 0e 0c c0 23 ab 9d | 0e 27 ab a7 8a 65 62 88 |.....#..|.'...eb.|
|00001b70| d1 e8 0e 0c c0 23 29 ac | 9a e9 79 88 ea 0e 27 d5 |.....#).|..y...'.|
|00001b80| b1 03 88 aa 8e 0e 2b ab | 8a 65 62 88 ec 0e 2b d5 |......+.|.eb...+.|
|00001b90| b1 03 88 65 62 88 d1 ed | 0e 0c c0 23 ab 84 d6 ee |...eb...|...#....|
|00001ba0| 21 88 65 62 88 0e 2f ab | 8e d1 f0 0e 0c c0 23 ab |!.eb../.|......#.|
|00001bb0| 86 d6 ee 21 88 aa 72 29 | 0e 31 ab a9 65 62 88 d1 |...!..r)|.1..eb..|
|00001bc0| f2 0e 0c c0 23 ab 84 d6 | ee 21 88 0e 31 20 16 33 |....#...|.!..1 .3|
|00001bd0| 65 62 88 0e 33 ab 8e f4 | f5 0e 33 5c 22 ab 87 f6 |eb..3...|..3\"...|
|00001be0| 0e 33 d5 b1 03 88 8a 0c | 71 88 ce 20 88 29 f7 f8 |.3......|q.. .)..|
|00001bf0| 21 88 0e 39 ab 86 fa 0e | 06 21 ab 90 0e 3b 0e 06 |!..9....|.!...;..|
|00001c00| 0c 8a 0e 08 71 88 fc 20 | 29 23 aa 83 e0 fd 21 2e |....q.. |)#....!.|
|00001c10| 09 87 22 20 5b 74 20 64 | 65 66 61 75 6c 74 2d 63 |.." [t d|efault-c|
|00001c20| 61 73 65 2d 66 6f 6c 64 | 2d 73 65 61 72 63 68 20 |ase-fold|-search |
|00001c30| 67 65 74 2d 62 75 66 66 | 65 72 2d 63 72 65 61 74 |get-buff|er-creat|
|00001c40| 65 20 22 20 2a 4f 75 74 | 67 6f 69 6e 67 20 45 6d |e " *Out|going Em|
|00001c50| 61 69 6c 20 45 72 72 6f | 72 73 2a 22 20 66 65 65 |ail Erro|rs*" fee|
|00001c60| 64 6d 61 69 6c 2d 65 72 | 72 6f 72 2d 62 75 66 66 |dmail-er|ror-buff|
|00001c70| 65 72 20 22 20 2a 4f 75 | 74 67 6f 69 6e 67 20 45 |er " *Ou|tgoing E|
|00001c80| 6d 61 69 6c 20 54 65 78 | 74 2a 22 20 66 65 65 64 |mail Tex|t*" feed|
|00001c90| 6d 61 69 6c 2d 70 72 65 | 70 70 65 64 2d 74 65 78 |mail-pre|pped-tex|
|00001ca0| 74 2d 62 75 66 66 65 72 | 20 22 20 2a 4f 75 74 67 |t-buffer| " *Outg|
|00001cb0| 6f 69 6e 67 20 45 6d 61 | 69 6c 20 41 64 64 72 65 |oing Ema|il Addre|
|00001cc0| 73 73 20 4c 69 73 74 2a | 22 20 66 65 65 64 6d 61 |ss List*|" feedma|
|00001cd0| 69 6c 2d 61 64 64 72 65 | 73 73 2d 62 75 66 66 65 |il-addre|ss-buffe|
|00001ce0| 72 20 66 65 65 64 6d 61 | 69 6c 2d 72 61 77 2d 74 |r feedma|il-raw-t|
|00001cf0| 65 78 74 2d 62 75 66 66 | 65 72 20 6e 69 6c 20 63 |ext-buff|er nil c|
|00001d00| 61 73 65 2d 66 6f 6c 64 | 2d 73 65 61 72 63 68 20 |ase-fold|-search |
|00001d10| 65 6e 64 2d 6f 66 2d 68 | 65 61 64 65 72 73 2d 6d |end-of-h|eaders-m|
|00001d20| 61 72 6b 65 72 20 28 28 | 62 79 74 65 2d 63 6f 64 |arker ((|byte-cod|
|00001d30| 65 20 22 c0 09 21 88 c0 | 5c 6e 21 88 0b 71 88 c4 |e "..!..|\n!..q..|
|00001d40| 20 c5 55 ab 86 c0 0b 21 | 88 aa 88 c6 0b 21 88 c7 | .U....!|.....!..|
|00001d50| c8 21 88 0e 09 71 87 22 | 20 5b 6b 69 6c 6c 2d 62 |.!...q."| [kill-b|
|00001d60| 75 66 66 65 72 20 66 65 | 65 64 6d 61 69 6c 2d 70 |uffer fe|edmail-p|
|00001d70| 72 65 70 70 65 64 2d 74 | 65 78 74 2d 62 75 66 66 |repped-t|ext-buff|
|00001d80| 65 72 20 66 65 65 64 6d | 61 69 6c 2d 61 64 64 72 |er feedm|ail-addr|
|00001d90| 65 73 73 2d 62 75 66 66 | 65 72 20 66 65 65 64 6d |ess-buff|er feedm|
|00001da0| 61 69 6c 2d 65 72 72 6f | 72 2d 62 75 66 66 65 72 |ail-erro|r-buffer|
|00001db0| 20 62 75 66 66 65 72 2d | 73 69 7a 65 20 30 20 64 | buffer-|size 0 d|
|00001dc0| 69 73 70 6c 61 79 2d 62 | 75 66 66 65 72 20 65 72 |isplay-b|uffer er|
|00001dd0| 72 6f 72 20 22 53 65 6e | 64 69 6e 67 2e 2e 2e 66 |ror "Sen|ding...f|
|00001de0| 61 69 6c 65 64 22 20 66 | 65 65 64 6d 61 69 6c 2d |ailed" f|eedmail-|
|00001df0| 72 61 77 2d 74 65 78 74 | 2d 62 75 66 66 65 72 5d |raw-text|-buffer]|
|00001e00| 20 32 29 29 20 65 72 61 | 73 65 2d 62 75 66 66 65 | 2)) era|se-buffe|
|00001e10| 72 20 69 6e 73 65 72 74 | 2d 62 75 66 66 65 72 2d |r insert|-buffer-|
|00001e20| 73 75 62 73 74 72 69 6e | 67 20 31 30 20 72 65 2d |substrin|g 10 re-|
|00001e30| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 22 |search-f|orward "|
|00001e40| 5e 22 20 72 65 67 65 78 | 70 2d 71 75 6f 74 65 20 |^" regex|p-quote |
|00001e50| 6d 61 69 6c 2d 68 65 61 | 64 65 72 2d 73 65 70 61 |mail-hea|der-sepa|
|00001e60| 72 61 74 6f 72 20 22 5c | 6e 22 20 72 65 70 6c 61 |rator "\|n" repla|
|00001e70| 63 65 2d 6d 61 74 63 68 | 20 70 6f 69 6e 74 2d 6d |ce-match| point-m|
|00001e80| 61 72 6b 65 72 20 66 62 | 6f 75 6e 64 70 20 65 78 |arker fb|oundp ex|
|00001e90| 70 61 6e 64 2d 6d 61 69 | 6c 2d 61 6c 69 61 73 65 |pand-mai|l-aliase|
|00001ea0| 73 20 6d 61 69 6c 2d 61 | 6c 69 61 73 65 73 20 66 |s mail-a|liases f|
|00001eb0| 65 65 64 6d 61 69 6c 2d | 66 69 6c 6c 2d 74 6f 2d |eedmail-|fill-to-|
|00001ec0| 63 63 20 66 65 65 64 6d | 61 69 6c 2d 66 69 6c 6c |cc feedm|ail-fill|
|00001ed0| 2d 74 6f 2d 63 63 2d 66 | 75 6e 63 74 69 6f 6e 20 |-to-cc-f|unction |
|00001ee0| 22 5c 6e 5c 6e 5c 6e 2a | 22 20 66 65 65 64 6d 61 |"\n\n\n*|" feedma|
|00001ef0| 69 6c 2d 64 65 64 75 63 | 65 2d 61 64 64 72 65 73 |il-deduc|e-addres|
|00001f00| 73 2d 6c 69 73 74 20 22 | 5c 5c 53 2d 22 20 65 72 |s-list "|\\S-" er|
|00001f10| 72 6f 72 20 22 53 65 6e | 64 69 6e 67 2e 2e 2e 61 |ror "Sen|ding...a|
|00001f20| 62 61 6e 64 6f 6e 65 64 | 2c 20 6e 6f 20 61 64 64 |bandoned|, no add|
|00001f30| 72 65 73 73 65 65 73 21 | 22 20 66 65 65 64 6d 61 |ressees!|" feedma|
|00001f40| 69 6c 2d 6e 75 6b 65 2d | 62 63 63 20 66 65 65 64 |il-nuke-|bcc feed|
|00001f50| 6d 61 69 6c 2d 64 6f 2d | 62 63 63 20 22 5e 46 43 |mail-do-|bcc "^FC|
|00001f60| 43 3a 22 20 6d 61 69 6c | 2d 64 6f 2d 66 63 63 20 |C:" mail|-do-fcc |
|00001f70| 22 5e 46 52 4f 4d 3a 22 | 20 66 65 65 64 6d 61 69 |"^FROM:"| feedmai|
|00001f80| 6c 2d 73 65 6e 64 65 72 | 2d 6c 69 6e 65 20 22 5e |l-sender|-line "^|
|00001f90| 53 45 4e 44 45 52 3a 22 | 20 31 20 22 53 65 6e 64 |SENDER:"| 1 "Send|
|00001fa0| 65 72 3a 20 22 20 66 65 | 65 64 6d 61 69 6c 2d 66 |er: " fe|edmail-f|
|00001fb0| 72 6f 6d 2d 6c 69 6e 65 | 20 22 46 72 6f 6d 3a 20 |rom-line| "From: |
|00001fc0| 22 20 22 5e 53 75 62 6a | 65 63 74 3a 5b 20 09 5d |" "^Subj|ect:[ .]|
|00001fd0| 2a 5c 6e 22 20 22 22 20 | 66 65 65 64 6d 61 69 6c |*\n" "" |feedmail|
|00001fe0| 2d 6e 75 6b 65 2d 65 6d | 70 74 79 2d 68 65 61 64 |-nuke-em|pty-head|
|00001ff0| 65 72 73 20 22 5e 5b 41 | 2d 5a 61 2d 7a 30 2d 39 |ers "^[A|-Za-z0-9|
|00002000| 2d 5d 2b 3a 5b 20 09 5d | 2a 5c 6e 22 20 66 65 65 |-]+:[ .]|*\n" fee|
|00002010| 64 6d 61 69 6c 2d 6d 65 | 73 73 61 67 65 2d 69 64 |dmail-me|ssage-id|
|00002020| 2d 67 65 6e 65 72 61 74 | 6f 72 20 22 5e 4d 45 53 |-generat|or "^MES|
|00002030| 53 41 47 45 2d 49 44 3a | 5b 20 09 5d 2a 5c 6e 22 |SAGE-ID:|[ .]*\n"|
|00002040| 20 66 65 65 64 6d 61 69 | 6c 2d 6d 73 67 69 64 2d | feedmai|l-msgid-|
|00002050| 70 61 72 74 20 73 74 72 | 69 6e 67 2d 6d 61 74 63 |part str|ing-matc|
|00002060| 68 20 22 5b 5e 20 09 5d | 22 20 22 4d 65 73 73 61 |h "[^ .]|" "Messa|
|00002070| 67 65 2d 49 44 3a 20 22 | 20 72 75 6e 2d 68 6f 6f |ge-ID: "| run-hoo|
|00002080| 6b 73 20 66 65 65 64 6d | 61 69 6c 2d 6c 61 73 74 |ks feedm|ail-last|
|00002090| 2d 63 68 61 6e 63 65 2d | 68 6f 6f 6b 20 66 65 65 |-chance-|hook fee|
|000020a0| 64 6d 61 69 6c 2d 63 6f | 6e 66 69 72 6d 2d 6f 75 |dmail-co|nfirm-ou|
|000020b0| 74 67 6f 69 6e 67 20 66 | 65 65 64 6d 61 69 6c 2d |tgoing f|eedmail-|
|000020c0| 6f 6e 65 2d 6c 61 73 74 | 2d 6c 6f 6f 6b 20 66 65 |one-last|-look fe|
|000020d0| 65 64 6d 61 69 6c 2d 62 | 75 66 66 65 72 2d 65 61 |edmail-b|uffer-ea|
|000020e0| 74 69 6e 67 2d 66 75 6e | 63 74 69 6f 6e 20 62 75 |ting-fun|ction bu|
|000020f0| 66 66 65 72 2d 73 74 72 | 69 6e 67 20 22 53 65 6e |ffer-str|ing "Sen|
|00002100| 64 69 6e 67 2e 2e 2e 61 | 62 61 6e 64 6f 6e 65 64 |ding...a|bandoned|
|00002110| 22 5d 20 34 5d 29 0a 28 | 66 73 65 74 20 27 66 65 |"] 4]).(|fset 'fe|
|00002120| 65 64 6d 61 69 6c 2d 64 | 6f 2d 62 63 63 20 23 5b |edmail-d|o-bcc #[|
|00002130| 28 68 65 61 64 65 72 2d | 65 6e 64 29 20 22 c0 19 |(header-|end) "..|
|00002140| 8a 65 62 88 c2 c3 0c c0 | 23 ad 98 c5 94 c6 79 88 |.eb.....|#.....y.|
|00002150| 60 7c 88 c7 c8 21 ab 6c | 60 0c 57 ab 67 c9 ca 21 |`|...!.l|`.W.g..!|
|00002160| 88 aa 70 2a 87 22 20 5b | 74 20 63 61 73 65 2d 66 |..p*." [|t case-f|
|00002170| 6f 6c 64 2d 73 65 61 72 | 63 68 20 72 65 2d 73 65 |old-sear|ch re-se|
|00002180| 61 72 63 68 2d 66 6f 72 | 77 61 72 64 20 22 5e 42 |arch-for|ward "^B|
|00002190| 43 43 3a 22 20 68 65 61 | 64 65 72 2d 65 6e 64 20 |CC:" hea|der-end |
|000021a0| 30 20 31 20 6c 6f 6f 6b | 69 6e 67 2d 61 74 20 22 |0 1 look|ing-at "|
|000021b0| 5e 5b 20 09 5d 2e 2a 5c | 6e 22 20 72 65 70 6c 61 |^[ .].*\|n" repla|
|000021c0| 63 65 2d 6d 61 74 63 68 | 20 22 22 5d 20 34 20 22 |ce-match| ""] 4 "|
|000021d0| 5c 0a 44 65 6c 65 74 65 | 20 42 43 43 3a 20 61 6e |\.Delete| BCC: an|
|000021e0| 64 20 74 68 65 69 72 20 | 63 6f 6e 74 69 6e 75 61 |d their |continua|
|000021f0| 74 69 6f 6e 20 6c 69 6e | 65 73 20 66 72 6f 6d 20 |tion lin|es from |
|00002200| 74 68 65 20 68 65 61 64 | 65 72 20 61 72 65 61 2e |the head|er area.|
|00002210| 0a 54 68 65 72 65 20 6d | 61 79 20 62 65 20 6d 75 |.There m|ay be mu|
|00002220| 6c 74 69 70 6c 65 20 42 | 43 43 3a 20 6c 69 6e 65 |ltiple B|CC: line|
|00002230| 73 2c 20 61 6e 64 20 65 | 61 63 68 20 6d 61 79 20 |s, and e|ach may |
|00002240| 68 61 76 65 20 61 72 62 | 69 74 72 61 72 69 6c 79 |have arb|itrarily|
|00002250| 0a 6d 61 6e 79 20 63 6f | 6e 74 69 6e 75 61 74 69 |.many co|ntinuati|
|00002260| 6f 6e 20 6c 69 6e 65 73 | 2e 22 5d 29 0a 28 66 73 |on lines|."]).(fs|
|00002270| 65 74 20 27 66 65 65 64 | 6d 61 69 6c 2d 66 69 6c |et 'feed|mail-fil|
|00002280| 6c 2d 74 6f 2d 63 63 2d | 66 75 6e 63 74 69 6f 6e |l-to-cc-|function|
|00002290| 20 23 5b 28 68 65 61 64 | 65 72 2d 65 6e 64 29 20 | #[(head|er-end) |
|000022a0| 22 c0 c1 5c 6e c3 89 1c | 1d 1e 06 1e 07 1e 08 8a |"..\n...|........|
|000022b0| 65 62 88 c9 ca 0e 0b c0 | 23 ad d6 cc 94 15 cd 79 |eb......|#......y|
|000022c0| 88 ce cf 21 ab 8f 60 0e | 0b 57 ab 89 d0 d1 21 88 |...!..`.|.W....!.|
|000022d0| cd 79 88 aa 6c d2 20 14 | d3 0d 0c d4 d5 c0 25 88 |.y..l. .|......%.|
|000022e0| d3 0d 0c d6 d4 c0 25 88 | d7 0d 0c 5c 22 88 d3 0d |......%.|...\"...|
|000022f0| 0c d4 d6 c0 25 88 d3 0d | 0c d5 d4 c0 25 88 8a 0d |....%...|....%...|
|00002300| 62 88 c9 d8 0c c0 23 ab | 86 d0 d9 21 88 aa 73 29 |b.....#.|...!..s)|
|00002310| aa 5c 22 2e 06 87 22 20 | 5b 74 20 22 09 22 20 66 |.\"..." |[t "." f|
|00002320| 65 65 64 6d 61 69 6c 2d | 66 69 6c 6c 2d 74 6f 2d |eedmail-|fill-to-|
|00002330| 63 63 2d 66 69 6c 6c 2d | 63 6f 6c 75 6d 6e 20 6e |cc-fill-|column n|
|00002340| 69 6c 20 74 68 69 73 2d | 6c 69 6e 65 2d 65 6e 64 |il this-|line-end|
|00002350| 20 74 68 69 73 2d 6c 69 | 6e 65 20 66 69 6c 6c 2d | this-li|ne fill-|
|00002360| 63 6f 6c 75 6d 6e 20 66 | 69 6c 6c 2d 70 72 65 66 |column f|ill-pref|
|00002370| 69 78 20 63 61 73 65 2d | 66 6f 6c 64 2d 73 65 61 |ix case-|fold-sea|
|00002380| 72 63 68 20 72 65 2d 73 | 65 61 72 63 68 2d 66 6f |rch re-s|earch-fo|
|00002390| 72 77 61 72 64 20 22 5e | 5c 5c 28 54 4f 3a 5c 5c |rward "^|\\(TO:\\|
|000023a0| 7c 43 43 3a 5c 5c 29 22 | 20 68 65 61 64 65 72 2d ||CC:\\)"| header-|
|000023b0| 65 6e 64 20 30 20 31 20 | 6c 6f 6f 6b 69 6e 67 2d |end 0 1 |looking-|
|000023c0| 61 74 20 22 5e 5b 20 09 | 5d 2b 22 20 72 65 70 6c |at "^[ .|]+" repl|
|000023d0| 61 63 65 2d 6d 61 74 63 | 68 20 22 20 22 20 70 6f |ace-matc|h " " po|
|000023e0| 69 6e 74 2d 6d 61 72 6b | 65 72 20 73 75 62 73 74 |int-mark|er subst|
|000023f0| 2d 63 68 61 72 2d 69 6e | 2d 72 65 67 69 6f 6e 20 |-char-in|-region |
|00002400| 33 32 20 32 20 34 34 20 | 66 69 6c 6c 2d 72 65 67 |32 2 44 |fill-reg|
|00002410| 69 6f 6e 2d 61 73 2d 70 | 61 72 61 67 72 61 70 68 |ion-as-p|aragraph|
|00002420| 20 22 5c 5c 28 5b 5e 2c | 5d 5c 5c 29 5c 6e 09 5b | "\\([^,|]\\)\n.[|
|00002430| 20 5d 2a 22 20 22 5c 5c | 31 2c 5c 6e 09 22 5d 20 | ]*" "\\|1,\n."] |
|00002440| 36 20 22 5c 0a 53 6d 61 | 72 74 20 66 69 6c 6c 69 |6 "\.Sma|rt filli|
|00002450| 6e 67 20 6f 66 20 54 4f | 3a 20 61 6e 64 20 43 43 |ng of TO|: and CC|
|00002460| 3a 20 68 65 61 64 65 72 | 73 2e 20 20 54 68 65 20 |: header|s.  The |
|00002470| 66 69 6c 6c 69 6e 67 20 | 74 72 69 65 73 20 74 6f |filling |tries to|
|00002480| 20 61 76 6f 69 64 0a 73 | 70 6c 69 74 74 69 6e 67 | avoid.s|plitting|
|00002490| 20 6c 69 6e 65 73 20 65 | 78 63 65 70 74 20 61 74 | lines e|xcept at|
|000024a0| 20 63 6f 6d 6d 61 73 2e | 20 20 54 68 69 73 20 61 | commas.|  This a|
|000024b0| 76 6f 69 64 73 2c 20 69 | 6e 20 70 61 72 74 69 63 |voids, i|n partic|
|000024c0| 75 6c 61 72 2c 0a 73 70 | 6c 69 74 74 69 6e 67 20 |ular,.sp|litting |
|000024d0| 77 69 74 68 69 6e 20 70 | 61 72 65 6e 74 68 65 73 |within p|arenthes|
|000024e0| 69 7a 65 64 20 63 6f 6d | 6d 65 6e 74 73 20 69 6e |ized com|ments in|
|000024f0| 20 61 64 64 72 65 73 73 | 65 73 2e 22 5d 29 0a 28 | address|es."]).(|
|00002500| 66 73 65 74 20 27 66 65 | 65 64 6d 61 69 6c 2d 64 |fset 'fe|edmail-d|
|00002510| 65 64 75 63 65 2d 61 64 | 64 72 65 73 73 2d 6c 69 |educe-ad|dress-li|
|00002520| 73 74 20 23 5b 28 66 65 | 65 64 6d 61 69 6c 2d 74 |st #[(fe|edmail-t|
|00002530| 65 78 74 2d 62 75 66 66 | 65 72 20 68 65 61 64 65 |ext-buff|er heade|
|00002540| 72 2d 73 74 61 72 74 20 | 68 65 61 64 65 72 2d 65 |r-start |header-e|
|00002550| 6e 64 29 20 22 c0 c1 21 | 88 c2 c3 c4 89 1d 1e 06 |nd) "..!|........|
|00002560| 1e 07 1e 08 c4 8e 8a 0e | 09 71 88 ca 20 88 cb 0e |........|.q.. ...|
|00002570| 0c 0e 0d 0e 0e 23 88 65 | 62 88 cf d0 0e 0e c2 23 |.....#.e|b......#|
|00002580| ab ac d1 c3 21 88 d2 94 | 16 06 d3 79 88 d4 d5 21 |....!...|...y...!|
|00002590| ab 8b 60 0e 0e 57 ab 85 | d3 79 88 aa 70 d6 20 15 |..`..W..|.y..p. .|
|000025a0| 0e 07 d7 d8 0e 06 0d 7b | 21 51 16 07 aa 4c ca 20 |.......{|!Q...L. |
|000025b0| 88 d9 0e 07 21 88 da 65 | 64 db dc c2 25 88 da 65 |....!..e|d...%..e|
|000025c0| 64 dd dc c2 25 88 da 65 | 64 de dc c2 25 88 65 62 |d...%..e|d...%.eb|
|000025d0| 88 cf df 0e 0e c2 23 ad | 86 d1 d7 21 88 aa 72 2e |......#.|...!..r.|
|000025e0| 06 87 22 20 5b 72 65 71 | 75 69 72 65 20 6d 61 69 |.." [req|uire mai|
|000025f0| 6c 2d 75 74 69 6c 73 20 | 74 20 22 22 20 6e 69 6c |l-utils |t "" nil|
|00002600| 20 74 68 69 73 2d 6c 69 | 6e 65 2d 65 6e 64 20 74 | this-li|ne-end t|
|00002610| 68 69 73 2d 6c 69 6e 65 | 20 73 69 6d 70 6c 65 2d |his-line| simple-|
|00002620| 61 64 64 72 65 73 73 2d | 6c 69 73 74 20 63 61 73 |address-|list cas|
|00002630| 65 2d 66 6f 6c 64 2d 73 | 65 61 72 63 68 20 66 65 |e-fold-s|earch fe|
|00002640| 65 64 6d 61 69 6c 2d 61 | 64 64 72 65 73 73 2d 62 |edmail-a|ddress-b|
|00002650| 75 66 66 65 72 20 65 72 | 61 73 65 2d 62 75 66 66 |uffer er|ase-buff|
|00002660| 65 72 20 69 6e 73 65 72 | 74 2d 62 75 66 66 65 72 |er inser|t-buffer|
|00002670| 2d 73 75 62 73 74 72 69 | 6e 67 20 66 65 65 64 6d |-substri|ng feedm|
|00002680| 61 69 6c 2d 74 65 78 74 | 2d 62 75 66 66 65 72 20 |ail-text|-buffer |
|00002690| 68 65 61 64 65 72 2d 73 | 74 61 72 74 20 68 65 61 |header-s|tart hea|
|000026a0| 64 65 72 2d 65 6e 64 20 | 72 65 2d 73 65 61 72 63 |der-end |re-searc|
|000026b0| 68 2d 66 6f 72 77 61 72 | 64 20 22 5e 5c 5c 28 54 |h-forwar|d "^\\(T|
|000026c0| 4f 3a 5c 5c 7c 43 43 3a | 5c 5c 7c 42 43 43 3a 5c |O:\\|CC:|\\|BCC:\|
|000026d0| 5c 29 22 20 72 65 70 6c | 61 63 65 2d 6d 61 74 63 |\)" repl|ace-matc|
|000026e0| 68 20 30 20 31 20 6c 6f | 6f 6b 69 6e 67 2d 61 74 |h 0 1 lo|oking-at|
|000026f0| 20 22 5e 5b 20 09 5d 2b | 22 20 70 6f 69 6e 74 2d | "^[ .]+|" point-|
|00002700| 6d 61 72 6b 65 72 20 22 | 20 22 20 6d 61 69 6c 2d |marker "| " mail-|
|00002710| 73 74 72 69 70 2d 71 75 | 6f 74 65 64 2d 6e 61 6d |strip-qu|oted-nam|
|00002720| 65 73 20 69 6e 73 65 72 | 74 2d 73 74 72 69 6e 67 |es inser|t-string|
|00002730| 20 73 75 62 73 74 2d 63 | 68 61 72 2d 69 6e 2d 72 | subst-c|har-in-r|
|00002740| 65 67 69 6f 6e 20 31 30 | 20 33 32 20 34 34 20 39 |egion 10| 32 44 9|
|00002750| 20 22 5b 20 09 5d 2b 22 | 5d 20 36 20 22 5c 0a 47 | "[ .]+"|] 6 "\.G|
|00002760| 65 74 20 61 64 64 72 65 | 73 73 20 6c 69 73 74 20 |et addre|ss list |
|00002770| 73 75 69 74 61 62 6c 65 | 20 66 6f 72 20 63 6f 6d |suitable| for com|
|00002780| 6d 61 6e 64 20 6c 69 6e | 65 20 75 73 65 20 6f 6e |mand lin|e use on|
|00002790| 20 73 69 6d 70 6c 65 20 | 2f 62 69 6e 2f 6d 61 69 | simple |/bin/mai|
|000027a0| 6c 2e 22 5d 29 0a 28 66 | 73 65 74 20 27 66 65 65 |l."]).(f|set 'fee|
|000027b0| 64 6d 61 69 6c 2d 6f 6e | 65 2d 6c 61 73 74 2d 6c |dmail-on|e-last-l|
|000027c0| 6f 6f 6b 20 23 5b 28 66 | 65 65 64 6d 61 69 6c 2d |ook #[(f|eedmail-|
|000027d0| 70 72 65 70 70 65 64 2d | 74 65 78 74 2d 62 75 66 |prepped-|text-buf|
|000027e0| 66 65 72 29 20 22 8a c0 | 8b 29 87 22 20 5b 28 28 |fer) "..|.)." [((|
|000027f0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 09 21 88 c2 |byte-cod|e "..!..|
|00002800| c3 21 87 22 20 5b 73 77 | 69 74 63 68 2d 74 6f 2d |.!." [sw|itch-to-|
|00002810| 62 75 66 66 65 72 20 66 | 65 65 64 6d 61 69 6c 2d |buffer f|eedmail-|
|00002820| 70 72 65 70 70 65 64 2d | 74 65 78 74 2d 62 75 66 |prepped-|text-buf|
|00002830| 66 65 72 20 79 2d 6f 72 | 2d 6e 2d 70 20 22 53 65 |fer y-or|-n-p "Se|
|00002840| 6e 64 20 74 68 69 73 20 | 65 6d 61 69 6c 3f 20 22 |nd this |email? "|
|00002850| 5d 20 32 29 29 5d 20 31 | 20 22 5c 0a 4f 66 66 65 |] 2))] 1| "\.Offe|
|00002860| 72 20 74 68 65 20 75 73 | 65 72 20 6f 6e 65 20 6c |r the us|er one l|
|00002870| 61 73 74 20 63 68 61 6e | 63 65 20 74 6f 20 67 69 |ast chan|ce to gi|
|00002880| 76 65 20 69 74 20 75 70 | 2e 22 5d 29 0a 28 70 72 |ve it up|."]).(pr|
|00002890| 6f 76 69 64 65 20 27 66 | 65 65 64 6d 61 69 6c 29 |ovide 'f|eedmail)|
|000028a0| 0a                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+