/ Fresh Fish 6 / FreshFish_September1994.bin / bbs / gnu / emacs-18.59-src.lha / GNU / src / amiga / emacs-18.59 / lisp / undigest.elc

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 64 65 66 75 6e 20 | 75 6e 64 69 67 65 73 74 |.(defun |undigest|
|00000010| 69 66 79 2d 72 6d 61 69 | 6c 2d 6d 65 73 73 61 67 |ify-rmai|l-messag|
|00000020| 65 20 6e 69 6c 20 22 5c | 0a 42 72 65 61 6b 20 75 |e nil "\|.Break u|
|00000030| 70 20 61 20 64 69 67 65 | 73 74 20 6d 65 73 73 61 |p a dige|st messa|
|00000040| 67 65 20 69 6e 74 6f 20 | 69 74 73 20 63 6f 6e 73 |ge into |its cons|
|00000050| 74 69 74 75 65 6e 74 20 | 6d 65 73 73 61 67 65 73 |tituent |messages|
|00000060| 2e 0a 4c 65 61 76 65 73 | 20 6f 72 69 67 69 6e 61 |..Leaves| origina|
|00000070| 6c 20 6d 65 73 73 61 67 | 65 2c 20 64 65 6c 65 74 |l messag|e, delet|
|00000080| 65 64 2c 20 62 65 66 6f | 72 65 20 74 68 65 20 75 |ed, befo|re the u|
|00000090| 6e 64 69 67 65 73 74 69 | 66 69 65 64 20 6d 65 73 |ndigesti|fied mes|
|000000a0| 73 61 67 65 73 2e 22 20 | 28 69 6e 74 65 72 61 63 |sages." |(interac|
|000000b0| 74 69 76 65 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |tive) (b|yte-code|
|000000c0| 20 22 c1 88 cc 20 88 c1 | cd ce 0b 21 cf 0b 21 5c | "... ..|...!..!\|
|000000d0| 22 1a 18 cf 0b 21 62 88 | d0 60 60 5c 22 88 0a 63 |"....!b.|.``\"..c|
|000000e0| 88 d0 65 64 53 5c 22 2a | 88 c5 c1 18 1c d1 8e 8c |..edS\"*|........|
|000000f0| 65 62 88 d2 65 d3 d4 21 | 88 60 5c 22 88 d5 63 88 |eb..e..!|.`\"..c.|
|00000100| d0 60 64 5c 22 88 d6 1e | 06 c5 1e 07 d7 8c d3 d8 |.`d\"...|........|
|00000110| 21 88 d0 65 60 5c 22 88 | 64 62 88 d9 da 21 86 62 |!..e`\".|db...!.b|
|00000120| 00 d9 db 21 86 62 00 d9 | dc 21 29 86 69 00 c4 dd |...!.b..|.!).i...|
|00000130| 21 21 1e 08 8a 64 62 88 | de df 21 88 e0 c1 1e 0a |!!...db.|..!.....|
|00000140| 1e 09 0e 09 e1 56 85 84 | 00 0e 0a 3f 85 a6 00 e2 |.....V..|...?....|
|00000150| e3 21 88 0e 09 53 89 16 | 09 88 e4 e5 e6 e7 21 e8 |.!...S..|......!.|
|00000160| e9 52 21 85 a2 00 c5 89 | 16 0a 88 82 7a 00 88 0e |.R!.....|....z...|
|00000170| 0a 3f 85 b0 00 c4 dd 21 | 2a 29 88 ea eb ec ed ee |.?.....!|*)......|
|00000180| 5c 22 ef 51 21 88 f0 d5 | 21 88 8c d0 60 d3 d8 21 |\".Q!...|!...`..!|
|00000190| 88 60 5c 22 88 d9 db 21 | 83 d5 00 c1 82 de 00 65 |.`\"...!|.......e|
|000001a0| 62 88 f1 f2 0e 08 f3 23 | 29 88 ea d8 ec f4 ee 5c |b......#|)......\|
|000001b0| 22 ef 51 c1 c5 23 85 25 | 01 f0 f5 21 88 8c e4 f6 |".Q..#.%|...!....|
|000001c0| 21 83 02 01 f1 f2 0e 08 | d8 23 82 0c 01 d0 60 d3 |!.......|.#....`.|
|000001d0| d8 c1 f7 23 88 60 5c 22 | 88 d9 db 21 83 17 01 c1 |...#.`\"|...!....|
|000001e0| 82 20 01 65 62 88 f1 f2 | 0e 08 f3 23 29 88 82 e0 |. .eb...|...#)...|
|000001f0| 00 2b 29 88 c1 89 14 88 | f8 f9 21 88 0b 1e 0b fa |.+).....|..!.....|
|00000200| 20 88 fb 0e 0b 21 88 fc | 20 29 29 2a 87 22 20 5b | ....!..| ))*." [|
|00000210| 62 75 66 66 65 72 2d 72 | 65 61 64 2d 6f 6e 6c 79 |buffer-r|ead-only|
|00000220| 20 6e 69 6c 20 6d 73 67 | 2d 73 74 72 69 6e 67 20 | nil msg|-string |
|00000230| 72 6d 61 69 6c 2d 63 75 | 72 72 65 6e 74 2d 6d 65 |rmail-cu|rrent-me|
|00000240| 73 73 61 67 65 20 65 72 | 72 6f 72 20 74 20 66 69 |ssage er|ror t fi|
|00000250| 6c 6c 2d 70 72 65 66 69 | 78 20 63 61 73 65 2d 66 |ll-prefi|x case-f|
|00000260| 6f 6c 64 2d 73 65 61 72 | 63 68 20 64 69 67 65 73 |old-sear|ch diges|
|00000270| 74 2d 6e 61 6d 65 20 63 | 6f 75 6e 74 20 66 6f 75 |t-name c|ount fou|
|00000280| 6e 64 20 6e 20 77 69 64 | 65 6e 20 62 75 66 66 65 |nd n wid|en buffe|
|00000290| 72 2d 73 75 62 73 74 72 | 69 6e 67 20 72 6d 61 69 |r-substr|ing rmai|
|000002a0| 6c 2d 6d 73 67 62 65 67 | 20 72 6d 61 69 6c 2d 6d |l-msgbeg| rmail-m|
|000002b0| 73 67 65 6e 64 20 6e 61 | 72 72 6f 77 2d 74 6f 2d |sgend na|rrow-to-|
|000002c0| 72 65 67 69 6f 6e 20 28 | 28 62 79 74 65 2d 63 6f |region (|(byte-co|
|000002d0| 64 65 20 22 08 85 12 00 | c2 65 64 54 5c 22 88 c3 |de "....|.edT\"..|
|000002e0| 65 64 5c 22 88 c4 09 21 | 87 22 20 5b 65 72 72 6f |ed\"...!|." [erro|
|000002f0| 72 20 72 6d 61 69 6c 2d | 63 75 72 72 65 6e 74 2d |r rmail-|current-|
|00000300| 6d 65 73 73 61 67 65 20 | 6e 61 72 72 6f 77 2d 74 |message |narrow-t|
|00000310| 6f 2d 72 65 67 69 6f 6e | 20 64 65 6c 65 74 65 2d |o-region| delete-|
|00000320| 72 65 67 69 6f 6e 20 72 | 6d 61 69 6c 2d 73 68 6f |region r|mail-sho|
|00000330| 77 2d 6d 65 73 73 61 67 | 65 5d 20 34 29 29 20 64 |w-messag|e] 4)) d|
|00000340| 65 6c 65 74 65 2d 72 65 | 67 69 6f 6e 20 73 65 61 |elete-re|gion sea|
|00000350| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 22 0a 2a 2a |rch-forw|ard ".**|
|00000360| 2a 20 45 4f 4f 48 20 2a | 2a 2a 0a 22 20 22 1f 0c |* EOOH *|**." "..|
|00000370| 0a 30 2c 20 75 6e 73 65 | 65 6e 2c 2c 0a 2a 2a 2a |.0, unse|en,,.***|
|00000380| 20 45 4f 4f 48 20 2a 2a | 2a 0a 22 20 22 22 20 6d | EOOH **|*." "" m|
|00000390| 61 69 6c 2d 73 74 72 69 | 70 2d 71 75 6f 74 65 64 |ail-stri|p-quoted|
|000003a0| 2d 6e 61 6d 65 73 20 22 | 0a 0a 22 20 6d 61 69 6c |-names "|.." mail|
|000003b0| 2d 66 65 74 63 68 2d 66 | 69 65 6c 64 20 22 52 65 |-fetch-f|ield "Re|
|000003c0| 70 6c 79 2d 54 6f 22 20 | 22 54 6f 22 20 22 41 70 |ply-To" |"To" "Ap|
|000003d0| 70 61 72 65 6e 74 6c 79 | 2d 54 6f 22 20 22 4d 65 |parently|-To" "Me|
|000003e0| 73 73 61 67 65 20 69 73 | 20 6e 6f 74 20 61 20 64 |ssage is| not a d|
|000003f0| 69 67 65 73 74 22 20 73 | 6b 69 70 2d 63 68 61 72 |igest" s|kip-char|
|00000400| 73 2d 62 61 63 6b 77 61 | 72 64 20 22 20 09 0a 22 |s-backwa|rd " .."|
|00000410| 20 31 30 20 30 20 66 6f | 72 77 61 72 64 2d 6c 69 | 10 0 fo|rward-li|
|00000420| 6e 65 20 2d 31 20 6c 6f | 6f 6b 69 6e 67 2d 61 74 |ne -1 lo|oking-at|
|00000430| 20 22 45 6e 64 20 6f 66 | 2e 2a 44 69 67 65 73 74 | "End of|.*Digest|
|00000440| 2e 2a 0a 22 20 72 65 67 | 65 78 70 2d 71 75 6f 74 |.*." reg|exp-quot|
|00000450| 65 20 22 2a 2a 2a 2a 2a | 2a 2a 2a 2a 22 20 22 2a |e "*****|****" "*|
|00000460| 22 20 22 5c 5c 28 0a 2d | 2d 2d 2d 2d 2d 2a 5c 5c |" "\\(.-|-----*\\|
|00000470| 29 2a 22 20 72 65 2d 73 | 65 61 72 63 68 2d 66 6f |)*" re-s|earch-fo|
|00000480| 72 77 61 72 64 20 22 5e | 22 20 6d 61 6b 65 2d 73 |rward "^|" make-s|
|00000490| 74 72 69 6e 67 20 35 35 | 20 34 35 20 22 2d 2a 0a |tring 55| 45 "-*.|
|000004a0| 2a 22 20 72 65 70 6c 61 | 63 65 2d 6d 61 74 63 68 |*" repla|ce-match|
|000004b0| 20 69 6e 73 65 72 74 20 | 22 54 6f 3a 20 22 20 22 | insert |"To: " "|
|000004c0| 0a 22 20 32 37 20 22 0a | 0a 1f 0c 0a 30 2c 20 75 |." 27 ".|....0, u|
|000004d0| 6e 73 65 65 6e 2c 2c 0a | 2a 2a 2a 20 45 4f 4f 48 |nseen,,.|*** EOOH|
|000004e0| 20 2a 2a 2a 0a 22 20 22 | 45 6e 64 20 22 20 6d 6f | ***." "|End " mo|
|000004f0| 76 65 20 6d 65 73 73 61 | 67 65 20 22 4d 65 73 73 |ve messa|ge "Mess|
|00000500| 61 67 65 20 73 75 63 63 | 65 73 73 66 75 6c 6c 79 |age succ|essfully|
|00000510| 20 75 6e 64 69 67 65 73 | 74 69 66 69 65 64 22 20 | undiges|tified" |
|00000520| 72 6d 61 69 6c 2d 66 6f | 72 67 65 74 2d 6d 65 73 |rmail-fo|rget-mes|
|00000530| 73 61 67 65 73 20 72 6d | 61 69 6c 2d 73 68 6f 77 |sages rm|ail-show|
|00000540| 2d 6d 65 73 73 61 67 65 | 20 72 6d 61 69 6c 2d 64 |-message| rmail-d|
|00000550| 65 6c 65 74 65 2d 66 6f | 72 77 61 72 64 5d 20 34 |elete-fo|rward] 4|
|00000560| 33 29 29 0a             |                         |3)).    |        |
+--------+-------------------------+-------------------------+--------+--------+