/ Fresh Fish 6 / FreshFish_September1994.bin / bbs / gnu / emacs-18.59-src.lha / GNU / src / amiga / emacs-18.59 / lisp / mailalias.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 | 65 78 70 61 6e 64 2d 6d |.(defun |expand-m|
|00000010| 61 69 6c 2d 61 6c 69 61 | 73 65 73 20 28 62 65 67 |ail-alia|ses (beg|
|00000020| 20 65 6e 64 29 20 22 5c | 0a 45 78 70 61 6e 64 20 | end) "\|.Expand |
|00000030| 61 6c 6c 20 6d 61 69 6c | 20 61 6c 69 61 73 65 73 |all mail| aliases|
|00000040| 20 69 6e 20 73 75 69 74 | 61 62 6c 65 20 68 65 61 | in suit|able hea|
|00000050| 64 65 72 20 66 69 65 6c | 64 73 20 66 6f 75 6e 64 |der fiel|ds found|
|00000060| 20 62 65 74 77 65 65 6e | 20 42 45 47 20 61 6e 64 | between| BEG and|
|00000070| 20 45 4e 44 2e 0a 53 75 | 69 74 61 62 6c 65 20 68 | END..Su|itable h|
|00000080| 65 61 64 65 72 20 66 69 | 65 6c 64 73 20 61 72 65 |eader fi|elds are|
|00000090| 20 54 6f 2c 20 43 63 20 | 61 6e 64 20 42 63 63 2e | To, Cc |and Bcc.|
|000000a0| 22 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 08 c1 |" (byte-|code "..|
|000000b0| 3d 85 0c 00 c2 89 10 88 | ce 20 88 0b 62 88 cf d0 |=.......|. ..b...|
|000000c0| 20 0c 5c 22 89 14 88 c2 | 1d c1 1d d1 d2 0c c1 23 | .\"....|.......#|
|000000d0| 29 85 00 01 d3 d4 21 88 | 60 c2 c2 c2 c2 c2 1e 0b |).....!.|`.......|
|000000e0| 1e 0a 1e 09 1e 08 1e 07 | 1e 06 d1 d5 0c d6 23 88 |........|......#.|
|000000f0| d7 20 88 d8 d9 21 88 da | 20 89 16 07 88 0e 06 62 |. ...!..| ......b|
|00000100| 88 60 0e 07 57 85 f4 00 | 60 89 16 08 88 0e 0b 85 |.`..W...|`.......|
|00000110| 6d 00 0e 08 0e 07 0e 0b | 40 41 5a 56 85 7a 00 0e |m.......|@AZV.z..|
|00000120| 0b 41 89 16 0b 88 82 5e | 00 88 d1 db 0e 07 c1 23 |.A.....^|.......#|
|00000130| 83 93 00 dc dd 21 16 09 | 60 0e 09 5a 89 16 0a 82 |.....!..|`..Z....|
|00000140| 9d 00 de 0e 07 21 16 09 | dd 89 16 0a 88 c2 df 0e |.....!..|........|
|00000150| 08 0e 09 5c 22 1e 0d 1e | 0c e0 0e 0d 0e 0b 5c 22 |...\"...|......\"|
|00000160| 3f 85 bc 00 e0 0e 0d 08 | 5c 22 41 89 16 0c 83 e7 |?.......|\"A.....|
|00000170| 00 0e 0d 0e 07 0e 09 5a | 42 0e 0b 42 89 16 0b 88 |.......Z|B..B....|
|00000180| 0e 08 62 88 0e 0c 63 88 | e1 60 60 0e 09 0e 08 5a |..b...c.|.``....Z|
|00000190| 5c 5c 5c 22 88 0e 08 62 | 82 ef 00 0e 09 62 88 e2 |\\\"...b|.....b..|
|000001a0| 0e 0a 21 2a 88 82 52 00 | 88 cf 0e 07 c2 5c 22 2e |..!*..R.|.....\".|
|000001b0| 06 88 82 1a 00 88 cf 0c | c2 5c 22 29 87 22 20 5b |........|.\")." [|
|000001c0| 6d 61 69 6c 2d 61 6c 69 | 61 73 65 73 20 74 20 6e |mail-ali|ases t n|
|000001d0| 69 6c 20 62 65 67 20 65 | 6e 64 20 63 61 73 65 2d |il beg e|nd case-|
|000001e0| 66 6f 6c 64 2d 73 65 61 | 72 63 68 20 62 65 67 31 |fold-sea|rch beg1|
|000001f0| 20 65 6e 64 31 20 70 6f | 73 20 65 70 6f 73 20 73 | end1 po|s epos s|
|00000200| 65 70 6c 65 6e 20 64 69 | 73 61 62 6c 65 64 2d 61 |eplen di|sabled-a|
|00000210| 6c 69 61 73 65 73 20 74 | 72 61 6e 73 6c 61 74 69 |liases t|ranslati|
|00000220| 6f 6e 20 73 74 72 69 6e | 67 20 62 75 69 6c 64 2d |on strin|g build-|
|00000230| 6d 61 69 6c 2d 61 6c 69 | 61 73 65 73 20 73 65 74 |mail-ali|ases set|
|00000240| 2d 6d 61 72 6b 65 72 20 | 6d 61 6b 65 2d 6d 61 72 |-marker |make-mar|
|00000250| 6b 65 72 20 72 65 2d 73 | 65 61 72 63 68 2d 66 6f |ker re-s|earch-fo|
|00000260| 72 77 61 72 64 20 22 5e | 5c 5c 28 74 6f 5c 5c 7c |rward "^|\\(to\\||
|00000270| 63 63 5c 5c 7c 62 63 63 | 5c 5c 29 3a 22 20 73 6b |cc\\|bcc|\\):" sk|
|00000280| 69 70 2d 63 68 61 72 73 | 2d 66 6f 72 77 61 72 64 |ip-chars|-forward|
|00000290| 20 22 20 09 22 20 22 5e | 5b 5e 20 09 5d 22 20 6d | " ." "^|[^ .]" m|
|000002a0| 6f 76 65 20 62 65 67 69 | 6e 6e 69 6e 67 2d 6f 66 |ove begi|nning-of|
|000002b0| 2d 6c 69 6e 65 20 73 6b | 69 70 2d 63 68 61 72 73 |-line sk|ip-chars|
|000002c0| 2d 62 61 63 6b 77 61 72 | 64 20 22 20 09 0a 22 20 |-backwar|d " .." |
|000002d0| 70 6f 69 6e 74 2d 6d 61 | 72 6b 65 72 20 22 5b 20 |point-ma|rker "[ |
|000002e0| 09 5d 2a 5b 0a 2c 5d 5b | 20 09 5d 2a 22 20 6d 61 |.]*[.,][| .]*" ma|
|000002f0| 74 63 68 2d 62 65 67 69 | 6e 6e 69 6e 67 20 30 20 |tch-begi|nning 0 |
|00000300| 6d 61 72 6b 65 72 2d 70 | 6f 73 69 74 69 6f 6e 20 |marker-p|osition |
|00000310| 62 75 66 66 65 72 2d 73 | 75 62 73 74 72 69 6e 67 |buffer-s|ubstring|
|00000320| 20 61 73 73 6f 63 20 64 | 65 6c 65 74 65 2d 72 65 | assoc d|elete-re|
|00000330| 67 69 6f 6e 20 66 6f 72 | 77 61 72 64 2d 63 68 61 |gion for|ward-cha|
|00000340| 72 5d 20 32 32 29 29 0a | 0a 28 64 65 66 75 6e 20 |r] 22)).|.(defun |
|00000350| 62 75 69 6c 64 2d 6d 61 | 69 6c 2d 61 6c 69 61 73 |build-ma|il-alias|
|00000360| 65 73 20 28 26 6f 70 74 | 69 6f 6e 61 6c 20 66 69 |es (&opt|ional fi|
|00000370| 6c 65 29 20 22 5c 0a 52 | 65 61 64 20 6d 61 69 6c |le) "\.R|ead mail|
|00000380| 20 61 6c 69 61 73 65 73 | 20 66 72 6f 6d 20 7e 2f | aliases| from ~/|
|00000390| 2e 6d 61 69 6c 72 63 20 | 61 6e 64 20 73 65 74 20 |.mailrc |and set |
|000003a0| 6d 61 69 6c 2d 61 6c 69 | 61 73 65 73 2e 22 20 28 |mail-ali|ases." (|
|000003b0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c8 08 86 06 00 |byte-cod|e ".....|
|000003c0| c9 21 89 10 88 c2 70 1b | 19 ca 8e cb cc 21 89 11 |.!....p.|.....!..|
|000003d0| 88 cd 09 21 88 09 71 88 | ce 08 21 83 32 00 8a ce |...!..q.|..!.2...|
|000003e0| 08 21 71 88 cf 65 64 5c | 22 29 63 82 3c 00 d0 08 |.!q..ed\|")c.<...|
|000003f0| 21 3f 86 3c 00 d1 08 21 | 88 64 62 88 68 d2 3d 86 |!?.<...!|.db.h.=.|
|00000400| 48 00 d3 20 88 65 62 88 | 6d 3f 85 6e 00 d4 20 88 |H.. .eb.|m?.n.. .|
|00000410| 68 d5 55 83 67 00 d6 d7 | 21 88 d6 d8 21 88 d9 63 |h.U.g...|!...!..c|
|00000420| 82 6a 00 da d8 21 88 82 | 4c 00 88 65 62 88 db dc |.j...!..|L..eb...|
|00000430| c2 c4 23 86 7f 00 db dd | c2 c4 23 85 a6 00 db de |..#.....|..#.....|
|00000440| 21 88 cf df e0 21 e1 e0 | 21 5c 22 1d e2 e3 21 88 |!....!..|!\"...!.|
|00000450| 60 1e 06 d4 20 88 e4 0d | cf 0e 06 60 5c 22 5c 22 |`... ...|...`\"\"|
|00000460| 2a 88 82 72 00 88 0e 07 | 29 2a 87 22 20 5b 66 69 |*..r....|)*." [fi|
|00000470| 6c 65 20 62 75 66 66 65 | 72 20 6e 69 6c 20 6f 62 |le buffe|r nil ob|
|00000480| 75 66 20 74 20 6e 61 6d | 65 20 73 74 61 72 74 20 |uf t nam|e start |
|00000490| 6d 61 69 6c 2d 61 6c 69 | 61 73 65 73 20 65 78 70 |mail-ali|ases exp|
|000004a0| 61 6e 64 2d 66 69 6c 65 | 2d 6e 61 6d 65 20 22 7e |and-file|-name "~|
|000004b0| 2f 2e 6d 61 69 6c 72 63 | 22 20 28 28 62 79 74 65 |/.mailrc|" ((byte|
|000004c0| 2d 63 6f 64 65 20 22 08 | 85 07 00 c2 08 21 88 09 |-code ".|.....!..|
|000004d0| 71 87 22 20 5b 62 75 66 | 66 65 72 20 6f 62 75 66 |q." [buf|fer obuf|
|000004e0| 20 6b 69 6c 6c 2d 62 75 | 66 66 65 72 5d 20 32 29 | kill-bu|ffer] 2)|
|000004f0| 29 20 67 65 6e 65 72 61 | 74 65 2d 6e 65 77 2d 62 |) genera|te-new-b|
|00000500| 75 66 66 65 72 20 22 6d | 61 69 6c 72 63 22 20 62 |uffer "m|ailrc" b|
|00000510| 75 66 66 65 72 2d 66 6c | 75 73 68 2d 75 6e 64 6f |uffer-fl|ush-undo|
|00000520| 20 67 65 74 2d 66 69 6c | 65 2d 62 75 66 66 65 72 | get-fil|e-buffer|
|00000530| 20 62 75 66 66 65 72 2d | 73 75 62 73 74 72 69 6e | buffer-|substrin|
|00000540| 67 20 66 69 6c 65 2d 65 | 78 69 73 74 73 2d 70 20 |g file-e|xists-p |
|00000550| 69 6e 73 65 72 74 2d 66 | 69 6c 65 2d 63 6f 6e 74 |insert-f|ile-cont|
|00000560| 65 6e 74 73 20 31 30 20 | 6e 65 77 6c 69 6e 65 20 |ents 10 |newline |
|00000570| 65 6e 64 2d 6f 66 2d 6c | 69 6e 65 20 39 32 20 64 |end-of-l|ine 92 d|
|00000580| 65 6c 65 74 65 2d 63 68 | 61 72 20 2d 31 20 31 20 |elete-ch|ar -1 1 |
|00000590| 33 32 20 66 6f 72 77 61 | 72 64 2d 63 68 61 72 20 |32 forwa|rd-char |
|000005a0| 72 65 2d 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |re-searc|h-forwar|
|000005b0| 64 20 22 5e 61 5c 5c 28 | 6c 69 61 73 5c 5c 7c 5c |d "^a\\(|lias\\|\|
|000005c0| 5c 29 5b 20 09 5d 2b 22 | 20 22 5e 67 5c 5c 28 72 |\)[ .]+"| "^g\\(r|
|000005d0| 6f 75 70 5c 5c 7c 5c 5c | 29 5b 20 09 5d 2b 22 20 |oup\\|\\|)[ .]+" |
|000005e0| 22 5b 5e 20 09 5d 2b 22 | 20 6d 61 74 63 68 2d 62 |"[^ .]+"| match-b|
|000005f0| 65 67 69 6e 6e 69 6e 67 | 20 30 20 6d 61 74 63 68 |eginning| 0 match|
|00000600| 2d 65 6e 64 20 73 6b 69 | 70 2d 63 68 61 72 73 2d |-end ski|p-chars-|
|00000610| 66 6f 72 77 61 72 64 20 | 22 20 09 22 20 64 65 66 |forward |" ." def|
|00000620| 69 6e 65 2d 6d 61 69 6c | 2d 61 6c 69 61 73 5d 20 |ine-mail|-alias] |
|00000630| 32 37 29 29 0a 0a 28 64 | 65 66 75 6e 20 64 65 66 |27))..(d|efun def|
|00000640| 69 6e 65 2d 6d 61 69 6c | 2d 61 6c 69 61 73 20 28 |ine-mail|-alias (|
|00000650| 6e 61 6d 65 20 64 65 66 | 69 6e 69 74 69 6f 6e 29 |name def|inition)|
|00000660| 20 22 5c 0a 44 65 66 69 | 6e 65 20 4e 41 4d 45 20 | "\.Defi|ne NAME |
|00000670| 61 73 20 61 20 6d 61 69 | 6c 2d 61 6c 69 61 73 20 |as a mai|l-alias |
|00000680| 74 68 61 74 20 74 72 61 | 6e 73 6c 61 74 65 73 20 |that tra|nslates |
|00000690| 74 6f 20 44 45 46 49 4e | 49 54 49 4f 4e 2e 22 20 |to DEFIN|ITION." |
|000006a0| 28 69 6e 74 65 72 61 63 | 74 69 76 65 20 22 73 44 |(interac|tive "sD|
|000006b0| 65 66 69 6e 65 20 6d 61 | 69 6c 20 61 6c 69 61 73 |efine ma|il alias|
|000006c0| 3a 20 0a 73 44 65 66 69 | 6e 65 20 25 73 20 61 73 |: .sDefi|ne %s as|
|000006d0| 20 6d 61 69 6c 20 61 6c | 69 61 73 20 66 6f 72 3a | mail al|ias for:|
|000006e0| 20 22 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 | ") (byt|e-code "|
|000006f0| c2 88 08 c1 3d 85 14 00 | c2 89 10 88 c6 c7 21 85 |....=...|......!.|
|00000700| 14 00 c8 20 88 c2 1b c9 | ca 0c 0b 23 89 13 85 4d |... ....|...#...M|
|00000710| 00 cb cc 21 0c 47 55 83 | 34 00 0c cc 0b 54 4f 89 |...!.GU.|4....TO.|
|00000720| 14 82 49 00 0c cc 0b 54 | 4f cd 0c cb cc 21 c2 4f |..I....T|O....!.O|
|00000730| 51 89 14 88 ce 0b 5c 5c | 89 13 88 82 17 00 88 cf |Q.....\\|........|
|00000740| 0d 08 5c 22 89 13 88 0b | 83 60 00 d0 0b 0c 5c 22 |..\"....|.`....\"|
|00000750| 82 67 00 0d 0c 42 08 42 | 89 10 29 87 22 20 5b 6d |.g...B.B|..)." [m|
|00000760| 61 69 6c 2d 61 6c 69 61 | 73 65 73 20 74 20 6e 69 |ail-alia|ses t ni|
|00000770| 6c 20 74 65 6d 20 64 65 | 66 69 6e 69 74 69 6f 6e |l tem de|finition|
|00000780| 20 6e 61 6d 65 20 66 69 | 6c 65 2d 65 78 69 73 74 | name fi|le-exist|
|00000790| 73 2d 70 20 22 7e 2f 2e | 6d 61 69 6c 72 63 22 20 |s-p "~/.|mailrc" |
|000007a0| 62 75 69 6c 64 2d 6d 61 | 69 6c 2d 61 6c 69 61 73 |build-ma|il-alias|
|000007b0| 65 73 20 73 74 72 69 6e | 67 2d 6d 61 74 63 68 20 |es strin|g-match |
|000007c0| 22 5b 5e 20 09 2c 5d 5b | 20 09 2c 5d 2b 22 20 6d |"[^ .,][| .,]+" m|
|000007d0| 61 74 63 68 2d 65 6e 64 | 20 30 20 22 2c 20 22 20 |atch-end| 0 ", " |
|000007e0| 33 20 61 73 73 6f 63 20 | 72 70 6c 61 63 64 5d 20 |3 assoc |rplacd] |
|000007f0| 31 31 29 29 0a          |                         |11)).   |        |
+--------+-------------------------+-------------------------+--------+--------+