/ BCI NET 2 / BCI NET 2.iso / archives / programming / source / a2.0bemacs-src.lha / Emacs-19.25 / lisp / mailabbrev.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 72 6f 6c 61 6e 64 40 |piled by| roland@|
|00000020| 63 68 75 72 63 68 79 2e | 67 6e 75 2e 61 69 2e 6d |churchy.|gnu.ai.m|
|00000030| 69 74 2e 65 64 75 20 6f | 6e 20 53 75 6e 20 4a 61 |it.edu o|n Sun Ja|
|00000040| 6e 20 31 36 20 30 34 3a | 31 37 3a 35 35 20 31 39 |n 16 04:|17:55 19|
|00000050| 39 34 0a 3b 3b 3b 20 66 | 72 6f 6d 20 66 69 6c 65 |94.;;; f|rom file|
|00000060| 20 2f 67 64 2f 67 6e 75 | 2f 65 6d 61 63 73 2f 31 | /gd/gnu|/emacs/1|
|00000070| 39 2e 30 2f 6c 69 73 70 | 2f 6d 61 69 6c 61 62 62 |9.0/lisp|/mailabb|
|00000080| 72 65 76 2e 65 6c 0a 3b | 3b 3b 20 65 6d 61 63 73 |rev.el.;|;; emacs|
|00000090| 20 76 65 72 73 69 6f 6e | 20 31 39 2e 32 32 2e 31 | version| 19.22.1|
|000000a0| 39 2e 0a 3b 3b 3b 20 62 | 79 74 65 63 6f 6d 70 20 |9..;;; b|ytecomp |
|000000b0| 76 65 72 73 69 6f 6e 20 | 46 53 46 20 32 2e 31 30 |version |FSF 2.10|
|000000c0| 0a 3b 3b 3b 20 6f 70 74 | 69 6d 69 7a 61 74 69 6f |.;;; opt|imizatio|
|000000d0| 6e 20 69 73 20 6f 6e 2e | 0a 3b 3b 3b 20 74 68 69 |n is on.|.;;; thi|
|000000e0| 73 20 66 69 6c 65 20 75 | 73 65 73 20 6f 70 63 6f |s file u|ses opco|
|000000f0| 64 65 73 20 77 68 69 63 | 68 20 64 6f 20 6e 6f 74 |des whic|h do not|
|00000100| 20 65 78 69 73 74 20 69 | 6e 20 45 6d 61 63 73 20 | exist i|n Emacs |
|00000110| 31 38 2e 0a 0a 28 69 66 | 20 28 61 6e 64 20 28 62 |18...(if| (and (b|
|00000120| 6f 75 6e 64 70 20 27 65 | 6d 61 63 73 2d 76 65 72 |oundp 'e|macs-ver|
|00000130| 73 69 6f 6e 29 0a 09 20 | 28 6f 72 20 28 61 6e 64 |sion).. |(or (and|
|00000140| 20 28 62 6f 75 6e 64 70 | 20 27 65 70 6f 63 68 3a | (boundp| 'epoch:|
|00000150| 3a 76 65 72 73 69 6f 6e | 29 20 65 70 6f 63 68 3a |:version|) epoch:|
|00000160| 3a 76 65 72 73 69 6f 6e | 29 0a 09 20 20 20 20 20 |:version|)..     |
|00000170| 28 73 74 72 69 6e 67 2d | 6c 65 73 73 70 20 65 6d |(string-|lessp em|
|00000180| 61 63 73 2d 76 65 72 73 | 69 6f 6e 20 22 31 39 22 |acs-vers|ion "19"|
|00000190| 29 29 29 0a 20 20 20 20 | 28 65 72 72 6f 72 20 22 |))).    |(error "|
|000001a0| 54 68 69 73 20 66 69 6c | 65 20 77 61 73 20 63 6f |This fil|e was co|
|000001b0| 6d 70 69 6c 65 64 20 66 | 6f 72 20 45 6d 61 63 73 |mpiled f|or Emacs|
|000001c0| 20 31 39 22 29 29 0a 0a | 28 72 65 71 75 69 72 65 | 19"))..|(require|
|000001d0| 20 28 71 75 6f 74 65 20 | 73 65 6e 64 6d 61 69 6c | (quote |sendmail|
|000001e0| 29 29 0a 28 64 65 66 76 | 61 72 20 6d 61 69 6c 2d |)).(defv|ar mail-|
|000001f0| 61 62 62 72 65 76 2d 6d | 61 69 6c 72 63 2d 66 69 |abbrev-m|ailrc-fi|
|00000200| 6c 65 20 6e 69 6c 20 22 | 5c 0a 4e 61 6d 65 20 6f |le nil "|\.Name o|
|00000210| 66 20 66 69 6c 65 20 77 | 69 74 68 20 6d 61 69 6c |f file w|ith mail|
|00000220| 20 61 6c 69 61 73 65 73 | 2e 20 20 20 49 66 20 6e | aliases|.   If n|
|00000230| 69 6c 2c 20 7e 2f 2e 6d | 61 69 6c 72 63 20 69 73 |il, ~/.m|ailrc is|
|00000240| 20 75 73 65 64 2e 22 29 | 0a 28 64 65 66 61 6c 69 | used.")|.(defali|
|00000250| 61 73 20 28 71 75 6f 74 | 65 20 6d 61 69 6c 2d 61 |as (quot|e mail-a|
|00000260| 62 62 72 65 76 2d 6d 61 | 69 6c 72 63 2d 66 69 6c |bbrev-ma|ilrc-fil|
|00000270| 65 29 20 28 71 75 6f 74 | 65 20 28 6d 61 63 72 6f |e) (quot|e (macro|
|00000280| 20 2e 20 23 5b 6e 69 6c | 20 22 c0 87 22 20 5b 28 | . #[nil| ".." [(|
|00000290| 6f 72 20 6d 61 69 6c 2d | 61 62 62 72 65 76 2d 6d |or mail-|abbrev-m|
|000002a0| 61 69 6c 72 63 2d 66 69 | 6c 65 20 28 73 65 74 71 |ailrc-fi|le (setq|
|000002b0| 20 6d 61 69 6c 2d 61 62 | 62 72 65 76 2d 6d 61 69 | mail-ab|brev-mai|
|000002c0| 6c 72 63 2d 66 69 6c 65 | 20 28 6f 72 20 28 67 65 |lrc-file| (or (ge|
|000002d0| 74 65 6e 76 20 22 4d 41 | 49 4c 52 43 22 29 20 22 |tenv "MA|ILRC") "|
|000002e0| 7e 2f 2e 6d 61 69 6c 72 | 63 22 29 29 29 5d 20 31 |~/.mailr|c")))] 1|
|000002f0| 5d 29 29 29 0a 28 64 65 | 66 76 61 72 20 6d 61 69 |]))).(de|fvar mai|
|00000300| 6c 2d 61 62 62 72 65 76 | 73 20 6e 69 6c 20 22 5c |l-abbrev|s nil "\|
|00000310| 0a 57 6f 72 64 2d 61 62 | 62 72 65 76 20 74 61 62 |.Word-ab|brev tab|
|00000320| 6c 65 20 6f 66 20 6d 61 | 69 6c 20 61 64 64 72 65 |le of ma|il addre|
|00000330| 73 73 20 61 6c 69 61 73 | 65 73 2e 0a 49 66 20 74 |ss alias|es..If t|
|00000340| 68 69 73 20 69 73 20 6e | 69 6c 2c 20 69 74 20 6d |his is n|il, it m|
|00000350| 65 61 6e 73 20 74 68 65 | 20 61 6c 69 61 73 65 73 |eans the| aliases|
|00000360| 20 68 61 76 65 20 6e 6f | 74 20 79 65 74 20 62 65 | have no|t yet be|
|00000370| 65 6e 20 69 6e 69 74 69 | 61 6c 69 7a 65 64 20 61 |en initi|alized a|
|00000380| 6e 64 0a 73 68 6f 75 6c | 64 20 62 65 20 72 65 61 |nd.shoul|d be rea|
|00000390| 64 20 66 72 6f 6d 20 74 | 68 65 20 2e 6d 61 69 6c |d from t|he .mail|
|000003a0| 72 63 20 66 69 6c 65 2e | 20 20 28 54 68 69 73 20 |rc file.|  (This |
|000003b0| 69 73 20 64 69 73 74 69 | 6e 63 74 20 66 72 6f 6d |is disti|nct from|
|000003c0| 20 74 68 65 72 65 20 62 | 65 69 6e 67 0a 6e 6f 20 | there b|eing.no |
|000003d0| 61 6c 69 61 73 65 73 2c | 20 77 68 69 63 68 20 69 |aliases,| which i|
|000003e0| 73 20 72 65 70 72 65 73 | 65 6e 74 65 64 20 62 79 |s repres|ented by|
|000003f0| 20 74 68 69 73 20 62 65 | 69 6e 67 20 61 20 74 61 | this be|ing a ta|
|00000400| 62 6c 65 20 77 69 74 68 | 20 6e 6f 20 65 6e 74 72 |ble with| no entr|
|00000410| 69 65 73 2e 29 22 29 0a | 28 64 65 66 61 6c 69 61 |ies.)").|(defalia|
|00000420| 73 20 28 71 75 6f 74 65 | 20 6d 61 69 6c 2d 61 62 |s (quote| mail-ab|
|00000430| 62 72 65 76 73 2d 73 65 | 74 75 70 29 20 23 5b 6e |brevs-se|tup) #[n|
|00000440| 69 6c 20 22 c0 09 21 84 | 1b 00 c2 0b 86 14 00 c4 |il "..!.|........|
|00000450| c5 21 86 12 00 c6 89 13 | 21 83 1b 00 c7 20 88 c8 |.!......|!.... ..|
|00000460| c9 21 88 0e 09 3c 83 34 | 00 0e 09 40 ca 3d 84 34 |.!...<.4|...@.=.4|
|00000470| 00 cb 0e 09 42 82 38 00 | cb 0e 09 44 16 09 cc cd |....B.8.|...D....|
|00000480| 21 87 22 20 5b 76 65 63 | 74 6f 72 70 20 6d 61 69 |!." [vec|torp mai|
|00000490| 6c 2d 61 62 62 72 65 76 | 73 20 66 69 6c 65 2d 65 |l-abbrev|s file-e|
|000004a0| 78 69 73 74 73 2d 70 20 | 6d 61 69 6c 2d 61 62 62 |xists-p |mail-abb|
|000004b0| 72 65 76 2d 6d 61 69 6c | 72 63 2d 66 69 6c 65 20 |rev-mail|rc-file |
|000004c0| 67 65 74 65 6e 76 20 22 | 4d 41 49 4c 52 43 22 20 |getenv "|MAILRC" |
|000004d0| 22 7e 2f 2e 6d 61 69 6c | 72 63 22 20 62 75 69 6c |"~/.mail|rc" buil|
|000004e0| 64 2d 6d 61 69 6c 2d 61 | 62 62 72 65 76 73 20 6d |d-mail-a|bbrevs m|
|000004f0| 61 6b 65 2d 6c 6f 63 61 | 6c 2d 76 61 72 69 61 62 |ake-loca|l-variab|
|00000500| 6c 65 20 70 72 65 2d 61 | 62 62 72 65 76 2d 65 78 |le pre-a|bbrev-ex|
|00000510| 70 61 6e 64 2d 68 6f 6f | 6b 20 6c 61 6d 62 64 61 |pand-hoo|k lambda|
|00000520| 20 73 65 6e 64 6d 61 69 | 6c 2d 70 72 65 2d 61 62 | sendmai|l-pre-ab|
|00000530| 62 72 65 76 2d 65 78 70 | 61 6e 64 2d 68 6f 6f 6b |brev-exp|and-hook|
|00000540| 20 61 62 62 72 65 76 2d | 6d 6f 64 65 20 31 5d 20 | abbrev-|mode 1] |
|00000550| 33 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 62 |3]).(def|alias 'b|
|00000560| 75 69 6c 64 2d 6d 61 69 | 6c 2d 61 62 62 72 65 76 |uild-mai|l-abbrev|
|00000570| 73 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 66 |s #[(&op|tional f|
|00000580| 69 6c 65 20 72 65 63 75 | 72 73 69 76 65 70 29 20 |ile recu|rsivep) |
|00000590| 22 c0 09 86 12 00 5c 6e | 86 12 00 c3 c4 21 86 10 |".....\n|.....!..|
|000005a0| 00 c5 89 12 21 11 c6 0e | 07 21 84 23 00 c8 16 07 |....!...|.!.#....|
|000005b0| c9 c7 c8 5c 22 88 ca cb | 09 5c 22 88 c8 70 1e 0c |...\"...|.\"..p..|
|000005c0| 1e 0d ce 8e cf d0 21 16 | 0d d1 0e 0d 21 88 0e 0d |......!.|....!...|
|000005d0| 71 88 d2 09 21 83 53 00 | 8a d2 09 21 71 88 65 64 |q...!.S.|...!q.ed|
|000005e0| 7b 29 63 88 82 5d 00 d3 | 09 21 83 5d 00 d4 09 21 |{)c..]..|.!.]...!|
|000005f0| 88 64 62 88 68 d5 3d 84 | 69 00 d6 20 88 65 62 88 |.db.h.=.|i.. .eb.|
|00000600| d7 d8 c8 d9 23 83 85 00 | 60 da 5a 1e 1b c8 7f 88 |....#...|`.Z.....|
|00000610| 0e 1b 60 7c 88 29 82 6c | 00 65 62 88 6d 84 a9 00 |..`|.).l|.eb.m...|
|00000620| c8 7f 88 68 dc 55 83 a3 | 00 dd de 21 88 dd df 21 |...h.U..|...!...!|
|00000630| 88 e0 63 88 82 88 00 df | 75 88 82 88 00 65 62 88 |..c.....|u....eb.|
|00000640| e1 e2 c8 d9 23 83 f0 00 | e3 79 88 e4 e5 21 83 cd |....#...|.y...!..|
|00000650| 00 c8 7f 88 e6 e7 df 94 | df 95 7b 21 21 88 82 ac |........|..{!!...|
|00000660| 00 e1 e8 21 88 df 94 df | 95 7b 1e 29 ea c8 77 88 |...!....|.{.)..w.|
|00000670| 60 1e 2b c8 7f 88 ec 0e | 29 0e 2b 60 7b d9 23 88 |`.+.....|).+`{.#.|
|00000680| 2a 82 ac 00 0e 2d 84 f8 | 00 ee 20 88 2b ca ef 09 |*....-..|.. .+...|
|00000690| 5c 22 87 22 20 5b 65 78 | 70 61 6e 64 2d 66 69 6c |\"." [ex|pand-fil|
|000006a0| 65 2d 6e 61 6d 65 20 66 | 69 6c 65 20 6d 61 69 6c |e-name f|ile mail|
|000006b0| 2d 61 62 62 72 65 76 2d | 6d 61 69 6c 72 63 2d 66 |-abbrev-|mailrc-f|
|000006c0| 69 6c 65 20 67 65 74 65 | 6e 76 20 22 4d 41 49 4c |ile gete|nv "MAIL|
|000006d0| 52 43 22 20 22 7e 2f 2e | 6d 61 69 6c 72 63 22 20 |RC" "~/.|mailrc" |
|000006e0| 76 65 63 74 6f 72 70 20 | 6d 61 69 6c 2d 61 62 62 |vectorp |mail-abb|
|000006f0| 72 65 76 73 20 6e 69 6c | 20 64 65 66 69 6e 65 2d |revs nil| define-|
|00000700| 61 62 62 72 65 76 2d 74 | 61 62 6c 65 20 6d 65 73 |abbrev-t|able mes|
|00000710| 73 61 67 65 20 22 50 61 | 72 73 69 6e 67 20 25 73 |sage "Pa|rsing %s|
|00000720| 2e 2e 2e 22 20 6f 62 75 | 66 20 62 75 66 66 65 72 |..." obu|f buffer|
|00000730| 20 28 28 62 79 74 65 2d | 63 6f 64 65 20 22 08 83 | ((byte-|code "..|
|00000740| 08 00 c1 08 21 88 5c 6e | 71 87 22 20 5b 62 75 66 |....!.\n|q." [buf|
|00000750| 66 65 72 20 6b 69 6c 6c | 2d 62 75 66 66 65 72 20 |fer kill|-buffer |
|00000760| 6f 62 75 66 5d 20 32 29 | 29 20 67 65 6e 65 72 61 |obuf] 2)|) genera|
|00000770| 74 65 2d 6e 65 77 2d 62 | 75 66 66 65 72 20 22 6d |te-new-b|uffer "m|
|00000780| 61 69 6c 72 63 22 20 62 | 75 66 66 65 72 2d 64 69 |ailrc" b|uffer-di|
|00000790| 73 61 62 6c 65 2d 75 6e | 64 6f 20 67 65 74 2d 66 |sable-un|do get-f|
|000007a0| 69 6c 65 2d 62 75 66 66 | 65 72 20 66 69 6c 65 2d |ile-buff|er file-|
|000007b0| 65 78 69 73 74 73 2d 70 | 20 69 6e 73 65 72 74 2d |exists-p| insert-|
|000007c0| 66 69 6c 65 2d 63 6f 6e | 74 65 6e 74 73 20 31 30 |file-con|tents 10|
|000007d0| 20 6e 65 77 6c 69 6e 65 | 20 73 65 61 72 63 68 2d | newline| search-|
|000007e0| 66 6f 72 77 61 72 64 20 | 22 23 20 22 20 74 20 32 |forward |"# " t 2|
|000007f0| 20 70 20 39 32 20 64 65 | 6c 65 74 65 2d 63 68 61 | p 92 de|lete-cha|
|00000800| 72 20 2d 31 20 31 20 33 | 32 20 72 65 2d 73 65 61 |r -1 1 3|2 re-sea|
|00000810| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 22 5e 5c 5c |rch-forw|ard "^\\|
|00000820| 28 61 5c 5c 28 6c 69 61 | 73 5c 5c 29 3f 5c 5c 7c |(a\\(lia|s\\)?\\||
|00000830| 67 5c 5c 28 72 6f 75 70 | 5c 5c 29 3f 5c 5c 7c 73 |g\\(roup|\\)?\\|s|
|00000840| 6f 75 72 63 65 5c 5c 29 | 5b 20 09 5d 2b 22 20 30 |ource\\)|[ .]+" 0|
|00000850| 20 6c 6f 6f 6b 69 6e 67 | 2d 61 74 20 22 73 6f 75 | looking|-at "sou|
|00000860| 72 63 65 5b 20 09 5d 2b | 5c 5c 28 5b 5e 20 09 5c |rce[ .]+|\\([^ .\|
|00000870| 6e 5d 2b 5c 5c 29 22 20 | 62 75 69 6c 64 2d 6d 61 |n]+\\)" |build-ma|
|00000880| 69 6c 2d 61 62 62 72 65 | 76 73 20 73 75 62 73 74 |il-abbre|vs subst|
|00000890| 69 74 75 74 65 2d 69 6e | 2d 66 69 6c 65 2d 6e 61 |itute-in|-file-na|
|000008a0| 6d 65 20 22 5b 20 09 5d | 2b 5c 5c 28 5b 5e 20 09 |me "[ .]|+\\([^ .|
|000008b0| 5c 6e 5d 2b 5c 5c 29 22 | 20 6e 61 6d 65 20 22 20 |\n]+\\)"| name " |
|000008c0| 09 22 20 73 74 61 72 74 | 20 64 65 66 69 6e 65 2d |." start| define-|
|000008d0| 6d 61 69 6c 2d 61 62 62 | 72 65 76 20 72 65 63 75 |mail-abb|rev recu|
|000008e0| 72 73 69 76 65 70 20 6d | 61 69 6c 2d 72 65 73 6f |rsivep m|ail-reso|
|000008f0| 6c 76 65 2d 61 6c 6c 2d | 61 6c 69 61 73 65 73 20 |lve-all-|aliases |
|00000900| 22 50 61 72 73 69 6e 67 | 20 25 73 2e 2e 2e 20 64 |"Parsing| %s... d|
|00000910| 6f 6e 65 22 5d 20 34 20 | 22 5c 0a 52 65 61 64 20 |one"] 4 |"\.Read |
|00000920| 6d 61 69 6c 20 61 6c 69 | 61 73 65 73 20 66 72 6f |mail ali|ases fro|
|00000930| 6d 20 60 7e 2f 2e 6d 61 | 69 6c 72 63 27 20 66 69 |m `~/.ma|ilrc' fi|
|00000940| 6c 65 20 61 6e 64 20 73 | 65 74 20 60 6d 61 69 6c |le and s|et `mail|
|00000950| 2d 61 62 62 72 65 76 73 | 27 2e 22 5d 29 0a 28 64 |-abbrevs|'."]).(d|
|00000960| 65 66 76 61 72 20 6d 61 | 69 6c 2d 61 6c 69 61 73 |efvar ma|il-alias|
|00000970| 2d 73 65 70 61 72 61 74 | 6f 72 2d 73 74 72 69 6e |-separat|or-strin|
|00000980| 67 20 22 2c 20 22 20 22 | 5c 0a 2a 41 20 73 74 72 |g ", " "|\.*A str|
|00000990| 69 6e 67 20 69 6e 73 65 | 72 74 65 64 20 62 65 74 |ing inse|rted bet|
|000009a0| 77 65 65 6e 20 61 64 64 | 72 65 73 73 65 73 20 69 |ween add|resses i|
|000009b0| 6e 20 6d 75 6c 74 69 2d | 61 64 64 72 65 73 73 20 |n multi-|address |
|000009c0| 6d 61 69 6c 20 61 6c 69 | 61 73 65 73 2e 0a 54 68 |mail ali|ases..Th|
|000009d0| 69 73 20 68 61 73 20 74 | 6f 20 63 6f 6e 74 61 69 |is has t|o contai|
|000009e0| 6e 20 61 20 63 6f 6d 6d | 61 2c 20 73 6f 20 5c 22 |n a comm|a, so \"|
|000009f0| 2c 20 5c 22 20 69 73 20 | 61 20 72 65 61 73 6f 6e |, \" is |a reason|
|00000a00| 61 62 6c 65 20 76 61 6c | 75 65 2e 20 20 59 6f 75 |able val|ue.  You|
|00000a10| 20 6d 69 67 68 74 20 0a | 61 6c 73 6f 20 77 61 6e | might .|also wan|
|00000a20| 74 20 73 6f 6d 65 74 68 | 69 6e 67 20 6c 69 6b 65 |t someth|ing like|
|00000a30| 20 5c 22 2c 5c 5c 6e 20 | 20 20 20 5c 22 20 74 6f | \",\\n |   \" to|
|00000a40| 20 67 65 74 20 65 61 63 | 68 20 61 64 64 72 65 73 | get eac|h addres|
|00000a50| 73 20 6f 6e 20 69 74 73 | 20 6f 77 6e 20 6c 69 6e |s on its| own lin|
|00000a60| 65 2e 22 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |e.").(by|te-code |
|00000a70| 22 c0 c1 21 84 08 00 c2 | 11 c0 87 22 20 5b 62 6f |"..!....|..." [bo|
|00000a80| 75 6e 64 70 20 6d 61 69 | 6c 2d 61 62 62 72 65 76 |undp mai|l-abbrev|
|00000a90| 2d 61 6c 69 61 73 65 73 | 2d 6e 65 65 64 2d 74 6f |-aliases|-need-to|
|00000aa0| 2d 62 65 2d 72 65 73 6f | 6c 76 65 64 20 74 5d 20 |-be-reso|lved t] |
|00000ab0| 32 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 64 65 |2).(defa|lias 'de|
|00000ac0| 66 69 6e 65 2d 6d 61 69 | 6c 2d 61 62 62 72 65 76 |fine-mai|l-abbrev|
|00000ad0| 20 23 5b 28 6e 61 6d 65 | 20 64 65 66 69 6e 69 74 | #[(name| definit|
|00000ae0| 69 6f 6e 20 26 6f 70 74 | 69 6f 6e 61 6c 20 66 72 |ion &opt|ional fr|
|00000af0| 6f 6d 2d 6d 61 69 6c 72 | 63 2d 66 69 6c 65 29 20 |om-mailr|c-file) |
|00000b00| 22 c0 09 21 84 5c 22 00 | c2 11 c3 c1 c2 5c 22 88 |"..!.\".|.....\".|
|00000b10| c4 0d 86 1b 00 c6 c7 21 | 86 19 00 c8 89 15 21 83 |.......!|......!.|
|00000b20| 5c 22 00 c9 20 88 ca cb | 0e 0c 5c 22 83 32 00 0e |\".. ...|..\".2..|
|00000b30| 0c cd 95 c2 4f 16 0c ca | ce 0e 0c 5c 22 83 42 00 |....O...|...\".B.|
|00000b40| 0e 0c cd 89 94 4f 16 0c | c2 cd 0e 0c 47 c2 1e 0f |.....O..|....G...|
|00000b50| 1e 10 1e 11 1e 12 0e 11 | 83 ac 00 0e 13 83 81 00 |........|........|
|00000b60| 0e 0c 0e 11 48 d4 3d 83 | 75 00 0e 11 54 16 11 ca |....H.=.|u...T...|
|00000b70| d5 0e 0c 0e 11 23 16 0f | 82 8a 00 ca d6 0e 0c 0e |.....#..|........|
|00000b80| 11 23 16 0f 82 8a 00 ca | d7 0e 0c 0e 11 23 16 0f |.#......|.....#..|
|00000b90| 0e 0c 0e 11 0e 0f 4f 0e | 12 42 16 12 0e 0f 85 a6 |......O.|.B......|
|00000ba0| 00 cd 95 0e 10 55 3f 85 | a6 00 cd 95 89 16 11 84 |.....U?.|........|
|00000bb0| 55 00 d8 d9 0e 12 9f 0e | 1a 23 16 0c 2c db 16 1c |U.......|.#..,...|
|00000bc0| 0e 1d 97 16 1d 0e 1e 1e | 1e df 09 0e 1d 0e 0c e0 |........|........|
|00000bd0| 24 29 87 22 20 5b 76 65 | 63 74 6f 72 70 20 6d 61 |$)." [ve|ctorp ma|
|00000be0| 69 6c 2d 61 62 62 72 65 | 76 73 20 6e 69 6c 20 64 |il-abbre|vs nil d|
|00000bf0| 65 66 69 6e 65 2d 61 62 | 62 72 65 76 2d 74 61 62 |efine-ab|brev-tab|
|00000c00| 6c 65 20 66 69 6c 65 2d | 65 78 69 73 74 73 2d 70 |le file-|exists-p|
|00000c10| 20 6d 61 69 6c 2d 61 62 | 62 72 65 76 2d 6d 61 69 | mail-ab|brev-mai|
|00000c20| 6c 72 63 2d 66 69 6c 65 | 20 67 65 74 65 6e 76 20 |lrc-file| getenv |
|00000c30| 22 4d 41 49 4c 52 43 22 | 20 22 7e 2f 2e 6d 61 69 |"MAILRC"| "~/.mai|
|00000c40| 6c 72 63 22 20 62 75 69 | 6c 64 2d 6d 61 69 6c 2d |lrc" bui|ld-mail-|
|00000c50| 61 62 62 72 65 76 73 20 | 73 74 72 69 6e 67 2d 6d |abbrevs |string-m|
|00000c60| 61 74 63 68 20 22 5c 5c | 60 5b 20 09 5c 6e 2c 5d |atch "\\|`[ .\n,]|
|00000c70| 2b 22 20 64 65 66 69 6e | 69 74 69 6f 6e 20 30 20 |+" defin|ition 0 |
|00000c80| 22 5b 20 09 5c 6e 2c 5d | 2b 5c 5c 27 22 20 65 6e |"[ .\n,]|+\\'" en|
|00000c90| 64 20 4c 20 73 74 61 72 | 74 20 72 65 73 75 6c 74 |d L star|t result|
|00000ca0| 20 66 72 6f 6d 2d 6d 61 | 69 6c 72 63 2d 66 69 6c | from-ma|ilrc-fil|
|00000cb0| 65 20 33 34 20 22 5c 22 | 5b 20 09 2c 5d 2a 22 20 |e 34 "\"|[ .,]*" |
|00000cc0| 22 5b 20 09 2c 5d 2b 22 | 20 22 5b 20 09 5c 6e 2c |"[ .,]+"| "[ .\n,|
|00000cd0| 5d 2a 2c 5b 20 09 5c 6e | 2c 5d 2a 22 20 6d 61 70 |]*,[ .\n|,]*" map|
|00000ce0| 63 6f 6e 63 61 74 20 69 | 64 65 6e 74 69 74 79 20 |concat i|dentity |
|00000cf0| 6d 61 69 6c 2d 61 6c 69 | 61 73 2d 73 65 70 61 72 |mail-ali|as-separ|
|00000d00| 61 74 6f 72 2d 73 74 72 | 69 6e 67 20 74 20 6d 61 |ator-str|ing t ma|
|00000d10| 69 6c 2d 61 62 62 72 65 | 76 2d 61 6c 69 61 73 65 |il-abbre|v-aliase|
|00000d20| 73 2d 6e 65 65 64 2d 74 | 6f 2d 62 65 2d 72 65 73 |s-need-t|o-be-res|
|00000d30| 6f 6c 76 65 64 20 6e 61 | 6d 65 20 61 62 62 72 65 |olved na|me abbre|
|00000d40| 76 73 2d 63 68 61 6e 67 | 65 64 20 64 65 66 69 6e |vs-chang|ed defin|
|00000d50| 65 2d 61 62 62 72 65 76 | 20 6d 61 69 6c 2d 61 62 |e-abbrev| mail-ab|
|00000d60| 62 72 65 76 2d 65 78 70 | 61 6e 64 2d 68 6f 6f 6b |brev-exp|and-hook|
|00000d70| 5d 20 36 20 22 5c 0a 44 | 65 66 69 6e 65 20 4e 41 |] 6 "\.D|efine NA|
|00000d80| 4d 45 20 61 73 20 61 20 | 6d 61 69 6c 2d 61 62 62 |ME as a |mail-abb|
|00000d90| 72 65 76 20 74 68 61 74 | 20 74 72 61 6e 73 6c 61 |rev that| transla|
|00000da0| 74 65 73 20 74 6f 20 44 | 45 46 49 4e 49 54 49 4f |tes to D|EFINITIO|
|00000db0| 4e 2e 0a 49 66 20 44 45 | 46 49 4e 49 54 49 4f 4e |N..If DE|FINITION|
|00000dc0| 20 63 6f 6e 74 61 69 6e | 73 20 6d 75 6c 74 69 70 | contain|s multip|
|00000dd0| 6c 65 20 61 64 64 72 65 | 73 73 65 73 2c 20 73 65 |le addre|sses, se|
|00000de0| 70 61 72 61 74 65 20 74 | 68 65 6d 20 77 69 74 68 |parate t|hem with|
|00000df0| 20 63 6f 6d 6d 61 73 2e | 22 20 22 73 44 65 66 69 | commas.|" "sDefi|
|00000e00| 6e 65 20 6d 61 69 6c 20 | 61 6c 69 61 73 3a 20 5c |ne mail |alias: \|
|00000e10| 6e 73 44 65 66 69 6e 65 | 20 25 73 20 61 73 20 6d |nsDefine| %s as m|
|00000e20| 61 69 6c 20 61 6c 69 61 | 73 20 66 6f 72 3a 20 22 |ail alia|s for: "|
|00000e30| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6d 61 |]).(defa|lias 'ma|
|00000e40| 69 6c 2d 72 65 73 6f 6c | 76 65 2d 61 6c 6c 2d 61 |il-resol|ve-all-a|
|00000e50| 6c 69 61 73 65 73 20 23 | 5b 6e 69 6c 20 22 08 85 |liases #|[nil "..|
|00000e60| 12 00 c1 5c 6e 21 83 0f | 00 c3 c4 5c 6e 5c 22 88 |...\n!..|...\n\".|
|00000e70| c5 89 10 87 22 20 5b 6d | 61 69 6c 2d 61 62 62 72 |...." [m|ail-abbr|
|00000e80| 65 76 2d 61 6c 69 61 73 | 65 73 2d 6e 65 65 64 2d |ev-alias|es-need-|
|00000e90| 74 6f 2d 62 65 2d 72 65 | 73 6f 6c 76 65 64 20 76 |to-be-re|solved v|
|00000ea0| 65 63 74 6f 72 70 20 6d | 61 69 6c 2d 61 62 62 72 |ectorp m|ail-abbr|
|00000eb0| 65 76 73 20 6d 61 70 61 | 74 6f 6d 73 20 6d 61 69 |evs mapa|toms mai|
|00000ec0| 6c 2d 72 65 73 6f 6c 76 | 65 2d 61 6c 6c 2d 61 6c |l-resolv|e-all-al|
|00000ed0| 69 61 73 65 73 2d 31 20 | 6e 69 6c 5d 20 33 20 22 |iases-1 |nil] 3 "|
|00000ee0| 5c 0a 52 65 73 6f 6c 76 | 65 20 61 6c 6c 20 66 6f |\.Resolv|e all fo|
|00000ef0| 72 77 61 72 64 20 72 65 | 66 65 72 65 6e 63 65 73 |rward re|ferences|
|00000f00| 20 69 6e 20 74 68 65 20 | 6d 61 69 6c 20 61 6c 69 | in the |mail ali|
|00000f10| 61 73 65 73 20 74 61 62 | 6c 65 2e 22 5d 29 0a 28 |ases tab|le."]).(|
|00000f20| 64 65 66 61 6c 69 61 73 | 20 28 71 75 6f 74 65 20 |defalias| (quote |
|00000f30| 6d 61 69 6c 2d 72 65 73 | 6f 6c 76 65 2d 61 6c 6c |mail-res|olve-all|
|00000f40| 2d 61 6c 69 61 73 65 73 | 2d 31 29 20 23 5b 28 73 |-aliases|-1) #[(s|
|00000f50| 79 6d 20 26 6f 70 74 69 | 6f 6e 61 6c 20 73 6f 2d |ym &opti|onal so-|
|00000f60| 66 61 72 29 20 22 08 09 | 3e 83 11 00 c2 c3 c4 c5 |far) "..|>.......|
|00000f70| 08 09 42 c6 23 5c 22 88 | c7 08 21 85 19 00 08 4a |..B.#\".|..!....J|
|00000f80| 89 1e 08 83 5c 5c 00 c9 | ca 1e 0b 1e 0c 0e 0b 83 |....\\..|........|
|00000f90| 4c 00 cd ce 0e 08 0e 0b | 23 1e 0f 0e 08 0e 0b 0e |L.......|#.......|
|00000fa0| 0f 4f 0e 0c 42 16 0c 0e | 0f 85 46 00 ca 95 16 0b |.O..B...|..F.....|
|00000fb0| 29 82 25 00 c4 d0 0e 0c | 9f 0e 11 23 16 08 08 0e |).%.....|...#....|
|00000fc0| 08 4c 88 2a 29 08 4a 87 | 22 20 5b 73 79 6d 20 73 |.L.*).J.|" [sym s|
|00000fd0| 6f 2d 66 61 72 20 65 72 | 72 6f 72 20 22 6d 61 69 |o-far er|ror "mai|
|00000fe0| 6c 20 61 6c 69 61 73 20 | 6c 6f 6f 70 20 64 65 74 |l alias |loop det|
|00000ff0| 65 63 74 65 64 3a 20 25 | 73 22 20 6d 61 70 63 6f |ected: %|s" mapco|
|00001000| 6e 63 61 74 20 73 79 6d | 62 6f 6c 2d 6e 61 6d 65 |ncat sym|bol-name|
|00001010| 20 22 20 3c 2d 20 22 20 | 62 6f 75 6e 64 70 20 64 | " <- " |boundp d|
|00001020| 65 66 69 6e 69 74 69 6f | 6e 20 6e 69 6c 20 30 20 |efinitio|n nil 0 |
|00001030| 73 74 61 72 74 20 72 65 | 73 75 6c 74 20 73 74 72 |start re|sult str|
|00001040| 69 6e 67 2d 6d 61 74 63 | 68 20 22 5b 20 09 5c 6e |ing-matc|h "[ .\n|
|00001050| 5d 2a 2c 5b 2c 20 09 5c | 6e 5d 2a 22 20 65 6e 64 |]*,[, .\|n]*" end|
|00001060| 20 23 5b 28 78 29 20 22 | c0 c1 5c 6e 0b 5c 22 0c | #[(x) "|..\n.\".|
|00001070| 0d 42 5c 22 86 0d 00 5c | 6e 87 22 20 5b 6d 61 69 |.B\"...\|n." [mai|
|00001080| 6c 2d 72 65 73 6f 6c 76 | 65 2d 61 6c 6c 2d 61 6c |l-resolv|e-all-al|
|00001090| 69 61 73 65 73 2d 31 20 | 69 6e 74 65 72 6e 2d 73 |iases-1 |intern-s|
|000010a0| 6f 66 74 20 78 20 6d 61 | 69 6c 2d 61 62 62 72 65 |oft x ma|il-abbre|
|000010b0| 76 73 20 73 79 6d 20 73 | 6f 2d 66 61 72 5d 20 34 |vs sym s|o-far] 4|
|000010c0| 5d 20 6d 61 69 6c 2d 61 | 6c 69 61 73 2d 73 65 70 |] mail-a|lias-sep|
|000010d0| 61 72 61 74 6f 72 2d 73 | 74 72 69 6e 67 5d 20 37 |arator-s|tring] 7|
|000010e0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6d 61 |]).(defa|lias 'ma|
|000010f0| 69 6c 2d 61 62 62 72 65 | 76 2d 65 78 70 61 6e 64 |il-abbre|v-expand|
|00001100| 2d 68 6f 6f 6b 20 23 5b | 6e 69 6c 20 22 8a 60 c0 |-hook #[|nil ".`.|
|00001110| 89 89 19 1a 1b 1c c5 79 | 88 60 13 0c 62 88 0e 06 |.......y|.`..b...|
|00001120| 85 54 00 69 0e 07 59 85 | 54 00 c8 c9 0b ca 23 85 |.T.i..Y.|T.....#.|
|00001130| 54 00 60 12 cb 75 88 cc | 63 88 cd 20 88 60 14 ce |T.`..u..|c.. .`..|
|00001140| 20 88 0c 60 7b 11 c0 7f | 88 69 0e 07 56 83 4e 00 | ..`{...|.i..V.N.|
|00001150| 09 86 48 00 cf 1e 10 d1 | 20 88 29 5c 6e 62 88 82 |..H.....| .)\nb..|
|00001160| 11 00 2d 87 22 20 5b 6e | 69 6c 20 66 70 20 63 6f |..-." [n|il fp co|
|00001170| 6d 6d 61 20 62 6f 6c 20 | 70 20 30 20 61 75 74 6f |mma bol |p 0 auto|
|00001180| 2d 66 69 6c 6c 2d 66 75 | 6e 63 74 69 6f 6e 20 66 |-fill-fu|nction f|
|00001190| 69 6c 6c 2d 63 6f 6c 75 | 6d 6e 20 73 65 61 72 63 |ill-colu|mn searc|
|000011a0| 68 2d 62 61 63 6b 77 61 | 72 64 20 22 2c 22 20 74 |h-backwa|rd "," t|
|000011b0| 20 31 20 22 5c 6e 22 20 | 64 65 6c 65 74 65 2d 68 | 1 "\n" |delete-h|
|000011c0| 6f 72 69 7a 6f 6e 74 61 | 6c 2d 73 70 61 63 65 20 |orizonta|l-space |
|000011d0| 69 6e 64 65 6e 74 2d 72 | 65 6c 61 74 69 76 65 20 |indent-r|elative |
|000011e0| 22 09 22 20 66 69 6c 6c | 2d 70 72 65 66 69 78 20 |"." fill|-prefix |
|000011f0| 64 6f 2d 61 75 74 6f 2d | 66 69 6c 6c 5d 20 34 20 |do-auto-|fill] 4 |
|00001200| 22 5c 0a 46 6f 72 20 75 | 73 65 20 61 73 20 74 68 |"\.For u|se as th|
|00001210| 65 20 66 6f 75 72 74 68 | 20 61 72 67 20 74 6f 20 |e fourth| arg to |
|00001220| 64 65 66 69 6e 65 2d 61 | 62 62 72 65 76 2e 0a 41 |define-a|bbrev..A|
|00001230| 66 74 65 72 20 65 78 70 | 61 6e 64 69 6e 67 20 61 |fter exp|anding a|
|00001240| 20 6d 61 69 6c 2d 61 62 | 62 72 65 76 2c 20 69 66 | mail-ab|brev, if|
|00001250| 20 66 69 6c 6c 2d 6d 6f | 64 65 20 69 73 20 6f 6e | fill-mo|de is on|
|00001260| 20 61 6e 64 20 77 65 27 | 72 65 20 70 61 73 74 20 | and we'|re past |
|00001270| 74 68 65 0a 66 69 6c 6c | 2d 63 6f 6c 75 6d 6e 2c |the.fill|-column,|
|00001280| 20 62 72 65 61 6b 20 74 | 68 65 20 6c 69 6e 65 20 | break t|he line |
|00001290| 61 74 20 74 68 65 20 70 | 72 65 76 69 6f 75 73 20 |at the p|revious |
|000012a0| 63 6f 6d 6d 61 2c 20 61 | 6e 64 20 69 6e 64 65 6e |comma, a|nd inden|
|000012b0| 74 20 74 68 65 20 6e 65 | 78 74 0a 6c 69 6e 65 2e |t the ne|xt.line.|
|000012c0| 22 5d 29 0a 28 64 65 66 | 76 61 72 20 6d 61 69 6c |"]).(def|var mail|
|000012d0| 2d 61 62 62 72 65 76 2d | 6d 6f 64 65 2d 72 65 67 |-abbrev-|mode-reg|
|000012e0| 65 78 70 20 22 5e 5c 5c | 28 52 65 73 65 6e 74 2d |exp "^\\|(Resent-|
|000012f0| 5c 5c 29 3f 5c 5c 28 54 | 6f 5c 5c 7c 46 72 6f 6d |\\)?\\(T|o\\|From|
|00001300| 5c 5c 7c 43 43 5c 5c 7c | 42 43 43 5c 5c 7c 52 65 |\\|CC\\||BCC\\|Re|
|00001310| 70 6c 79 2d 74 6f 5c 5c | 29 3a 22 20 22 5c 0a 2a |ply-to\\|):" "\.*|
|00001320| 52 65 67 65 78 70 20 74 | 6f 20 73 65 6c 65 63 74 |Regexp t|o select|
|00001330| 20 6d 61 69 6c 2d 68 65 | 61 64 65 72 73 20 69 6e | mail-he|aders in|
|00001340| 20 77 68 69 63 68 20 6d | 61 69 6c 2d 61 62 62 72 | which m|ail-abbr|
|00001350| 65 76 73 20 73 68 6f 75 | 6c 64 20 62 65 20 65 78 |evs shou|ld be ex|
|00001360| 70 61 6e 64 65 64 2e 0a | 54 68 69 73 20 73 74 72 |panded..|This str|
|00001370| 69 6e 67 20 69 74 20 77 | 69 6c 6c 20 62 65 20 68 |ing it w|ill be h|
|00001380| 61 6e 64 65 64 20 74 6f | 20 60 6c 6f 6f 6b 69 6e |anded to| `lookin|
|00001390| 67 2d 61 74 27 20 77 69 | 74 68 20 74 68 65 20 70 |g-at' wi|th the p|
|000013a0| 6f 69 6e 74 20 61 74 20 | 74 68 65 20 62 65 67 69 |oint at |the begi|
|000013b0| 6e 6e 69 6e 67 0a 6f 66 | 20 74 68 65 20 63 75 72 |nning.of| the cur|
|000013c0| 72 65 6e 74 20 6c 69 6e | 65 3b 20 69 66 20 69 74 |rent lin|e; if it|
|000013d0| 20 6d 61 74 63 68 65 73 | 2c 20 61 62 62 72 65 76 | matches|, abbrev|
|000013e0| 20 6d 6f 64 65 20 77 69 | 6c 6c 20 62 65 20 74 75 | mode wi|ll be tu|
|000013f0| 72 6e 65 64 20 6f 6e 2c | 20 6f 74 68 65 72 77 69 |rned on,| otherwi|
|00001400| 73 65 0a 69 74 20 77 69 | 6c 6c 20 62 65 20 74 75 |se.it wi|ll be tu|
|00001410| 72 6e 65 64 20 6f 66 66 | 2e 20 20 28 59 6f 75 20 |rned off|.  (You |
|00001420| 64 6f 6e 27 74 20 6e 65 | 65 64 20 74 6f 20 77 6f |don't ne|ed to wo|
|00001430| 72 72 79 20 61 62 6f 75 | 74 20 63 6f 6e 74 69 6e |rry abou|t contin|
|00001440| 75 61 74 69 6f 6e 20 6c | 69 6e 65 73 2e 29 0a 54 |uation l|ines.).T|
|00001450| 68 69 73 20 73 68 6f 75 | 6c 64 20 62 65 20 73 65 |his shou|ld be se|
|00001460| 74 20 74 6f 20 6d 61 74 | 63 68 20 74 68 6f 73 65 |t to mat|ch those|
|00001470| 20 6d 61 69 6c 20 66 69 | 65 6c 64 73 20 69 6e 20 | mail fi|elds in |
|00001480| 77 68 69 63 68 20 79 6f | 75 20 77 61 6e 74 20 61 |which yo|u want a|
|00001490| 62 62 72 65 76 69 61 74 | 69 6f 6e 73 0a 74 75 72 |bbreviat|ions.tur|
|000014a0| 6e 65 64 20 6f 6e 2e 22 | 29 0a 28 64 65 66 76 61 |ned on."|).(defva|
|000014b0| 72 20 6d 61 69 6c 2d 6d | 6f 64 65 2d 73 79 6e 74 |r mail-m|ode-synt|
|000014c0| 61 78 2d 74 61 62 6c 65 | 20 28 63 6f 70 79 2d 73 |ax-table| (copy-s|
|000014d0| 79 6e 74 61 78 2d 74 61 | 62 6c 65 20 74 65 78 74 |yntax-ta|ble text|
|000014e0| 2d 6d 6f 64 65 2d 73 79 | 6e 74 61 78 2d 74 61 62 |-mode-sy|ntax-tab|
|000014f0| 6c 65 29 20 22 5c 0a 54 | 68 65 20 73 79 6e 74 61 |le) "\.T|he synta|
|00001500| 78 20 74 61 62 6c 65 20 | 77 68 69 63 68 20 69 73 |x table |which is|
|00001510| 20 75 73 65 64 20 69 6e | 20 73 65 6e 64 2d 6d 61 | used in| send-ma|
|00001520| 69 6c 20 6d 6f 64 65 20 | 6d 65 73 73 61 67 65 20 |il mode |message |
|00001530| 62 6f 64 69 65 73 2e 22 | 29 0a 28 64 65 66 76 61 |bodies."|).(defva|
|00001540| 72 20 6d 61 69 6c 2d 6d | 6f 64 65 2d 68 65 61 64 |r mail-m|ode-head|
|00001550| 65 72 2d 73 79 6e 74 61 | 78 2d 74 61 62 6c 65 20 |er-synta|x-table |
|00001560| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 09 21 1a |(byte-co|de "..!.|
|00001570| c3 c4 c5 5c 6e 23 88 c3 | c6 c5 5c 6e 23 88 c3 c7 |...\n#..|..\n#...|
|00001580| c5 5c 6e 23 88 c3 c8 c5 | 5c 6e 23 88 c3 c9 c5 5c |.\n#....|\n#....\|
|00001590| 6e 23 88 c3 ca c5 5c 6e | 23 88 c3 cb cc 5c 6e 23 |n#....\n|#....\n#|
|000015a0| 88 c3 cd ce 5c 6e 23 88 | 5c 6e 29 87 22 20 5b 63 |....\n#.|\n)." [c|
|000015b0| 6f 70 79 2d 73 79 6e 74 | 61 78 2d 74 61 62 6c 65 |opy-synt|ax-table|
|000015c0| 20 74 65 78 74 2d 6d 6f | 64 65 2d 73 79 6e 74 61 | text-mo|de-synta|
|000015d0| 78 2d 74 61 62 6c 65 20 | 74 61 62 20 6d 6f 64 69 |x-table |tab modi|
|000015e0| 66 79 2d 73 79 6e 74 61 | 78 2d 65 6e 74 72 79 20 |fy-synta|x-entry |
|000015f0| 36 34 20 22 5f 22 20 33 | 37 20 33 33 20 34 36 20 |64 "_" 3|7 33 46 |
|00001600| 39 35 20 34 35 20 36 30 | 20 22 28 3e 22 20 36 32 |95 45 60| "(>" 62|
|00001610| 20 22 29 3c 22 5d 20 34 | 29 20 22 5c 0a 54 68 65 | ")<"] 4|) "\.The|
|00001620| 20 73 79 6e 74 61 78 20 | 74 61 62 6c 65 20 75 73 | syntax |table us|
|00001630| 65 64 20 69 6e 20 73 65 | 6e 64 2d 6d 61 69 6c 20 |ed in se|nd-mail |
|00001640| 6d 6f 64 65 20 77 68 65 | 6e 20 69 6e 20 61 20 6d |mode whe|n in a m|
|00001650| 61 69 6c 2d 61 64 64 72 | 65 73 73 20 68 65 61 64 |ail-addr|ess head|
|00001660| 65 72 2e 0a 6d 61 69 6c | 2d 6d 6f 64 65 2d 73 79 |er..mail|-mode-sy|
|00001670| 6e 74 61 78 2d 74 61 62 | 6c 65 20 69 73 20 75 73 |ntax-tab|le is us|
|00001680| 65 64 20 77 68 65 6e 20 | 74 68 65 20 63 75 72 73 |ed when |the curs|
|00001690| 6f 72 20 69 73 20 69 6e | 20 74 68 65 20 6d 65 73 |or is in| the mes|
|000016a0| 73 61 67 65 20 62 6f 64 | 79 20 6f 72 20 69 6e 0a |sage bod|y or in.|
|000016b0| 6e 6f 6e 2d 61 64 64 72 | 65 73 73 20 68 65 61 64 |non-addr|ess head|
|000016c0| 65 72 73 2e 22 29 0a 28 | 64 65 66 76 61 72 20 6d |ers.").(|defvar m|
|000016d0| 61 69 6c 2d 61 62 62 72 | 65 76 2d 73 79 6e 74 61 |ail-abbr|ev-synta|
|000016e0| 78 2d 74 61 62 6c 65 20 | 28 62 79 74 65 2d 63 6f |x-table |(byte-co|
|000016f0| 64 65 20 22 c0 09 21 89 | 1a 47 53 1b c4 20 c5 48 |de "..!.|.GS.. .H|
|00001700| 1e 06 c4 20 c7 48 1e 08 | 0b c9 59 83 30 00 5c 6e |... .H..|..Y.0.\n|
|00001710| 0b 48 0e 06 55 83 29 00 | 5c 6e 0b 0e 08 49 88 0b |.H..U.).|\n...I..|
|00001720| 53 89 13 82 15 00 5c 6e | 2c 87 22 20 5b 63 6f 70 |S.....\n|,." [cop|
|00001730| 79 2d 73 79 6e 74 61 78 | 2d 74 61 62 6c 65 20 6d |y-syntax|-table m|
|00001740| 61 69 6c 2d 6d 6f 64 65 | 2d 68 65 61 64 65 72 2d |ail-mode|-header-|
|00001750| 73 79 6e 74 61 78 2d 74 | 61 62 6c 65 20 74 61 62 |syntax-t|able tab|
|00001760| 20 69 20 73 74 61 6e 64 | 61 72 64 2d 73 79 6e 74 | i stand|ard-synt|
|00001770| 61 78 2d 74 61 62 6c 65 | 20 39 35 20 5f 20 31 31 |ax-table| 95 _ 11|
|00001780| 39 20 77 20 30 5d 20 34 | 29 20 22 5c 0a 54 68 65 |9 w 0] 4|) "\.The|
|00001790| 20 73 79 6e 74 61 78 2d | 74 61 62 6c 65 20 75 73 | syntax-|table us|
|000017a0| 65 64 20 66 6f 72 20 61 | 62 62 72 65 76 2d 65 78 |ed for a|bbrev-ex|
|000017b0| 70 61 6e 73 69 6f 6e 20 | 70 75 72 70 6f 73 65 73 |pansion |purposes|
|000017c0| 3b 20 74 68 69 73 20 69 | 73 20 6e 6f 74 20 61 63 |; this i|s not ac|
|000017d0| 74 75 61 6c 6c 79 0a 6d | 61 64 65 20 74 68 65 20 |tually.m|ade the |
|000017e0| 63 75 72 72 65 6e 74 20 | 73 79 6e 74 61 78 20 74 |current |syntax t|
|000017f0| 61 62 6c 65 20 6f 66 20 | 74 68 65 20 62 75 66 66 |able of |the buff|
|00001800| 65 72 2c 20 62 75 74 20 | 73 69 6d 70 6c 79 20 63 |er, but |simply c|
|00001810| 6f 6e 74 72 6f 6c 73 20 | 74 68 65 20 73 65 74 20 |ontrols |the set |
|00001820| 6f 66 0a 63 68 61 72 61 | 63 74 65 72 73 20 77 68 |of.chara|cters wh|
|00001830| 69 63 68 20 6d 61 79 20 | 62 65 20 61 20 70 61 72 |ich may |be a par|
|00001840| 74 20 6f 66 20 74 68 65 | 20 6e 61 6d 65 20 6f 66 |t of the| name of|
|00001850| 20 61 20 6d 61 69 6c 2d | 61 6c 69 61 73 2e 22 29 | a mail-|alias.")|
|00001860| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6d 61 69 6c |.(defali|as 'mail|
|00001870| 2d 61 62 62 72 65 76 2d | 69 6e 2d 65 78 70 61 6e |-abbrev-|in-expan|
|00001880| 73 69 6f 6e 2d 68 65 61 | 64 65 72 2d 70 20 23 5b |sion-hea|der-p #[|
|00001890| 6e 69 6c 20 22 c0 19 8a | c2 79 88 c3 c4 21 83 18 |nil "...|.y...!..|
|000018a0| 00 60 65 55 84 18 00 c5 | 79 88 82 06 00 c3 0e 06 |.`eU....|y.......|
|000018b0| 21 29 85 32 00 60 8a 65 | 62 88 c7 c8 0e 09 c8 51 |!).2.`.e|b......Q|
|000018c0| ca c2 23 88 60 29 57 29 | 87 22 20 5b 74 20 63 61 |..#.`)W)|." [t ca|
|000018d0| 73 65 2d 66 6f 6c 64 2d | 73 65 61 72 63 68 20 30 |se-fold-|search 0|
|000018e0| 20 6c 6f 6f 6b 69 6e 67 | 2d 61 74 20 22 5e 5b 20 | looking|-at "^[ |
|000018f0| 09 5d 22 20 2d 31 20 6d | 61 69 6c 2d 61 62 62 72 |.]" -1 m|ail-abbr|
|00001900| 65 76 2d 6d 6f 64 65 2d | 72 65 67 65 78 70 20 73 |ev-mode-|regexp s|
|00001910| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 22 5c |earch-fo|rward "\|
|00001920| 6e 22 20 6d 61 69 6c 2d | 68 65 61 64 65 72 2d 73 |n" mail-|header-s|
|00001930| 65 70 61 72 61 74 6f 72 | 20 6e 69 6c 5d 20 35 20 |eparator| nil] 5 |
|00001940| 22 5c 0a 57 68 65 74 68 | 65 72 20 70 6f 69 6e 74 |"\.Wheth|er point|
|00001950| 20 69 73 20 69 6e 20 61 | 20 6d 61 69 6c 2d 61 64 | is in a| mail-ad|
|00001960| 64 72 65 73 73 20 68 65 | 61 64 65 72 20 66 69 65 |dress he|ader fie|
|00001970| 6c 64 2e 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |ld."]).(|defalias|
|00001980| 20 28 71 75 6f 74 65 20 | 73 65 6e 64 6d 61 69 6c | (quote |sendmail|
|00001990| 2d 70 72 65 2d 61 62 62 | 72 65 76 2d 65 78 70 61 |-pre-abb|rev-expa|
|000019a0| 6e 64 2d 68 6f 6f 6b 29 | 20 23 5b 6e 69 6c 20 22 |nd-hook)| #[nil "|
|000019b0| 08 85 52 00 08 c1 3d 3f | 85 52 00 c2 20 83 45 00 |..R...=?|.R.. .E.|
|000019c0| 0b 83 17 00 c4 20 88 08 | 15 c6 0e 07 21 88 0e 08 |..... ..|....!...|
|000019d0| a8 83 2c 00 0e 08 7a c9 | 3d 84 3d 00 ca 1e 0b c6 |..,...z.|=.=.....|
|000019e0| 0e 0c 21 88 cd 20 88 c6 | 0e 07 21 88 29 60 16 0e |..!.. ..|..!.)`..|
|000019f0| 70 89 16 0f 87 d0 d1 21 | 85 4d 00 0e 11 15 c6 0e |p......!|.M......|
|00001a00| 12 21 87 22 20 5b 6d 61 | 69 6c 2d 61 62 62 72 65 |.!." [ma|il-abbre|
|00001a10| 76 73 20 74 20 6d 61 69 | 6c 2d 61 62 62 72 65 76 |vs t mai|l-abbrev|
|00001a20| 2d 69 6e 2d 65 78 70 61 | 6e 73 69 6f 6e 2d 68 65 |-in-expa|nsion-he|
|00001a30| 61 64 65 72 2d 70 20 6d | 61 69 6c 2d 61 62 62 72 |ader-p m|ail-abbr|
|00001a40| 65 76 2d 61 6c 69 61 73 | 65 73 2d 6e 65 65 64 2d |ev-alias|es-need-|
|00001a50| 74 6f 2d 62 65 2d 72 65 | 73 6f 6c 76 65 64 20 6d |to-be-re|solved m|
|00001a60| 61 69 6c 2d 72 65 73 6f | 6c 76 65 2d 61 6c 6c 2d |ail-reso|lve-all-|
|00001a70| 61 6c 69 61 73 65 73 20 | 6c 6f 63 61 6c 2d 61 62 |aliases |local-ab|
|00001a80| 62 72 65 76 2d 74 61 62 | 6c 65 20 73 65 74 2d 73 |brev-tab|le set-s|
|00001a90| 79 6e 74 61 78 2d 74 61 | 62 6c 65 20 6d 61 69 6c |yntax-ta|ble mail|
|00001aa0| 2d 6d 6f 64 65 2d 68 65 | 61 64 65 72 2d 73 79 6e |-mode-he|ader-syn|
|00001ab0| 74 61 78 2d 74 61 62 6c | 65 20 6c 61 73 74 2d 63 |tax-tabl|e last-c|
|00001ac0| 6f 6d 6d 61 6e 64 2d 63 | 68 61 72 20 39 35 20 6e |ommand-c|har 95 n|
|00001ad0| 69 6c 20 70 72 65 2d 61 | 62 62 72 65 76 2d 65 78 |il pre-a|bbrev-ex|
|00001ae0| 70 61 6e 64 2d 68 6f 6f | 6b 20 6d 61 69 6c 2d 61 |pand-hoo|k mail-a|
|00001af0| 62 62 72 65 76 2d 73 79 | 6e 74 61 78 2d 74 61 62 |bbrev-sy|ntax-tab|
|00001b00| 6c 65 20 65 78 70 61 6e | 64 2d 61 62 62 72 65 76 |le expan|d-abbrev|
|00001b10| 20 61 62 62 72 65 76 2d | 73 74 61 72 74 2d 6c 6f | abbrev-|start-lo|
|00001b20| 63 61 74 69 6f 6e 20 61 | 62 62 72 65 76 2d 73 74 |cation a|bbrev-st|
|00001b30| 61 72 74 2d 6c 6f 63 61 | 74 69 6f 6e 2d 62 75 66 |art-loca|tion-buf|
|00001b40| 66 65 72 20 62 6f 75 6e | 64 70 20 6d 61 69 6c 2d |fer boun|dp mail-|
|00001b50| 6d 6f 64 65 2d 61 62 62 | 72 65 76 2d 74 61 62 6c |mode-abb|rev-tabl|
|00001b60| 65 20 6d 61 69 6c 2d 6d | 6f 64 65 2d 73 79 6e 74 |e mail-m|ode-synt|
|00001b70| 61 78 2d 74 61 62 6c 65 | 5d 20 32 5d 29 0a 28 64 |ax-table|] 2]).(d|
|00001b80| 65 66 61 6c 69 61 73 20 | 27 6d 65 72 67 65 2d 6d |efalias |'merge-m|
|00001b90| 61 69 6c 2d 61 62 62 72 | 65 76 73 20 23 5b 28 66 |ail-abbr|evs #[(f|
|00001ba0| 69 6c 65 29 20 22 c0 09 | 21 87 22 20 5b 62 75 69 |ile) "..|!." [bui|
|00001bb0| 6c 64 2d 6d 61 69 6c 2d | 61 62 62 72 65 76 73 20 |ld-mail-|abbrevs |
|00001bc0| 66 69 6c 65 5d 20 32 20 | 22 5c 0a 4d 65 72 67 65 |file] 2 |"\.Merge|
|00001bd0| 20 6d 61 69 6c 20 61 6c | 69 61 73 65 73 20 66 72 | mail al|iases fr|
|00001be0| 6f 6d 20 74 68 65 20 67 | 69 76 65 6e 20 66 69 6c |om the g|iven fil|
|00001bf0| 65 20 77 69 74 68 20 65 | 78 69 73 74 69 6e 67 20 |e with e|xisting |
|00001c00| 6f 6e 65 73 2e 22 20 28 | 6c 69 73 74 20 28 6c 65 |ones." (|list (le|
|00001c10| 74 20 28 28 69 6e 73 65 | 72 74 2d 64 65 66 61 75 |t ((inse|rt-defau|
|00001c20| 6c 74 2d 64 69 72 65 63 | 74 6f 72 79 20 74 29 20 |lt-direc|tory t) |
|00001c30| 28 64 65 66 61 75 6c 74 | 2d 64 69 72 65 63 74 6f |(default|-directo|
|00001c40| 72 79 20 28 65 78 70 61 | 6e 64 2d 66 69 6c 65 2d |ry (expa|nd-file-|
|00001c50| 6e 61 6d 65 20 22 7e 2f | 22 29 29 20 28 64 65 66 |name "~/|")) (def|
|00001c60| 20 28 6d 61 69 6c 2d 61 | 62 62 72 65 76 2d 6d 61 | (mail-a|bbrev-ma|
|00001c70| 69 6c 72 63 2d 66 69 6c | 65 29 29 29 20 28 72 65 |ilrc-fil|e))) (re|
|00001c80| 61 64 2d 66 69 6c 65 2d | 6e 61 6d 65 20 28 66 6f |ad-file-|name (fo|
|00001c90| 72 6d 61 74 20 22 52 65 | 61 64 20 61 64 64 69 74 |rmat "Re|ad addit|
|00001ca0| 69 6f 6e 61 6c 20 61 6c | 69 61 73 65 73 20 66 72 |ional al|iases fr|
|00001cb0| 6f 6d 20 66 69 6c 65 3a | 20 28 64 65 66 61 75 6c |om file:| (defaul|
|00001cc0| 74 20 25 73 29 20 22 20 | 64 65 66 29 20 64 65 66 |t %s) " |def) def|
|00001cd0| 61 75 6c 74 2d 64 69 72 | 65 63 74 6f 72 79 20 28 |ault-dir|ectory (|
|00001ce0| 65 78 70 61 6e 64 2d 66 | 69 6c 65 2d 6e 61 6d 65 |expand-f|ile-name|
|00001cf0| 20 64 65 66 20 64 65 66 | 61 75 6c 74 2d 64 69 72 | def def|ault-dir|
|00001d00| 65 63 74 6f 72 79 29 20 | 74 29 29 29 5d 29 0a 28 |ectory) |t)))]).(|
|00001d10| 64 65 66 61 6c 69 61 73 | 20 27 72 65 62 75 69 6c |defalias| 'rebuil|
|00001d20| 64 2d 6d 61 69 6c 2d 61 | 62 62 72 65 76 73 20 23 |d-mail-a|bbrevs #|
|00001d30| 5b 28 66 69 6c 65 29 20 | 22 c0 11 c2 0b 21 87 22 |[(file) |"....!."|
|00001d40| 20 5b 6e 69 6c 20 6d 61 | 69 6c 2d 61 62 62 72 65 | [nil ma|il-abbre|
|00001d50| 76 73 20 62 75 69 6c 64 | 2d 6d 61 69 6c 2d 61 62 |vs build|-mail-ab|
|00001d60| 62 72 65 76 73 20 66 69 | 6c 65 5d 20 32 20 22 5c |brevs fi|le] 2 "\|
|00001d70| 0a 52 65 62 75 69 6c 64 | 20 61 6c 6c 20 74 68 65 |.Rebuild| all the|
|00001d80| 20 6d 61 69 6c 20 61 6c | 69 61 73 65 73 20 66 72 | mail al|iases fr|
|00001d90| 6f 6d 20 74 68 65 20 67 | 69 76 65 6e 20 66 69 6c |om the g|iven fil|
|00001da0| 65 2e 22 20 28 6c 69 73 | 74 20 28 6c 65 74 20 28 |e." (lis|t (let (|
|00001db0| 28 69 6e 73 65 72 74 2d | 64 65 66 61 75 6c 74 2d |(insert-|default-|
|00001dc0| 64 69 72 65 63 74 6f 72 | 79 20 74 29 20 28 64 65 |director|y t) (de|
|00001dd0| 66 61 75 6c 74 2d 64 69 | 72 65 63 74 6f 72 79 20 |fault-di|rectory |
|00001de0| 28 65 78 70 61 6e 64 2d | 66 69 6c 65 2d 6e 61 6d |(expand-|file-nam|
|00001df0| 65 20 22 7e 2f 22 29 29 | 20 28 64 65 66 20 28 6d |e "~/"))| (def (m|
|00001e00| 61 69 6c 2d 61 62 62 72 | 65 76 2d 6d 61 69 6c 72 |ail-abbr|ev-mailr|
|00001e10| 63 2d 66 69 6c 65 29 29 | 29 20 28 72 65 61 64 2d |c-file))|) (read-|
|00001e20| 66 69 6c 65 2d 6e 61 6d | 65 20 28 66 6f 72 6d 61 |file-nam|e (forma|
|00001e30| 74 20 22 52 65 61 64 20 | 6d 61 69 6c 20 61 6c 69 |t "Read |mail ali|
|00001e40| 61 73 65 73 20 66 72 6f | 6d 20 66 69 6c 65 3a 20 |ases fro|m file: |
|00001e50| 28 64 65 66 61 75 6c 74 | 20 25 73 29 20 22 20 64 |(default| %s) " d|
|00001e60| 65 66 29 20 64 65 66 61 | 75 6c 74 2d 64 69 72 65 |ef) defa|ult-dire|
|00001e70| 63 74 6f 72 79 20 28 65 | 78 70 61 6e 64 2d 66 69 |ctory (e|xpand-fi|
|00001e80| 6c 65 2d 6e 61 6d 65 20 | 64 65 66 20 64 65 66 61 |le-name |def defa|
|00001e90| 75 6c 74 2d 64 69 72 65 | 63 74 6f 72 79 29 20 74 |ult-dire|ctory) t|
|00001ea0| 29 29 29 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |)))]).(d|efalias |
|00001eb0| 27 6d 61 69 6c 2d 69 6e | 74 65 72 61 63 74 69 76 |'mail-in|teractiv|
|00001ec0| 65 2d 69 6e 73 65 72 74 | 2d 61 6c 69 61 73 20 23 |e-insert|-alias #|
|00001ed0| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 61 6c 69 61 |[(&optio|nal alia|
|00001ee0| 73 29 20 22 c0 09 21 84 | 09 00 c2 20 88 0b 83 15 |s) "..!.|... ....|
|00001ef0| 00 c4 0b 09 5c 22 4a 86 | 16 00 c5 63 87 22 20 5b |....\"J.|...c." [|
|00001f00| 76 65 63 74 6f 72 70 20 | 6d 61 69 6c 2d 61 62 62 |vectorp |mail-abb|
|00001f10| 72 65 76 73 20 6d 61 69 | 6c 2d 61 62 62 72 65 76 |revs mai|l-abbrev|
|00001f20| 73 2d 73 65 74 75 70 20 | 61 6c 69 61 73 20 69 6e |s-setup |alias in|
|00001f30| 74 65 72 6e 2d 73 6f 66 | 74 20 22 22 5d 20 33 20 |tern-sof|t ""] 3 |
|00001f40| 22 5c 0a 50 72 6f 6d 70 | 74 20 66 6f 72 20 61 6e |"\.Promp|t for an|
|00001f50| 64 20 69 6e 73 65 72 74 | 20 61 20 6d 61 69 6c 20 |d insert| a mail |
|00001f60| 61 6c 69 61 73 2e 22 20 | 28 62 79 74 65 2d 63 6f |alias." |(byte-co|
|00001f70| 64 65 20 22 c0 09 21 84 | 09 00 c2 20 88 c3 c4 09 |de "..!.|... ....|
|00001f80| c5 c6 24 43 87 22 20 5b | 76 65 63 74 6f 72 70 20 |..$C." [|vectorp |
|00001f90| 6d 61 69 6c 2d 61 62 62 | 72 65 76 73 20 6d 61 69 |mail-abb|revs mai|
|00001fa0| 6c 2d 61 62 62 72 65 76 | 73 2d 73 65 74 75 70 20 |l-abbrev|s-setup |
|00001fb0| 63 6f 6d 70 6c 65 74 69 | 6e 67 2d 72 65 61 64 20 |completi|ng-read |
|00001fc0| 22 45 78 70 61 6e 64 20 | 61 6c 69 61 73 3a 20 22 |"Expand |alias: "|
|00001fd0| 20 6e 69 6c 20 74 5d 20 | 35 29 5d 29 0a 28 64 65 | nil t] |5)]).(de|
|00001fe0| 66 61 6c 69 61 73 20 27 | 6d 61 69 6c 2d 61 62 62 |falias '|mail-abb|
|00001ff0| 72 65 76 2d 6e 65 78 74 | 2d 6c 69 6e 65 20 23 5b |rev-next|-line #[|
|00002000| 28 26 6f 70 74 69 6f 6e | 61 6c 20 61 72 67 29 20 |(&option|al arg) |
|00002010| 22 c0 c1 21 83 09 00 c2 | 20 88 c3 14 c3 0d 21 87 |"..!....| .....!.|
|00002020| 22 20 5b 6c 6f 6f 6b 69 | 6e 67 2d 61 74 20 22 5b |" [looki|ng-at "[|
|00002030| 20 09 5d 2a 5c 6e 22 20 | 65 78 70 61 6e 64 2d 61 | .]*\n" |expand-a|
|00002040| 62 62 72 65 76 20 6e 65 | 78 74 2d 6c 69 6e 65 20 |bbrev ne|xt-line |
|00002050| 74 68 69 73 2d 63 6f 6d | 6d 61 6e 64 20 61 72 67 |this-com|mand arg|
|00002060| 5d 20 32 20 22 5c 0a 45 | 78 70 61 6e 64 20 61 6e |] 2 "\.E|xpand an|
|00002070| 79 20 6d 61 69 6c 20 61 | 62 62 72 65 76 2c 20 74 |y mail a|bbrev, t|
|00002080| 68 65 6e 20 6d 6f 76 65 | 20 63 75 72 73 6f 72 20 |hen move| cursor |
|00002090| 76 65 72 74 69 63 61 6c | 6c 79 20 64 6f 77 6e 20 |vertical|ly down |
|000020a0| 41 52 47 20 6c 69 6e 65 | 73 2e 0a 49 66 20 74 68 |ARG line|s..If th|
|000020b0| 65 72 65 20 69 73 20 6e | 6f 20 63 68 61 72 61 63 |ere is n|o charac|
|000020c0| 74 65 72 20 69 6e 20 74 | 68 65 20 74 61 72 67 65 |ter in t|he targe|
|000020d0| 74 20 6c 69 6e 65 20 65 | 78 61 63 74 6c 79 20 75 |t line e|xactly u|
|000020e0| 6e 64 65 72 20 74 68 65 | 20 63 75 72 72 65 6e 74 |nder the| current|
|000020f0| 20 63 6f 6c 75 6d 6e 2c | 0a 74 68 65 20 63 75 72 | column,|.the cur|
|00002100| 73 6f 72 20 69 73 20 70 | 6f 73 69 74 69 6f 6e 65 |sor is p|ositione|
|00002110| 64 20 61 66 74 65 72 20 | 74 68 65 20 63 68 61 72 |d after |the char|
|00002120| 61 63 74 65 72 20 69 6e | 20 74 68 61 74 20 6c 69 |acter in| that li|
|00002130| 6e 65 20 77 68 69 63 68 | 20 73 70 61 6e 73 20 74 |ne which| spans t|
|00002140| 68 69 73 0a 63 6f 6c 75 | 6d 6e 2c 20 6f 72 20 61 |his.colu|mn, or a|
|00002150| 74 20 74 68 65 20 65 6e | 64 20 6f 66 20 74 68 65 |t the en|d of the|
|00002160| 20 6c 69 6e 65 20 69 66 | 20 69 74 20 69 73 20 6e | line if| it is n|
|00002170| 6f 74 20 6c 6f 6e 67 20 | 65 6e 6f 75 67 68 2e 0a |ot long |enough..|
|00002180| 49 66 20 74 68 65 72 65 | 20 69 73 20 6e 6f 20 6c |If there| is no l|
|00002190| 69 6e 65 20 69 6e 20 74 | 68 65 20 62 75 66 66 65 |ine in t|he buffe|
|000021a0| 72 20 61 66 74 65 72 20 | 74 68 69 73 20 6f 6e 65 |r after |this one|
|000021b0| 2c 0a 61 20 6e 65 77 6c | 69 6e 65 20 63 68 61 72 |,.a newl|ine char|
|000021c0| 61 63 74 65 72 20 69 73 | 20 69 6e 73 65 72 74 65 |acter is| inserte|
|000021d0| 64 20 74 6f 20 63 72 65 | 61 74 65 20 61 20 6c 69 |d to cre|ate a li|
|000021e0| 6e 65 0a 61 6e 64 20 74 | 68 65 20 63 75 72 73 6f |ne.and t|he curso|
|000021f0| 72 20 6d 6f 76 65 73 20 | 74 6f 20 74 68 61 74 20 |r moves |to that |
|00002200| 6c 69 6e 65 2e 0a 0a 54 | 68 65 20 63 6f 6d 6d 61 |line...T|he comma|
|00002210| 6e 64 20 5c 5c 5b 73 65 | 74 2d 67 6f 61 6c 2d 63 |nd \\[se|t-goal-c|
|00002220| 6f 6c 75 6d 6e 5d 20 63 | 61 6e 20 62 65 20 75 73 |olumn] c|an be us|
|00002230| 65 64 20 74 6f 20 63 72 | 65 61 74 65 0a 61 20 73 |ed to cr|eate.a s|
|00002240| 65 6d 69 70 65 72 6d 61 | 6e 65 6e 74 20 67 6f 61 |emiperma|nent goa|
|00002250| 6c 20 63 6f 6c 75 6d 6e | 20 74 6f 20 77 68 69 63 |l column| to whic|
|00002260| 68 20 74 68 69 73 20 63 | 6f 6d 6d 61 6e 64 20 61 |h this c|ommand a|
|00002270| 6c 77 61 79 73 20 6d 6f | 76 65 73 2e 0a 54 68 65 |lways mo|ves..The|
|00002280| 6e 20 69 74 20 64 6f 65 | 73 20 6e 6f 74 20 74 72 |n it doe|s not tr|
|00002290| 79 20 74 6f 20 6d 6f 76 | 65 20 76 65 72 74 69 63 |y to mov|e vertic|
|000022a0| 61 6c 6c 79 2e 20 20 54 | 68 69 73 20 67 6f 61 6c |ally.  T|his goal|
|000022b0| 20 63 6f 6c 75 6d 6e 20 | 69 73 20 73 74 6f 72 65 | column |is store|
|000022c0| 64 0a 69 6e 20 60 67 6f | 61 6c 2d 63 6f 6c 75 6d |d.in `go|al-colum|
|000022d0| 6e 27 2c 20 77 68 69 63 | 68 20 69 73 20 6e 69 6c |n', whic|h is nil|
|000022e0| 20 77 68 65 6e 20 74 68 | 65 72 65 20 69 73 20 6e | when th|ere is n|
|000022f0| 6f 6e 65 2e 0a 0a 49 66 | 20 79 6f 75 20 61 72 65 |one...If| you are|
|00002300| 20 74 68 69 6e 6b 69 6e | 67 20 6f 66 20 75 73 69 | thinkin|g of usi|
|00002310| 6e 67 20 74 68 69 73 20 | 69 6e 20 61 20 4c 69 73 |ng this |in a Lis|
|00002320| 70 20 70 72 6f 67 72 61 | 6d 2c 20 63 6f 6e 73 69 |p progra|m, consi|
|00002330| 64 65 72 0a 75 73 69 6e | 67 20 60 66 6f 72 77 61 |der.usin|g `forwa|
|00002340| 72 64 2d 6c 69 6e 65 27 | 20 69 6e 73 74 65 61 64 |rd-line'| instead|
|00002350| 2e 20 20 49 74 20 69 73 | 20 75 73 75 61 6c 6c 79 |.  It is| usually|
|00002360| 20 65 61 73 69 65 72 20 | 74 6f 20 75 73 65 0a 61 | easier |to use.a|
|00002370| 6e 64 20 6d 6f 72 65 20 | 72 65 6c 69 61 62 6c 65 |nd more |reliable|
|00002380| 20 28 6e 6f 20 64 65 70 | 65 6e 64 65 6e 63 65 20 | (no dep|endence |
|00002390| 6f 6e 20 67 6f 61 6c 20 | 63 6f 6c 75 6d 6e 2c 20 |on goal |column, |
|000023a0| 65 74 63 2e 29 2e 22 20 | 22 70 22 5d 29 0a 28 64 |etc.)." |"p"]).(d|
|000023b0| 65 66 61 6c 69 61 73 20 | 27 6d 61 69 6c 2d 61 62 |efalias |'mail-ab|
|000023c0| 62 72 65 76 2d 65 6e 64 | 2d 6f 66 2d 62 75 66 66 |brev-end|-of-buff|
|000023d0| 65 72 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |er #[(&o|ptional |
|000023e0| 61 72 67 29 20 22 c0 c1 | 21 83 09 00 c2 20 88 c3 |arg) "..|!.... ..|
|000023f0| 14 c3 0d 21 87 22 20 5b | 6c 6f 6f 6b 69 6e 67 2d |...!." [|looking-|
|00002400| 61 74 20 22 5b 20 09 5d | 2a 5c 6e 22 20 65 78 70 |at "[ .]|*\n" exp|
|00002410| 61 6e 64 2d 61 62 62 72 | 65 76 20 65 6e 64 2d 6f |and-abbr|ev end-o|
|00002420| 66 2d 62 75 66 66 65 72 | 20 74 68 69 73 2d 63 6f |f-buffer| this-co|
|00002430| 6d 6d 61 6e 64 20 61 72 | 67 5d 20 32 20 22 5c 0a |mmand ar|g] 2 "\.|
|00002440| 45 78 70 61 6e 64 20 61 | 6e 79 20 6d 61 69 6c 20 |Expand a|ny mail |
|00002450| 61 62 62 72 65 76 2c 20 | 74 68 65 6e 20 6d 6f 76 |abbrev, |then mov|
|00002460| 65 20 70 6f 69 6e 74 20 | 74 6f 20 65 6e 64 20 6f |e point |to end o|
|00002470| 66 20 62 75 66 66 65 72 | 2e 0a 4c 65 61 76 65 20 |f buffer|..Leave |
|00002480| 6d 61 72 6b 20 61 74 20 | 70 72 65 76 69 6f 75 73 |mark at |previous|
|00002490| 20 70 6f 73 69 74 69 6f | 6e 2e 0a 57 69 74 68 20 | positio|n..With |
|000024a0| 61 72 67 20 4e 2c 20 70 | 75 74 20 70 6f 69 6e 74 |arg N, p|ut point|
|000024b0| 20 4e 2f 31 30 20 6f 66 | 20 74 68 65 20 77 61 79 | N/10 of| the way|
|000024c0| 20 66 72 6f 6d 20 74 68 | 65 20 74 72 75 65 20 65 | from th|e true e|
|000024d0| 6e 64 2e 0a 0a 44 6f 6e | 27 74 20 75 73 65 20 74 |nd...Don|'t use t|
|000024e0| 68 69 73 20 63 6f 6d 6d | 61 6e 64 20 69 6e 20 4c |his comm|and in L|
|000024f0| 69 73 70 20 70 72 6f 67 | 72 61 6d 73 21 0a 28 67 |isp prog|rams!.(g|
|00002500| 6f 74 6f 2d 63 68 61 72 | 20 28 70 6f 69 6e 74 2d |oto-char| (point-|
|00002510| 6d 61 78 29 29 20 69 73 | 20 66 61 73 74 65 72 20 |max)) is| faster |
|00002520| 61 6e 64 20 61 76 6f 69 | 64 73 20 63 6c 6f 62 62 |and avoi|ds clobb|
|00002530| 65 72 69 6e 67 20 74 68 | 65 20 6d 61 72 6b 2e 22 |ering th|e mark."|
|00002540| 20 22 50 22 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 | "P"]).(|byte-cod|
|00002550| 65 20 22 c0 09 c2 c3 23 | 88 c4 c5 21 87 22 20 5b |e "....#|...!." [|
|00002560| 64 65 66 69 6e 65 2d 6b | 65 79 20 6d 61 69 6c 2d |define-k|ey mail-|
|00002570| 6d 6f 64 65 2d 6d 61 70 | 20 22 03 01 22 20 6d 61 |mode-map| ".." ma|
|00002580| 69 6c 2d 69 6e 74 65 72 | 61 63 74 69 76 65 2d 69 |il-inter|active-i|
|00002590| 6e 73 65 72 74 2d 61 6c | 69 61 73 20 70 72 6f 76 |nsert-al|ias prov|
|000025a0| 69 64 65 20 6d 61 69 6c | 61 62 62 72 65 76 5d 20 |ide mail|abbrev] |
|000025b0| 34 29 0a                |                         |4).     |        |
+--------+-------------------------+-------------------------+--------+--------+