/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / gnus / mhspool.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 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 30 33 3a 33 | 31 20 31 39 39 35 0a 3b | 14:03:3|1 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 67 6e | 75 73 2f 6d 68 73 70 6f |/lisp/gn|us/mhspo|
|00000090| 6f 6c 2e 65 6c 0a 3b 3b | 3b 20 65 6d 61 63 73 20 |ol.el.;;|; emacs |
|000000a0| 76 65 72 73 69 6f 6e 20 | 31 39 2e 31 33 20 58 45 |version |19.13 XE|
|000000b0| 6d 61 63 73 20 4c 75 63 | 69 64 2e 0a 3b 3b 3b 20 |macs Luc|id..;;; |
|000000c0| 62 79 74 65 63 6f 6d 70 | 20 76 65 72 73 69 6f 6e |bytecomp| version|
|000000d0| 20 32 2e 32 35 3b 20 31 | 2d 53 65 70 2d 39 34 2e | 2.25; 1|-Sep-94.|
|000000e0| 0a 3b 3b 3b 20 6f 70 74 | 69 6d 69 7a 61 74 69 6f |.;;; opt|imizatio|
|000000f0| 6e 20 69 73 20 6f 6e 2e | 0a 3b 3b 3b 20 74 68 69 |n is on.|.;;; thi|
|00000100| 73 20 66 69 6c 65 20 75 | 73 65 73 20 6f 70 63 6f |s file u|ses opco|
|00000110| 64 65 73 20 77 68 69 63 | 68 20 64 6f 20 6e 6f 74 |des whic|h do not|
|00000120| 20 65 78 69 73 74 20 69 | 6e 20 45 6d 61 63 73 20 | exist i|n Emacs |
|00000130| 31 38 2e 0a 0a 28 69 66 | 20 28 61 6e 64 20 28 62 |18...(if| (and (b|
|00000140| 6f 75 6e 64 70 20 27 65 | 6d 61 63 73 2d 76 65 72 |oundp 'e|macs-ver|
|00000150| 73 69 6f 6e 29 0a 09 20 | 28 6f 72 20 28 61 6e 64 |sion).. |(or (and|
|00000160| 20 28 62 6f 75 6e 64 70 | 20 27 65 70 6f 63 68 3a | (boundp| 'epoch:|
|00000170| 3a 76 65 72 73 69 6f 6e | 29 20 65 70 6f 63 68 3a |:version|) epoch:|
|00000180| 3a 76 65 72 73 69 6f 6e | 29 0a 09 20 20 20 20 20 |:version|)..     |
|00000190| 28 73 74 72 69 6e 67 2d | 6c 65 73 73 70 20 65 6d |(string-|lessp em|
|000001a0| 61 63 73 2d 76 65 72 73 | 69 6f 6e 20 22 31 39 22 |acs-vers|ion "19"|
|000001b0| 29 29 29 0a 20 20 20 20 | 28 65 72 72 6f 72 20 22 |))).    |(error "|
|000001c0| 54 68 69 73 20 66 69 6c | 65 20 77 61 73 20 63 6f |This fil|e was co|
|000001d0| 6d 70 69 6c 65 64 20 66 | 6f 72 20 45 6d 61 63 73 |mpiled f|or Emacs|
|000001e0| 20 31 39 2e 22 29 29 0a | 0a 28 72 65 71 75 69 72 | 19.")).|.(requir|
|000001f0| 65 20 27 6e 6e 74 70 29 | 0a 28 64 65 66 76 61 72 |e 'nntp)|.(defvar|
|00000200| 20 6d 68 73 70 6f 6f 6c | 2d 6c 69 73 74 2d 66 6f | mhspool|-list-fo|
|00000210| 6c 64 65 72 73 2d 6d 65 | 74 68 6f 64 20 27 6d 68 |lders-me|thod 'mh|
|00000220| 73 70 6f 6f 6c 2d 6c 69 | 73 74 2d 66 6f 6c 64 65 |spool-li|st-folde|
|00000230| 72 73 2d 75 73 69 6e 67 | 2d 73 68 20 22 5c 0a 2a |rs-using|-sh "\.*|
|00000240| 46 75 6e 63 74 69 6f 6e | 20 74 6f 20 6c 69 73 74 |Function| to list|
|00000250| 20 66 69 6c 65 73 20 69 | 6e 20 66 6f 6c 64 65 72 | files i|n folder|
|00000260| 73 2e 0a 54 68 65 20 66 | 75 6e 63 74 69 6f 6e 20 |s..The f|unction |
|00000270| 73 68 6f 75 6c 64 20 61 | 63 63 65 70 74 20 61 20 |should a|ccept a |
|00000280| 64 69 72 65 63 74 6f 72 | 79 20 61 73 20 69 74 73 |director|y as its|
|00000290| 20 61 72 67 75 6d 65 6e | 74 2c 20 61 6e 64 20 66 | argumen|t, and f|
|000002a0| 69 6c 6c 20 74 68 65 0a | 63 75 72 72 65 6e 74 20 |ill the.|current |
|000002b0| 62 75 66 66 65 72 20 77 | 69 74 68 20 66 69 6c 65 |buffer w|ith file|
|000002c0| 20 61 6e 64 20 64 69 72 | 65 63 74 6f 72 79 20 6e | and dir|ectory n|
|000002d0| 61 6d 65 73 2e 20 20 54 | 68 65 20 6f 75 74 70 75 |ames.  T|he outpu|
|000002e0| 74 20 66 6f 72 6d 61 74 | 20 6d 75 73 74 0a 62 65 |t format| must.be|
|000002f0| 20 74 68 65 20 73 61 6d | 65 20 61 73 20 74 68 61 | the sam|e as tha|
|00000300| 74 20 6f 66 20 27 6c 73 | 20 2d 52 31 27 2e 20 20 |t of 'ls| -R1'.  |
|00000310| 54 77 6f 20 66 75 6e 63 | 74 69 6f 6e 73 0a 6d 68 |Two func|tions.mh|
|00000320| 73 70 6f 6f 6c 2d 6c 69 | 73 74 2d 66 6f 6c 64 65 |spool-li|st-folde|
|00000330| 72 73 2d 75 73 69 6e 67 | 2d 6c 73 20 61 6e 64 20 |rs-using|-ls and |
|00000340| 6d 68 73 70 6f 6f 6c 2d | 6c 69 73 74 2d 66 6f 6c |mhspool-|list-fol|
|00000350| 64 65 72 73 2d 75 73 69 | 6e 67 2d 73 68 20 61 72 |ders-usi|ng-sh ar|
|00000360| 65 0a 70 72 6f 76 69 64 | 65 64 20 6e 6f 77 2e 20 |e.provid|ed now. |
|00000370| 20 49 20 73 75 70 70 6f | 73 65 20 74 68 65 20 6c | I suppo|se the l|
|00000380| 61 74 65 72 20 69 73 20 | 66 61 73 74 65 72 2e 22 |ater is |faster."|
|00000390| 29 0a 28 64 65 66 76 61 | 72 20 6d 68 73 70 6f 6f |).(defva|r mhspoo|
|000003a0| 6c 2d 6c 69 73 74 2d 64 | 69 72 65 63 74 6f 72 79 |l-list-d|irectory|
|000003b0| 2d 73 77 69 74 63 68 65 | 73 20 27 28 22 2d 52 22 |-switche|s '("-R"|
|000003c0| 29 20 22 5c 0a 2a 53 77 | 69 74 63 68 65 73 20 66 |) "\.*Sw|itches f|
|000003d0| 6f 72 20 6d 68 73 70 6f | 6f 6c 2d 6c 69 73 74 2d |or mhspo|ol-list-|
|000003e0| 66 6f 6c 64 65 72 73 2d | 75 73 69 6e 67 2d 6c 73 |folders-|using-ls|
|000003f0| 20 74 6f 20 70 61 73 73 | 20 74 6f 20 60 6c 73 27 | to pass| to `ls'|
|00000400| 20 66 6f 72 20 67 65 74 | 74 69 6e 67 20 66 69 6c | for get|ting fil|
|00000410| 65 20 6c 69 73 74 73 2e | 0a 4f 6e 65 20 65 6e 74 |e lists.|.One ent|
|00000420| 72 79 20 73 68 6f 75 6c | 64 20 61 70 70 65 61 72 |ry shoul|d appear|
|00000430| 20 6f 6e 20 6f 6e 65 20 | 6c 69 6e 65 2e 20 59 6f | on one |line. Yo|
|00000440| 75 20 6d 61 79 20 6e 65 | 65 64 20 74 6f 20 61 64 |u may ne|ed to ad|
|00000450| 64 20 60 2d 31 27 20 6f | 70 74 69 6f 6e 2e 22 29 |d `-1' o|ption.")|
|00000460| 0a 28 64 65 66 76 61 72 | 20 6d 68 73 70 6f 6f 6c |.(defvar| mhspool|
|00000470| 2d 72 65 74 72 69 65 76 | 65 2d 68 65 61 64 65 72 |-retriev|e-header|
|00000480| 73 2d 6d 65 74 68 6f 64 | 20 27 6d 68 73 70 6f 6f |s-method| 'mhspoo|
|00000490| 6c 2d 72 65 74 72 69 65 | 76 65 2d 68 65 61 64 65 |l-retrie|ve-heade|
|000004a0| 72 73 2d 75 73 69 6e 67 | 2d 65 6d 61 63 73 2d 6c |rs-using|-emacs-l|
|000004b0| 69 73 70 20 22 5c 0a 2a | 46 75 6e 63 74 69 6f 6e |isp "\.*|Function|
|000004c0| 20 74 6f 20 72 65 74 72 | 69 65 76 65 20 68 65 61 | to retr|ieve hea|
|000004d0| 64 65 72 73 20 66 72 6f | 6d 20 61 72 74 69 63 6c |ders fro|m articl|
|000004e0| 65 73 20 69 6e 20 61 6e | 20 6d 68 73 70 6f 6f 6c |es in an| mhspool|
|000004f0| 0a 64 69 72 65 63 74 6f | 72 79 2e 20 20 54 68 65 |.directo|ry.  The|
|00000500| 20 66 75 6e 63 74 69 6f | 6e 20 61 63 63 65 70 74 | functio|n accept|
|00000510| 73 20 61 20 6c 69 73 74 | 20 6f 66 20 61 72 74 69 |s a list| of arti|
|00000520| 63 6c 65 73 20 74 6f 20 | 72 65 74 72 69 65 76 65 |cles to |retrieve|
|00000530| 20 74 68 65 0a 68 65 61 | 64 65 72 73 20 66 72 6f | the.hea|ders fro|
|00000540| 6d 20 77 68 65 72 65 20 | 74 68 65 20 61 72 74 69 |m where |the arti|
|00000550| 63 6c 65 73 20 61 72 65 | 20 6c 6f 63 61 74 65 64 |cles are| located|
|00000560| 20 69 6e 20 74 68 65 20 | 64 69 72 65 63 74 6f 72 | in the |director|
|00000570| 79 0a 6d 68 73 70 6f 6f | 6c 2d 63 75 72 72 65 6e |y.mhspoo|l-curren|
|00000580| 74 2d 64 69 72 65 63 74 | 6f 72 79 2e 20 20 54 77 |t-direct|ory.  Tw|
|00000590| 6f 20 66 75 6e 63 74 69 | 6f 6e 73 0a 6d 68 73 70 |o functi|ons.mhsp|
|000005a0| 6f 6f 6c 2d 72 65 74 72 | 69 65 76 65 2d 68 65 61 |ool-retr|ieve-hea|
|000005b0| 64 65 72 73 2d 75 73 69 | 6e 67 2d 65 6d 61 63 73 |ders-usi|ng-emacs|
|000005c0| 2d 6c 69 73 70 20 61 6e | 64 0a 6d 68 73 70 6f 6f |-lisp an|d.mhspoo|
|000005d0| 6c 2d 72 65 74 72 69 65 | 76 65 2d 68 65 61 64 65 |l-retrie|ve-heade|
|000005e0| 72 73 2d 75 73 69 6e 67 | 2d 67 6e 75 73 68 64 72 |rs-using|-gnushdr|
|000005f0| 73 20 61 72 65 20 70 72 | 6f 76 69 64 65 64 20 6e |s are pr|ovided n|
|00000600| 6f 77 2e 20 20 46 6f 72 | 20 74 68 65 0a 6c 61 74 |ow.  For| the.lat|
|00000610| 74 65 72 20 6d 68 73 70 | 6f 6f 6c 2d 72 65 74 72 |ter mhsp|ool-retr|
|00000620| 69 65 76 65 2d 68 65 61 | 64 65 72 73 2d 67 6e 75 |ieve-hea|ders-gnu|
|00000630| 73 68 64 72 73 2d 70 72 | 6f 67 72 61 6d 20 73 70 |shdrs-pr|ogram sp|
|00000640| 65 63 69 66 69 65 73 20 | 74 68 65 20 6e 61 6d 65 |ecifies |the name|
|00000650| 0a 6f 66 20 74 68 65 20 | 70 72 6f 67 72 61 6d 20 |.of the |program |
|00000660| 74 6f 20 65 78 65 63 75 | 74 65 20 28 77 68 69 63 |to execu|te (whic|
|00000670| 68 20 73 65 65 29 2e 22 | 29 0a 28 64 65 66 76 61 |h see)."|).(defva|
|00000680| 72 20 6d 68 73 70 6f 6f | 6c 2d 72 65 74 72 69 65 |r mhspoo|l-retrie|
|00000690| 76 65 2d 68 65 61 64 65 | 72 73 2d 67 6e 75 73 68 |ve-heade|rs-gnush|
|000006a0| 64 72 73 2d 70 72 6f 67 | 72 61 6d 20 22 67 6e 75 |drs-prog|ram "gnu|
|000006b0| 73 68 64 72 73 22 20 22 | 5c 0a 2a 54 68 65 20 6e |shdrs" "|\.*The n|
|000006c0| 61 6d 65 20 6f 66 20 61 | 20 70 72 6f 67 72 61 6d |ame of a| program|
|000006d0| 20 75 73 65 64 20 74 6f | 20 72 65 74 72 69 65 76 | used to| retriev|
|000006e0| 65 20 68 65 61 64 65 72 | 73 20 66 72 6f 6d 20 61 |e header|s from a|
|000006f0| 72 74 69 63 6c 65 73 20 | 77 68 65 6e 0a 6d 68 73 |rticles |when.mhs|
|00000700| 70 6f 6f 6c 2d 72 65 74 | 72 69 65 76 65 2d 68 65 |pool-ret|rieve-he|
|00000710| 61 64 65 72 73 2d 6d 65 | 74 68 6f 64 20 69 73 20 |aders-me|thod is |
|00000720| 73 65 74 20 74 6f 0a 6d | 68 73 70 6f 6f 6c 2d 72 |set to.m|hspool-r|
|00000730| 65 74 72 69 65 76 65 2d | 68 65 61 64 65 72 73 2d |etrieve-|headers-|
|00000740| 75 73 69 6e 67 2d 67 6e | 75 73 68 64 72 73 2e 20 |using-gn|ushdrs. |
|00000750| 20 54 68 65 20 70 72 6f | 67 72 61 6d 20 74 61 6b | The pro|gram tak|
|00000760| 65 73 20 61 20 64 69 72 | 65 63 74 6f 72 79 0a 61 |es a dir|ectory.a|
|00000770| 73 20 69 74 20 66 69 72 | 73 74 20 61 72 67 75 6d |s it fir|st argum|
|00000780| 65 6e 74 20 61 6e 64 20 | 74 68 65 20 66 69 6c 65 |ent and |the file|
|00000790| 73 20 74 6f 20 72 65 74 | 72 69 65 76 65 20 61 72 |s to ret|rieve ar|
|000007a0| 74 69 63 6c 65 73 20 66 | 72 6f 6d 20 61 73 20 74 |ticles f|rom as t|
|000007b0| 68 65 0a 72 65 73 74 20 | 6f 66 20 69 74 73 20 61 |he.rest |of its a|
|000007c0| 72 67 75 6d 65 6e 74 73 | 2e 20 20 49 74 20 6d 75 |rguments|.  It mu|
|000007d0| 73 74 20 70 72 6f 64 75 | 63 65 20 6f 6e 20 69 74 |st produ|ce on it|
|000007e0| 73 20 73 74 61 6e 64 61 | 72 64 20 6f 75 74 70 75 |s standa|rd outpu|
|000007f0| 74 20 61 6e 0a 65 6d 61 | 63 73 20 6c 69 73 70 20 |t an.ema|cs lisp |
|00000800| 65 78 70 72 65 73 73 69 | 6f 6e 20 69 6e 20 74 68 |expressi|on in th|
|00000810| 65 20 73 61 6d 65 20 66 | 6f 72 6d 61 74 20 61 73 |e same f|ormat as|
|00000820| 20 74 68 65 20 76 61 6c | 75 65 20 6f 66 0a 6d 68 | the val|ue of.mh|
|00000830| 73 70 6f 6f 6c 2d 72 65 | 74 72 69 65 76 65 2d 68 |spool-re|trieve-h|
|00000840| 65 61 64 65 72 73 20 28 | 77 68 69 63 68 20 73 65 |eaders (|which se|
|00000850| 65 29 2e 22 29 0a 28 64 | 65 66 63 6f 6e 73 74 20 |e).").(d|efconst |
|00000860| 6d 68 73 70 6f 6f 6c 2d | 76 65 72 73 69 6f 6e 20 |mhspool-|version |
|00000870| 22 4d 48 53 50 4f 4f 4c | 20 31 2e 38 22 20 22 5c |"MHSPOOL| 1.8" "\|
|00000880| 0a 56 65 72 73 69 6f 6e | 20 6e 75 6d 62 65 72 73 |.Version| numbers|
|00000890| 20 6f 66 20 74 68 69 73 | 20 76 65 72 73 69 6f 6e | of this| version|
|000008a0| 20 6f 66 20 4d 48 53 50 | 4f 4f 4c 2e 22 29 0a 28 | of MHSP|OOL.").(|
|000008b0| 64 65 66 76 61 72 20 6d | 68 73 70 6f 6f 6c 2d 73 |defvar m|hspool-s|
|000008c0| 70 6f 6f 6c 2d 64 69 72 | 65 63 74 6f 72 79 20 22 |pool-dir|ectory "|
|000008d0| 7e 2f 4d 61 69 6c 22 20 | 22 5c 0a 50 72 69 76 61 |~/Mail" |"\.Priva|
|000008e0| 74 65 20 6d 61 69 6c 20 | 64 69 72 65 63 74 6f 72 |te mail |director|
|000008f0| 79 2e 22 29 0a 28 64 65 | 66 76 61 72 20 6d 68 73 |y.").(de|fvar mhs|
|00000900| 70 6f 6f 6c 2d 63 75 72 | 72 65 6e 74 2d 64 69 72 |pool-cur|rent-dir|
|00000910| 65 63 74 6f 72 79 20 6e | 69 6c 20 22 5c 0a 43 75 |ectory n|il "\.Cu|
|00000920| 72 72 65 6e 74 20 6e 65 | 77 73 20 67 72 6f 75 70 |rrent ne|ws group|
|00000930| 20 64 69 72 65 63 74 6f | 72 79 2e 22 29 0a 28 64 | directo|ry.").(d|
|00000940| 65 66 76 61 72 20 6d 68 | 73 70 6f 6f 6c 2d 61 72 |efvar mh|spool-ar|
|00000950| 74 69 63 6c 65 2d 68 65 | 61 64 65 72 2d 72 65 61 |ticle-he|ader-rea|
|00000960| 64 2d 73 69 7a 65 20 31 | 30 32 34 20 22 5c 0a 4e |d-size 1|024 "\.N|
|00000970| 75 6d 62 65 72 20 6f 66 | 20 62 79 74 65 73 20 74 |umber of| bytes t|
|00000980| 6f 20 72 65 61 64 20 77 | 68 65 6e 20 70 72 6f 63 |o read w|hen proc|
|00000990| 65 73 73 69 6e 67 20 68 | 65 61 64 65 72 73 20 66 |essing h|eaders f|
|000009a0| 72 6f 6d 20 4d 48 53 50 | 4f 4f 4c 2e 22 29 0a 28 |rom MHSP|OOL.").(|
|000009b0| 66 73 65 74 20 27 6d 68 | 73 70 6f 6f 6c 2d 72 65 |fset 'mh|spool-re|
|000009c0| 74 72 69 65 76 65 2d 68 | 65 61 64 65 72 73 2d 62 |trieve-h|eaders-b|
|000009d0| 79 2d 69 64 20 23 5b 28 | 6d 65 73 73 61 67 65 2d |y-id #[(|message-|
|000009e0| 69 64 29 20 22 c0 c1 21 | 87 22 20 5b 65 72 72 6f |id) "..!|." [erro|
|000009f0| 72 20 22 55 6e 69 6d 70 | 6c 65 6d 65 6e 74 65 64 |r "Unimp|lemented|
|00000a00| 20 66 75 6e 63 74 69 6f | 6e 2c 20 73 6f 72 72 79 | functio|n, sorry|
|00000a10| 2e 22 5d 20 32 20 22 5c | 0a 55 4e 49 4d 50 4c 45 |."] 2 "\|.UNIMPLE|
|00000a20| 4d 45 4e 54 45 44 2e 20 | 20 53 68 6f 75 6c 64 20 |MENTED. | Should |
|00000a30| 72 65 74 75 72 6e 20 73 | 61 6d 65 20 74 68 69 6e |return s|ame thin|
|00000a40| 67 73 20 6d 68 73 70 6f | 6f 6c 2d 72 65 74 72 69 |gs mhspo|ol-retri|
|00000a50| 65 76 65 2d 68 65 61 64 | 65 72 73 20 64 6f 65 73 |eve-head|ers does|
|00000a60| 2e 22 5d 29 0a 28 66 73 | 65 74 20 27 6d 68 73 70 |."]).(fs|et 'mhsp|
|00000a70| 6f 6f 6c 2d 72 65 74 72 | 69 65 76 65 2d 68 65 61 |ool-retr|ieve-hea|
|00000a80| 64 65 72 73 20 23 5b 28 | 73 65 71 75 65 6e 63 65 |ders #[(|sequence|
|00000a90| 29 20 22 08 09 21 87 22 | 20 5b 6d 68 73 70 6f 6f |) "..!."| [mhspoo|
|00000aa0| 6c 2d 72 65 74 72 69 65 | 76 65 2d 68 65 61 64 65 |l-retrie|ve-heade|
|00000ab0| 72 73 2d 6d 65 74 68 6f | 64 20 73 65 71 75 65 6e |rs-metho|d sequen|
|00000ac0| 63 65 5d 20 32 20 22 5c | 0a 52 65 74 75 72 6e 20 |ce] 2 "\|.Return |
|00000ad0| 6c 69 73 74 20 6f 66 20 | 61 72 74 69 63 6c 65 20 |list of |article |
|00000ae0| 68 65 61 64 65 72 73 20 | 73 70 65 63 69 66 69 65 |headers |specifie|
|00000af0| 64 20 62 79 20 53 45 51 | 55 45 4e 43 45 20 6f 66 |d by SEQ|UENCE of|
|00000b00| 20 61 72 74 69 63 6c 65 | 20 69 64 2e 0a 54 68 65 | article| id..The|
|00000b10| 20 66 6f 72 6d 61 74 20 | 6f 66 20 6c 69 73 74 20 | format |of list |
|00000b20| 69 73 0a 20 60 28 5b 4e | 55 4d 42 45 52 20 53 55 |is. `([N|UMBER SU|
|00000b30| 42 4a 45 43 54 20 46 52 | 4f 4d 20 58 52 45 46 20 |BJECT FR|OM XREF |
|00000b40| 4c 49 4e 45 53 20 44 41 | 54 45 20 4d 45 53 53 41 |LINES DA|TE MESSA|
|00000b50| 47 45 2d 49 44 20 52 45 | 46 45 52 45 4e 43 45 53 |GE-ID RE|FERENCES|
|00000b60| 5d 20 2e 2e 2e 29 27 2e | 0a 49 66 20 74 68 65 72 |] ...)'.|.If ther|
|00000b70| 65 20 69 73 20 6e 6f 20 | 52 65 66 65 72 65 6e 63 |e is no |Referenc|
|00000b80| 65 73 3a 20 66 69 65 6c | 64 2c 20 49 6e 2d 52 65 |es: fiel|d, In-Re|
|00000b90| 70 6c 79 2d 54 6f 3a 20 | 66 69 65 6c 64 20 69 73 |ply-To: |field is|
|00000ba0| 20 75 73 65 64 20 69 6e | 73 74 65 61 64 2e 0a 52 | used in|stead..R|
|00000bb0| 65 61 64 65 72 20 6d 61 | 63 72 6f 73 20 66 6f 72 |eader ma|cros for|
|00000bc0| 20 74 68 65 20 76 65 63 | 74 6f 72 20 61 72 65 20 | the vec|tor are |
|00000bd0| 64 65 66 69 6e 65 64 20 | 61 73 20 60 6e 6e 74 70 |defined |as `nntp|
|00000be0| 2d 68 65 61 64 65 72 2d | 46 49 45 4c 44 27 2e 0a |-header-|FIELD'..|
|00000bf0| 57 72 69 74 65 72 20 6d | 61 63 72 6f 73 20 66 6f |Writer m|acros fo|
|00000c00| 72 20 74 68 65 20 76 65 | 63 74 6f 72 20 61 72 65 |r the ve|ctor are|
|00000c10| 20 64 65 66 69 6e 65 64 | 20 61 73 20 60 6e 6e 74 | defined| as `nnt|
|00000c20| 70 2d 73 65 74 2d 68 65 | 61 64 65 72 2d 46 49 45 |p-set-he|ader-FIE|
|00000c30| 4c 44 27 2e 0a 4e 65 77 | 73 67 72 6f 75 70 20 6d |LD'..New|sgroup m|
|00000c40| 75 73 74 20 62 65 20 73 | 65 6c 65 63 74 65 64 20 |ust be s|elected |
|00000c50| 62 65 66 6f 72 65 20 63 | 61 6c 6c 69 6e 67 20 74 |before c|alling t|
|00000c60| 68 69 73 2e 22 5d 29 0a | 28 66 73 65 74 20 27 6d |his."]).|(fset 'm|
|00000c70| 68 73 70 6f 6f 6c 2d 72 | 65 74 72 69 65 76 65 2d |hspool-r|etrieve-|
|00000c80| 68 65 61 64 65 72 73 2d | 75 73 69 6e 67 2d 67 6e |headers-|using-gn|
|00000c90| 75 73 68 64 72 73 20 23 | 5b 28 73 65 71 75 65 6e |ushdrs #|[(sequen|
|00000ca0| 63 65 29 20 22 8a 08 a7 | ad 84 09 47 08 56 1a 0b |ce) "...|...G.V..|
|00000cb0| 71 88 c4 20 88 c5 1e 06 | c7 c8 0e 09 c5 ca c5 0e |q.. ....|........|
|00000cc0| 0b cc cd 09 5c 22 26 07 | 88 5c 6e ab 84 ce cf 21 |....\"&.|.\n....!|
|00000cd0| 88 65 62 88 d0 0b 21 c4 | 20 88 5c 6e ab 84 ce d1 |.eb...!.| .\n....|
|00000ce0| 21 88 2b 87 22 20 5b 6e | 6e 74 70 2d 6c 61 72 67 |!.+." [n|ntp-larg|
|00000cf0| 65 2d 6e 65 77 73 67 72 | 6f 75 70 20 73 65 71 75 |e-newsgr|oup sequ|
|00000d00| 65 6e 63 65 20 6d 73 67 | 20 6e 6e 74 70 2d 73 65 |ence msg| nntp-se|
|00000d10| 72 76 65 72 2d 62 75 66 | 66 65 72 20 65 72 61 73 |rver-buf|fer eras|
|00000d20| 65 2d 62 75 66 66 65 72 | 20 6e 69 6c 20 70 72 6f |e-buffer| nil pro|
|00000d30| 63 65 73 73 2d 63 6f 6e | 6e 65 63 74 69 6f 6e 2d |cess-con|nection-|
|00000d40| 74 79 70 65 20 61 70 70 | 6c 79 20 63 61 6c 6c 2d |type app|ly call-|
|00000d50| 70 72 6f 63 65 73 73 20 | 6d 68 73 70 6f 6f 6c 2d |process |mhspool-|
|00000d60| 72 65 74 72 69 65 76 65 | 2d 68 65 61 64 65 72 73 |retrieve|-headers|
|00000d70| 2d 67 6e 75 73 68 64 72 | 73 2d 70 72 6f 67 72 61 |-gnushdr|s-progra|
|00000d80| 6d 20 74 20 6d 68 73 70 | 6f 6f 6c 2d 63 75 72 72 |m t mhsp|ool-curr|
|00000d90| 65 6e 74 2d 64 69 72 65 | 63 74 6f 72 79 20 6d 61 |ent-dire|ctory ma|
|00000da0| 70 63 61 72 20 69 6e 74 | 2d 74 6f 2d 73 74 72 69 |pcar int|-to-stri|
|00000db0| 6e 67 20 6d 65 73 73 61 | 67 65 20 22 4d 48 53 50 |ng messa|ge "MHSP|
|00000dc0| 4f 4f 4c 3a 20 70 61 72 | 73 69 6e 67 20 68 65 61 |OOL: par|sing hea|
|00000dd0| 64 65 72 73 2e 2e 2e 22 | 20 72 65 61 64 20 22 4d |ders..."| read "M|
|00000de0| 48 53 50 4f 4f 4c 3a 20 | 70 61 72 73 69 6e 67 20 |HSPOOL: |parsing |
|00000df0| 68 65 61 64 65 72 73 2e | 2e 2e 64 6f 6e 65 2e 22 |headers.|..done."|
|00000e00| 5d 20 31 30 20 22 5c 0a | 41 20 6d 65 74 68 6f 64 |] 10 "\.|A method|
|00000e10| 20 66 6f 72 20 6d 68 73 | 70 6f 6f 6c 2d 72 65 74 | for mhs|pool-ret|
|00000e20| 72 69 65 76 65 2d 68 65 | 61 64 65 72 73 20 74 68 |rieve-he|aders th|
|00000e30| 61 74 20 75 73 65 73 20 | 74 68 65 20 70 72 6f 67 |at uses |the prog|
|00000e40| 72 61 6d 20 67 6e 75 73 | 68 64 72 73 2e 22 5d 29 |ram gnus|hdrs."])|
|00000e50| 0a 28 66 73 65 74 20 27 | 6d 68 73 70 6f 6f 6c 2d |.(fset '|mhspool-|
|00000e60| 72 65 74 72 69 65 76 65 | 2d 68 65 61 64 65 72 73 |retrieve|-headers|
|00000e70| 2d 75 73 69 6e 67 2d 65 | 6d 61 63 73 2d 6c 69 73 |-using-e|macs-lis|
|00000e80| 70 20 23 5b 28 73 65 71 | 75 65 6e 63 65 29 20 22 |p #[(seq|uence) "|
|00000e90| 8a 08 71 88 c1 5c 6e 47 | c3 c1 c3 c1 89 89 89 c3 |..q..\nG|........|
|00000ea0| c1 89 1c 1d 1e 06 1e 07 | 1e 08 1e 09 1e 5c 6e 1e |........|.....\n.|
|00000eb0| 0b 1e 0c 1e 0d 1e 0e 1e | 0f 5c 6e 83 80 01 5c 6e |........|.\n...\n|
|00000ec0| 40 16 0b 0e 10 d1 0e 0b | 21 50 16 0f d2 0e 0f 21 |@.......|!P.....!|
|00000ed0| 83 53 01 d3 0e 0f 21 84 | 53 01 d4 20 88 d5 0e 0f |.S....!.|S.. ....|
|00000ee0| c1 c3 0e 16 24 88 65 62 | 88 d7 d8 c1 d9 23 88 65 |....$.eb|.....#.e|
|00000ef0| 60 7d 88 65 62 88 da db | c1 dc 23 ab 88 dd de dc |`}.eb...|..#.....|
|00000f00| 89 23 88 aa 71 65 62 88 | df 63 88 65 62 88 d7 e0 |.#..qeb.|.c.eb...|
|00000f10| c1 dc 23 ab 8c 60 8a c1 | 7f 88 60 29 7b 16 08 aa |..#..`..|..`){...|
|00000f20| 83 e1 16 08 65 62 88 d7 | e2 c1 dc 23 ab 8c 60 8a |....eb..|...#..`.|
|00000f30| c1 7f 88 60 29 7b 16 5c | 6e aa 83 e3 16 5c 6e 65 |...`){.\|n....\ne|
|00000f40| 62 88 d7 e4 c1 dc 23 ab | 8c 60 8a c1 7f 88 60 29 |b.....#.|.`....`)|
|00000f50| 7b 16 09 aa 83 c1 16 09 | 65 62 88 d7 e5 c1 dc 23 |{.......|eb.....#|
|00000f60| ab 8b 60 8a c1 7f 88 60 | 29 7b 15 aa 82 c1 15 65 |..`....`|){.....e|
|00000f70| 62 88 d7 e6 c1 dc 23 ab | 8e e7 60 8a c1 7f 88 60 |b.....#.|..`....`|
|00000f80| 29 7b 21 16 06 aa 8d 8c | 64 62 88 7e 88 e8 60 64 |){!.....|db.~..`d|
|00000f90| 5c 22 29 16 06 65 62 88 | d7 e9 c1 dc 23 ab 8c 60 |\")..eb.|....#..`|
|00000fa0| 8a c1 7f 88 60 29 7b 16 | 07 aa 83 c1 16 07 65 62 |....`){.|......eb|
|00000fb0| 88 d7 ea c1 dc 23 ac 87 | d7 eb c1 dc 23 ab 8b 60 |.....#..|....#..`|
|00000fc0| 8a c1 7f 88 60 29 7b 14 | aa 82 c1 14 0e 0b ab 9a |....`){.|........|
|00000fd0| 0e 09 ab 96 ec 0e 0b 0e | 5c 6e 0e 08 0e 07 0e 06 |........|\n......|
|00000fe0| 0d 0e 09 0c 26 08 0e 0c | 42 16 0c 5c 6e 41 12 0e |....&...|B..\nA..|
|00000ff0| 0d 54 16 0d 0e 2d a7 83 | 27 00 0e 0e 0e 2d 56 83 |.T...-..|'....-V.|
|00001000| 27 00 0e 0d ee a6 c3 55 | 83 27 00 ef f0 0e 0d f1 |'......U|.'......|
|00001010| 5f 0e 0e a5 5c 22 88 82 | 27 00 0e 2d a7 ab 8b 0e |_...\"..|'..-....|
|00001020| 0e 0e 2d 56 ab 84 ef f2 | 21 88 0e 0c 9f 2e 0d 87 |..-V....|!.......|
|00001030| 22 20 5b 6e 6e 74 70 2d | 73 65 72 76 65 72 2d 62 |" [nntp-|server-b|
|00001040| 75 66 66 65 72 20 6e 69 | 6c 20 73 65 71 75 65 6e |uffer ni|l sequen|
|00001050| 63 65 20 30 20 72 65 66 | 65 72 65 6e 63 65 73 20 |ce 0 ref|erences |
|00001060| 64 61 74 65 20 6c 69 6e | 65 73 20 78 72 65 66 20 |date lin|es xref |
|00001070| 66 72 6f 6d 20 6d 65 73 | 73 61 67 65 2d 69 64 20 |from mes|sage-id |
|00001080| 73 75 62 6a 65 63 74 20 | 61 72 74 69 63 6c 65 20 |subject |article |
|00001090| 68 65 61 64 65 72 73 20 | 63 6f 75 6e 74 20 6e 75 |headers |count nu|
|000010a0| 6d 62 65 72 20 66 69 6c | 65 20 6d 68 73 70 6f 6f |mber fil|e mhspoo|
|000010b0| 6c 2d 63 75 72 72 65 6e | 74 2d 64 69 72 65 63 74 |l-curren|t-direct|
|000010c0| 6f 72 79 20 70 72 69 6e | 31 2d 74 6f 2d 73 74 72 |ory prin|1-to-str|
|000010d0| 69 6e 67 20 66 69 6c 65 | 2d 65 78 69 73 74 73 2d |ing file|-exists-|
|000010e0| 70 20 66 69 6c 65 2d 64 | 69 72 65 63 74 6f 72 79 |p file-d|irectory|
|000010f0| 2d 70 20 65 72 61 73 65 | 2d 62 75 66 66 65 72 20 |-p erase|-buffer |
|00001100| 69 6e 73 65 72 74 2d 66 | 69 6c 65 2d 63 6f 6e 74 |insert-f|ile-cont|
|00001110| 65 6e 74 73 20 6d 68 73 | 70 6f 6f 6c 2d 61 72 74 |ents mhs|pool-art|
|00001120| 69 63 6c 65 2d 68 65 61 | 64 65 72 2d 72 65 61 64 |icle-hea|der-read|
|00001130| 2d 73 69 7a 65 20 73 65 | 61 72 63 68 2d 66 6f 72 |-size se|arch-for|
|00001140| 77 61 72 64 20 22 5c 6e | 5c 6e 22 20 6d 6f 76 65 |ward "\n|\n" move|
|00001150| 20 72 65 2d 73 65 61 72 | 63 68 2d 66 6f 72 77 61 | re-sear|ch-forwa|
|00001160| 72 64 20 22 5c 5c 28 0d | 3f 5c 6e 5b 20 09 5d 2b |rd "\\(.|?\n[ .]+|
|00001170| 5c 5c 29 2b 22 20 74 20 | 72 65 70 6c 61 63 65 2d |\\)+" t |replace-|
|00001180| 6d 61 74 63 68 20 22 20 | 22 20 22 5c 6e 22 20 22 |match " |" "\n" "|
|00001190| 5c 6e 46 72 6f 6d 3a 20 | 22 20 22 28 55 6e 6b 6e |\nFrom: |" "(Unkn|
|000011a0| 6f 77 6e 20 55 73 65 72 | 29 22 20 22 5c 6e 53 75 |own User|)" "\nSu|
|000011b0| 62 6a 65 63 74 3a 20 22 | 20 22 28 4e 6f 6e 65 29 |bject: "| "(None)|
|000011c0| 22 20 22 5c 6e 4d 65 73 | 73 61 67 65 2d 49 44 3a |" "\nMes|sage-ID:|
|000011d0| 20 22 20 22 5c 6e 44 61 | 74 65 3a 20 22 20 22 5c | " "\nDa|te: " "\|
|000011e0| 6e 4c 69 6e 65 73 3a 20 | 22 20 73 74 72 69 6e 67 |nLines: |" string|
|000011f0| 2d 74 6f 2d 69 6e 74 20 | 63 6f 75 6e 74 2d 6c 69 |-to-int |count-li|
|00001200| 6e 65 73 20 22 5c 6e 58 | 72 65 66 3a 20 22 20 22 |nes "\nX|ref: " "|
|00001210| 5c 6e 52 65 66 65 72 65 | 6e 63 65 73 3a 20 22 20 |\nRefere|nces: " |
|00001220| 22 5c 6e 49 6e 2d 52 65 | 70 6c 79 2d 54 6f 3a 20 |"\nIn-Re|ply-To: |
|00001230| 22 20 76 65 63 74 6f 72 | 20 6e 6e 74 70 2d 6c 61 |" vector| nntp-la|
|00001240| 72 67 65 2d 6e 65 77 73 | 67 72 6f 75 70 20 32 30 |rge-news|group 20|
|00001250| 20 6d 65 73 73 61 67 65 | 20 22 4d 48 53 50 4f 4f | message| "MHSPOO|
|00001260| 4c 3a 20 52 65 63 65 69 | 76 69 6e 67 20 68 65 61 |L: Recei|ving hea|
|00001270| 64 65 72 73 2e 2e 2e 20 | 25 64 25 25 22 20 31 30 |ders... |%d%%" 10|
|00001280| 30 20 22 4d 48 53 50 4f | 4f 4c 3a 20 52 65 63 65 |0 "MHSPO|OL: Rece|
|00001290| 69 76 69 6e 67 20 68 65 | 61 64 65 72 73 2e 2e 2e |iving he|aders...|
|000012a0| 20 64 6f 6e 65 22 5d 20 | 31 32 20 22 5c 0a 41 20 | done"] |12 "\.A |
|000012b0| 6d 65 74 68 6f 64 20 66 | 6f 72 20 6d 68 73 70 6f |method f|or mhspo|
|000012c0| 6f 6c 2d 72 65 74 72 69 | 65 76 65 2d 68 65 61 64 |ol-retri|eve-head|
|000012d0| 65 72 73 20 74 68 61 74 | 20 6f 6e 6c 79 20 75 73 |ers that| only us|
|000012e0| 65 73 20 45 6d 61 63 73 | 20 4c 69 73 70 2e 22 5d |es Emacs| Lisp."]|
|000012f0| 29 0a 28 66 73 65 74 20 | 27 6d 68 73 70 6f 6f 6c |).(fset |'mhspool|
|00001300| 2d 6f 70 65 6e 2d 73 65 | 72 76 65 72 20 23 5b 28 |-open-se|rver #[(|
|00001310| 68 6f 73 74 20 26 6f 70 | 74 69 6f 6e 61 6c 20 73 |host &op|tional s|
|00001320| 65 72 76 69 63 65 29 20 | 22 08 ae 83 c1 c2 21 c3 |ervice) |".....!.|
|00001330| 1c 18 c5 c6 08 5c 22 ab | 95 c7 c8 08 c9 94 c9 95 |.....\".|........|
|00001340| 4f c8 ca c3 5c 22 5c 22 | 21 16 0b cc 20 10 aa 83 |O...\"\"|!... ...|
|00001350| c3 16 0b cd 16 0e 08 3b | ab 99 0e 0b 3b ab 94 cf |.......;|....;...|
|00001360| 0e 0b 21 ab 8e 08 cc 20 | 98 ab 88 d0 08 0e 11 5c |..!.... |.......\|
|00001370| 22 14 aa 9d 08 cc 20 98 | ab 89 d2 d3 0e 0b 5c 22 |"..... .|......\"|
|00001380| 16 0e aa 8e 08 ac 85 d4 | 16 0e aa 86 d2 d5 08 5c |........|.......\|
|00001390| 22 16 0e 0c 2a 87 22 20 | 5b 68 6f 73 74 20 67 65 |"...*." |[host ge|
|000013a0| 74 65 6e 76 20 22 4e 4e | 54 50 53 45 52 56 45 52 |tenv "NN|TPSERVER|
|000013b0| 22 20 6e 69 6c 20 73 74 | 61 74 75 73 20 73 74 72 |" nil st|atus str|
|000013c0| 69 6e 67 2d 6d 61 74 63 | 68 20 22 3a 5c 5c 28 2e |ing-matc|h ":\\(.|
|000013d0| 2b 5c 5c 29 24 22 20 66 | 69 6c 65 2d 6e 61 6d 65 |+\\)$" f|ile-name|
|000013e0| 2d 61 73 2d 64 69 72 65 | 63 74 6f 72 79 20 65 78 |-as-dire|ctory ex|
|000013f0| 70 61 6e 64 2d 66 69 6c | 65 2d 6e 61 6d 65 20 31 |pand-fil|e-name 1|
|00001400| 20 22 7e 2f 22 20 6d 68 | 73 70 6f 6f 6c 2d 73 70 | "~/" mh|spool-sp|
|00001410| 6f 6f 6c 2d 64 69 72 65 | 63 74 6f 72 79 20 73 79 |ool-dire|ctory sy|
|00001420| 73 74 65 6d 2d 6e 61 6d | 65 20 22 22 20 6e 6e 74 |stem-nam|e "" nnt|
|00001430| 70 2d 73 74 61 74 75 73 | 2d 73 74 72 69 6e 67 20 |p-status|-string |
|00001440| 66 69 6c 65 2d 64 69 72 | 65 63 74 6f 72 79 2d 70 |file-dir|ectory-p|
|00001450| 20 6d 68 73 70 6f 6f 6c | 2d 6f 70 65 6e 2d 73 65 | mhspool|-open-se|
|00001460| 72 76 65 72 2d 69 6e 74 | 65 72 6e 61 6c 20 73 65 |rver-int|ernal se|
|00001470| 72 76 69 63 65 20 66 6f | 72 6d 61 74 20 22 4e 6f |rvice fo|rmat "No|
|00001480| 20 73 75 63 68 20 64 69 | 72 65 63 74 6f 72 79 3a | such di|rectory:|
|00001490| 20 25 73 2e 20 20 47 6f | 6f 64 62 79 65 2e 22 20 | %s.  Go|odbye." |
|000014a0| 22 4e 4e 54 50 20 73 65 | 72 76 65 72 20 69 73 20 |"NNTP se|rver is |
|000014b0| 6e 6f 74 20 73 70 65 63 | 69 66 69 65 64 2e 22 20 |not spec|ified." |
|000014c0| 22 4d 48 53 50 4f 4f 4c | 3a 20 63 61 6e 6e 6f 74 |"MHSPOOL|: cannot|
|000014d0| 20 74 61 6c 6b 20 74 6f | 20 25 73 2e 22 5d 20 36 | talk to| %s."] 6|
|000014e0| 20 22 5c 0a 4f 70 65 6e | 20 6e 65 77 73 20 73 65 | "\.Open| news se|
|000014f0| 72 76 65 72 20 6f 6e 20 | 48 4f 53 54 2e 0a 49 66 |rver on |HOST..If|
|00001500| 20 48 4f 53 54 20 69 73 | 20 6e 69 6c 2c 20 75 73 | HOST is| nil, us|
|00001510| 65 20 76 61 6c 75 65 20 | 6f 66 20 65 6e 76 69 72 |e value |of envir|
|00001520| 6f 6e 6d 65 6e 74 20 76 | 61 72 69 61 62 6c 65 20 |onment v|ariable |
|00001530| 60 4e 4e 54 50 53 45 52 | 56 45 52 27 2e 0a 49 66 |`NNTPSER|VER'..If|
|00001540| 20 6f 70 74 69 6f 6e 61 | 6c 20 61 72 67 75 6d 65 | optiona|l argume|
|00001550| 6e 74 20 53 45 52 56 49 | 43 45 20 69 73 20 6e 6f |nt SERVI|CE is no|
|00001560| 6e 2d 6e 69 6c 2c 20 6f | 70 65 6e 20 62 79 20 74 |n-nil, o|pen by t|
|00001570| 68 65 20 73 65 72 76 69 | 63 65 20 6e 61 6d 65 2e |he servi|ce name.|
|00001580| 22 5d 29 0a 28 66 73 65 | 74 20 27 6d 68 73 70 6f |"]).(fse|t 'mhspo|
|00001590| 6f 6c 2d 63 6c 6f 73 65 | 2d 73 65 72 76 65 72 20 |ol-close|-server |
|000015a0| 23 5b 6e 69 6c 20 22 c0 | 20 87 22 20 5b 6d 68 73 |#[nil ".| ." [mhs|
|000015b0| 70 6f 6f 6c 2d 63 6c 6f | 73 65 2d 73 65 72 76 65 |pool-clo|se-serve|
|000015c0| 72 2d 69 6e 74 65 72 6e | 61 6c 5d 20 31 20 22 5c |r-intern|al] 1 "\|
|000015d0| 0a 43 6c 6f 73 65 20 6e | 65 77 73 20 73 65 72 76 |.Close n|ews serv|
|000015e0| 65 72 2e 22 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 |er."]).(|byte-cod|
|000015f0| 65 20 22 c0 c1 4b 4d 87 | 22 20 5b 6d 68 73 70 6f |e "..KM.|" [mhspo|
|00001600| 6f 6c 2d 72 65 71 75 65 | 73 74 2d 71 75 69 74 20 |ol-reque|st-quit |
|00001610| 6d 68 73 70 6f 6f 6c 2d | 63 6c 6f 73 65 2d 73 65 |mhspool-|close-se|
|00001620| 72 76 65 72 5d 20 32 29 | 0a 28 66 73 65 74 20 27 |rver] 2)|.(fset '|
|00001630| 6d 68 73 70 6f 6f 6c 2d | 73 65 72 76 65 72 2d 6f |mhspool-|server-o|
|00001640| 70 65 6e 65 64 20 23 5b | 6e 69 6c 20 22 08 ad 83 |pened #[|nil "...|
|00001650| c1 08 21 87 22 20 5b 6e | 6e 74 70 2d 73 65 72 76 |..!." [n|ntp-serv|
|00001660| 65 72 2d 62 75 66 66 65 | 72 20 67 65 74 2d 62 75 |er-buffe|r get-bu|
|00001670| 66 66 65 72 5d 20 32 20 | 22 5c 0a 52 65 74 75 72 |ffer] 2 |"\.Retur|
|00001680| 6e 20 73 65 72 76 65 72 | 20 70 72 6f 63 65 73 73 |n server| process|
|00001690| 20 73 74 61 74 75 73 2c | 20 54 20 6f 72 20 4e 49 | status,| T or NI|
|000016a0| 4c 2e 0a 49 66 20 74 68 | 65 20 73 74 72 65 61 6d |L..If th|e stream|
|000016b0| 20 69 73 20 6f 70 65 6e | 65 64 2c 20 72 65 74 75 | is open|ed, retu|
|000016c0| 72 6e 20 54 2c 20 6f 74 | 68 65 72 77 69 73 65 20 |rn T, ot|herwise |
|000016d0| 72 65 74 75 72 6e 20 4e | 49 4c 2e 22 5d 29 0a 28 |return N|IL."]).(|
|000016e0| 64 65 66 75 6e 20 6d 68 | 73 70 6f 6f 6c 2d 73 74 |defun mh|spool-st|
|000016f0| 61 74 75 73 2d 6d 65 73 | 73 61 67 65 20 6e 69 6c |atus-mes|sage nil|
|00001700| 20 22 5c 0a 52 65 74 75 | 72 6e 20 73 65 72 76 65 | "\.Retu|rn serve|
|00001710| 72 20 73 74 61 74 75 73 | 20 72 65 73 70 6f 6e 73 |r status| respons|
|00001720| 65 20 61 73 20 73 74 72 | 69 6e 67 2e 22 20 6e 6e |e as str|ing." nn|
|00001730| 74 70 2d 73 74 61 74 75 | 73 2d 73 74 72 69 6e 67 |tp-statu|s-string|
|00001740| 29 0a 28 66 73 65 74 20 | 27 6d 68 73 70 6f 6f 6c |).(fset |'mhspool|
|00001750| 2d 72 65 71 75 65 73 74 | 2d 61 72 74 69 63 6c 65 |-request|-article|
|00001760| 20 23 5b 28 69 64 29 20 | 22 08 c1 5c 6e 21 50 89 | #[(id) |"..\n!P.|
|00001770| 1b 3b ad 90 c4 0b 21 ad | 8b c5 0b 21 3f ad 85 8a |.;....!.|...!?...|
|00001780| c6 0b 21 29 29 87 22 20 | 5b 6d 68 73 70 6f 6f 6c |..!))." |[mhspool|
|00001790| 2d 63 75 72 72 65 6e 74 | 2d 64 69 72 65 63 74 6f |-current|-directo|
|000017a0| 72 79 20 70 72 69 6e 31 | 2d 74 6f 2d 73 74 72 69 |ry prin1|-to-stri|
|000017b0| 6e 67 20 69 64 20 66 69 | 6c 65 20 66 69 6c 65 2d |ng id fi|le file-|
|000017c0| 65 78 69 73 74 73 2d 70 | 20 66 69 6c 65 2d 64 69 |exists-p| file-di|
|000017d0| 72 65 63 74 6f 72 79 2d | 70 20 6d 68 73 70 6f 6f |rectory-|p mhspoo|
|000017e0| 6c 2d 66 69 6e 64 2d 66 | 69 6c 65 5d 20 34 20 22 |l-find-f|ile] 4 "|
|000017f0| 5c 0a 53 65 6c 65 63 74 | 20 61 72 74 69 63 6c 65 |\.Select| article|
|00001800| 20 62 79 20 6d 65 73 73 | 61 67 65 20 49 44 20 28 | by mess|age ID (|
|00001810| 6f 72 20 6e 75 6d 62 65 | 72 29 2e 22 5d 29 0a 28 |or numbe|r)."]).(|
|00001820| 66 73 65 74 20 27 6d 68 | 73 70 6f 6f 6c 2d 72 65 |fset 'mh|spool-re|
|00001830| 71 75 65 73 74 2d 62 6f | 64 79 20 23 5b 28 69 64 |quest-bo|dy #[(id|
|00001840| 29 20 22 c0 09 21 ad 94 | 8a 5c 6e 71 88 65 62 88 |) "..!..|.\nq.eb.|
|00001850| c3 c4 c5 c6 23 ab 84 65 | 60 7c 88 29 c6 87 22 20 |....#..e|`|.).." |
|00001860| 5b 6d 68 73 70 6f 6f 6c | 2d 72 65 71 75 65 73 74 |[mhspool|-request|
|00001870| 2d 61 72 74 69 63 6c 65 | 20 69 64 20 6e 6e 74 70 |-article| id nntp|
|00001880| 2d 73 65 72 76 65 72 2d | 62 75 66 66 65 72 20 73 |-server-|buffer s|
|00001890| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 22 5c |earch-fo|rward "\|
|000018a0| 6e 5c 6e 22 20 6e 69 6c | 20 74 5d 20 34 20 22 5c |n\n" nil| t] 4 "\|
|000018b0| 0a 53 65 6c 65 63 74 20 | 61 72 74 69 63 6c 65 20 |.Select |article |
|000018c0| 62 6f 64 79 20 62 79 20 | 6d 65 73 73 61 67 65 20 |body by |message |
|000018d0| 49 44 20 28 6f 72 20 6e | 75 6d 62 65 72 29 2e 22 |ID (or n|umber)."|
|000018e0| 5d 29 0a 28 66 73 65 74 | 20 27 6d 68 73 70 6f 6f |]).(fset| 'mhspoo|
|000018f0| 6c 2d 72 65 71 75 65 73 | 74 2d 68 65 61 64 20 23 |l-reques|t-head #|
|00001900| 5b 28 69 64 29 20 22 c0 | 09 21 ad 95 8a 5c 6e 71 |[(id) ".|.!...\nq|
|00001910| 88 65 62 88 c3 c4 c5 c6 | 23 ab 85 60 53 64 7c 88 |.eb.....|#..`Sd|.|
|00001920| 29 c6 87 22 20 5b 6d 68 | 73 70 6f 6f 6c 2d 72 65 |).." [mh|spool-re|
|00001930| 71 75 65 73 74 2d 61 72 | 74 69 63 6c 65 20 69 64 |quest-ar|ticle id|
|00001940| 20 6e 6e 74 70 2d 73 65 | 72 76 65 72 2d 62 75 66 | nntp-se|rver-buf|
|00001950| 66 65 72 20 73 65 61 72 | 63 68 2d 66 6f 72 77 61 |fer sear|ch-forwa|
|00001960| 72 64 20 22 5c 6e 5c 6e | 22 20 6e 69 6c 20 74 5d |rd "\n\n|" nil t]|
|00001970| 20 34 20 22 5c 0a 53 65 | 6c 65 63 74 20 61 72 74 | 4 "\.Se|lect art|
|00001980| 69 63 6c 65 20 68 65 61 | 64 20 62 79 20 6d 65 73 |icle hea|d by mes|
|00001990| 73 61 67 65 20 49 44 20 | 28 6f 72 20 6e 75 6d 62 |sage ID |(or numb|
|000019a0| 65 72 29 2e 22 5d 29 0a | 28 66 73 65 74 20 27 6d |er)."]).|(fset 'm|
|000019b0| 68 73 70 6f 6f 6c 2d 72 | 65 71 75 65 73 74 2d 73 |hspool-r|equest-s|
|000019c0| 74 61 74 20 23 5b 28 69 | 64 29 20 22 c0 11 c2 87 |tat #[(i|d) "....|
|000019d0| 22 20 5b 22 4d 48 53 50 | 4f 4f 4c 3a 20 53 54 41 |" ["MHSP|OOL: STA|
|000019e0| 54 20 69 73 20 6e 6f 74 | 20 69 6d 70 6c 65 6d 65 |T is not| impleme|
|000019f0| 6e 74 65 64 2e 22 20 6e | 6e 74 70 2d 73 74 61 74 |nted." n|ntp-stat|
|00001a00| 75 73 2d 73 74 72 69 6e | 67 20 6e 69 6c 5d 20 31 |us-strin|g nil] 1|
|00001a10| 20 22 5c 0a 53 65 6c 65 | 63 74 20 61 72 74 69 63 | "\.Sele|ct artic|
|00001a20| 6c 65 20 62 79 20 6d 65 | 73 73 61 67 65 20 49 44 |le by me|ssage ID|
|00001a30| 20 28 6f 72 20 6e 75 6d | 62 65 72 29 2e 22 5d 29 | (or num|ber)."])|
|00001a40| 0a 28 66 73 65 74 20 27 | 6d 68 73 70 6f 6f 6c 2d |.(fset '|mhspool-|
|00001a50| 72 65 71 75 65 73 74 2d | 67 72 6f 75 70 20 23 5b |request-|group #[|
|00001a60| 28 67 72 6f 75 70 29 20 | 22 c0 c1 5c 6e 21 21 ab |(group) |"..\n!!.|
|00001a70| 86 c1 5c 6e 21 89 13 87 | c0 c1 c4 5c 6e c5 c6 23 |..\n!...|...\n..#|
|00001a80| 21 21 ad 89 c1 c4 5c 6e | c5 c6 23 21 89 13 87 22 |!!....\n|..#!..."|
|00001a90| 20 5b 66 69 6c 65 2d 64 | 69 72 65 63 74 6f 72 79 | [file-d|irectory|
|00001aa0| 2d 70 20 6d 68 73 70 6f | 6f 6c 2d 61 72 74 69 63 |-p mhspo|ol-artic|
|00001ab0| 6c 65 2d 70 61 74 68 6e | 61 6d 65 20 67 72 6f 75 |le-pathn|ame grou|
|00001ac0| 70 20 6d 68 73 70 6f 6f | 6c 2d 63 75 72 72 65 6e |p mhspoo|l-curren|
|00001ad0| 74 2d 64 69 72 65 63 74 | 6f 72 79 20 6d 68 73 70 |t-direct|ory mhsp|
|00001ae0| 6f 6f 6c 2d 72 65 70 6c | 61 63 65 2d 63 68 61 72 |ool-repl|ace-char|
|00001af0| 73 2d 69 6e 2d 73 74 72 | 69 6e 67 20 34 36 20 34 |s-in-str|ing 46 4|
|00001b00| 37 5d 20 36 20 22 5c 0a | 53 65 6c 65 63 74 20 6e |7] 6 "\.|Select n|
|00001b10| 65 77 73 20 47 52 4f 55 | 50 2e 22 5d 29 0a 28 66 |ews GROU|P."]).(f|
|00001b20| 73 65 74 20 27 6d 68 73 | 70 6f 6f 6c 2d 72 65 71 |set 'mhs|pool-req|
|00001b30| 75 65 73 74 2d 6c 69 73 | 74 20 23 5b 6e 69 6c 20 |uest-lis|t #[nil |
|00001b40| 22 8a c0 19 c0 1a c3 c4 | 0d c0 5c 22 21 1e 06 c7 |".......|..\"!...|
|00001b50| c8 0e 06 21 c9 51 1e 5c | 6e cb cc 21 1e 0d 0e 0e |...!.Q.\|n..!....|
|00001b60| 71 88 cf 20 88 0e 0d 71 | 88 cf 20 88 0e 10 0e 06 |q.. ...q|.. .....|
|00001b70| 21 88 65 62 88 d1 0e 5c | 6e c0 d2 23 ab c1 d3 d4 |!.eb...\|n..#....|
|00001b80| 94 d4 95 7b d5 d6 23 11 | c0 12 d4 79 88 6d ac 99 |...{..#.|...y.m..|
|00001b90| d7 d8 21 ac 94 d7 d9 21 | ab 8a da db 94 db 95 7b |..!....!|.......{|
|00001ba0| 21 5c 6e 42 12 d4 79 88 | aa 64 5c 6e ab 4a dc dd |!\nB..y.|.d\n.J..|
|00001bb0| de 09 df e0 5c 6e 5c 22 | df e1 5c 6e 5c 22 24 0e |....\n\"|..\n\"$.|
|00001bc0| 0e 5c 22 88 aa 37 e2 0e | 0d 21 88 0e 0e 71 88 e3 |.\"..7..|.!...q..|
|00001bd0| 20 2e 06 87 22 20 5b 6e | 69 6c 20 6e 65 77 73 67 | ..." [n|il newsg|
|00001be0| 72 6f 75 70 20 61 72 74 | 69 63 6c 65 73 20 66 69 |roup art|icles fi|
|00001bf0| 6c 65 2d 6e 61 6d 65 2d | 61 73 2d 64 69 72 65 63 |le-name-|as-direc|
|00001c00| 74 6f 72 79 20 65 78 70 | 61 6e 64 2d 66 69 6c 65 |tory exp|and-file|
|00001c10| 2d 6e 61 6d 65 20 6d 68 | 73 70 6f 6f 6c 2d 73 70 |-name mh|spool-sp|
|00001c20| 6f 6f 6c 2d 64 69 72 65 | 63 74 6f 72 79 20 64 69 |ool-dire|ctory di|
|00001c30| 72 65 63 74 6f 72 79 20 | 22 5e 22 20 72 65 67 65 |rectory |"^" rege|
|00001c40| 78 70 2d 71 75 6f 74 65 | 20 22 5c 5c 28 2e 2b 5c |xp-quote| "\\(.+\|
|00001c50| 5c 29 3a 24 22 20 66 6f | 6c 64 65 72 2d 72 65 67 |\):$" fo|lder-reg|
|00001c60| 65 78 70 20 67 65 74 2d | 62 75 66 66 65 72 2d 63 |exp get-|buffer-c|
|00001c70| 72 65 61 74 65 20 22 20 | 2a 4d 48 53 50 4f 4f 4c |reate " |*MHSPOOL|
|00001c80| 20 46 69 6c 65 20 4c 69 | 73 74 2a 22 20 62 75 66 | File Li|st*" buf|
|00001c90| 66 65 72 20 6e 6e 74 70 | 2d 73 65 72 76 65 72 2d |fer nntp|-server-|
|00001ca0| 62 75 66 66 65 72 20 65 | 72 61 73 65 2d 62 75 66 |buffer e|rase-buf|
|00001cb0| 66 65 72 20 6d 68 73 70 | 6f 6f 6c 2d 6c 69 73 74 |fer mhsp|ool-list|
|00001cc0| 2d 66 6f 6c 64 65 72 73 | 2d 6d 65 74 68 6f 64 20 |-folders|-method |
|00001cd0| 72 65 2d 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |re-searc|h-forwar|
|00001ce0| 64 20 74 20 6d 68 73 70 | 6f 6f 6c 2d 72 65 70 6c |d t mhsp|ool-repl|
|00001cf0| 61 63 65 2d 63 68 61 72 | 73 2d 69 6e 2d 73 74 72 |ace-char|s-in-str|
|00001d00| 69 6e 67 20 31 20 34 37 | 20 34 36 20 6c 6f 6f 6b |ing 1 47| 46 look|
|00001d10| 69 6e 67 2d 61 74 20 22 | 5e 24 22 20 22 5e 5b 30 |ing-at "|^$" "^[0|
|00001d20| 2d 39 5d 2b 24 22 20 73 | 74 72 69 6e 67 2d 74 6f |-9]+$" s|tring-to|
|00001d30| 2d 69 6e 74 20 30 20 70 | 72 69 6e 63 20 66 6f 72 |-int 0 p|rinc for|
|00001d40| 6d 61 74 20 22 25 73 20 | 25 64 20 25 64 20 6e 5c |mat "%s |%d %d n\|
|00001d50| 6e 22 20 61 70 70 6c 79 | 20 6d 61 78 20 6d 69 6e |n" apply| max min|
|00001d60| 20 6b 69 6c 6c 2d 62 75 | 66 66 65 72 20 62 75 66 | kill-bu|ffer buf|
|00001d70| 66 65 72 2d 73 69 7a 65 | 5d 20 38 20 22 5c 0a 4c |fer-size|] 8 "\.L|
|00001d80| 69 73 74 20 61 63 74 69 | 76 65 20 6e 65 77 73 67 |ist acti|ve newsg|
|00001d90| 6f 75 70 73 2e 22 5d 29 | 0a 28 66 73 65 74 20 27 |oups."])|.(fset '|
|00001da0| 6d 68 73 70 6f 6f 6c 2d | 72 65 71 75 65 73 74 2d |mhspool-|request-|
|00001db0| 6c 69 73 74 2d 6e 65 77 | 73 67 72 6f 75 70 73 20 |list-new|sgroups |
|00001dc0| 23 5b 6e 69 6c 20 22 c0 | 11 c2 87 22 20 5b 22 4d |#[nil ".|..." ["M|
|00001dd0| 48 53 50 4f 4f 4c 3a 20 | 4c 49 53 54 20 4e 45 57 |HSPOOL: |LIST NEW|
|00001de0| 53 47 52 4f 55 50 53 20 | 69 73 20 6e 6f 74 20 69 |SGROUPS |is not i|
|00001df0| 6d 70 6c 65 6d 65 6e 74 | 65 64 2e 22 20 6e 6e 74 |mplement|ed." nnt|
|00001e00| 70 2d 73 74 61 74 75 73 | 2d 73 74 72 69 6e 67 20 |p-status|-string |
|00001e10| 6e 69 6c 5d 20 31 20 22 | 5c 0a 4c 69 73 74 20 6e |nil] 1 "|\.List n|
|00001e20| 65 77 73 67 6f 75 70 73 | 20 28 64 65 66 69 6e 65 |ewsgoups| (define|
|00001e30| 64 20 69 6e 20 4e 4e 54 | 50 32 29 2e 22 5d 29 0a |d in NNT|P2)."]).|
|00001e40| 28 66 73 65 74 20 27 6d | 68 73 70 6f 6f 6c 2d 72 |(fset 'm|hspool-r|
|00001e50| 65 71 75 65 73 74 2d 6c | 69 73 74 2d 64 69 73 74 |equest-l|ist-dist|
|00001e60| 72 69 62 75 74 69 6f 6e | 73 20 23 5b 6e 69 6c 20 |ribution|s #[nil |
|00001e70| 22 c0 11 c2 87 22 20 5b | 22 4d 48 53 50 4f 4f 4c |"...." [|"MHSPOOL|
|00001e80| 3a 20 4c 49 53 54 20 44 | 49 53 54 52 49 42 55 54 |: LIST D|ISTRIBUT|
|00001e90| 49 4f 4e 53 20 69 73 20 | 6e 6f 74 20 69 6d 70 6c |IONS is |not impl|
|00001ea0| 65 6d 65 6e 74 65 64 2e | 22 20 6e 6e 74 70 2d 73 |emented.|" nntp-s|
|00001eb0| 74 61 74 75 73 2d 73 74 | 72 69 6e 67 20 6e 69 6c |tatus-st|ring nil|
|00001ec0| 5d 20 31 20 22 5c 0a 4c | 69 73 74 20 64 69 73 74 |] 1 "\.L|ist dist|
|00001ed0| 72 69 62 75 74 69 6f 6e | 73 20 28 64 65 66 69 6e |ribution|s (defin|
|00001ee0| 65 64 20 69 6e 20 4e 4e | 54 50 32 29 2e 22 5d 29 |ed in NN|TP2)."])|
|00001ef0| 0a 28 66 73 65 74 20 27 | 6d 68 73 70 6f 6f 6c 2d |.(fset '|mhspool-|
|00001f00| 72 65 71 75 65 73 74 2d | 6c 61 73 74 20 23 5b 6e |request-|last #[n|
|00001f10| 69 6c 20 22 c0 11 c2 87 | 22 20 5b 22 4d 48 53 50 |il "....|" ["MHSP|
|00001f20| 4f 4f 4c 3a 20 4c 41 53 | 54 20 69 73 20 6e 6f 74 |OOL: LAS|T is not|
|00001f30| 20 69 6d 70 6c 65 6d 65 | 6e 74 65 64 2e 22 20 6e | impleme|nted." n|
|00001f40| 6e 74 70 2d 73 74 61 74 | 75 73 2d 73 74 72 69 6e |ntp-stat|us-strin|
|00001f50| 67 20 6e 69 6c 5d 20 31 | 20 22 5c 0a 53 65 74 20 |g nil] 1| "\.Set |
|00001f60| 63 75 72 72 65 6e 74 20 | 61 72 74 69 63 6c 65 20 |current |article |
|00001f70| 70 6f 69 6e 74 65 72 20 | 74 6f 20 74 68 65 20 70 |pointer |to the p|
|00001f80| 72 65 76 69 6f 75 73 20 | 61 72 74 69 63 6c 65 0a |revious |article.|
|00001f90| 69 6e 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 6e |in the c|urrent n|
|00001fa0| 65 77 73 20 67 72 6f 75 | 70 2e 22 5d 29 0a 28 66 |ews grou|p."]).(f|
|00001fb0| 73 65 74 20 27 6d 68 73 | 70 6f 6f 6c 2d 72 65 71 |set 'mhs|pool-req|
|00001fc0| 75 65 73 74 2d 6e 65 78 | 74 20 23 5b 6e 69 6c 20 |uest-nex|t #[nil |
|00001fd0| 22 c0 11 c2 87 22 20 5b | 22 4d 48 53 50 4f 4f 4c |"...." [|"MHSPOOL|
|00001fe0| 3a 20 4e 45 58 54 20 69 | 73 20 6e 6f 74 20 69 6d |: NEXT i|s not im|
|00001ff0| 70 6c 65 6d 65 6e 74 65 | 64 2e 22 20 6e 6e 74 70 |plemente|d." nntp|
|00002000| 2d 73 74 61 74 75 73 2d | 73 74 72 69 6e 67 20 6e |-status-|string n|
|00002010| 69 6c 5d 20 31 20 22 5c | 0a 41 64 76 61 6e 63 65 |il] 1 "\|.Advance|
|00002020| 20 63 75 72 72 65 6e 74 | 20 61 72 74 69 63 6c 65 | current| article|
|00002030| 20 70 6f 69 6e 74 65 72 | 2e 22 5d 29 0a 28 66 73 | pointer|."]).(fs|
|00002040| 65 74 20 27 6d 68 73 70 | 6f 6f 6c 2d 72 65 71 75 |et 'mhsp|ool-requ|
|00002050| 65 73 74 2d 70 6f 73 74 | 20 23 5b 6e 69 6c 20 22 |est-post| #[nil "|
|00002060| c0 11 c2 87 22 20 5b 22 | 4d 48 53 50 4f 4f 4c 3a |...." ["|MHSPOOL:|
|00002070| 20 50 4f 53 54 3a 20 77 | 68 61 74 20 64 6f 20 79 | POST: w|hat do y|
|00002080| 6f 75 20 6d 65 61 6e 3f | 22 20 6e 6e 74 70 2d 73 |ou mean?|" nntp-s|
|00002090| 74 61 74 75 73 2d 73 74 | 72 69 6e 67 20 6e 69 6c |tatus-st|ring nil|
|000020a0| 5d 20 31 20 22 5c 0a 50 | 6f 73 74 20 61 20 6e 65 |] 1 "\.P|ost a ne|
|000020b0| 77 20 6e 65 77 73 20 69 | 6e 20 63 75 72 72 65 6e |w news i|n curren|
|000020c0| 74 20 62 75 66 66 65 72 | 2e 22 5d 29 0a 28 66 73 |t buffer|."]).(fs|
|000020d0| 65 74 20 27 6d 68 73 70 | 6f 6f 6c 2d 6f 70 65 6e |et 'mhsp|ool-open|
|000020e0| 2d 73 65 72 76 65 72 2d | 69 6e 74 65 72 6e 61 6c |-server-|internal|
|000020f0| 20 23 5b 28 68 6f 73 74 | 20 26 6f 70 74 69 6f 6e | #[(host| &option|
|00002100| 61 6c 20 73 65 72 76 69 | 63 65 29 20 22 8a 08 c1 |al servi|ce) "...|
|00002110| 20 98 ac 85 c2 c3 08 5c | 22 88 c4 c5 21 89 16 06 | ......\|"...!...|
|00002120| 71 88 c7 70 21 88 c8 20 | 88 c9 20 88 ca 16 0b cc |q..p!.. |.. .....|
|00002130| cd 21 ab 83 ce 16 0d 08 | 16 0f d0 d1 21 88 29 ca |.!......|....!.).|
|00002140| 87 22 20 5b 68 6f 73 74 | 20 73 79 73 74 65 6d 2d |." [host| system-|
|00002150| 6e 61 6d 65 20 65 72 72 | 6f 72 20 22 4d 48 53 50 |name err|or "MHSP|
|00002160| 4f 4f 4c 3a 20 63 61 6e | 6e 6f 74 20 74 61 6c 6b |OOL: can|not talk|
|00002170| 20 74 6f 20 25 73 2e 22 | 20 67 65 74 2d 62 75 66 | to %s."| get-buf|
|00002180| 66 65 72 2d 63 72 65 61 | 74 65 20 22 20 2a 6e 6e |fer-crea|te " *nn|
|00002190| 74 70 64 2a 22 20 6e 6e | 74 70 2d 73 65 72 76 65 |tpd*" nn|tp-serve|
|000021a0| 72 2d 62 75 66 66 65 72 | 20 62 75 66 66 65 72 2d |r-buffer| buffer-|
|000021b0| 64 69 73 61 62 6c 65 2d | 75 6e 64 6f 20 65 72 61 |disable-|undo era|
|000021c0| 73 65 2d 62 75 66 66 65 | 72 20 6b 69 6c 6c 2d 61 |se-buffe|r kill-a|
|000021d0| 6c 6c 2d 6c 6f 63 61 6c | 2d 76 61 72 69 61 62 6c |ll-local|-variabl|
|000021e0| 65 73 20 74 20 63 61 73 | 65 2d 66 6f 6c 64 2d 73 |es t cas|e-fold-s|
|000021f0| 65 61 72 63 68 20 62 6f | 75 6e 64 70 20 6e 6e 74 |earch bo|undp nnt|
|00002200| 70 2d 73 65 72 76 65 72 | 2d 70 72 6f 63 65 73 73 |p-server|-process|
|00002210| 20 6e 69 6c 20 6e 6e 74 | 70 2d 73 65 72 76 65 72 | nil nnt|p-server|
|00002220| 2d 6e 61 6d 65 20 72 75 | 6e 2d 68 6f 6f 6b 73 20 |-name ru|n-hooks |
|00002230| 6e 6e 74 70 2d 73 65 72 | 76 65 72 2d 68 6f 6f 6b |nntp-ser|ver-hook|
|00002240| 5d 20 34 20 22 5c 0a 4f | 70 65 6e 20 63 6f 6e 6e |] 4 "\.O|pen conn|
|00002250| 65 63 74 69 6f 6e 20 74 | 6f 20 6e 65 77 73 20 73 |ection t|o news s|
|00002260| 65 72 76 65 72 20 6f 6e | 20 48 4f 53 54 20 62 79 |erver on| HOST by|
|00002270| 20 53 45 52 56 49 43 45 | 20 28 64 65 66 61 75 6c | SERVICE| (defaul|
|00002280| 74 20 69 73 20 6e 6e 74 | 70 29 2e 22 5d 29 0a 28 |t is nnt|p)."]).(|
|00002290| 66 73 65 74 20 27 6d 68 | 73 70 6f 6f 6c 2d 63 6c |fset 'mh|spool-cl|
|000022a0| 6f 73 65 2d 73 65 72 76 | 65 72 2d 69 6e 74 65 72 |ose-serv|er-inter|
|000022b0| 6e 61 6c 20 23 5b 6e 69 | 6c 20 22 08 ab 84 c1 08 |nal #[ni|l ".....|
|000022c0| 21 88 c2 10 c3 c4 21 ad | 83 c2 89 14 87 22 20 5b |!.....!.|....." [|
|000022d0| 6e 6e 74 70 2d 73 65 72 | 76 65 72 2d 62 75 66 66 |nntp-ser|ver-buff|
|000022e0| 65 72 20 6b 69 6c 6c 2d | 62 75 66 66 65 72 20 6e |er kill-|buffer n|
|000022f0| 69 6c 20 62 6f 75 6e 64 | 70 20 6e 6e 74 70 2d 73 |il bound|p nntp-s|
|00002300| 65 72 76 65 72 2d 70 72 | 6f 63 65 73 73 5d 20 32 |erver-pr|ocess] 2|
|00002310| 20 22 5c 0a 43 6c 6f 73 | 65 20 63 6f 6e 6e 65 63 | "\.Clos|e connec|
|00002320| 74 69 6f 6e 20 74 6f 20 | 6e 65 77 73 20 73 65 72 |tion to |news ser|
|00002330| 76 65 72 2e 22 5d 29 0a | 28 66 73 65 74 20 27 6d |ver."]).|(fset 'm|
|00002340| 68 73 70 6f 6f 6c 2d 66 | 69 6e 64 2d 66 69 6c 65 |hspool-f|ind-file|
|00002350| 20 23 5b 28 66 69 6c 65 | 29 20 22 08 71 88 c1 20 | #[(file|) ".q.. |
|00002360| 88 c2 c3 c4 8f 87 22 20 | 5b 6e 6e 74 70 2d 73 65 |......" |[nntp-se|
|00002370| 72 76 65 72 2d 62 75 66 | 66 65 72 20 65 72 61 73 |rver-buf|fer eras|
|00002380| 65 2d 62 75 66 66 65 72 | 20 6e 69 6c 20 28 62 79 |e-buffer| nil (by|
|00002390| 74 65 2d 63 6f 64 65 20 | 22 c0 09 21 88 65 62 88 |te-code |"..!.eb.|
|000023a0| c2 c3 c4 c5 23 ab 8b 60 | 64 7b c6 98 ab 84 c7 c8 |....#..`|d{......|
|000023b0| 21 88 c5 87 22 20 5b 69 | 6e 73 65 72 74 2d 66 69 |!..." [i|nsert-fi|
|000023c0| 6c 65 2d 63 6f 6e 74 65 | 6e 74 73 20 66 69 6c 65 |le-conte|nts file|
|000023d0| 20 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 | search-|forward |
|000023e0| 22 5c 6e 5c 6e 22 20 6e | 69 6c 20 74 20 22 0c 22 |"\n\n" n|il t "."|
|000023f0| 20 64 65 6c 65 74 65 2d | 63 68 61 72 20 31 5d 20 | delete-|char 1] |
|00002400| 34 29 20 28 28 66 69 6c | 65 2d 65 72 72 6f 72 29 |4) ((fil|e-error)|
|00002410| 29 5d 20 33 20 22 5c 0a | 49 6e 73 65 72 74 20 46 |)] 3 "\.|Insert F|
|00002420| 49 4c 45 20 69 6e 20 73 | 65 72 76 65 72 20 62 75 |ILE in s|erver bu|
|00002430| 66 66 65 72 20 73 61 66 | 65 6c 79 2e 22 5d 29 0a |ffer saf|ely."]).|
|00002440| 28 66 73 65 74 20 27 6d | 68 73 70 6f 6f 6c 2d 61 |(fset 'm|hspool-a|
|00002450| 72 74 69 63 6c 65 2d 70 | 61 74 68 6e 61 6d 65 20 |rticle-p|athname |
|00002460| 23 5b 28 67 72 6f 75 70 | 29 20 22 c0 09 21 5c 6e |#[(group|) "..!\n|
|00002470| c3 51 87 22 20 5b 66 69 | 6c 65 2d 6e 61 6d 65 2d |.Q." [fi|le-name-|
|00002480| 61 73 2d 64 69 72 65 63 | 74 6f 72 79 20 6d 68 73 |as-direc|tory mhs|
|00002490| 70 6f 6f 6c 2d 73 70 6f | 6f 6c 2d 64 69 72 65 63 |pool-spo|ol-direc|
|000024a0| 74 6f 72 79 20 67 72 6f | 75 70 20 22 2f 22 5d 20 |tory gro|up "/"] |
|000024b0| 33 20 22 5c 0a 4d 61 6b | 65 20 70 61 74 68 6e 61 |3 "\.Mak|e pathna|
|000024c0| 6d 65 20 66 6f 72 20 47 | 52 4f 55 50 2e 22 5d 29 |me for G|ROUP."])|
|000024d0| 0a 28 66 73 65 74 20 27 | 6d 68 73 70 6f 6f 6c 2d |.(fset '|mhspool-|
|000024e0| 72 65 70 6c 61 63 65 2d | 63 68 61 72 73 2d 69 6e |replace-|chars-in|
|000024f0| 2d 73 74 72 69 6e 67 20 | 23 5b 28 73 74 72 69 6e |-string |#[(strin|
|00002500| 67 20 66 72 6f 6d 20 74 | 6f 29 20 22 08 c1 c2 4f |g from t|o) "...O|
|00002510| 08 47 c1 1b 1c 18 0b 0c | 57 ab 93 08 0b 48 0d 55 |.G......|W....H.U|
|00002520| ab 86 08 0b 0e 06 49 88 | 0b 54 89 13 aa 69 08 2b |......I.|.T...i.+|
|00002530| 87 22 20 5b 73 74 72 69 | 6e 67 20 30 20 6e 69 6c |." [stri|ng 0 nil|
|00002540| 20 69 64 78 20 6c 65 6e | 20 66 72 6f 6d 20 74 6f | idx len| from to|
|00002550| 5d 20 34 20 22 5c 0a 52 | 65 70 6c 61 63 65 20 63 |] 4 "\.R|eplace c|
|00002560| 68 61 72 61 63 74 65 72 | 73 20 69 6e 20 53 54 52 |haracter|s in STR|
|00002570| 49 4e 47 20 66 72 6f 6d | 20 46 52 4f 4d 20 74 6f |ING from| FROM to|
|00002580| 20 54 4f 2e 22 5d 29 0a | 28 66 73 65 74 20 27 6d | TO."]).|(fset 'm|
|00002590| 68 73 70 6f 6f 6c 2d 6c | 69 73 74 2d 66 6f 6c 64 |hspool-l|ist-fold|
|000025a0| 65 72 73 2d 75 73 69 6e | 67 2d 6c 73 20 23 5b 28 |ers-usin|g-ls #[(|
|000025b0| 64 69 72 65 63 74 6f 72 | 79 29 20 22 c0 c1 c2 c3 |director|y) "....|
|000025c0| c4 c3 c5 0e 06 0e 07 43 | 5c 22 26 06 87 22 20 5b |.......C|\"&.." [|
|000025d0| 61 70 70 6c 79 20 63 61 | 6c 6c 2d 70 72 6f 63 65 |apply ca|ll-proce|
|000025e0| 73 73 20 22 6c 73 22 20 | 6e 69 6c 20 74 20 61 70 |ss "ls" |nil t ap|
|000025f0| 70 65 6e 64 20 6d 68 73 | 70 6f 6f 6c 2d 6c 69 73 |pend mhs|pool-lis|
|00002600| 74 2d 64 69 72 65 63 74 | 6f 72 79 2d 73 77 69 74 |t-direct|ory-swit|
|00002610| 63 68 65 73 20 64 69 72 | 65 63 74 6f 72 79 5d 20 |ches dir|ectory] |
|00002620| 39 20 22 5c 0a 4c 69 73 | 74 20 66 69 6c 65 73 20 |9 "\.Lis|t files |
|00002630| 69 6e 20 66 6f 6c 64 65 | 72 73 20 75 6e 64 65 72 |in folde|rs under|
|00002640| 20 44 49 52 45 43 54 4f | 52 59 20 75 73 69 6e 67 | DIRECTO|RY using|
|00002650| 20 27 6c 73 27 2e 22 5d | 29 0a 28 66 73 65 74 20 | 'ls'."]|).(fset |
|00002660| 27 6d 68 73 70 6f 6f 6c | 2d 6c 69 73 74 2d 66 6f |'mhspool|-list-fo|
|00002670| 6c 64 65 72 73 2d 75 73 | 69 6e 67 2d 73 68 20 23 |lders-us|ing-sh #|
|00002680| 5b 28 64 69 72 65 63 74 | 6f 72 79 29 20 22 70 c0 |[(direct|ory) "p.|
|00002690| c1 21 1a 1b 8a 8c 5c 6e | 71 88 c4 20 88 c5 0e 06 |.!....\n|q.. ....|
|000026a0| c7 b1 03 88 c8 65 64 c9 | ca 0b ca 26 06 88 2a cb |.....ed.|...&..*.|
|000026b0| 5c 6e 21 2a 87 22 20 5b | 67 65 74 2d 62 75 66 66 |\n!*." [|get-buff|
|000026c0| 65 72 2d 63 72 65 61 74 | 65 20 22 20 2a 4d 48 53 |er-creat|e " *MHS|
|000026d0| 50 4f 4f 4c 20 53 68 65 | 6c 6c 20 53 63 72 69 70 |POOL She|ll Scrip|
|000026e0| 74 20 42 75 66 66 65 72 | 2a 22 20 73 63 72 69 70 |t Buffer|*" scrip|
|000026f0| 74 20 62 75 66 66 65 72 | 20 65 72 61 73 65 2d 62 |t buffer| erase-b|
|00002700| 75 66 66 65 72 20 22 50 | 53 32 3d 5c 6e 20 20 20 |uffer "P|S2=\n   |
|00002710| 20 20 20 20 20 20 20 66 | 66 69 6e 64 28 29 20 7b |       f|find() {|
|00002720| 5c 6e 09 09 63 64 20 24 | 31 3b 20 65 63 68 6f 20 |\n..cd $|1; echo |
|00002730| 24 31 3a 5c 6e 09 09 6c | 73 20 2d 31 5c 6e 09 09 |$1:\n..l|s -1\n..|
|00002740| 65 63 68 6f 5c 6e 09 09 | 66 6f 72 20 6a 20 69 6e |echo\n..|for j in|
|00002750| 20 60 65 63 68 6f 20 2a | 5b 61 2d 7a 41 2d 5a 5d | `echo *|[a-zA-Z]|
|00002760| 2a 60 5c 6e 09 09 64 6f | 5c 6e 09 09 20 20 69 66 |*`\n..do|\n..  if|
|00002770| 20 5b 20 2d 64 20 24 31 | 2f 24 6a 20 5d 3b 20 74 | [ -d $1|/$j ]; t|
|00002780| 68 65 6e 5c 6e 09 09 09 | 66 66 69 6e 64 20 24 31 |hen\n...|ffind $1|
|00002790| 2f 24 6a 5c 6e 09 09 20 | 20 66 69 5c 6e 09 09 64 |/$j\n.. | fi\n..d|
|000027a0| 6f 6e 65 5c 6e 09 20 20 | 7d 5c 6e 09 20 20 63 64 |one\n.  |}\n.  cd|
|000027b0| 20 22 20 64 69 72 65 63 | 74 6f 72 79 20 22 3b 20 | " direc|tory "; |
|000027c0| 66 66 69 6e 64 20 60 70 | 77 64 60 3b 20 65 78 69 |ffind `p|wd`; exi|
|000027d0| 74 20 30 5c 6e 22 20 63 | 61 6c 6c 2d 70 72 6f 63 |t 0\n" c|all-proc|
|000027e0| 65 73 73 2d 72 65 67 69 | 6f 6e 20 22 73 68 22 20 |ess-regi|on "sh" |
|000027f0| 6e 69 6c 20 6b 69 6c 6c | 2d 62 75 66 66 65 72 5d |nil kill|-buffer]|
|00002800| 20 37 20 22 5c 0a 4c 69 | 73 74 20 66 69 6c 65 73 | 7 "\.Li|st files|
|00002810| 20 69 6e 20 66 6f 6c 64 | 65 72 73 20 75 6e 64 65 | in fold|ers unde|
|00002820| 72 20 44 49 52 45 43 54 | 4f 52 59 20 75 73 69 6e |r DIRECT|ORY usin|
|00002830| 67 20 27 2f 62 69 6e 2f | 73 68 27 2e 22 5d 29 0a |g '/bin/|sh'."]).|
|00002840| 28 70 72 6f 76 69 64 65 | 20 27 6d 68 73 70 6f 6f |(provide| 'mhspoo|
|00002850| 6c 29 0a                |                         |l).     |        |
+--------+-------------------------+-------------------------+--------+--------+