/ Amiga Format CD 2 / amigaformatcd02.iso / comms / netsoftware / irchat24.lha / irchat24 / irchat.lha / elisp / irchat / irchat-vars.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 3b 3b 20 63 6f 6d 70 | 69 6c 65 64 20 62 79 20 |;;; comp|iled by |
|00000010| 74 6f 6f 40 61 6a 6b 2e | 74 65 6c 65 2e 66 69 20 |too@ajk.|tele.fi |
|00000020| 6f 6e 20 54 75 65 20 4d | 61 72 20 31 35 20 32 31 |on Tue M|ar 15 21|
|00000030| 3a 31 32 3a 33 30 20 31 | 39 39 34 0a 3b 3b 3b 20 |:12:30 1|994.;;; |
|00000040| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000050| 61 6a 6b 2f 74 6f 6f 2f | 65 6c 69 73 70 2f 69 72 |ajk/too/|elisp/ir|
|00000060| 63 68 61 74 2e 73 72 63 | 2f 69 72 63 68 61 74 2d |chat.src|/irchat-|
|00000070| 76 61 72 73 2e 65 6c 0a | 3b 3b 3b 20 65 6d 61 63 |vars.el.|;;; emac|
|00000080| 73 20 76 65 72 73 69 6f | 6e 20 31 38 2e 35 38 2e |s versio|n 18.58.|
|00000090| 31 33 2e 0a 3b 3b 3b 20 | 62 79 74 65 63 6f 6d 70 |13..;;; |bytecomp|
|000000a0| 20 76 65 72 73 69 6f 6e | 20 32 2e 30 37 3b 20 31 | version| 2.07; 1|
|000000b0| 35 2d 6a 75 6c 2d 39 32 | 2e 0a 3b 3b 3b 20 6f 70 |5-jul-92|..;;; op|
|000000c0| 74 69 6d 69 7a 61 74 69 | 6f 6e 20 69 73 20 6f 6e |timizati|on is on|
|000000d0| 3b 20 63 6f 6d 70 69 6c | 65 64 20 77 69 74 68 20 |; compil|ed with |
|000000e0| 65 6d 61 63 73 31 38 20 | 63 6f 6d 70 61 74 69 62 |emacs18 |compatib|
|000000f0| 69 6c 69 74 79 2e 0a 0a | 28 70 72 6f 76 69 64 65 |ility...|(provide|
|00000100| 20 28 71 75 6f 74 65 20 | 69 72 63 68 61 74 2d 76 | (quote |irchat-v|
|00000110| 61 72 73 29 29 0a 28 64 | 65 66 76 61 72 20 69 72 |ars)).(d|efvar ir|
|00000120| 63 68 61 74 2d 63 6f 6d | 6d 61 6e 64 2d 77 69 6e |chat-com|mand-win|
|00000130| 64 6f 77 2d 68 65 69 67 | 68 74 20 34 20 22 5c 0a |dow-heig|ht 4 "\.|
|00000140| 2a 48 6f 77 20 6c 61 72 | 67 65 20 73 68 6f 75 6c |*How lar|ge shoul|
|00000150| 64 20 43 6f 6d 6d 61 6e | 64 20 77 69 6e 64 6f 77 |d Comman|d window|
|00000160| 20 62 65 20 6f 6e 20 73 | 74 61 72 74 75 70 2e 22 | be on s|tartup."|
|00000170| 29 0a 28 64 65 66 76 61 | 72 20 69 72 63 68 61 74 |).(defva|r irchat|
|00000180| 2d 77 61 6e 74 2d 74 72 | 61 64 69 74 69 6f 6e 61 |-want-tr|aditiona|
|00000190| 6c 20 6e 69 6c 20 22 5c | 0a 2a 44 6f 20 77 65 20 |l nil "\|.*Do we |
|000001a0| 77 61 6e 74 20 49 72 63 | 68 61 74 20 74 6f 20 6c |want Irc|hat to l|
|000001b0| 6f 6f 6b 20 6c 69 6b 65 | 20 49 72 63 49 49 2e 22 |ook like| IrcII."|
|000001c0| 29 0a 28 64 65 66 76 61 | 72 20 69 72 63 68 61 74 |).(defva|r irchat|
|000001d0| 2d 76 61 72 69 61 62 6c | 65 73 2d 66 69 6c 65 20 |-variabl|es-file |
|000001e0| 22 47 4e 55 45 4d 41 43 | 53 3a 2e 69 72 63 68 61 |"GNUEMAC|S:.ircha|
|000001f0| 74 5f 76 61 72 73 2e 65 | 6c 22 20 22 5c 0a 2a 57 |t_vars.e|l" "\.*W|
|00000200| 68 65 72 65 20 74 6f 20 | 6c 6f 6f 6b 20 66 6f 72 |here to |look for|
|00000210| 20 76 61 72 69 61 62 6c | 65 73 2e 20 48 65 6c 70 | variabl|es. Help|
|00000220| 73 20 74 6f 20 72 65 6d | 6f 76 65 20 63 6c 75 74 |s to rem|ove clut|
|00000230| 74 65 72 20 66 72 6f 6d | 20 79 6f 75 72 20 2e 65 |ter from| your .e|
|00000240| 6d 61 63 73 2e 0a 54 68 | 69 73 20 66 65 61 74 75 |macs..Th|is featu|
|00000250| 72 65 20 69 73 20 6d 6f | 73 74 20 6c 69 6b 65 6c |re is mo|st likel|
|00000260| 79 20 74 6f 20 64 69 73 | 73 61 70 70 65 61 72 20 |y to dis|sappear |
|00000270| 69 6e 20 6e 65 61 72 20 | 66 75 74 75 72 65 2e 20 |in near |future. |
|00000280| 54 68 65 20 70 72 65 66 | 65 72 72 65 64 20 0a 77 |The pref|erred .w|
|00000290| 61 79 20 69 73 20 74 6f | 20 70 75 74 20 69 72 63 |ay is to| put irc|
|000002a0| 68 61 74 20 76 61 72 69 | 61 62 6c 65 73 20 6f 6e |hat vari|ables on|
|000002b0| 20 2e 65 6d 61 63 73 20 | 6f 72 20 66 69 6c 65 20 | .emacs |or file |
|000002c0| 6c 6f 61 64 65 64 20 66 | 72 6f 6d 20 74 68 65 72 |loaded f|rom ther|
|000002d0| 65 2e 22 29 0a 28 64 65 | 66 76 61 72 20 69 72 63 |e.").(de|fvar irc|
|000002e0| 68 61 74 2d 73 65 72 76 | 65 72 20 28 62 79 74 65 |hat-serv|er (byte|
|000002f0| 2d 63 6f 64 65 20 22 c0 | c1 21 86 07 00 c2 87 22 |-code ".|.!....."|
|00000300| 20 5b 67 65 74 65 6e 76 | 20 22 49 52 43 53 45 52 | [getenv| "IRCSER|
|00000310| 56 45 52 22 20 22 69 72 | 63 2e 65 75 6e 65 74 2e |VER" "ir|c.eunet.|
|00000320| 66 69 22 5d 20 32 29 20 | 22 5c 0a 2a 4e 61 6d 65 |fi"] 2) |"\.*Name|
|00000330| 20 6f 66 20 74 68 65 20 | 68 6f 73 74 20 72 75 6e | of the |host run|
|00000340| 6e 69 6e 67 20 74 68 65 | 20 49 52 43 20 73 65 72 |ning the| IRC ser|
|00000350| 76 65 72 2e 20 0a 56 61 | 6c 75 65 20 69 6e 69 74 |ver. .Va|lue init|
|00000360| 69 61 6c 69 7a 65 64 20 | 66 72 6f 6d 20 74 68 65 |ialized |from the|
|00000370| 20 49 52 43 53 45 52 56 | 45 52 20 65 6e 76 69 72 | IRCSERV|ER envir|
|00000380| 6f 6e 6d 65 6e 74 20 76 | 61 72 69 61 62 6c 65 20 |onment v|ariable |
|00000390| 69 66 20 6f 6e 65 20 69 | 73 20 73 65 74 22 29 0a |if one i|s set").|
|000003a0| 28 64 65 66 76 61 72 20 | 69 72 63 68 61 74 2d 73 |(defvar |irchat-s|
|000003b0| 65 72 76 69 63 65 20 28 | 62 79 74 65 2d 63 6f 64 |ervice (|byte-cod|
|000003c0| 65 20 22 c0 c1 21 89 1a | 83 1a 00 c3 5c 6e 21 c4 |e "..!..|....\n!.|
|000003d0| 56 83 16 00 c3 5c 6e 21 | 82 1b 00 5c 6e 82 1b 00 |V....\n!|...\n...|
|000003e0| c5 29 87 22 20 5b 67 65 | 74 65 6e 76 20 22 49 52 |.)." [ge|tenv "IR|
|000003f0| 43 50 4f 52 54 22 20 69 | 72 63 70 6f 72 74 2d 65 |CPORT" i|rcport-e|
|00000400| 6e 76 20 73 74 72 69 6e | 67 2d 74 6f 2d 69 6e 74 |nv strin|g-to-int|
|00000410| 20 30 20 36 36 36 37 5d | 20 33 29 20 22 5c 0a 2a | 0 6667]| 3) "\.*|
|00000420| 49 52 43 20 73 65 72 76 | 69 63 65 20 6e 61 6d 65 |IRC serv|ice name|
|00000430| 20 6f 72 20 28 70 6f 72 | 74 29 20 6e 75 6d 62 65 | or (por|t) numbe|
|00000440| 72 2e 22 29 0a 28 64 65 | 66 76 61 72 20 69 72 63 |r.").(de|fvar irc|
|00000450| 68 61 74 2d 64 63 63 2d | 70 72 6f 67 72 61 6d 20 |hat-dcc-|program |
|00000460| 22 64 63 63 5f 41 6d 69 | 54 43 50 22 20 22 5c 0a |"dcc_Ami|TCP" "\.|
|00000470| 2a 4e 61 6d 65 20 6f 66 | 20 64 63 63 2d 70 72 6f |*Name of| dcc-pro|
|00000480| 67 72 61 6d 2e 22 29 0a | 28 64 65 66 76 61 72 20 |gram.").|(defvar |
|00000490| 69 72 63 68 61 74 2d 64 | 63 63 2d 64 69 72 65 63 |irchat-d|cc-direc|
|000004a0| 74 6f 72 79 20 22 72 61 | 6d 3a 22 20 22 5c 0a 2a |tory "ra|m:" "\.*|
|000004b0| 44 69 72 65 63 74 6f 72 | 79 20 77 68 65 72 65 20 |Director|y where |
|000004c0| 69 72 63 68 61 74 2d 64 | 63 63 20 70 75 74 73 20 |irchat-d|cc puts |
|000004d0| 69 74 73 20 66 69 6c 65 | 73 2e 22 29 0a 28 64 65 |its file|s.").(de|
|000004e0| 66 76 61 72 20 69 72 63 | 68 61 74 2d 64 63 63 2d |fvar irc|hat-dcc-|
|000004f0| 70 6f 72 74 20 31 32 30 | 30 20 22 5c 0a 2a 44 65 |port 120|0 "\.*De|
|00000500| 66 61 75 6c 74 20 70 6f | 72 74 20 66 6f 72 20 44 |fault po|rt for D|
|00000510| 43 43 20 6f 70 65 72 61 | 74 69 6f 6e 73 2e 22 29 |CC opera|tions.")|
|00000520| 0a 28 64 65 66 76 61 72 | 20 69 72 63 68 61 74 2d |.(defvar| irchat-|
|00000530| 6e 69 63 6b 6e 61 6d 65 | 20 28 62 79 74 65 2d 63 |nickname| (byte-c|
|00000540| 6f 64 65 20 22 c0 c1 21 | 86 08 00 c2 20 87 22 20 |ode "..!|.... ." |
|00000550| 5b 67 65 74 65 6e 76 20 | 22 49 52 43 4e 49 43 4b |[getenv |"IRCNICK|
|00000560| 22 20 75 73 65 72 2d 72 | 65 61 6c 2d 6c 6f 67 69 |" user-r|eal-logi|
|00000570| 6e 2d 6e 61 6d 65 5d 20 | 32 29 20 22 5c 0a 2a 54 |n-name] |2) "\.*T|
|00000580| 68 65 20 6e 69 63 6b 6e | 61 6d 65 20 79 6f 75 20 |he nickn|ame you |
|00000590| 77 61 6e 74 20 74 6f 20 | 75 73 65 20 69 6e 20 49 |want to |use in I|
|000005a0| 52 43 2e 0a 44 65 66 61 | 75 6c 74 20 69 73 20 74 |RC..Defa|ult is t|
|000005b0| 68 65 20 65 6e 76 69 72 | 6f 6e 6d 65 6e 74 20 76 |he envir|onment v|
|000005c0| 61 72 69 61 62 6c 65 20 | 49 52 43 4e 49 43 4b 2c |ariable |IRCNICK,|
|000005d0| 20 6f 72 20 79 6f 75 72 | 20 6c 6f 67 69 6e 20 6e | or your| login n|
|000005e0| 61 6d 65 2e 22 29 0a 28 | 64 65 66 76 61 72 20 69 |ame.").(|defvar i|
|000005f0| 72 63 68 61 74 2d 73 74 | 61 72 74 75 70 2d 63 68 |rchat-st|artup-ch|
|00000600| 61 6e 6e 65 6c 20 6e 69 | 6c 20 22 5c 0a 2a 54 68 |annel ni|l "\.*Th|
|00000610| 65 20 63 68 61 6e 6e 65 | 6c 20 74 6f 20 6a 6f 69 |e channe|l to joi|
|00000620| 6e 20 61 75 74 6f 6d 61 | 74 69 63 61 6c 6c 79 20 |n automa|tically |
|00000630| 61 74 20 73 74 61 72 74 | 75 70 2e 0a 49 66 20 6e |at start|up..If n|
|00000640| 69 6c 2c 20 64 6f 20 6e | 6f 74 20 6a 6f 69 6e 20 |il, do n|ot join |
|00000650| 61 6e 79 20 63 68 61 6e | 6e 65 6c 2e 22 29 0a 28 |any chan|nel.").(|
|00000660| 64 65 66 76 61 72 20 69 | 72 63 68 61 74 2d 6d 79 |defvar i|rchat-my|
|00000670| 66 6f 72 6d 61 74 2d 73 | 74 72 69 6e 67 20 22 3e |format-s|tring ">|
|00000680| 20 22 20 22 5c 0a 2a 46 | 6f 72 6d 61 74 20 66 6f | " "\.*F|ormat fo|
|00000690| 72 20 6f 77 6e 20 6d 65 | 73 73 61 67 65 73 2e 22 |r own me|ssages."|
|000006a0| 29 0a 28 64 65 66 76 61 | 72 20 69 72 63 68 61 74 |).(defva|r irchat|
|000006b0| 2d 66 6f 72 6d 61 74 2d | 73 74 72 69 6e 67 20 22 |-format-|string "|
|000006c0| 3e 25 73 3c 22 20 22 5c | 0a 2a 46 6f 72 6d 61 74 |>%s<" "\|.*Format|
|000006d0| 20 73 74 72 69 6e 67 20 | 66 6f 72 20 70 72 69 76 | string |for priv|
|000006e0| 61 74 65 20 6d 65 73 73 | 61 67 65 73 20 62 65 69 |ate mess|ages bei|
|000006f0| 6e 67 20 73 65 6e 74 2e | 22 29 0a 28 64 65 66 76 |ng sent.|").(defv|
|00000700| 61 72 20 69 72 63 68 61 | 74 2d 66 6f 72 6d 61 74 |ar ircha|t-format|
|00000710| 2d 73 74 72 69 6e 67 31 | 20 22 3d 25 73 3d 22 20 |-string1| "=%s=" |
|00000720| 22 5c 0a 2a 46 6f 72 6d | 61 74 20 73 74 72 69 6e |"\.*Form|at strin|
|00000730| 67 20 66 6f 72 20 61 72 | 72 69 76 69 6e 67 20 70 |g for ar|riving p|
|00000740| 72 69 76 61 74 65 20 6d | 65 73 73 61 67 65 73 2e |rivate m|essages.|
|00000750| 22 29 0a 28 64 65 66 76 | 61 72 20 69 72 63 68 61 |").(defv|ar ircha|
|00000760| 74 2d 66 6f 72 6d 61 74 | 2d 73 74 72 69 6e 67 32 |t-format|-string2|
|00000770| 20 22 3c 25 73 3e 22 20 | 22 5c 0a 2a 46 6f 72 6d | "<%s>" |"\.*Form|
|00000780| 61 74 20 73 74 72 69 6e | 67 20 66 6f 72 20 61 72 |at strin|g for ar|
|00000790| 72 69 76 69 6e 67 20 6d | 65 73 73 61 67 65 73 20 |riving m|essages |
|000007a0| 74 6f 20 63 75 72 72 65 | 6e 74 20 63 68 61 6e 6e |to curre|nt chann|
|000007b0| 65 6c 2e 22 29 0a 28 64 | 65 66 76 61 72 20 69 72 |el.").(d|efvar ir|
|000007c0| 63 68 61 74 2d 66 6f 72 | 6d 61 74 2d 73 74 72 69 |chat-for|mat-stri|
|000007d0| 6e 67 33 20 22 3c 25 73 | 3a 25 73 3e 22 20 22 5c |ng3 "<%s|:%s>" "\|
|000007e0| 0a 2a 46 6f 72 6d 61 74 | 20 73 74 72 69 6e 67 20 |.*Format| string |
|000007f0| 66 6f 72 20 61 72 72 69 | 76 69 6e 67 20 6d 65 73 |for arri|ving mes|
|00000800| 73 61 67 65 73 20 74 6f | 20 63 75 72 72 65 6e 74 |sages to| current|
|00000810| 20 63 68 61 6e 6e 65 6c | 20 66 72 6f 6d 20 6f 75 | channel| from ou|
|00000820| 74 73 69 64 65 20 74 68 | 65 20 63 68 61 6e 6e 65 |tside th|e channe|
|00000830| 6c 2e 22 29 0a 28 64 65 | 66 76 61 72 20 69 72 63 |l.").(de|fvar irc|
|00000840| 68 61 74 2d 66 6f 72 6d | 61 74 2d 73 74 72 69 6e |hat-form|at-strin|
|00000850| 67 34 20 22 28 25 73 29 | 22 20 22 5c 0a 2a 46 6f |g4 "(%s)|" "\.*Fo|
|00000860| 72 6d 61 74 20 73 74 72 | 69 6e 67 20 66 6f 72 20 |rmat str|ing for |
|00000870| 61 72 72 69 76 69 6e 67 | 20 6d 65 73 73 61 67 65 |arriving| message|
|00000880| 73 20 74 6f 20 6f 74 68 | 65 72 20 63 68 61 6e 6e |s to oth|er chann|
|00000890| 65 6c 20 66 72 6f 6d 20 | 6f 75 74 73 69 64 65 20 |el from |outside |
|000008a0| 74 68 65 20 63 68 61 6e | 6e 65 6c 2e 22 29 0a 28 |the chan|nel.").(|
|000008b0| 64 65 66 76 61 72 20 69 | 72 63 68 61 74 2d 66 6f |defvar i|rchat-fo|
|000008c0| 72 6d 61 74 2d 73 74 72 | 69 6e 67 35 20 22 28 25 |rmat-str|ing5 "(%|
|000008d0| 73 3a 25 73 29 22 20 22 | 5c 0a 2a 46 6f 72 6d 61 |s:%s)" "|\.*Forma|
|000008e0| 74 20 73 74 72 69 6e 67 | 20 66 6f 72 20 61 72 72 |t string| for arr|
|000008f0| 69 76 69 6e 67 20 6d 65 | 73 73 61 67 65 73 20 74 |iving me|ssages t|
|00000900| 6f 20 6f 74 68 65 72 20 | 63 68 61 6e 6e 65 6c 20 |o other |channel |
|00000910| 66 72 6f 6d 20 6f 75 74 | 73 69 64 65 20 74 68 65 |from out|side the|
|00000920| 20 63 68 61 6e 6e 65 6c | 2e 22 29 0a 28 64 65 66 | channel|.").(def|
|00000930| 76 61 72 20 69 72 63 68 | 61 74 2d 73 69 67 6e 6f |var irch|at-signo|
|00000940| 66 66 2d 6d 73 67 20 22 | 22 20 22 5c 0a 2a 44 65 |ff-msg "|" "\.*De|
|00000950| 66 61 75 6c 74 20 73 69 | 67 6e 6f 66 66 20 6d 65 |fault si|gnoff me|
|00000960| 73 73 61 67 65 22 29 0a | 28 64 65 66 76 61 72 20 |ssage").|(defvar |
|00000970| 69 72 63 68 61 74 2d 62 | 65 65 70 2d 6f 6e 2d 62 |irchat-b|eep-on-b|
|00000980| 65 6c 6c 73 20 6e 69 6c | 20 22 5c 0a 2a 49 66 20 |ells nil| "\.*If |
|00000990| 6e 6f 6e 2d 6e 69 6c 2c | 20 61 6e 64 20 74 68 65 |non-nil,| and the|
|000009a0| 20 49 52 43 20 44 69 61 | 6c 6f 67 75 65 20 62 75 | IRC Dia|logue bu|
|000009b0| 66 66 65 72 20 69 73 20 | 6e 6f 74 20 73 65 6c 65 |ffer is |not sele|
|000009c0| 63 74 65 64 20 69 6e 20 | 61 20 77 69 6e 64 6f 77 |cted in |a window|
|000009d0| 2c 0a 61 6e 20 49 52 43 | 20 6d 65 73 73 61 67 65 |,.an IRC| message|
|000009e0| 20 61 72 72 69 76 69 6e | 67 20 63 6f 6e 74 61 69 | arrivin|g contai|
|000009f0| 6e 69 6e 67 20 61 20 62 | 65 6c 6c 20 63 68 61 72 |ning a b|ell char|
|00000a00| 61 63 74 65 72 2c 20 77 | 69 6c 6c 20 63 61 75 73 |acter, w|ill caus|
|00000a10| 65 20 79 6f 75 0a 74 6f | 20 62 65 20 6e 6f 74 69 |e you.to| be noti|
|00000a20| 66 69 65 64 2e 0a 49 66 | 20 76 61 6c 75 65 20 69 |fied..If| value i|
|00000a30| 73 20 27 61 6c 77 61 79 | 73 2c 20 61 6e 20 61 72 |s 'alway|s, an ar|
|00000a40| 72 69 76 69 6e 67 20 62 | 65 6c 6c 20 77 69 6c 6c |riving b|ell will|
|00000a50| 20 61 6c 77 61 79 73 20 | 63 61 75 73 65 20 61 20 | always |cause a |
|00000a60| 62 65 65 70 20 28 6f 72 | 20 66 6c 61 73 68 29 2e |beep (or| flash).|
|00000a70| 22 29 0a 28 64 65 66 76 | 61 72 20 69 72 63 68 61 |").(defv|ar ircha|
|00000a80| 74 2d 66 69 6c 65 2d 61 | 63 63 65 70 74 20 6e 69 |t-file-a|ccept ni|
|00000a90| 6c 20 22 5c 0a 2a 44 6f | 20 77 65 20 61 63 63 65 |l "\.*Do| we acce|
|00000aa0| 70 74 20 66 69 6c 65 73 | 2e 22 29 0a 28 64 65 66 |pt files|.").(def|
|00000ab0| 76 61 72 20 69 72 63 68 | 61 74 2d 66 69 6c 65 2d |var irch|at-file-|
|00000ac0| 63 6f 6e 66 69 72 6d 2d | 73 61 76 65 20 6e 69 6c |confirm-|save nil|
|00000ad0| 20 22 5c 0a 2a 44 6f 20 | 77 65 20 77 61 6e 74 20 | "\.*Do |we want |
|00000ae0| 63 6f 6e 66 69 72 6d 61 | 74 69 6f 6e 20 6f 6e 20 |confirma|tion on |
|00000af0| 73 61 76 69 6e 67 20 66 | 69 6c 65 73 2e 22 29 0a |saving f|iles.").|
|00000b00| 28 64 65 66 76 61 72 20 | 69 72 63 68 61 74 2d 63 |(defvar |irchat-c|
|00000b10| 6c 69 65 6e 74 2d 75 73 | 65 72 69 6e 66 6f 20 22 |lient-us|erinfo "|
|00000b20| 4e 6f 20 75 73 65 72 20 | 69 6e 66 6f 72 6d 61 74 |No user |informat|
|00000b30| 69 6f 6e 20 67 69 76 65 | 6e 2e 22 20 22 5c 0a 2a |ion give|n." "\.*|
|00000b40| 55 73 65 72 69 6e 66 6f | 20 6d 65 73 73 61 67 65 |Userinfo| message|
|00000b50| 20 67 69 76 65 6e 20 74 | 6f 20 61 6e 79 6f 6e 65 | given t|o anyone|
|00000b60| 20 61 73 6b 69 6e 67 2e | 22 29 0a 28 64 65 66 76 | asking.|").(defv|
|00000b70| 61 72 20 69 72 63 68 61 | 74 2d 74 69 6d 65 73 74 |ar ircha|t-timest|
|00000b80| 61 6d 70 2d 69 6e 74 65 | 72 76 61 6c 20 6e 69 6c |amp-inte|rval nil|
|00000b90| 20 22 5c 0a 2a 49 6e 74 | 65 72 76 61 6c 20 69 6e | "\.*Int|erval in|
|00000ba0| 20 6d 69 6e 75 74 65 73 | 20 62 65 74 77 65 65 6e | minutes| between|
|00000bb0| 20 74 69 6d 65 73 74 61 | 6d 70 73 20 69 6e 20 64 | timesta|mps in d|
|00000bc0| 69 61 6c 6f 67 75 65 2d | 62 75 66 66 65 72 2c 20 |ialogue-|buffer, |
|00000bd0| 6e 69 6c 20 66 6f 72 20 | 6e 6f 6e 65 2e 22 29 0a |nil for |none.").|
|00000be0| 28 64 65 66 76 61 72 20 | 69 72 63 68 61 74 2d 74 |(defvar |irchat-t|
|00000bf0| 69 6d 65 73 74 61 6d 70 | 2d 66 6f 72 6d 61 74 20 |imestamp|-format |
|00000c00| 22 2a 2a 2a 20 54 69 6d | 65 3a 20 25 73 22 20 22 |"*** Tim|e: %s" "|
|00000c10| 5c 0a 2a 46 6f 72 6d 61 | 74 2d 73 74 72 69 6e 67 |\.*Forma|t-string|
|00000c20| 20 66 6f 72 20 74 69 6d | 65 73 74 61 6d 70 2e 22 | for tim|estamp."|
|00000c30| 29 0a 28 64 65 66 76 61 | 72 20 69 72 63 68 61 74 |).(defva|r irchat|
|00000c40| 2d 73 65 6e 64 2d 63 6f | 6e 76 65 72 74 2d 6c 69 |-send-co|nvert-li|
|00000c50| 73 74 20 6e 69 6c 20 22 | 5c 0a 2a 43 6f 6e 76 65 |st nil "|\.*Conve|
|00000c60| 72 74 20 63 68 61 72 61 | 63 74 65 72 73 20 62 65 |rt chara|cters be|
|00000c70| 66 6f 72 65 20 73 65 6e | 64 69 6e 67 20 74 6f 20 |fore sen|ding to |
|00000c80| 73 65 72 76 65 72 2e 22 | 29 0a 28 64 65 66 76 61 |server."|).(defva|
|00000c90| 72 20 69 72 63 68 61 74 | 2d 72 65 63 65 69 76 65 |r irchat|-receive|
|00000ca0| 2d 63 6f 6e 76 65 72 74 | 2d 6c 69 73 74 20 6e 69 |-convert|-list ni|
|00000cb0| 6c 20 22 5c 0a 2a 43 6f | 6e 76 65 72 74 20 63 68 |l "\.*Co|nvert ch|
|00000cc0| 61 72 61 63 74 65 72 73 | 20 61 66 74 65 72 20 72 |aracters| after r|
|00000cd0| 65 63 65 69 76 69 6e 67 | 20 66 72 6f 6d 20 73 65 |eceiving| from se|
|00000ce0| 72 76 65 72 2e 22 29 0a | 28 64 65 66 76 61 72 20 |rver.").|(defvar |
|00000cf0| 69 72 63 68 61 74 2d 67 | 6c 6f 62 61 6c 2d 6e 61 |irchat-g|lobal-na|
|00000d00| 6d 65 73 20 6e 69 6c 20 | 22 5c 0a 2a 53 65 74 20 |mes nil |"\.*Set |
|00000d10| 74 68 69 73 20 74 6f 20 | 54 20 69 66 20 79 6f 75 |this to |T if you|
|00000d20| 20 77 61 6e 74 20 69 72 | 63 68 61 74 20 74 6f 20 | want ir|chat to |
|00000d30| 62 65 20 61 62 6c 65 20 | 74 6f 20 63 6f 6d 70 6c |be able |to compl|
|00000d40| 65 74 65 20 75 73 65 72 | 20 61 6e 64 20 0a 63 68 |ete user| and .ch|
|00000d50| 61 6e 6e 65 6c 20 6e 61 | 6d 65 73 2e 20 49 66 20 |annel na|mes. If |
|00000d60| 4e 49 4c 20 67 69 76 65 | 6e 2c 20 69 72 63 68 61 |NIL give|n, ircha|
|00000d70| 74 20 64 6f 65 73 20 6e | 6f 74 20 64 6f 20 67 6c |t does n|ot do gl|
|00000d80| 6f 62 61 6c 20 6e 61 6d | 65 73 20 70 6f 6c 6c 69 |obal nam|es polli|
|00000d90| 6e 67 2c 20 0a 74 68 75 | 73 20 63 61 75 73 69 6e |ng, .thu|s causin|
|00000da0| 67 20 6d 75 63 68 20 6c | 65 73 73 20 6e 65 74 77 |g much l|ess netw|
|00000db0| 6f 72 6b 20 74 72 61 66 | 66 69 63 2c 20 62 75 74 |ork traf|fic, but|
|00000dc0| 20 74 68 65 6e 20 69 74 | 20 69 73 20 6f 6e 6c 79 | then it| is only|
|00000dd0| 20 61 62 6c 65 20 74 6f | 20 0a 63 6f 6d 70 6c 65 | able to| .comple|
|00000de0| 74 65 20 6e 61 6d 65 73 | 20 6f 6e 20 63 68 61 6e |te names| on chan|
|00000df0| 6e 65 6c 73 20 79 6f 75 | 20 68 61 76 65 20 6a 6f |nels you| have jo|
|00000e00| 69 6e 65 64 2e 20 49 66 | 20 6e 75 6d 62 65 72 20 |ined. If| number |
|00000e10| 67 69 76 65 6e 2c 20 69 | 74 20 69 73 20 74 68 65 |given, i|t is the|
|00000e20| 0a 69 6e 74 65 72 6e 61 | 6c 20 62 65 74 77 65 65 |.interna|l betwee|
|00000e30| 6e 20 74 77 6f 20 73 75 | 63 63 65 73 73 69 76 65 |n two su|ccessive|
|00000e40| 20 70 6f 6c 6c 73 2e 0a | 0a 4e 6f 74 69 63 65 3a | polls..|.Notice:|
|00000e50| 20 54 68 65 72 65 20 61 | 72 65 20 73 6f 6d 65 20 | There a|re some |
|00000e60| 67 6f 74 63 68 61 73 20 | 68 65 72 65 2e 0a 20 20 |gotchas |here..  |
|00000e70| 31 2e 20 54 68 65 20 73 | 65 72 76 65 72 20 73 65 |1. The s|erver se|
|00000e80| 6e 64 71 20 69 73 20 62 | 79 20 64 65 66 61 75 6c |ndq is b|y defaul|
|00000e90| 74 20 32 30 6b 20 61 6e | 64 20 67 6c 6f 62 61 6c |t 20k an|d global|
|00000ea0| 73 20 6e 61 6d 65 73 20 | 6d 61 79 62 65 20 61 62 |s names |maybe ab|
|00000eb0| 6f 75 74 20 33 30 6b 0a | 20 20 20 20 20 61 74 20 |out 30k.|     at |
|00000ec0| 74 68 65 20 74 69 6d 65 | 20 74 68 69 73 20 69 73 |the time| this is|
|00000ed0| 20 77 72 69 74 74 65 6e | 2e 20 54 68 65 20 4e 41 | written|. The NA|
|00000ee0| 4d 45 53 20 71 75 65 72 | 79 20 6d 61 79 20 63 61 |MES quer|y may ca|
|00000ef0| 75 73 65 20 73 65 72 76 | 65 72 20 74 6f 20 0a 20 |use serv|er to . |
|00000f00| 20 20 20 20 64 72 6f 70 | 20 74 68 65 20 63 6c 69 |    drop| the cli|
|00000f10| 65 6e 74 20 62 65 63 61 | 75 73 65 20 6f 66 20 66 |ent beca|use of f|
|00000f20| 6c 6f 6f 64 69 6e 67 2e | 0a 20 20 32 2e 20 54 68 |looding.|.  2. Th|
|00000f30| 65 20 6e 61 6d 72 65 70 | 6c 79 20 28 33 35 33 29 |e namrep|ly (353)|
|00000f40| 20 68 61 6e 64 6c 65 72 | 20 69 73 20 63 61 6c 6c | handler| is call|
|00000f50| 65 64 20 70 72 65 74 74 | 79 20 6f 66 74 65 6e 20 |ed prett|y often |
|00000f60| 61 6e 64 20 69 74 20 63 | 61 75 73 65 73 20 73 6f |and it c|auses so|
|00000f70| 6d 65 0a 20 20 20 20 20 | 67 61 72 62 61 67 65 20 |me.     |garbage |
|00000f80| 65 76 65 6e 20 69 66 20 | 69 74 20 69 73 20 68 65 |even if |it is he|
|00000f90| 61 76 69 6c 79 20 6f 70 | 74 69 6d 69 7a 65 64 2e |avily op|timized.|
|00000fa0| 20 59 6f 75 20 65 6d 61 | 63 73 20 77 69 6c 6c 20 | You ema|cs will |
|00000fb0| 65 61 74 20 61 20 6c 6f | 74 20 6f 66 0a 20 20 20 |eat a lo|t of.   |
|00000fc0| 20 20 63 70 75 20 69 66 | 20 74 68 69 73 20 69 73 |  cpu if| this is|
|00000fd0| 20 65 6e 61 62 6c 65 64 | 2e 22 29 0a             | enabled|.").    |
+--------+-------------------------+-------------------------+--------+--------+