home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-05-21 | 21.3 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v20 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 33 |on Mon M|ar 9 13|
|00000040| 3a 30 32 3a 33 37 20 31 | 39 39 38 0a 3b 3b 3b 20 |:02:37 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 67 6e 75 73 |s-20.3/l|isp/gnus|
|000000a0| 2f 67 6e 75 73 2d 75 74 | 69 6c 2e 65 6c 0a 3b 3b |/gnus-ut|il.el.;;|
|000000b0| 3b 20 65 6d 61 63 73 20 | 76 65 72 73 69 6f 6e 20 |; emacs |version |
|000000c0| 32 30 2e 34 20 22 45 6d | 65 72 61 6c 64 22 20 58 |20.4 "Em|erald" X|
|000000d0| 45 6d 61 63 73 20 20 4c | 75 63 69 64 2e 0a 3b 3b |Emacs L|ucid..;;|
|000000e0| 3b 20 62 79 74 65 63 6f | 6d 70 20 76 65 72 73 69 |; byteco|mp versi|
|000000f0| 6f 6e 20 32 2e 32 35 20 | 58 45 6d 61 63 73 3b 20 |on 2.25 |XEmacs; |
|00000100| 32 32 2d 4d 61 72 2d 39 | 36 2e 0a 3b 3b 3b 20 6f |22-Mar-9|6..;;; o|
|00000110| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 69 73 20 6f |ptimizat|ion is o|
|00000120| 6e 2e 0a 3b 3b 3b 20 74 | 68 69 73 20 66 69 6c 65 |n..;;; t|his file|
|00000130| 20 75 73 65 73 20 6f 70 | 63 6f 64 65 73 20 77 68 | uses op|codes wh|
|00000140| 69 63 68 20 64 6f 20 6e | 6f 74 20 65 78 69 73 74 |ich do n|ot exist|
|00000150| 20 69 6e 20 45 6d 61 63 | 73 20 31 39 2e 0a 0a 28 | in Emac|s 19...(|
|00000160| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000170| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000180| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000190| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|000001a0| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|000001b0| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on).. | (strin|
|000001c0| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|000001d0| 72 73 69 6f 6e 20 22 32 | 30 22 29 29 29 0a 20 20 |rsion "2|0"))). |
|000001e0| 20 20 28 65 72 72 6f 72 | 20 22 60 67 6e 75 73 2d | (error| "`gnus-|
|000001f0| 75 74 69 6c 2e 65 6c 27 | 20 77 61 73 20 63 6f 6d |util.el'| was com|
|00000200| 70 69 6c 65 64 20 66 6f | 72 20 45 6d 61 63 73 20 |piled fo|r Emacs |
|00000210| 32 30 22 29 29 0a 0a 28 | 6f 72 20 28 62 6f 75 6e |20"))..(|or (boun|
|00000220| 64 70 20 27 63 75 72 72 | 65 6e 74 2d 6c 6f 61 64 |dp 'curr|ent-load|
|00000230| 2d 6c 69 73 74 29 20 28 | 73 65 74 71 20 63 75 72 |-list) (|setq cur|
|00000240| 72 65 6e 74 2d 6c 6f 61 | 64 2d 6c 69 73 74 20 6e |rent-loa|d-list n|
|00000250| 69 6c 29 29 0a 0a 0a 28 | 62 79 74 65 2d 63 6f 64 |il))...(|byte-cod|
|00000260| 65 20 22 c0 c1 21 88 c0 | c2 21 88 c0 c3 21 88 c0 |e "..!..|.!...!..|
|00000270| c4 21 88 c5 c6 c7 5c 22 | 87 22 20 5b 72 65 71 75 |.!....\"|." [requ|
|00000280| 69 72 65 20 63 75 73 74 | 6f 6d 20 6e 6e 68 65 61 |ire cust|om nnhea|
|00000290| 64 65 72 20 74 69 6d 65 | 7a 6f 6e 65 20 6d 65 73 |der time|zone mes|
|000002a0| 73 61 67 65 20 61 75 74 | 6f 6c 6f 61 64 20 6e 6e |sage aut|oload nn|
|000002b0| 6d 61 69 6c 2d 64 61 74 | 65 2d 74 6f 2d 74 69 6d |mail-dat|e-to-tim|
|000002c0| 65 20 22 6e 6e 6d 61 69 | 6c 22 5d 20 33 29 0a 23 |e "nnmai|l"] 3).#|
|000002d0| 40 35 30 20 52 65 74 75 | 72 6e 20 6e 6f 6e 2d 6e |@50 Retu|rn non-n|
|000002e0| 69 6c 20 69 66 20 56 41 | 52 49 41 42 4c 45 20 69 |il if VA|RIABLE i|
|000002f0| 73 20 62 6f 75 6e 64 20 | 61 6e 64 20 6e 6f 6e 2d |s bound |and non-|
|00000300| 6e 69 6c 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |nil...(d|efalias |
|00000310| 27 67 6e 75 73 2d 62 6f | 75 6e 64 70 20 23 5b 28 |'gnus-bo|undp #[(|
|00000320| 76 61 72 69 61 62 6c 65 | 29 20 22 c0 09 21 ad 82 |variable|) "..!..|
|00000330| 09 4a 87 22 20 5b 62 6f | 75 6e 64 70 20 76 61 72 |.J." [bo|undp var|
|00000340| 69 61 62 6c 65 5d 20 32 | 20 28 23 24 20 2e 20 37 |iable] 2| (#$ . 7|
|00000350| 32 34 29 5d 29 0a 23 40 | 37 32 20 50 6f 70 20 74 |24)]).#@|72 Pop t|
|00000360| 6f 20 42 55 46 46 45 52 | 2c 20 65 76 61 6c 75 61 |o BUFFER|, evalua|
|00000370| 74 65 20 46 4f 52 4d 53 | 2c 20 61 6e 64 20 74 68 |te FORMS|, and th|
|00000380| 65 6e 20 72 65 74 75 72 | 6e 20 74 6f 20 74 68 65 |en retur|n to the|
|00000390| 20 6f 72 69 67 69 6e 61 | 6c 20 77 69 6e 64 6f 77 | origina|l window|
|000003a0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 67 6e |...(defa|lias 'gn|
|000003b0| 75 73 2d 65 76 61 6c 2d | 69 6e 2d 62 75 66 66 65 |us-eval-|in-buffe|
|000003c0| 72 2d 77 69 6e 64 6f 77 | 20 27 28 6d 61 63 72 6f |r-window| '(macro|
|000003d0| 20 2e 20 23 5b 28 62 75 | 66 66 65 72 20 26 72 65 | . #[(bu|ffer &re|
|000003e0| 73 74 20 66 6f 72 6d 73 | 29 20 22 c0 c1 21 c0 c2 |st forms|) "..!..|
|000003f0| 21 c0 c3 21 1c 1d 1e 06 | c7 0e 06 c8 42 0c 0e 09 |!..!....|....B...|
|00000400| 44 0d ca 0c cb 42 42 44 | 45 cc cd ce 0d cd cf 0d |D....BBD|E.......|
|00000410| 44 d0 d1 0d 44 44 45 d2 | 0c 44 46 0e 13 42 42 cf |D...DDE.|.DF..BB.|
|00000420| 0e 06 44 45 45 2b 87 22 | 20 5b 6d 61 6b 65 2d 73 |..DEE+."| [make-s|
|00000430| 79 6d 62 6f 6c 20 22 47 | 6e 75 73 53 74 61 72 74 |ymbol "G|nusStart|
|00000440| 42 75 66 66 65 72 57 69 | 6e 64 6f 77 22 20 22 77 |BufferWi|ndow" "w|
|00000450| 22 20 22 62 75 66 22 20 | 62 75 66 20 77 20 74 65 |" "buf" |buf w te|
|00000460| 6d 70 76 61 72 20 6c 65 | 74 2a 20 28 28 73 65 6c |mpvar le|t* ((sel|
|00000470| 65 63 74 65 64 2d 77 69 | 6e 64 6f 77 29 29 20 62 |ected-wi|ndow)) b|
|00000480| 75 66 66 65 72 20 67 65 | 74 2d 62 75 66 66 65 72 |uffer ge|t-buffer|
|00000490| 2d 77 69 6e 64 6f 77 20 | 28 27 76 69 73 69 62 6c |-window |('visibl|
|000004a0| 65 29 20 75 6e 77 69 6e | 64 2d 70 72 6f 74 65 63 |e) unwin|d-protec|
|000004b0| 74 20 70 72 6f 67 6e 20 | 69 66 20 73 65 6c 65 63 |t progn |if selec|
|000004c0| 74 2d 77 69 6e 64 6f 77 | 20 73 65 74 2d 62 75 66 |t-window| set-buf|
|000004d0| 66 65 72 20 77 69 6e 64 | 6f 77 2d 62 75 66 66 65 |fer wind|ow-buffe|
|000004e0| 72 20 70 6f 70 2d 74 6f | 2d 62 75 66 66 65 72 20 |r pop-to|-buffer |
|000004f0| 66 6f 72 6d 73 5d 20 31 | 31 20 28 23 24 20 2e 20 |forms] 1|1 (#$ . |
|00000500| 38 35 39 29 5d 29 29 0a | 28 62 79 74 65 2d 63 6f |859)])).|(byte-co|
|00000510| 64 65 20 22 c0 c1 c2 c3 | 23 88 c0 c1 c4 c5 23 87 |de "....|#.....#.|
|00000520| 22 20 5b 70 75 74 20 67 | 6e 75 73 2d 65 76 61 6c |" [put g|nus-eval|
|00000530| 2d 69 6e 2d 62 75 66 66 | 65 72 2d 77 69 6e 64 6f |-in-buff|er-windo|
|00000540| 77 20 6c 69 73 70 2d 69 | 6e 64 65 6e 74 2d 66 75 |w lisp-i|ndent-fu|
|00000550| 6e 63 74 69 6f 6e 20 31 | 20 65 64 65 62 75 67 2d |nction 1| edebug-|
|00000560| 66 6f 72 6d 2d 73 70 65 | 63 20 28 66 6f 72 6d 20 |form-spe|c (form |
|00000570| 62 6f 64 79 29 5d 20 34 | 29 0a 23 40 36 32 20 53 |body)] 4|).#@62 S|
|00000580| 65 74 20 68 61 73 68 20 | 76 61 6c 75 65 2e 20 20 |et hash |value. |
|00000590| 41 72 67 75 6d 65 6e 74 | 73 20 61 72 65 20 53 54 |Argument|s are ST|
|000005a0| 52 49 4e 47 2c 20 56 41 | 4c 55 45 2c 20 61 6e 64 |RING, VA|LUE, and|
|000005b0| 20 48 41 53 48 54 41 42 | 4c 45 2e 1f 0a 28 64 65 | HASHTAB|LE...(de|
|000005c0| 66 61 6c 69 61 73 20 27 | 67 6e 75 73 2d 69 6e 74 |falias '|gnus-int|
|000005d0| 65 72 6e 2d 73 61 66 65 | 20 27 28 6d 61 63 72 6f |ern-safe| '(macro|
|000005e0| 20 2e 20 23 5b 28 73 74 | 72 69 6e 67 20 68 61 73 | . #[(st|ring has|
|000005f0| 68 74 61 62 6c 65 29 20 | 22 c0 c1 c2 0b 0c 45 44 |htable) |".....ED|
|00000600| 43 c5 42 42 87 22 20 5b | 6c 65 74 20 73 79 6d 62 |C.BB." [|let symb|
|00000610| 6f 6c 20 69 6e 74 65 72 | 6e 20 73 74 72 69 6e 67 |ol inter|n string|
|00000620| 20 68 61 73 68 74 61 62 | 6c 65 20 28 28 6f 72 20 | hashtab|le ((or |
|00000630| 28 62 6f 75 6e 64 70 20 | 73 79 6d 62 6f 6c 29 20 |(boundp |symbol) |
|00000640| 28 73 65 74 20 73 79 6d | 62 6f 6c 20 6e 69 6c 29 |(set sym|bol nil)|
|00000650| 29 20 73 79 6d 62 6f 6c | 29 5d 20 35 20 28 23 24 |) symbol|)] 5 (#$|
|00000660| 20 2e 20 31 34 30 37 29 | 5d 29 29 0a 28 64 65 66 | . 1407)|])).(def|
|00000670| 61 6c 69 61 73 20 27 67 | 6e 75 73 2d 74 72 75 6e |alias 'g|nus-trun|
|00000680| 63 61 74 65 2d 73 74 72 | 69 6e 67 20 23 5b 28 73 |cate-str|ing #[(s|
|00000690| 74 72 20 77 69 64 74 68 | 29 20 22 08 c1 5c 6e 4f |tr width|) "..\nO|
|000006a0| 87 22 20 5b 73 74 72 20 | 30 20 77 69 64 74 68 5d |." [str |0 width]|
|000006b0| 20 33 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 | 3]).(de|falias '|
|000006c0| 67 6e 75 73 2d 6c 69 6d | 69 74 2d 73 74 72 69 6e |gnus-lim|it-strin|
|000006d0| 67 20 23 5b 28 73 74 72 | 20 77 69 64 74 68 29 20 |g #[(str| width) |
|000006e0| 22 08 47 09 56 ab 85 08 | c2 09 4f 87 08 87 22 20 |".G.V...|..O..." |
|000006f0| 5b 73 74 72 20 77 69 64 | 74 68 20 30 5d 20 33 5d |[str wid|th 0] 3]|
|00000700| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |).(byte-|code "..|
|00000710| 4e c2 73 ac 85 c3 c4 c0 | 5c 22 88 c5 c0 c1 c6 23 |N.s.....|\".....#|
|00000720| 87 22 20 5b 67 6e 75 73 | 2d 6c 69 6d 69 74 2d 73 |." [gnus|-limit-s|
|00000730| 74 72 69 6e 67 20 62 79 | 74 65 2d 6f 70 74 69 6d |tring by|te-optim|
|00000740| 69 7a 65 72 20 28 6e 69 | 6c 20 62 79 74 65 2d 63 |izer (ni|l byte-c|
|00000750| 6f 6d 70 69 6c 65 2d 69 | 6e 6c 69 6e 65 2d 65 78 |ompile-i|nline-ex|
|00000760| 70 61 6e 64 29 20 65 72 | 72 6f 72 20 22 25 73 20 |pand) er|ror "%s |
|00000770| 61 6c 72 65 61 64 79 20 | 68 61 73 20 61 20 62 79 |already |has a by|
|00000780| 74 65 2d 6f 70 74 69 6d | 69 7a 65 72 2c 20 63 61 |te-optim|izer, ca|
|00000790| 6e 27 74 20 6d 61 6b 65 | 20 69 74 20 69 6e 6c 69 |n't make| it inli|
|000007a0| 6e 65 22 20 70 75 74 20 | 62 79 74 65 2d 63 6f 6d |ne" put |byte-com|
|000007b0| 70 69 6c 65 2d 69 6e 6c | 69 6e 65 2d 65 78 70 61 |pile-inl|ine-expa|
|000007c0| 6e 64 5d 20 34 29 0a 23 | 40 34 30 20 52 65 74 75 |nd] 4).#|@40 Retu|
|000007d0| 72 6e 20 6e 6f 6e 2d 6e | 69 6c 20 69 66 20 46 4f |rn non-n|il if FO|
|000007e0| 52 4d 20 69 73 20 66 75 | 6e 63 61 6c 6c 61 62 6c |RM is fu|ncallabl|
|000007f0| 65 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 67 |e...(def|alias 'g|
|00000800| 6e 75 73 2d 66 75 6e 63 | 74 69 6f 6e 70 20 23 5b |nus-func|tionp #[|
|00000810| 28 66 6f 72 6d 29 20 22 | 08 39 ab 85 c1 08 21 ae |(form) "|.9....!.|
|00000820| 8d 08 3c ab 86 08 40 c2 | 61 ae 83 c3 08 21 87 22 |..<...@.|a....!."|
|00000830| 20 5b 66 6f 72 6d 20 66 | 62 6f 75 6e 64 70 20 6c | [form f|boundp l|
|00000840| 61 6d 62 64 61 20 63 6f | 6d 70 69 6c 65 64 2d 66 |ambda co|mpiled-f|
|00000850| 75 6e 63 74 69 6f 6e 2d | 70 5d 20 32 20 28 23 24 |unction-|p] 2 (#$|
|00000860| 20 2e 20 31 39 39 36 29 | 5d 29 0a 28 62 79 74 65 | . 1996)|]).(byte|
|00000870| 2d 63 6f 64 65 20 22 c0 | c1 4e c2 73 ac 85 c3 c4 |-code ".|.N.s....|
|00000880| c0 5c 22 88 c5 c0 c1 c6 | 23 87 22 20 5b 67 6e 75 |.\".....|#." [gnu|
|00000890| 73 2d 66 75 6e 63 74 69 | 6f 6e 70 20 62 79 74 65 |s-functi|onp byte|
|000008a0| 2d 6f 70 74 69 6d 69 7a | 65 72 20 28 6e 69 6c 20 |-optimiz|er (nil |
|000008b0| 62 79 74 65 2d 63 6f 6d | 70 69 6c 65 2d 69 6e 6c |byte-com|pile-inl|
|000008c0| 69 6e 65 2d 65 78 70 61 | 6e 64 29 20 65 72 72 6f |ine-expa|nd) erro|
|000008d0| 72 20 22 25 73 20 61 6c | 72 65 61 64 79 20 68 61 |r "%s al|ready ha|
|000008e0| 73 20 61 20 62 79 74 65 | 2d 6f 70 74 69 6d 69 7a |s a byte|-optimiz|
|000008f0| 65 72 2c 20 63 61 6e 27 | 74 20 6d 61 6b 65 20 69 |er, can'|t make i|
|00000900| 74 20 69 6e 6c 69 6e 65 | 22 20 70 75 74 20 62 79 |t inline|" put by|
|00000910| 74 65 2d 63 6f 6d 70 69 | 6c 65 2d 69 6e 6c 69 6e |te-compi|le-inlin|
|00000920| 65 2d 65 78 70 61 6e 64 | 5d 20 34 29 0a 28 64 65 |e-expand|] 4).(de|
|00000930| 66 61 6c 69 61 73 20 27 | 67 6e 75 73 2d 67 6f 74 |falias '|gnus-got|
|00000940| 6f 2d 63 68 61 72 20 23 | 5b 28 70 6f 69 6e 74 29 |o-char #|[(point)|
|00000950| 20 22 08 ad 82 08 62 87 | 22 20 5b 70 6f 69 6e 74 | "....b.|" [point|
|00000960| 5d 20 31 5d 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |] 1]).(b|yte-code|
|00000970| 20 22 c0 c1 4e c2 73 ac | 85 c3 c4 c0 5c 22 88 c5 | "..N.s.|....\"..|
|00000980| c0 c1 c6 23 87 22 20 5b | 67 6e 75 73 2d 67 6f 74 |...#." [|gnus-got|
|00000990| 6f 2d 63 68 61 72 20 62 | 79 74 65 2d 6f 70 74 69 |o-char b|yte-opti|
|000009a0| 6d 69 7a 65 72 20 28 6e | 69 6c 20 62 79 74 65 2d |mizer (n|il byte-|
|000009b0| 63 6f 6d 70 69 6c 65 2d | 69 6e 6c 69 6e 65 2d 65 |compile-|inline-e|
|000009c0| 78 70 61 6e 64 29 20 65 | 72 72 6f 72 20 22 25 73 |xpand) e|rror "%s|
|000009d0| 20 61 6c 72 65 61 64 79 | 20 68 61 73 20 61 20 62 | already| has a b|
|000009e0| 79 74 65 2d 6f 70 74 69 | 6d 69 7a 65 72 2c 20 63 |yte-opti|mizer, c|
|000009f0| 61 6e 27 74 20 6d 61 6b | 65 20 69 74 20 69 6e 6c |an't mak|e it inl|
|00000a00| 69 6e 65 22 20 70 75 74 | 20 62 79 74 65 2d 63 6f |ine" put| byte-co|
|00000a10| 6d 70 69 6c 65 2d 69 6e | 6c 69 6e 65 2d 65 78 70 |mpile-in|line-exp|
|00000a20| 61 6e 64 5d 20 34 29 0a | 28 64 65 66 61 6c 69 61 |and] 4).|(defalia|
|00000a30| 73 20 27 67 6e 75 73 2d | 62 75 66 66 65 72 2d 65 |s 'gnus-|buffer-e|
|00000a40| 78 69 73 74 73 2d 70 20 | 27 28 6d 61 63 72 6f 20 |xists-p |'(macro |
|00000a50| 2e 20 23 5b 28 62 75 66 | 66 65 72 29 20 22 c0 c1 |. #[(buf|fer) "..|
|00000a60| 09 44 43 c2 42 42 87 22 | 20 5b 6c 65 74 20 62 75 |.DC.BB."| [let bu|
|00000a70| 66 66 65 72 20 28 28 77 | 68 65 6e 20 62 75 66 66 |ffer ((w|hen buff|
|00000a80| 65 72 20 28 66 75 6e 63 | 61 6c 6c 20 28 69 66 20 |er (func|all (if |
|00000a90| 28 73 74 72 69 6e 67 70 | 20 62 75 66 66 65 72 29 |(stringp| buffer)|
|00000aa0| 20 27 67 65 74 2d 62 75 | 66 66 65 72 20 27 62 75 | 'get-bu|ffer 'bu|
|00000ab0| 66 66 65 72 2d 6e 61 6d | 65 29 20 62 75 66 66 65 |ffer-nam|e) buffe|
|00000ac0| 72 29 29 29 5d 20 33 5d | 29 29 0a 28 64 65 66 61 |r)))] 3]|)).(defa|
|00000ad0| 6c 69 61 73 20 27 67 6e | 75 73 2d 6b 69 6c 6c 2d |lias 'gn|us-kill-|
|00000ae0| 62 75 66 66 65 72 20 27 | 28 6d 61 63 72 6f 20 2e |buffer '|(macro .|
|00000af0| 20 23 5b 28 62 75 66 66 | 65 72 29 20 22 c0 c1 5c | #[(buff|er) "..\|
|00000b00| 6e 44 43 c3 42 42 87 22 | 20 5b 6c 65 74 20 62 75 |nDC.BB."| [let bu|
|00000b10| 66 20 62 75 66 66 65 72 | 20 28 28 77 68 65 6e 20 |f buffer| ((when |
|00000b20| 28 67 6e 75 73 2d 62 75 | 66 66 65 72 2d 65 78 69 |(gnus-bu|ffer-exi|
|00000b30| 73 74 73 2d 70 20 62 75 | 66 29 20 28 6b 69 6c 6c |sts-p bu|f) (kill|
|00000b40| 2d 62 75 66 66 65 72 20 | 62 75 66 29 29 29 5d 20 |-buffer |buf)))] |
|00000b50| 33 5d 29 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |3])).(by|te-code |
|00000b60| 22 c0 c1 21 ab 86 c2 c1 | 4d 88 aa 84 c2 c3 4d 88 |"..!....|M.....M.|
|00000b70| c0 c4 21 ab 86 c5 c4 4d | 88 aa 84 c5 c6 4d 88 c0 |..!....M|.....M..|
|00000b80| 87 22 20 5b 66 62 6f 75 | 6e 64 70 20 70 6f 69 6e |." [fbou|ndp poin|
|00000b90| 74 2d 61 74 2d 62 6f 6c | 20 67 6e 75 73 2d 70 6f |t-at-bol| gnus-po|
|00000ba0| 69 6e 74 2d 61 74 2d 62 | 6f 6c 20 23 5b 6e 69 6c |int-at-b|ol #[nil|
|00000bb0| 20 22 60 18 c1 79 88 60 | 08 62 88 29 87 22 20 5b | "`..y.`|.b.)." [|
|00000bc0| 70 20 30 5d 20 32 20 22 | 52 65 74 75 72 6e 20 70 |p 0] 2 "|Return p|
|00000bd0| 6f 69 6e 74 20 61 74 20 | 74 68 65 20 62 65 67 69 |oint at |the begi|
|00000be0| 6e 6e 69 6e 67 20 6f 66 | 20 74 68 65 20 6c 69 6e |nning of| the lin|
|00000bf0| 65 2e 22 5d 20 70 6f 69 | 6e 74 2d 61 74 2d 65 6f |e."] poi|nt-at-eo|
|00000c00| 6c 20 67 6e 75 73 2d 70 | 6f 69 6e 74 2d 61 74 2d |l gnus-p|oint-at-|
|00000c10| 65 6f 6c 20 23 5b 6e 69 | 6c 20 22 60 18 c1 7f 88 |eol #[ni|l "`....|
|00000c20| 60 08 62 88 29 87 22 20 | 5b 70 20 6e 69 6c 5d 20 |`.b.)." |[p nil] |
|00000c30| 32 20 22 52 65 74 75 72 | 6e 20 70 6f 69 6e 74 20 |2 "Retur|n point |
|00000c40| 61 74 20 74 68 65 20 65 | 6e 64 20 6f 66 20 74 68 |at the e|nd of th|
|00000c50| 65 20 6c 69 6e 65 2e 22 | 5d 5d 20 32 29 0a 23 40 |e line."|]] 2).#@|
|00000c60| 37 32 20 44 65 6c 65 74 | 65 20 62 79 20 73 69 64 |72 Delet|e by sid|
|00000c70| 65 20 65 66 66 65 63 74 | 20 74 68 65 20 66 69 72 |e effect| the fir|
|00000c80| 73 74 20 6f 63 63 75 72 | 72 65 6e 63 65 20 6f 66 |st occur|rence of|
|00000c90| 20 45 4c 54 20 61 73 20 | 61 20 6d 65 6d 62 65 72 | ELT as |a member|
|00000ca0| 20 6f 66 20 4c 49 53 54 | 2e 1f 0a 28 64 65 66 61 | of LIST|...(defa|
|00000cb0| 6c 69 61 73 20 27 67 6e | 75 73 2d 64 65 6c 65 74 |lias 'gn|us-delet|
|00000cc0| 65 2d 66 69 72 73 74 20 | 23 5b 28 65 6c 74 20 6c |e-first |#[(elt l|
|00000cd0| 69 73 74 29 20 22 08 40 | 09 6b ab 83 08 41 87 08 |ist) ".@|.k...A..|
|00000ce0| 1a 08 41 ab 8d 08 41 40 | 09 6b ac 86 08 41 89 10 |..A...A@|.k...A..|
|00000cf0| aa 70 08 41 ab 86 08 89 | 41 41 a1 88 5c 6e 29 87 |.p.A....|AA..\n).|
|00000d00| 22 20 5b 6c 69 73 74 20 | 65 6c 74 20 74 6f 74 61 |" [list |elt tota|
|00000d10| 6c 5d 20 33 20 28 23 24 | 20 2e 20 33 31 37 31 29 |l] 3 (#$| . 3171)|
|00000d20| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 67 6e |]).(defa|lias 'gn|
|00000d30| 75 73 2d 64 65 6c 65 74 | 65 2d 6c 69 6e 65 20 27 |us-delet|e-line '|
|00000d40| 28 6d 61 63 72 6f 20 2e | 20 23 5b 28 26 6f 70 74 |(macro .| #[(&opt|
|00000d50| 69 6f 6e 61 6c 20 6e 29 | 20 22 c0 c1 c2 c3 0c ae |ional n)| "......|
|00000d60| 81 c5 44 c6 42 42 45 87 | 22 20 5b 64 65 6c 65 74 |..D.BBE.|" [delet|
|00000d70| 65 2d 72 65 67 69 6f 6e | 20 28 70 72 6f 67 6e 20 |e-region| (progn |
|00000d80| 28 62 65 67 69 6e 6e 69 | 6e 67 2d 6f 66 2d 6c 69 |(beginni|ng-of-li|
|00000d90| 6e 65 29 20 28 70 6f 69 | 6e 74 29 29 20 70 72 6f |ne) (poi|nt)) pro|
|00000da0| 67 6e 20 66 6f 72 77 61 | 72 64 2d 6c 69 6e 65 20 |gn forwa|rd-line |
|00000db0| 6e 20 31 20 28 28 70 6f | 69 6e 74 29 29 5d 20 35 |n 1 ((po|int))] 5|
|00000dc0| 5d 29 29 0a 23 40 35 31 | 20 52 65 74 75 72 6e 20 |])).#@51| Return |
|00000dd0| 61 20 66 6f 72 6d 20 74 | 68 61 74 20 63 61 6e 20 |a form t|hat can |
|00000de0| 62 65 20 60 65 76 61 6c | 27 65 64 20 62 61 73 65 |be `eval|'ed base|
|00000df0| 64 20 6f 6e 20 46 55 4e | 43 2e 1f 0a 28 64 65 66 |d on FUN|C...(def|
|00000e00| 61 6c 69 61 73 20 27 67 | 6e 75 73 2d 62 79 74 65 |alias 'g|nus-byte|
|00000e10| 2d 63 6f 64 65 20 23 5b | 28 66 75 6e 63 29 20 22 |-code #[|(func) "|
|00000e20| 08 4b 19 c2 09 21 ab 8d | c3 09 c4 5c 22 89 1d c6 |.K...!..|...\"...|
|00000e30| a0 88 0d 29 aa 85 c7 09 | 41 41 42 29 87 22 20 5b |...)....|AAB)." [|
|00000e40| 66 75 6e 63 20 66 76 61 | 6c 20 63 6f 6d 70 69 6c |func fva|l compil|
|00000e50| 65 64 2d 66 75 6e 63 74 | 69 6f 6e 2d 70 20 61 70 |ed-funct|ion-p ap|
|00000e60| 70 65 6e 64 20 6e 69 6c | 20 66 6c 69 73 74 20 62 |pend nil| flist b|
|00000e70| 79 74 65 2d 63 6f 64 65 | 20 70 72 6f 67 6e 5d 20 |yte-code| progn] |
|00000e80| 34 20 28 23 24 20 2e 20 | 33 35 32 39 29 5d 29 0a |4 (#$ . |3529)]).|
|00000e90| 28 64 65 66 61 6c 69 61 | 73 20 27 67 6e 75 73 2d |(defalia|s 'gnus-|
|00000ea0| 65 78 74 72 61 63 74 2d | 61 64 64 72 65 73 73 2d |extract-|address-|
|00000eb0| 63 6f 6d 70 6f 6e 65 6e | 74 73 20 23 5b 28 66 72 |componen|ts #[(fr|
|00000ec0| 6f 6d 29 20 22 c0 89 19 | 1a c3 c4 0d 5c 22 ab 87 |om) "...|....\"..|
|00000ed0| 0d c6 94 c6 95 4f 11 09 | ab a1 c3 c7 c8 09 21 c9 |.....O..|......!.|
|00000ee0| 51 0d 5c 22 ab 96 0d c6 | 89 94 4f 89 12 ab 8d c3 |Q.\"....|..O.....|
|00000ef0| ca 5c 6e 5c 22 ab 87 5c | 6e cb c6 95 53 4f 12 5c |.\n\"..\|n...SO.\|
|00000f00| 6e ac ab c3 cc 0d 5c 22 | ab 8c 0d c6 94 54 c6 95 |n.....\"|.....T..|
|00000f10| 53 4f 89 12 ac 99 c3 cd | 0d 5c 22 ab 85 09 89 12 |SO......|.\".....|
|00000f20| ac 8e c3 ce 0d 5c 22 ab | 88 0d c6 94 54 c6 95 4f |.....\".|....T..O|
|00000f30| 12 5c 6e ae 81 0d 09 ae | 81 0d 2a 44 87 22 20 5b |.\n.....|..*D." [|
|00000f40| 6e 69 6c 20 61 64 64 72 | 65 73 73 20 6e 61 6d 65 |nil addr|ess name|
|00000f50| 20 73 74 72 69 6e 67 2d | 6d 61 74 63 68 20 22 5c | string-|match "\|
|00000f60| 5c 62 5b 5e 40 20 09 3c | 3e 5d 2b 5b 21 40 5d 5b |\b[^@ .<|>]+[!@][|
|00000f70| 5e 40 20 09 3c 3e 5d 2b | 5c 5c 62 22 20 66 72 6f |^@ .<>]+|\\b" fro|
|00000f80| 6d 20 30 20 22 5b 20 09 | 5d 2a 3c 22 20 72 65 67 |m 0 "[ .|]*<" reg|
|00000f90| 65 78 70 2d 71 75 6f 74 | 65 20 22 3e 22 20 22 5c |exp-quot|e ">" "\|
|00000fa0| 22 2e 2a 5c 22 22 20 31 | 20 22 28 2e 2b 29 22 20 |".*\"" 1| "(.+)" |
|00000fb0| 22 28 29 22 20 22 28 2e | 2a 22 5d 20 34 5d 29 0a |"()" "(.|*"] 4]).|
|00000fc0| 23 40 35 38 20 52 65 74 | 75 72 6e 20 74 68 65 20 |#@58 Ret|urn the |
|00000fd0| 76 61 6c 75 65 20 6f 66 | 20 74 68 65 20 68 65 61 |value of| the hea|
|00000fe0| 64 65 72 20 46 49 45 4c | 44 20 6f 66 20 63 75 72 |der FIEL|D of cur|
|00000ff0| 72 65 6e 74 20 61 72 74 | 69 63 6c 65 2e 1f 0a 28 |rent art|icle...(|
|00001000| 64 65 66 61 6c 69 61 73 | 20 27 67 6e 75 73 2d 66 |defalias| 'gnus-f|
|00001010| 65 74 63 68 2d 66 69 65 | 6c 64 20 23 5b 28 66 69 |etch-fie|ld #[(fi|
|00001020| 65 6c 64 29 20 22 8a 8c | c0 89 19 1a c3 20 88 c4 |eld) "..|..... ..|
|00001030| 0d 21 2c 87 22 20 5b 74 | 20 69 6e 68 69 62 69 74 |.!,." [t| inhibit|
|00001040| 2d 70 6f 69 6e 74 2d 6d | 6f 74 69 6f 6e 2d 68 6f |-point-m|otion-ho|
|00001050| 6f 6b 73 20 63 61 73 65 | 2d 66 6f 6c 64 2d 73 65 |oks case|-fold-se|
|00001060| 61 72 63 68 20 6e 6e 68 | 65 61 64 65 72 2d 6e 61 |arch nnh|eader-na|
|00001070| 72 72 6f 77 2d 74 6f 2d | 68 65 61 64 65 72 73 20 |rrow-to-|headers |
|00001080| 6d 65 73 73 61 67 65 2d | 66 65 74 63 68 2d 66 69 |message-|fetch-fi|
|00001090| 65 6c 64 20 66 69 65 6c | 64 5d 20 32 20 28 23 24 |eld fiel|d] 2 (#$|
|000010a0| 20 2e 20 34 30 33 37 29 | 5d 29 0a 28 64 65 66 61 | . 4037)|]).(defa|
|000010b0| 6c 69 61 73 20 27 67 6e | 75 73 2d 67 6f 74 6f 2d |lias 'gn|us-goto-|
|000010c0| 63 6f 6c 6f 6e 20 23 5b | 6e 69 6c 20 22 c0 79 88 |colon #[|nil ".y.|
|000010d0| c1 c2 c3 20 c4 23 87 22 | 20 5b 30 20 73 65 61 72 |... .#."| [0 sear|
|000010e0| 63 68 2d 66 6f 72 77 61 | 72 64 20 22 3a 22 20 67 |ch-forwa|rd ":" g|
|000010f0| 6e 75 73 2d 70 6f 69 6e | 74 2d 61 74 2d 65 6f 6c |nus-poin|t-at-eol|
|00001100| 20 74 5d 20 34 5d 29 0a | 23 40 36 34 20 44 65 6c | t] 4]).|#@64 Del|
|00001110| 65 74 65 20 61 6c 6c 20 | 74 65 78 74 20 69 6e 20 |ete all |text in |
|00001120| 74 68 65 20 63 75 72 72 | 65 6e 74 20 62 75 66 66 |the curr|ent buff|
|00001130| 65 72 20 77 69 74 68 20 | 74 65 78 74 20 70 72 6f |er with |text pro|
|00001140| 70 65 72 74 79 20 50 52 | 4f 50 2e 1f 0a 28 64 65 |perty PR|OP...(de|
|00001150| 66 61 6c 69 61 73 20 27 | 67 6e 75 73 2d 72 65 6d |falias '|gnus-rem|
|00001160| 6f 76 65 2d 74 65 78 74 | 2d 77 69 74 68 2d 70 72 |ove-text|-with-pr|
|00001170| 6f 70 65 72 74 79 20 23 | 5b 28 70 72 6f 70 29 20 |operty #|[(prop) |
|00001180| 22 8a 65 62 88 6d 3f ad | 96 c0 60 09 5c 22 ab 86 |".eb.m?.|..`.\"..|
|00001190| c2 c3 21 88 aa 74 c4 60 | 09 c5 64 24 62 88 aa 66 |..!..t.`|..d$b..f|
|000011a0| 29 87 22 20 5b 67 65 74 | 2d 74 65 78 74 2d 70 72 |)." [get|-text-pr|
|000011b0| 6f 70 65 72 74 79 20 70 | 72 6f 70 20 64 65 6c 65 |operty p|rop dele|
|000011c0| 74 65 2d 63 68 61 72 20 | 31 20 6e 65 78 74 2d 73 |te-char |1 next-s|
|000011d0| 69 6e 67 6c 65 2d 70 72 | 6f 70 65 72 74 79 2d 63 |ingle-pr|operty-c|
|000011e0| 68 61 6e 67 65 20 6e 69 | 6c 5d 20 35 20 28 23 24 |hange ni|l] 5 (#$|
|000011f0| 20 2e 20 34 33 36 35 29 | 5d 29 0a 23 40 35 35 20 | . 4365)|]).#@55 |
|00001200| 4d 61 6b 65 20 68 69 65 | 72 61 72 63 68 69 63 61 |Make hie|rarchica|
|00001210| 6c 20 64 69 72 65 63 74 | 6f 72 79 20 6e 61 6d 65 |l direct|ory name|
|00001220| 20 66 72 6f 6d 20 4e 45 | 57 53 47 52 4f 55 50 20 | from NE|WSGROUP |
|00001230| 6e 61 6d 65 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |name...(|defalias|
|00001240| 20 27 67 6e 75 73 2d 6e | 65 77 73 67 72 6f 75 70 | 'gnus-n|ewsgroup|
|00001250| 2d 64 69 72 65 63 74 6f | 72 79 2d 66 6f 72 6d 20 |-directo|ry-form |
|00001260| 23 5b 28 6e 65 77 73 67 | 72 6f 75 70 29 20 22 c0 |#[(newsg|roup) ".|
|00001270| 09 21 09 47 c2 1b 1c 19 | c5 c6 09 5c 22 89 13 ab |.!.G....|...\"...|
|00001280| 87 09 0b c7 49 88 aa 82 | c8 13 0b 0c 57 ab 92 09 |....I...|....W...|
|00001290| 0b 48 c9 55 ab 85 09 0b | c7 49 88 0b 54 89 13 aa |.H.U....|.I..T...|
|000012a0| 6a 09 2b 87 22 20 5b 67 | 6e 75 73 2d 6e 65 77 73 |j.+." [g|nus-news|
|000012b0| 67 72 6f 75 70 2d 73 61 | 76 61 62 6c 65 2d 6e 61 |group-sa|vable-na|
|000012c0| 6d 65 20 6e 65 77 73 67 | 72 6f 75 70 20 6e 69 6c |me newsg|roup nil|
|000012d0| 20 69 64 78 20 6c 65 6e | 20 73 74 72 69 6e 67 2d | idx len| string-|
|000012e0| 6d 61 74 63 68 20 22 3a | 22 20 3f 5c 2f 20 30 20 |match ":|" ?\/ 0 |
|000012f0| 3f 5c 2e 5d 20 34 20 28 | 23 24 20 2e 20 34 36 30 |?\.] 4 (|#$ . 460|
|00001300| 38 29 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |8)]).(de|falias '|
|00001310| 67 6e 75 73 2d 6e 65 77 | 73 67 72 6f 75 70 2d 73 |gnus-new|sgroup-s|
|00001320| 61 76 61 62 6c 65 2d 6e | 61 6d 65 20 23 5b 28 67 |avable-n|ame #[(g|
|00001330| 72 6f 75 70 29 20 22 c0 | 09 c2 c3 23 87 22 20 5b |roup) ".|...#." [|
|00001340| 6e 6e 68 65 61 64 65 72 | 2d 72 65 70 6c 61 63 65 |nnheader|-replace|
|00001350| 2d 63 68 61 72 73 2d 69 | 6e 2d 73 74 72 69 6e 67 |-chars-i|n-string|
|00001360| 20 67 72 6f 75 70 20 3f | 5c 2f 20 3f 5c 2e 5d 20 | group ?|\/ ?\.] |
|00001370| 34 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 67 |4]).(def|alias 'g|
|00001380| 6e 75 73 2d 73 74 72 69 | 6e 67 3e 20 23 5b 28 73 |nus-stri|ng> #[(s|
|00001390| 31 20 73 32 29 20 22 08 | 09 99 ae 83 08 09 98 3f |1 s2) ".|.......?|
|000013a0| 87 22 20 5b 73 31 20 73 | 32 5d 20 32 5d 29 0a 28 |." [s1 s|2] 2]).(|
|000013b0| 64 65 66 61 6c 69 61 73 | 20 27 67 6e 75 73 2d 64 |defalias| 'gnus-d|
|000013c0| 61 79 73 2d 62 65 74 77 | 65 65 6e 20 23 5b 28 64 |ays-betw|een #[(d|
|000013d0| 61 74 65 31 20 64 61 74 | 65 32 29 20 22 c0 09 21 |ate1 dat|e2) "..!|
|000013e0| c0 5c 6e 21 5a 87 22 20 | 5b 67 6e 75 73 2d 64 61 |.\n!Z." |[gnus-da|
|000013f0| 79 2d 6e 75 6d 62 65 72 | 20 64 61 74 65 31 20 64 |y-number| date1 d|
|00001400| 61 74 65 32 5d 20 33 5d | 29 0a 28 64 65 66 61 6c |ate2] 3]|).(defal|
|00001410| 69 61 73 20 27 67 6e 75 | 73 2d 64 61 79 2d 6e 75 |ias 'gnu|s-day-nu|
|00001420| 6d 62 65 72 20 23 5b 28 | 64 61 74 65 29 20 22 c0 |mber #[(|date) ".|
|00001430| c1 c2 0b 21 5c 22 1c c5 | 0c 41 40 c6 0c 38 0c 40 |...!\"..|.A@..8.@|
|00001440| 23 29 87 22 20 5b 6d 61 | 70 63 61 72 20 23 5b 28 |#)." [ma|pcar #[(|
|00001450| 73 29 20 22 08 ad 83 c1 | 08 21 87 22 20 5b 73 20 |s) "....|.!." [s |
|00001460| 73 74 72 69 6e 67 2d 74 | 6f 2d 69 6e 74 5d 20 32 |string-t|o-int] 2|
|00001470| 5d 20 74 69 6d 65 7a 6f | 6e 65 2d 70 61 72 73 65 |] timezo|ne-parse|
|00001480| 2d 64 61 74 65 20 64 61 | 74 65 20 64 61 74 20 74 |-date da|te dat t|
|00001490| 69 6d 65 7a 6f 6e 65 2d | 61 62 73 6f 6c 75 74 65 |imezone-|absolute|
|000014a0| 2d 66 72 6f 6d 2d 67 72 | 65 67 6f 72 69 61 6e 20 |-from-gr|egorian |
|000014b0| 32 5d 20 34 5d 29 0a 23 | 40 32 39 20 43 6f 6e 76 |2] 4]).#|@29 Conv|
|000014c0| 65 72 74 20 54 49 4d 45 | 20 74 6f 20 64 61 79 20 |ert TIME| to day |
|000014d0| 6e 75 6d 62 65 72 2e 1f | 0a 28 64 65 66 61 6c 69 |number..|.(defali|
|000014e0| 61 73 20 27 67 6e 75 73 | 2d 74 69 6d 65 2d 74 6f |as 'gnus|-time-to|
|000014f0| 2d 64 61 79 20 23 5b 28 | 74 69 6d 65 29 20 22 c0 |-day #[(|time) ".|
|00001500| 09 21 1a c3 c4 5c 6e 38 | c5 5c 6e 38 c6 5c 6e 38 |.!...\n8|.\n8.\n8|
|00001510| 23 29 87 22 20 5b 64 65 | 63 6f 64 65 2d 74 69 6d |#)." [de|code-tim|
|00001520| 65 20 74 69 6d 65 20 74 | 69 6d 20 74 69 6d 65 7a |e time t|im timez|
|00001530| 6f 6e 65 2d 61 62 73 6f | 6c 75 74 65 2d 66 72 6f |one-abso|lute-fro|
|00001540| 6d 2d 67 72 65 67 6f 72 | 69 61 6e 20 34 20 33 20 |m-gregor|ian 4 3 |
|00001550| 35 5d 20 35 20 28 23 24 | 20 2e 20 35 33 30 38 29 |5] 5 (#$| . 5308)|
|00001560| 5d 29 0a 23 40 33 32 20 | 43 6f 6e 76 65 72 74 20 |]).#@32 |Convert |
|00001570| 44 41 54 45 20 74 6f 20 | 69 6e 74 65 72 6e 61 6c |DATE to |internal|
|00001580| 20 74 69 6d 65 2e 1f 0a | 28 64 65 66 61 6c 69 61 | time...|(defalia|
|00001590| 73 20 27 67 6e 75 73 2d | 65 6e 63 6f 64 65 2d 64 |s 'gnus-|encode-d|
|000015a0| 61 74 65 20 23 5b 28 64 | 61 74 65 29 20 22 c0 09 |ate #[(d|ate) "..|
|000015b0| 21 1a c3 c4 5c 6e 5c 22 | 19 c3 c5 c6 5c 6e c7 48 |!...\n\"|....\n.H|
|000015c0| 21 5c 22 1e 08 c9 0e 08 | 41 41 40 0e 08 41 40 0e |!\".....|AA@..A@.|
|000015d0| 08 40 09 41 41 40 09 41 | 40 09 40 ca cb 09 38 21 |.@.AA@.A|@.@...8!|
|000015e0| cc 5f 26 07 2b 87 22 20 | 5b 74 69 6d 65 7a 6f 6e |._&.+." |[timezon|
|000015f0| 65 2d 70 61 72 73 65 2d | 64 61 74 65 20 64 61 74 |e-parse-|date dat|
|00001600| 65 20 70 61 72 73 65 20 | 6d 61 70 63 61 72 20 23 |e parse |mapcar #|
|00001610| 5b 28 64 29 20 22 08 ad | 83 c1 08 21 87 22 20 5b |[(d) "..|...!." [|
|00001620| 64 20 73 74 72 69 6e 67 | 2d 74 6f 2d 69 6e 74 5d |d string|-to-int]|
|00001630| 20 32 5d 20 73 74 72 69 | 6e 67 2d 74 6f 2d 69 6e | 2] stri|ng-to-in|
|00001640| 74 20 74 69 6d 65 7a 6f | 6e 65 2d 70 61 72 73 65 |t timezo|ne-parse|
|00001650| 2d 74 69 6d 65 20 33 20 | 74 69 6d 65 20 65 6e 63 |-time 3 |time enc|
|00001660| 6f 64 65 2d 74 69 6d 65 | 20 74 69 6d 65 7a 6f 6e |ode-time| timezon|
|00001670| 65 2d 7a 6f 6e 65 2d 74 | 6f 2d 6d 69 6e 75 74 65 |e-zone-t|o-minute|
|00001680| 20 34 20 36 30 5d 20 31 | 30 20 28 23 24 20 2e 20 | 4 60] 1|0 (#$ . |
|00001690| 35 34 38 30 29 5d 29 0a | 23 40 33 30 20 53 75 62 |5480)]).|#@30 Sub|
|000016a0| 74 72 61 63 74 20 74 77 | 6f 20 69 6e 74 65 72 6e |tract tw|o intern|
|000016b0| 61 6c 20 74 69 6d 65 73 | 2e 1f 0a 28 64 65 66 61 |al times|...(defa|
|000016c0| 6c 69 61 73 20 27 67 6e | 75 73 2d 74 69 6d 65 2d |lias 'gn|us-time-|
|000016d0| 6d 69 6e 75 73 20 23 5b | 28 74 31 20 74 32 29 20 |minus #[|(t1 t2) |
|000016e0| 22 08 41 40 09 41 40 57 | 1a 08 40 09 40 5a 5c 6e |".A@.A@W|..@.@Z\n|
|000016f0| ab 83 c3 aa 81 c4 5a 5c | 6e ab 83 c5 aa 81 c4 08 |......Z\|n.......|
|00001700| 41 40 5c 5c 09 41 40 5a | 29 44 87 22 20 5b 74 31 |A@\\.A@Z|)D." [t1|
|00001710| 20 74 32 20 62 6f 72 72 | 6f 77 20 31 20 30 20 36 | t2 borr|ow 1 0 6|
|00001720| 35 35 33 36 5d 20 33 20 | 28 23 24 20 2e 20 35 37 |5536] 3 |(#$ . 57|
|00001730| 38 39 29 5d 29 0a 23 40 | 34 33 20 53 61 79 20 77 |89)]).#@|43 Say w|
|00001740| 68 65 74 68 65 72 20 74 | 69 6d 65 20 54 31 20 69 |hether t|ime T1 i|
|00001750| 73 20 6c 65 73 73 20 74 | 68 61 6e 20 74 69 6d 65 |s less t|han time|
|00001760| 20 54 32 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 | T2...(d|efalias |
|00001770| 27 67 6e 75 73 2d 74 69 | 6d 65 2d 6c 65 73 73 20 |'gnus-ti|me-less |
|00001780| 23 5b 28 74 31 20 74 32 | 29 20 22 08 40 09 40 57 |#[(t1 t2|) ".@.@W|
|00001790| ae 8e 08 40 09 40 55 ad | 87 08 41 40 09 41 40 57 |...@.@U.|..A@.A@W|
|000017a0| 87 22 20 5b 74 31 20 74 | 32 5d 20 32 20 28 23 24 |." [t1 t|2] 2 (#$|
|000017b0| 20 2e 20 35 39 34 37 29 | 5d 29 0a 28 64 65 66 61 | . 5947)|]).(defa|
|000017c0| 6c 69 61 73 20 27 67 6e | 75 73 2d 66 69 6c 65 2d |lias 'gn|us-file-|
|000017d0| 6e 65 77 65 72 2d 74 68 | 61 6e 20 23 5b 28 66 69 |newer-th|an #[(fi|
|000017e0| 6c 65 20 64 61 74 65 29 | 20 22 c0 c1 5c 6e 21 38 |le date)| "..\n!8|
|000017f0| 89 1b 40 0c 40 56 ae 8e | 0b 40 0c 40 55 ad 87 0b |..@.@V..|.@.@U...|
|00001800| 41 40 0c 41 40 56 29 87 | 22 20 5b 35 20 66 69 6c |A@.A@V).|" [5 fil|
|00001810| 65 2d 61 74 74 72 69 62 | 75 74 65 73 20 66 69 6c |e-attrib|utes fil|
|00001820| 65 20 66 64 61 74 65 20 | 64 61 74 65 5d 20 34 5d |e fdate |date] 4]|
|00001830| 29 0a 23 40 34 36 20 53 | 65 74 20 74 68 65 20 6b |).#@46 S|et the k|
|00001840| 65 79 73 20 69 6e 20 50 | 4c 49 53 54 20 69 6e 20 |eys in P|LIST in |
|00001850| 74 68 65 20 63 75 72 72 | 65 6e 74 20 6b 65 79 6d |the curr|ent keym|
|00001860| 61 70 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ap...(de|falias '|
|00001870| 67 6e 75 73 2d 6c 6f 63 | 61 6c 2d 73 65 74 2d 6b |gnus-loc|al-set-k|
|00001880| 65 79 73 20 27 28 6d 61 | 63 72 6f 20 2e 20 23 5b |eys '(ma|cro . #[|
|00001890| 28 26 72 65 73 74 20 70 | 6c 69 73 74 29 20 22 c0 |(&rest p|list) ".|
|000018a0| c1 c2 0b 44 45 87 22 20 | 5b 67 6e 75 73 2d 64 65 |...DE." |[gnus-de|
|000018b0| 66 69 6e 65 2d 6b 65 79 | 73 2d 31 20 28 63 75 72 |fine-key|s-1 (cur|
|000018c0| 72 65 6e 74 2d 6c 6f 63 | 61 6c 2d 6d 61 70 29 20 |rent-loc|al-map) |
|000018d0| 71 75 6f 74 65 20 70 6c | 69 73 74 5d 20 34 20 28 |quote pl|ist] 4 (|
|000018e0| 23 24 20 2e 20 36 31 39 | 39 29 5d 29 29 0a 23 40 |#$ . 619|9)])).#@|
|000018f0| 33 37 20 44 65 66 69 6e | 65 20 61 6c 6c 20 6b 65 |37 Defin|e all ke|
|00001900| 79 73 20 69 6e 20 50 4c | 49 53 54 20 69 6e 20 4b |ys in PL|IST in K|
|00001910| 45 59 4d 41 50 2e 1f 0a | 28 64 65 66 61 6c 69 61 |EYMAP...|(defalia|
|00001920| 73 20 27 67 6e 75 73 2d | 64 65 66 69 6e 65 2d 6b |s 'gnus-|define-k|
|00001930| 65 79 73 20 27 28 6d 61 | 63 72 6f 20 2e 20 23 5b |eys '(ma|cro . #[|
|00001940| 28 6b 65 79 6d 61 70 20 | 26 72 65 73 74 20 70 6c |(keymap |&rest pl|
|00001950| 69 73 74 29 20 22 c0 c1 | 5c 6e 44 c1 0b 44 45 87 |ist) "..|\nD..DE.|
|00001960| 22 20 5b 67 6e 75 73 2d | 64 65 66 69 6e 65 2d 6b |" [gnus-|define-k|
|00001970| 65 79 73 2d 31 20 71 75 | 6f 74 65 20 6b 65 79 6d |eys-1 qu|ote keym|
|00001980| 61 70 20 70 6c 69 73 74 | 5d 20 34 20 28 23 24 20 |ap plist|] 4 (#$ |
|00001990| 2e 20 36 33 38 37 29 5d | 29 29 0a 23 40 37 38 20 |. 6387)]|)).#@78 |
|000019a0| 44 65 66 69 6e 65 20 61 | 6c 6c 20 6b 65 79 73 20 |Define a|ll keys |
|000019b0| 69 6e 20 50 4c 49 53 54 | 20 69 6e 20 4b 45 59 4d |in PLIST| in KEYM|
|000019c0| 41 50 20 77 69 74 68 6f | 75 74 20 6f 76 65 72 77 |AP witho|ut overw|
|000019d0| 72 69 74 69 6e 67 20 70 | 72 65 76 69 6f 75 73 20 |riting p|revious |
|000019e0| 64 65 66 69 6e 69 74 69 | 6f 6e 73 2e 1f 0a 28 64 |definiti|ons...(d|
|000019f0| 65 66 61 6c 69 61 73 20 | 27 67 6e 75 73 2d 64 65 |efalias |'gnus-de|
|00001a00| 66 69 6e 65 2d 6b 65 79 | 73 2d 73 61 66 65 20 27 |fine-key|s-safe '|
|00001a10| 28 6d 61 63 72 6f 20 2e | 20 23 5b 28 6b 65 79 6d |(macro .| #[(keym|
|00001a20| 61 70 20 26 72 65 73 74 | 20 70 6c 69 73 74 29 20 |ap &rest| plist) |
|00001a30| 22 c0 c1 5c 6e 44 c1 0b | 44 c4 42 42 42 87 22 20 |"..\nD..|D.BBB." |
|00001a40| 5b 67 6e 75 73 2d 64 65 | 66 69 6e 65 2d 6b 65 79 |[gnus-de|fine-key|
|00001a50| 73 2d 31 20 71 75 6f 74 | 65 20 6b 65 79 6d 61 70 |s-1 quot|e keymap|
|00001a60| 20 70 6c 69 73 74 20 28 | 74 29 5d 20 34 20 28 23 | plist (|t)] 4 (#|
|00001a70| 24 20 2e 20 36 35 36 30 | 29 5d 29 29 0a 28 62 79 |$ . 6560|)])).(by|
|00001a80| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 c2 c3 23 88 c0 |te-code |"....#..|
|00001a90| c4 c2 c3 23 88 c0 c5 c2 | c3 23 87 22 20 5b 70 75 |...#....|.#." [pu|
|00001aa0| 74 20 67 6e 75 73 2d 64 | 65 66 69 6e 65 2d 6b 65 |t gnus-d|efine-ke|
|00001ab0| 79 73 20 6c 69 73 70 2d | 69 6e 64 65 6e 74 2d 66 |ys lisp-|indent-f|
|00001ac0| 75 6e 63 74 69 6f 6e 20 | 31 20 67 6e 75 73 2d 64 |unction |1 gnus-d|
|00001ad0| 65 66 69 6e 65 2d 6b 65 | 79 73 2d 73 61 66 65 20 |efine-ke|ys-safe |
|00001ae0| 67 6e 75 73 2d 6c 6f 63 | 61 6c 2d 73 65 74 2d 6b |gnus-loc|al-set-k|
|00001af0| 65 79 73 5d 20 34 29 0a | 23 40 33 37 20 44 65 66 |eys] 4).|#@37 Def|
|00001b00| 69 6e 65 20 61 6c 6c 20 | 6b 65 79 73 20 69 6e 20 |ine all |keys in |
|00001b10| 50 4c 49 53 54 20 69 6e | 20 4b 45 59 4d 41 50 2e |PLIST in| KEYMAP.|
|00001b20| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 67 6e 75 |..(defal|ias 'gnu|
|00001b30| 73 2d 64 65 66 69 6e 65 | 2d 6b 65 79 6d 61 70 20 |s-define|-keymap |
|00001b40| 27 28 6d 61 63 72 6f 20 | 2e 20 23 5b 28 6b 65 79 |'(macro |. #[(key|
|00001b50| 6d 61 70 20 26 72 65 73 | 74 20 70 6c 69 73 74 29 |map &res|t plist)|
|00001b60| 20 22 c0 09 c2 0b 44 45 | 87 22 20 5b 67 6e 75 73 | "....DE|." [gnus|
|00001b70| 2d 64 65 66 69 6e 65 2d | 6b 65 79 73 2d 31 20 6b |-define-|keys-1 k|
|00001b80| 65 79 6d 61 70 20 71 75 | 6f 74 65 20 70 6c 69 73 |eymap qu|ote plis|
|00001b90| 74 5d 20 34 20 28 23 24 | 20 2e 20 36 39 30 39 29 |t] 4 (#$| . 6909)|
|00001ba0| 5d 29 29 0a 28 70 75 74 | 20 27 67 6e 75 73 2d 64 |])).(put| 'gnus-d|
|00001bb0| 65 66 69 6e 65 2d 6b 65 | 79 6d 61 70 20 27 6c 69 |efine-ke|ymap 'li|
|00001bc0| 73 70 2d 69 6e 64 65 6e | 74 2d 66 75 6e 63 74 69 |sp-inden|t-functi|
|00001bd0| 6f 6e 20 31 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |on 1).(d|efalias |
|00001be0| 27 67 6e 75 73 2d 64 65 | 66 69 6e 65 2d 6b 65 79 |'gnus-de|fine-key|
|00001bf0| 73 2d 31 20 23 5b 28 6b | 65 79 6d 61 70 20 70 6c |s-1 #[(k|eymap pl|
|00001c00| 69 73 74 20 26 6f 70 74 | 69 6f 6e 61 6c 20 73 61 |ist &opt|ional sa|
|00001c10| 66 65 29 20 22 08 ac 84 | c1 c2 21 88 08 39 ab 85 |fe) "...|..!..9..|
|00001c20| 08 4a 10 aa a4 c3 08 21 | ac 9f 08 3c ab 9b 08 40 |.J.....!|...<...@|
|00001c30| c4 4c 88 c5 08 40 21 88 | c6 08 41 41 40 4a 08 41 |.L...@!.|..AA@J.A|
|00001c40| 40 08 40 23 88 08 40 4a | 10 c4 1e 07 0e 08 ad b7 |@.@#..@J|........|
|00001c50| 0e 08 89 41 16 08 40 89 | 16 07 39 ab 85 0e 07 4a |...A..@.|..9....J|
|00001c60| 16 07 0e 09 ab 89 ca 08 | 0e 07 5c 22 cb 61 ab 8f |........|..\".a..|
|00001c70| c6 08 0e 07 0e 08 89 41 | 16 08 40 23 88 aa 4e 0e |.......A|..@#..N.|
|00001c80| 08 89 41 16 08 88 aa 45 | 29 87 22 20 5b 6b 65 79 |..A....E|)." [key|
|00001c90| 6d 61 70 20 65 72 72 6f | 72 20 22 43 61 6e 27 74 |map erro|r "Can't|
|00001ca0| 20 73 65 74 20 6b 65 79 | 73 20 69 6e 20 61 20 6e | set key|s in a n|
|00001cb0| 75 6c 6c 20 6b 65 79 6d | 61 70 22 20 6b 65 79 6d |ull keym|ap" keym|
|00001cc0| 61 70 70 20 6e 69 6c 20 | 64 65 66 69 6e 65 2d 70 |app nil |define-p|
|00001cd0| 72 65 66 69 78 2d 63 6f | 6d 6d 61 6e 64 20 64 65 |refix-co|mmand de|
|00001ce0| 66 69 6e 65 2d 6b 65 79 | 20 6b 65 79 20 70 6c 69 |fine-key| key pli|
|00001cf0| 73 74 20 73 61 66 65 20 | 6c 6f 6f 6b 75 70 2d 6b |st safe |lookup-k|
|00001d00| 65 79 20 75 6e 64 65 66 | 69 6e 65 64 5d 20 35 5d |ey undef|ined] 5]|
|00001d10| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 67 6e 75 |).(defal|ias 'gnu|
|00001d20| 73 2d 63 6f 6d 70 6c 65 | 74 69 6e 67 2d 72 65 61 |s-comple|ting-rea|
|00001d30| 64 20 23 5b 28 64 65 66 | 61 75 6c 74 20 70 72 6f |d #[(def|ault pro|
|00001d40| 6d 70 74 20 26 72 65 73 | 74 20 61 72 67 73 29 20 |mpt &res|t args) |
|00001d50| 22 08 ab 87 09 c2 08 c3 | 52 aa 83 09 c4 50 19 c5 |".......|R....P..|
|00001d60| c6 09 0e 07 23 89 1e 08 | ab 87 0e 08 47 c9 55 ab |....#...|....G.U.|
|00001d70| 83 08 aa 82 0e 08 2a 87 | 22 20 5b 64 65 66 61 75 |......*.|" [defau|
|00001d80| 6c 74 20 70 72 6f 6d 70 | 74 20 22 20 28 64 65 66 |lt promp|t " (def|
|00001d90| 61 75 6c 74 20 22 20 22 | 29 20 22 20 22 20 22 20 |ault " "|) " " " |
|00001da0| 61 70 70 6c 79 20 63 6f | 6d 70 6c 65 74 69 6e 67 |apply co|mpleting|
|00001db0| 2d 72 65 61 64 20 61 72 | 67 73 20 61 6e 73 77 65 |-read ar|gs answe|
|00001dc0| 72 20 30 5d 20 35 5d 29 | 0a 28 64 65 66 61 6c 69 |r 0] 5])|.(defali|
|00001dd0| 61 73 20 27 67 6e 75 73 | 2d 79 2d 6f 72 2d 6e 2d |as 'gnus|-y-or-n-|
|00001de0| 70 20 23 5b 28 70 72 6f | 6d 70 74 29 20 22 c0 09 |p #[(pro|mpt) "..|
|00001df0| 21 c2 c3 21 88 87 22 20 | 5b 79 2d 6f 72 2d 6e 2d |!..!.." |[y-or-n-|
|00001e00| 70 20 70 72 6f 6d 70 74 | 20 6d 65 73 73 61 67 65 |p prompt| message|
|00001e10| 20 22 22 5d 20 33 5d 29 | 0a 28 64 65 66 61 6c 69 | ""] 3])|.(defali|
|00001e20| 61 73 20 27 67 6e 75 73 | 2d 79 65 73 2d 6f 72 2d |as 'gnus|-yes-or-|
|00001e30| 6e 6f 2d 70 20 23 5b 28 | 70 72 6f 6d 70 74 29 20 |no-p #[(|prompt) |
|00001e40| 22 c0 09 21 c2 c3 21 88 | 87 22 20 5b 79 65 73 2d |"..!..!.|." [yes-|
|00001e50| 6f 72 2d 6e 6f 2d 70 20 | 70 72 6f 6d 70 74 20 6d |or-no-p |prompt m|
|00001e60| 65 73 73 61 67 65 20 22 | 22 5d 20 33 5d 29 0a 23 |essage "|"] 3]).#|
|00001e70| 40 35 33 20 52 65 74 75 | 72 6e 20 61 20 73 74 72 |@53 Retu|rn a str|
|00001e80| 69 6e 67 20 6c 69 6b 65 | 20 44 44 2d 4d 4d 4d 20 |ing like| DD-MMM |
|00001e90| 66 72 6f 6d 20 61 20 62 | 69 67 20 6d 65 73 73 79 |from a b|ig messy|
|00001ea0| 20 73 74 72 69 6e 67 1f | 0a 28 64 65 66 61 6c 69 | string.|.(defali|
|00001eb0| 61 73 20 27 67 6e 75 73 | 2d 64 64 2d 6d 6d 6d 20 |as 'gnus|-dd-mmm |
|00001ec0| 23 5b 28 6d 65 73 73 79 | 2d 64 61 74 65 29 20 22 |#[(messy|-date) "|
|00001ed0| c0 c1 c2 8f 89 1b ac 83 | c4 aa 96 c5 c6 c0 c7 c8 |........|........|
|00001ee0| 8f c9 ca 0b cb 48 21 53 | 0e 0c 38 40 ae 81 cd 21 |.....H!S|..8@...!|
|00001ef0| 23 29 87 22 20 5b 6e 69 | 6c 20 28 74 69 6d 65 7a |#)." [ni|l (timez|
|00001f00| 6f 6e 65 2d 70 61 72 73 | 65 2d 64 61 74 65 20 6d |one-pars|e-date m|
|00001f10| 65 73 73 79 2d 64 61 74 | 65 29 20 28 28 65 72 72 |essy-dat|e) ((err|
|00001f20| 6f 72 29 29 20 64 61 74 | 65 76 65 63 20 22 3f 3f |or)) dat|evec "??|
|00001f30| 2d 3f 3f 3f 22 20 66 6f | 72 6d 61 74 20 22 25 32 |-???" fo|rmat "%2|
|00001f40| 73 2d 25 73 22 20 28 62 | 79 74 65 2d 63 6f 64 65 |s-%s" (b|yte-code|
|00001f50| 20 22 c0 c1 5c 6e c3 48 | 21 21 87 22 20 5b 6e 75 | "..\n.H|!!." [nu|
|00001f60| 6d 62 65 72 2d 74 6f 2d | 73 74 72 69 6e 67 20 73 |mber-to-|string s|
|00001f70| 74 72 69 6e 67 2d 74 6f | 2d 6e 75 6d 62 65 72 20 |tring-to|-number |
|00001f80| 64 61 74 65 76 65 63 20 | 32 5d 20 34 29 20 28 28 |datevec |2] 4) ((|
|00001f90| 65 72 72 6f 72 20 22 3f | 3f 22 29 29 20 63 61 70 |error "?|?")) cap|
|00001fa0| 69 74 61 6c 69 7a 65 20 | 73 74 72 69 6e 67 2d 74 |italize |string-t|
|00001fb0| 6f 2d 6e 75 6d 62 65 72 | 20 31 20 74 69 6d 65 7a |o-number| 1 timez|
|00001fc0| 6f 6e 65 2d 6d 6f 6e 74 | 68 73 2d 61 73 73 6f 63 |one-mont|hs-assoc|
|00001fd0| 20 22 3f 3f 3f 22 5d 20 | 38 20 28 23 24 20 2e 20 | "???"] |8 (#$ . |
|00001fe0| 37 37 39 36 29 5d 29 0a | 23 40 38 38 20 43 6f 6e |7796)]).|#@88 Con|
|00001ff0| 76 65 72 74 20 44 41 54 | 45 20 73 74 72 69 6e 67 |vert DAT|E string|
|00002000| 20 74 6f 20 45 6d 61 63 | 73 20 74 69 6d 65 2e 0a | to Emac|s time..|
|00002010| 43 61 63 68 65 20 74 68 | 65 20 72 65 73 75 6c 74 |Cache th|e result|
|00002020| 20 61 73 20 61 20 74 65 | 78 74 20 70 72 6f 70 65 | as a te|xt prope|
|00002030| 72 74 79 20 73 74 6f 72 | 65 64 20 69 6e 20 44 41 |rty stor|ed in DA|
|00002040| 54 45 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |TE...(de|falias '|
|00002050| 67 6e 75 73 2d 64 61 74 | 65 2d 67 65 74 2d 74 69 |gnus-dat|e-get-ti|
|00002060| 6d 65 20 27 28 6d 61 63 | 72 6f 20 2e 20 23 5b 28 |me '(mac|ro . #[(|
|00002070| 64 61 74 65 29 20 22 c0 | c1 5c 6e 44 43 c3 42 42 |date) ".|.\nDC.BB|
|00002080| 87 22 20 5b 6c 65 74 20 | 64 20 64 61 74 65 20 28 |." [let |d date (|
|00002090| 28 69 66 20 28 65 71 75 | 61 6c 20 22 22 20 64 29 |(if (equ|al "" d)|
|000020a0| 20 27 28 30 20 30 29 20 | 28 6f 72 20 28 67 65 74 | '(0 0) |(or (get|
|000020b0| 2d 74 65 78 74 2d 70 72 | 6f 70 65 72 74 79 20 30 |-text-pr|operty 0|
|000020c0| 20 27 67 6e 75 73 2d 74 | 69 6d 65 20 64 29 20 28 | 'gnus-t|ime d) (|
|000020d0| 6c 65 74 20 28 28 74 69 | 6d 65 20 28 6e 6e 6d 61 |let ((ti|me (nnma|
|000020e0| 69 6c 2d 64 61 74 65 2d | 74 6f 2d 74 69 6d 65 20 |il-date-|to-time |
|000020f0| 64 29 29 29 20 28 70 75 | 74 2d 74 65 78 74 2d 70 |d))) (pu|t-text-p|
|00002100| 72 6f 70 65 72 74 79 20 | 30 20 31 20 27 67 6e 75 |roperty |0 1 'gnu|
|00002110| 73 2d 74 69 6d 65 20 74 | 69 6d 65 20 64 29 20 74 |s-time t|ime d) t|
|00002120| 69 6d 65 29 29 29 29 5d | 20 33 20 28 23 24 20 2e |ime))))]| 3 (#$ .|
|00002130| 20 38 31 37 33 29 5d 29 | 29 0a 23 40 35 30 20 52 | 8173)])|).#@50 R|
|00002140| 65 74 75 72 6e 20 61 20 | 73 74 72 69 6e 67 20 6f |eturn a |string o|
|00002150| 66 20 54 49 4d 45 20 69 | 6e 20 59 59 4d 4d 44 44 |f TIME i|n YYMMDD|
|00002160| 54 48 48 4d 4d 53 53 20 | 66 6f 72 6d 61 74 2e 1f |THHMMSS |format..|
|00002170| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 67 6e 75 73 |.(defali|as 'gnus|
|00002180| 2d 74 69 6d 65 2d 69 73 | 6f 38 36 30 31 20 23 5b |-time-is|o8601 #[|
|00002190| 28 74 69 6d 65 29 20 22 | c0 c1 5c 6e 5c 22 87 22 |(time) "|..\n\"."|
|000021a0| 20 5b 66 6f 72 6d 61 74 | 2d 74 69 6d 65 2d 73 74 | [format|-time-st|
|000021b0| 72 69 6e 67 20 22 25 59 | 25 6d 25 64 54 25 48 25 |ring "%Y|%m%dT%H%|
|000021c0| 4d 25 53 22 20 74 69 6d | 65 5d 20 33 20 28 23 24 |M%S" tim|e] 3 (#$|
|000021d0| 20 2e 20 38 35 31 31 29 | 5d 29 0a 28 62 79 74 65 | . 8511)|]).(byte|
|000021e0| 2d 63 6f 64 65 20 22 c0 | c1 4e c2 73 ac 85 c3 c4 |-code ".|.N.s....|
|000021f0| c0 5c 22 88 c5 c0 c1 c6 | 23 87 22 20 5b 67 6e 75 |.\".....|#." [gnu|
|00002200| 73 2d 74 69 6d 65 2d 69 | 73 6f 38 36 30 31 20 62 |s-time-i|so8601 b|
|00002210| 79 74 65 2d 6f 70 74 69 | 6d 69 7a 65 72 20 28 6e |yte-opti|mizer (n|
|00002220| 69 6c 20 62 79 74 65 2d | 63 6f 6d 70 69 6c 65 2d |il byte-|compile-|
|00002230| 69 6e 6c 69 6e 65 2d 65 | 78 70 61 6e 64 29 20 65 |inline-e|xpand) e|
|00002240| 72 72 6f 72 20 22 25 73 | 20 61 6c 72 65 61 64 79 |rror "%s| already|
|00002250| 20 68 61 73 20 61 20 62 | 79 74 65 2d 6f 70 74 69 | has a b|yte-opti|
|00002260| 6d 69 7a 65 72 2c 20 63 | 61 6e 27 74 20 6d 61 6b |mizer, c|an't mak|
|00002270| 65 20 69 74 20 69 6e 6c | 69 6e 65 22 20 70 75 74 |e it inl|ine" put|
|00002280| 20 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 2d 69 6e | byte-co|mpile-in|
|00002290| 6c 69 6e 65 2d 65 78 70 | 61 6e 64 5d 20 34 29 0a |line-exp|and] 4).|
|000022a0| 23 40 35 31 20 43 6f 6e | 76 65 72 74 20 74 68 65 |#@51 Con|vert the|
|000022b0| 20 64 61 74 65 20 66 69 | 65 6c 64 20 69 6e 20 48 | date fi|eld in H|
|000022c0| 45 41 44 45 52 20 74 6f | 20 59 59 4d 4d 44 44 54 |EADER to| YYMMDDT|
|000022d0| 48 48 4d 4d 53 53 1f 0a | 28 64 65 66 61 6c 69 61 |HHMMSS..|(defalia|
|000022e0| 73 20 27 67 6e 75 73 2d | 64 61 74 65 2d 69 73 6f |s 'gnus-|date-iso|
|000022f0| 38 36 30 31 20 23 5b 28 | 68 65 61 64 65 72 29 20 |8601 #[(|header) |
|00002300| 22 c0 c1 c2 8f 87 22 20 | 5b 6e 69 6c 20 28 62 79 |"....." |[nil (by|
|00002310| 74 65 2d 63 6f 64 65 20 | 22 08 c1 48 89 1a c3 6b |te-code |"..H...k|
|00002320| ab 83 c4 aa 98 c5 c6 c7 | 5c 6e 23 ae 91 c8 5c 6e |........|\n#...\n|
|00002330| 21 1e 09 ca c6 cb c7 0e | 09 5c 6e 25 88 0e 09 29 |!.......|.\n%...)|
|00002340| 29 1e 09 cc cd 0e 09 5c | 22 29 87 22 20 5b 68 65 |)......\|")." [he|
|00002350| 61 64 65 72 20 33 20 64 | 20 22 22 20 28 30 20 30 |ader 3 d| "" (0 0|
|00002360| 29 20 67 65 74 2d 74 65 | 78 74 2d 70 72 6f 70 65 |) get-te|xt-prope|
|00002370| 72 74 79 20 30 20 67 6e | 75 73 2d 74 69 6d 65 20 |rty 0 gn|us-time |
|00002380| 6e 6e 6d 61 69 6c 2d 64 | 61 74 65 2d 74 6f 2d 74 |nnmail-d|ate-to-t|
|00002390| 69 6d 65 20 74 69 6d 65 | 20 70 75 74 2d 74 65 78 |ime time| put-tex|
|000023a0| 74 2d 70 72 6f 70 65 72 | 74 79 20 31 20 66 6f 72 |t-proper|ty 1 for|
|000023b0| 6d 61 74 2d 74 69 6d 65 | 2d 73 74 72 69 6e 67 20 |mat-time|-string |
|000023c0| 22 25 59 25 6d 25 64 54 | 25 48 25 4d 25 53 22 5d |"%Y%m%dT|%H%M%S"]|
|000023d0| 20 37 29 20 28 28 65 72 | 72 6f 72 20 22 22 29 29 | 7) ((er|ror ""))|
|000023e0| 5d 20 33 20 28 23 24 20 | 2e 20 38 38 36 39 29 5d |] 3 (#$ |. 8869)]|
|000023f0| 29 0a 23 40 32 38 20 51 | 75 6f 74 65 20 61 6c 6c |).#@28 Q|uote all|
|00002400| 20 22 25 22 27 73 20 69 | 6e 20 53 54 52 49 4e 47 | "%"'s i|n STRING|
|00002410| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 67 6e |...(defa|lias 'gn|
|00002420| 75 73 2d 6d 6f 64 65 2d | 73 74 72 69 6e 67 2d 71 |us-mode-|string-q|
|00002430| 75 6f 74 65 20 23 5b 28 | 73 74 72 69 6e 67 29 20 |uote #[(|string) |
|00002440| 22 8a c0 20 88 09 63 88 | 65 62 88 c2 c3 c4 c5 23 |".. ..c.|eb.....#|
|00002450| ab 85 c3 63 88 aa 74 c6 | 20 29 87 22 20 5b 67 6e |...c..t.| )." [gn|
|00002460| 75 73 2d 73 65 74 2d 77 | 6f 72 6b 2d 62 75 66 66 |us-set-w|ork-buff|
|00002470| 65 72 20 73 74 72 69 6e | 67 20 73 65 61 72 63 68 |er strin|g search|
|00002480| 2d 66 6f 72 77 61 72 64 | 20 22 25 22 20 6e 69 6c |-forward| "%" nil|
|00002490| 20 74 20 62 75 66 66 65 | 72 2d 73 74 72 69 6e 67 | t buffe|r-string|
|000024a0| 5d 20 34 20 28 23 24 20 | 2e 20 39 32 30 37 29 5d |] 4 (#$ |. 9207)]|
|000024b0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 67 6e 75 |).(defal|ias 'gnu|
|000024c0| 73 2d 6d 61 6b 65 2d 68 | 61 73 68 74 61 62 6c 65 |s-make-h|ashtable|
|000024d0| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 68 61 | #[(&opt|ional ha|
|000024e0| 73 68 73 69 7a 65 29 20 | 22 c0 09 ab 87 c2 09 21 |shsize) |"......!|
|000024f0| c3 5d aa 81 c3 c4 5c 22 | 87 22 20 5b 6d 61 6b 65 |.]....\"|." [make|
|00002500| 2d 76 65 63 74 6f 72 20 | 68 61 73 68 73 69 7a 65 |-vector |hashsize|
|00002510| 20 67 6e 75 73 2d 63 72 | 65 61 74 65 2d 68 61 73 | gnus-cr|eate-has|
|00002520| 68 2d 73 69 7a 65 20 32 | 35 36 20 30 5d 20 33 5d |h-size 2|56 0] 3]|
|00002530| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 67 6e 75 |).(defal|ias 'gnu|
|00002540| 73 2d 63 72 65 61 74 65 | 2d 68 61 73 68 2d 73 69 |s-create|-hash-si|
|00002550| 7a 65 20 23 5b 28 6d 69 | 6e 29 20 22 c0 19 c0 5c |ze #[(mi|n) "...\|
|00002560| 6e 57 ab 87 09 89 5c 5c | 89 11 aa 75 09 29 87 22 |nW....\\|...u.)."|
|00002570| 20 5b 31 20 69 20 6d 69 | 6e 5d 20 33 5d 29 0a 28 | [1 i mi|n] 3]).(|
|00002580| 63 75 73 74 6f 6d 2d 64 | 65 63 6c 61 72 65 2d 76 |custom-d|eclare-v|
|00002590| 61 72 69 61 62 6c 65 20 | 27 67 6e 75 73 2d 76 65 |ariable |'gnus-ve|
|000025a0| 72 62 6f 73 65 20 27 37 | 20 22 2a 49 6e 74 65 67 |rbose '7| "*Integ|
|000025b0| 65 72 20 74 68 61 74 20 | 73 61 79 73 20 68 6f 77 |er that |says how|
|000025c0| 20 76 65 72 62 6f 73 65 | 20 47 6e 75 73 20 73 68 | verbose| Gnus sh|
|000025d0| 6f 75 6c 64 20 62 65 2e | 5c 6e 54 68 65 20 68 69 |ould be.|\nThe hi|
|000025e0| 67 68 65 72 20 74 68 65 | 20 6e 75 6d 62 65 72 2c |gher the| number,|
|000025f0| 20 74 68 65 20 6d 6f 72 | 65 20 6d 65 73 73 61 67 | the mor|e messag|
|00002600| 65 73 20 47 6e 75 73 20 | 77 69 6c 6c 20 66 6c 61 |es Gnus |will fla|
|00002610| 73 68 20 74 6f 20 73 61 | 79 20 77 68 61 74 5c 6e |sh to sa|y what\n|
|00002620| 69 74 27 73 20 64 6f 69 | 6e 67 2e 20 20 41 74 20 |it's doi|ng. At |
|00002630| 7a 65 72 6f 2c 20 47 6e | 75 73 20 77 69 6c 6c 20 |zero, Gn|us will |
|00002640| 62 65 20 74 6f 74 61 6c | 6c 79 20 6d 75 74 65 3b |be total|ly mute;|
|00002650| 20 61 74 20 66 69 76 65 | 2c 20 47 6e 75 73 20 77 | at five|, Gnus w|
|00002660| 69 6c 6c 5c 6e 64 69 73 | 70 6c 61 79 20 6d 6f 73 |ill\ndis|play mos|
|00002670| 74 20 69 6d 70 6f 72 74 | 61 6e 74 20 6d 65 73 73 |t import|ant mess|
|00002680| 61 67 65 73 3b 20 61 6e | 64 20 61 74 20 74 65 6e |ages; an|d at ten|
|00002690| 2c 20 47 6e 75 73 20 77 | 69 6c 6c 20 6b 65 65 70 |, Gnus w|ill keep|
|000026a0| 20 6f 6e 5c 6e 6a 61 62 | 62 65 72 69 6e 67 20 61 | on\njab|bering a|
|000026b0| 6c 6c 20 74 68 65 20 74 | 69 6d 65 2e 22 20 3a 67 |ll the t|ime." :g|
|000026c0| 72 6f 75 70 20 27 67 6e | 75 73 2d 73 74 61 72 74 |roup 'gn|us-start|
|000026d0| 20 3a 74 79 70 65 20 27 | 69 6e 74 65 67 65 72 29 | :type '|integer)|
|000026e0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 67 6e 75 73 |.(defali|as 'gnus|
|000026f0| 2d 6d 65 73 73 61 67 65 | 20 23 5b 28 6c 65 76 65 |-message| #[(leve|
|00002700| 6c 20 26 72 65 73 74 20 | 61 72 67 73 29 20 22 08 |l &rest |args) ".|
|00002710| 09 58 ab 85 c2 c3 0c 5c | 22 87 c2 c5 0c 5c 22 87 |.X.....\|"....\".|
|00002720| 22 20 5b 6c 65 76 65 6c | 20 67 6e 75 73 2d 76 65 |" [level| gnus-ve|
|00002730| 72 62 6f 73 65 20 61 70 | 70 6c 79 20 6d 65 73 73 |rbose ap|ply mess|
|00002740| 61 67 65 20 61 72 67 73 | 20 66 6f 72 6d 61 74 5d |age args| format]|
|00002750| 20 33 5d 29 0a 23 40 36 | 35 20 42 65 65 70 20 61 | 3]).#@6|5 Beep a|
|00002760| 6e 20 65 72 72 6f 72 20 | 69 66 20 4c 45 56 45 4c |n error |if LEVEL|
|00002770| 20 69 73 20 65 71 75 61 | 6c 20 74 6f 20 6f 72 20 | is equa|l to or |
|00002780| 6c 65 73 73 20 74 68 61 | 6e 20 60 67 6e 75 73 2d |less tha|n `gnus-|
|00002790| 76 65 72 62 6f 73 65 27 | 2e 1f 0a 28 64 65 66 61 |verbose'|...(defa|
|000027a0| 6c 69 61 73 20 27 67 6e | 75 73 2d 65 72 72 6f 72 |lias 'gn|us-error|
|000027b0| 20 23 5b 28 6c 65 76 65 | 6c 20 26 72 65 73 74 20 | #[(leve|l &rest |
|000027c0| 61 72 67 73 29 20 22 c0 | 09 21 5c 6e 58 ab a4 c3 |args) ".|.!\nX...|
|000027d0| c4 0d 5c 22 88 c6 20 88 | c7 1e 08 c9 09 21 ab 93 |..\".. .|.....!..|
|000027e0| 09 c0 09 21 5a ca 5f 89 | 16 08 cb 55 ac 85 cc 0e |...!Z._.|...U....|
|000027f0| 08 21 88 29 c7 87 22 20 | 5b 66 6c 6f 6f 72 20 6c |.!.).." |[floor l|
|00002800| 65 76 65 6c 20 67 6e 75 | 73 2d 76 65 72 62 6f 73 |evel gnu|s-verbos|
|00002810| 65 20 61 70 70 6c 79 20 | 6d 65 73 73 61 67 65 20 |e apply |message |
|00002820| 61 72 67 73 20 64 69 6e | 67 20 6e 69 6c 20 64 75 |args din|g nil du|
|00002830| 72 61 74 69 6f 6e 20 66 | 6c 6f 61 74 70 20 31 30 |ration f|loatp 10|
|00002840| 20 30 20 73 69 74 2d 66 | 6f 72 5d 20 33 20 28 23 | 0 sit-f|or] 3 (#|
|00002850| 24 20 2e 20 31 30 30 37 | 34 29 5d 29 0a 23 40 34 |$ . 1007|4)]).#@4|
|00002860| 35 20 52 65 74 75 72 6e | 20 61 20 6c 69 73 74 20 |5 Return| a list |
|00002870| 6f 66 20 4d 65 73 73 61 | 67 65 2d 49 44 73 20 69 |of Messa|ge-IDs i|
|00002880| 6e 20 52 45 46 45 52 45 | 4e 43 45 53 2e 1f 0a 28 |n REFERE|NCES...(|
|00002890| 64 65 66 61 6c 69 61 73 | 20 27 67 6e 75 73 2d 73 |defalias| 'gnus-s|
|000028a0| 70 6c 69 74 2d 72 65 66 | 65 72 65 6e 63 65 73 20 |plit-ref|erences |
|000028b0| 23 5b 28 72 65 66 65 72 | 65 6e 63 65 73 29 20 22 |#[(refer|ences) "|
|000028c0| c0 c1 1a 1b c4 c5 0e 06 | 0b 23 ab 8e 0e 06 c0 94 |........|.#......|
|000028d0| c0 95 89 13 4f 5c 6e 42 | 12 aa 6a 5c 6e 9f 2a 87 |....O\nB|..j\n.*.|
|000028e0| 22 20 5b 30 20 6e 69 6c | 20 69 64 73 20 62 65 67 |" [0 nil| ids beg|
|000028f0| 20 73 74 72 69 6e 67 2d | 6d 61 74 63 68 20 22 3c | string-|match "<|
|00002900| 5b 5e 3e 5d 2b 3e 22 20 | 72 65 66 65 72 65 6e 63 |[^>]+>" |referenc|
|00002910| 65 73 5d 20 34 20 28 23 | 24 20 2e 20 31 30 33 33 |es] 4 (#|$ . 1033|
|00002920| 38 29 5d 29 0a 23 40 38 | 32 20 52 65 74 75 72 6e |8)]).#@8|2 Return|
|00002930| 20 74 68 65 20 6c 61 73 | 74 20 4d 65 73 73 61 67 | the las|t Messag|
|00002940| 65 2d 49 44 20 69 6e 20 | 52 45 46 45 52 45 4e 43 |e-ID in |REFERENC|
|00002950| 45 53 2e 0a 49 66 20 4e | 2c 20 72 65 74 75 72 6e |ES..If N|, return|
|00002960| 20 74 68 65 20 4e 74 68 | 20 61 6e 63 65 73 74 6f | the Nth| ancesto|
|00002970| 72 20 69 6e 73 74 65 61 | 64 2e 1f 0a 28 64 65 66 |r instea|d...(def|
|00002980| 61 6c 69 61 73 20 27 67 | 6e 75 73 2d 70 61 72 65 |alias 'g|nus-pare|
|00002990| 6e 74 2d 69 64 20 23 5b | 28 72 65 66 65 72 65 6e |nt-id #[|(referen|
|000029a0| 63 65 73 20 26 6f 70 74 | 69 6f 6e 61 6c 20 6e 29 |ces &opt|ional n)|
|000029b0| 20 22 08 ad af 08 18 c1 | c2 1b 1c c5 c6 08 0c 23 | "......|.......#|
|000029c0| ab 8d 08 c1 94 c1 95 89 | 14 4f 0b 42 13 aa 6c 0b |........|.O.B..l.|
|000029d0| 9f 2b 1b 0e 07 ae 81 c8 | 0b 9b ab 85 0b 41 13 aa |.+......|.....A..|
|000029e0| 72 0b 40 29 87 22 20 5b | 72 65 66 65 72 65 6e 63 |r.@)." [|referenc|
|000029f0| 65 73 20 30 20 6e 69 6c | 20 69 64 73 20 62 65 67 |es 0 nil| ids beg|
|00002a00| 20 73 74 72 69 6e 67 2d | 6d 61 74 63 68 20 22 3c | string-|match "<|
|00002a10| 5b 5e 3e 5d 2b 3e 22 20 | 6e 20 31 5d 20 34 20 28 |[^>]+>" |n 1] 4 (|
|00002a20| 23 24 20 2e 20 31 30 35 | 33 38 29 5d 29 0a 23 40 |#$ . 105|38)]).#@|
|00002a30| 33 37 20 53 61 79 20 77 | 68 65 74 68 65 72 20 42 |37 Say w|hether B|
|00002a40| 55 46 46 45 52 20 69 73 | 20 61 6c 69 76 65 20 6f |UFFER is| alive o|
|00002a50| 72 20 6e 6f 74 2e 1f 0a | 28 64 65 66 61 6c 69 61 |r not...|(defalia|
|00002a60| 73 20 27 67 6e 75 73 2d | 62 75 66 66 65 72 2d 6c |s 'gnus-|buffer-l|
|00002a70| 69 76 65 2d 70 20 23 5b | 28 62 75 66 66 65 72 29 |ive-p #[|(buffer)|
|00002a80| 20 22 08 ad 8a c1 08 21 | ad 85 c2 c1 08 21 21 87 | ".....!|.....!!.|
|00002a90| 22 20 5b 62 75 66 66 65 | 72 20 67 65 74 2d 62 75 |" [buffe|r get-bu|
|00002aa0| 66 66 65 72 20 62 75 66 | 66 65 72 2d 6e 61 6d 65 |ffer buf|fer-name|
|00002ab0| 5d 20 33 20 28 23 24 20 | 2e 20 31 30 38 30 33 29 |] 3 (#$ |. 10803)|
|00002ac0| 5d 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |]).(byte|-code ".|
|00002ad0| c1 4e c2 73 ac 85 c3 c4 | c0 5c 22 88 c5 c0 c1 c6 |.N.s....|.\".....|
|00002ae0| 23 87 22 20 5b 67 6e 75 | 73 2d 62 75 66 66 65 72 |#." [gnu|s-buffer|
|00002af0| 2d 6c 69 76 65 2d 70 20 | 62 79 74 65 2d 6f 70 74 |-live-p |byte-opt|
|00002b00| 69 6d 69 7a 65 72 20 28 | 6e 69 6c 20 62 79 74 65 |imizer (|nil byte|
|00002b10| 2d 63 6f 6d 70 69 6c 65 | 2d 69 6e 6c 69 6e 65 2d |-compile|-inline-|
|00002b20| 65 78 70 61 6e 64 29 20 | 65 72 72 6f 72 20 22 25 |expand) |error "%|
|00002b30| 73 20 61 6c 72 65 61 64 | 79 20 68 61 73 20 61 20 |s alread|y has a |
|00002b40| 62 79 74 65 2d 6f 70 74 | 69 6d 69 7a 65 72 2c 20 |byte-opt|imizer, |
|00002b50| 63 61 6e 27 74 20 6d 61 | 6b 65 20 69 74 20 69 6e |can't ma|ke it in|
|00002b60| 6c 69 6e 65 22 20 70 75 | 74 20 62 79 74 65 2d 63 |line" pu|t byte-c|
|00002b70| 6f 6d 70 69 6c 65 2d 69 | 6e 6c 69 6e 65 2d 65 78 |ompile-i|nline-ex|
|00002b80| 70 61 6e 64 5d 20 34 29 | 0a 23 40 34 33 20 52 65 |pand] 4)|.#@43 Re|
|00002b90| 63 65 6e 74 65 72 20 74 | 68 65 20 63 75 72 72 65 |center t|he curre|
|00002ba0| 6e 74 20 62 75 66 66 65 | 72 20 68 6f 72 69 7a 6f |nt buffe|r horizo|
|00002bb0| 6e 74 61 6c 6c 79 2e 1f | 0a 28 64 65 66 61 6c 69 |ntally..|.(defali|
|00002bc0| 61 73 20 27 67 6e 75 73 | 2d 68 6f 72 69 7a 6f 6e |as 'gnus|-horizon|
|00002bd0| 74 61 6c 2d 72 65 63 65 | 6e 74 65 72 20 23 5b 6e |tal-rece|nter #[n|
|00002be0| 69 6c 20 22 69 c0 20 c1 | a5 57 ab 88 c2 c3 70 c4 |il "i. .|.W....p.|
|00002bf0| 5c 22 c5 5c 22 87 60 1e | 06 c7 c3 70 c4 5c 22 21 |\".\".`.|...p.\"!|
|00002c00| 1e 08 c5 1e 09 ca 20 62 | 88 6d ac 94 60 0e 08 57 |...... b|.m..`..W|
|00002c10| ab 8e cb 7f 88 0e 09 69 | 5d 16 09 cc 79 88 aa 69 |.......i|]...y..i|
|00002c20| 0e 06 62 88 0e 09 c0 20 | 56 ab 97 c2 c3 70 c4 5c |..b.... |V....p.\|
|00002c30| 22 69 c0 20 cd a5 5a 0e | 09 c0 20 5a c1 5c 5c 5e |"i. ..Z.|.. Z.\\^|
|00002c40| 5c 22 88 aa 88 c2 c3 70 | c4 5c 22 c5 5c 22 88 0e |\".....p|.\".\"..|
|00002c50| 09 2b 87 22 20 5b 77 69 | 6e 64 6f 77 2d 77 69 64 |.+." [wi|ndow-wid|
|00002c60| 74 68 20 32 20 73 65 74 | 2d 77 69 6e 64 6f 77 2d |th 2 set|-window-|
|00002c70| 68 73 63 72 6f 6c 6c 20 | 67 65 74 2d 62 75 66 66 |hscroll |get-buff|
|00002c80| 65 72 2d 77 69 6e 64 6f | 77 20 74 20 30 20 6f 72 |er-windo|w t 0 or|
|00002c90| 69 67 20 77 69 6e 64 6f | 77 2d 65 6e 64 20 65 6e |ig windo|w-end en|
|00002ca0| 64 20 6d 61 78 20 77 69 | 6e 64 6f 77 2d 73 74 61 |d max wi|ndow-sta|
|00002cb0| 72 74 20 6e 69 6c 20 31 | 20 33 5d 20 35 20 28 23 |rt nil 1| 3] 5 (#|
|00002cc0| 24 20 2e 20 31 31 31 35 | 30 29 5d 29 0a 23 40 32 |$ . 1115|0)]).#@2|
|00002cd0| 31 20 47 65 74 20 74 68 | 65 20 6e 65 78 74 20 65 |1 Get th|e next e|
|00002ce0| 76 65 6e 74 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |vent...(|defalias|
|00002cf0| 20 27 67 6e 75 73 2d 72 | 65 61 64 2d 65 76 65 6e | 'gnus-r|ead-even|
|00002d00| 74 2d 63 68 61 72 20 23 | 5b 6e 69 6c 20 22 c0 20 |t-char #|[nil ". |
|00002d10| 89 19 a7 ad 81 09 09 29 | 42 87 22 20 5b 72 65 61 |.......)|B." [rea|
|00002d20| 64 2d 65 76 65 6e 74 20 | 65 76 65 6e 74 5d 20 33 |d-event |event] 3|
|00002d30| 20 28 23 24 20 2e 20 31 | 31 34 37 34 29 5d 29 0a | (#$ . 1|1474)]).|
|00002d40| 23 40 37 35 20 4d 61 6b | 65 20 73 6f 72 74 61 62 |#@75 Mak|e sortab|
|00002d50| 6c 65 20 73 74 72 69 6e | 67 20 62 79 20 73 74 72 |le strin|g by str|
|00002d60| 69 6e 67 2d 6c 65 73 73 | 70 20 66 72 6f 6d 20 44 |ing-less|p from D|
|00002d70| 41 54 45 2e 0a 54 69 6d | 65 7a 6f 6e 65 20 70 61 |ATE..Tim|ezone pa|
|00002d80| 63 6b 61 67 65 20 69 73 | 20 75 73 65 64 2e 1f 0a |ckage is| used...|
|00002d90| 28 64 65 66 61 6c 69 61 | 73 20 27 67 6e 75 73 2d |(defalia|s 'gnus-|
|00002da0| 73 6f 72 74 61 62 6c 65 | 2d 64 61 74 65 20 23 5b |sortable|-date #[|
|00002db0| 28 64 61 74 65 29 20 22 | c0 c1 c2 8f 87 22 20 5b |(date) "|....." [|
|00002dc0| 6e 69 6c 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |nil (byt|e-code "|
|00002dd0| 08 c1 08 18 c1 c2 c3 8f | 29 c4 48 1d 1e 06 18 c7 |........|).H.....|
|00002de0| 08 21 18 c8 08 c9 48 21 | 89 1e 5c 6e cb 57 ab 86 |.!....H!|..\n.W..|
|00002df0| 0e 5c 6e cc 5c 5c aa 8e | 0e 5c 6e cd 57 ab 86 0e |.\n.\\..|.\n.W...|
|00002e00| 5c 6e ce 5c 5c aa 82 0e | 5c 6e 1e 5c 6e c8 08 cf |\n.\\...|\n.\n...|
|00002e10| 48 21 1e 10 c8 08 d1 48 | 21 1e 12 d3 08 d4 48 21 |H!.....H|!.....H!|
|00002e20| 1e 15 c8 0e 15 c9 48 21 | 1e 16 c8 0e 15 cf 48 21 |......H!|......H!|
|00002e30| 1e 17 c8 0e 15 d1 48 21 | 1e 18 08 c4 48 ae 82 0e |......H!|....H...|
|00002e40| 06 1e 06 0d ae 96 d9 da | 0e 10 0e 12 0e 5c 6e 23 |........|.....\n#|
|00002e50| 0e 18 0e 17 0e 16 db 5f | 5c 5c db 5f 5c 5c 5c 22 |......._|\\._\\\"|
|00002e60| 1d dc 0d 21 dc 0e 06 21 | 5a 1e 1d 0e 17 0e 1d 5c |...!...!|Z......\|
|00002e70| 5c 1e 17 de 0e 17 db 5c | 22 1e 1f 0e 16 0e 1f 5c |\......\|"......\|
|00002e80| 5c 16 16 0e 17 0e 1f db | 5f 5a 16 17 e0 0e 16 58 |\.......|_Z.....X|
|00002e90| ab ae 0e 16 e0 5a 16 16 | 0e 12 54 16 12 e1 0e 10 |.....Z..|..T.....|
|00002ea0| 0e 5c 6e 5c 22 0e 12 57 | ab ca 0e 10 54 16 10 cf |.\n\"..W|....T...|
|00002eb0| 16 12 e2 0e 10 57 ab bc | cf 16 10 0e 5c 6e 54 16 |.....W..|....\nT.|
|00002ec0| 5c 6e aa b2 c9 0e 16 56 | ab ac 0e 16 e0 5c 5c 16 |\n.....V|.....\\.|
|00002ed0| 16 0e 12 53 16 12 cf 0e | 12 56 ab 9b 0e 10 53 16 |...S....|.V....S.|
|00002ee0| 10 cf 0e 10 56 ab 88 e2 | 16 10 0e 5c 6e 53 16 5c |....V...|...\nS.\|
|00002ef0| 6e e1 0e 10 0e 5c 6e 5c | 22 16 12 e3 0e 5c 6e 0e |n....\n\|"....\n.|
|00002f00| 10 0e 12 0e 16 0e 17 0e | 18 0d 26 07 2e 11 89 10 |........|..&.....|
|00002f10| c9 48 08 cf 48 08 d1 48 | 08 d4 48 08 c4 48 08 e4 |.H..H..H|..H..H..|
|00002f20| 48 1e 18 1e 17 1e 16 e5 | e6 0e 16 0e 17 0e 18 24 |H.......|.......$|
|00002f30| 2b 1e 15 1e 12 1e 10 1e | 5c 6e e5 e7 0e 5c 6e 0e |+.......|\n...\n.|
|00002f40| 10 0e 12 0e 15 25 2c 87 | 22 20 5b 64 61 74 65 20 |.....%,.|" [date |
|00002f50| 6e 69 6c 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |nil (byt|e-code "|
|00002f60| 08 3b ab 9b c1 c2 08 5c | 22 ac 86 c3 c2 08 5c 22 |.;.....\|".....\"|
|00002f70| ab 8f c4 08 21 89 10 ab | 88 c5 c2 08 47 c6 08 24 |....!...|....G..$|
|00002f80| 88 08 ae 81 c7 c6 89 89 | 89 89 1e 08 1e 09 1e 5c |........|.......\|
|00002f90| 6e 1e 0b 1e 0c 18 cd ce | 08 5c 22 ab 92 cf 16 0c |n.......|.\".....|
|00002fa0| d0 16 0b d1 16 5c 6e d2 | 16 09 c6 16 08 82 eb 00 |.....\n.|........|
|00002fb0| cd d3 08 5c 22 ab 92 cf | 16 0c d0 16 0b d1 16 5c |...\"...|.......\|
|00002fc0| 6e d2 16 09 d4 16 08 82 | eb 00 cd d5 08 5c 22 ab |n.......|.....\".|
|00002fd0| 91 d0 16 0c d1 16 0b d6 | 16 5c 6e d2 16 09 c6 16 |........|.\n.....|
|00002fe0| 08 aa f1 cd d7 08 5c 22 | ab 91 d0 16 0c d1 16 0b |......\"|........|
|00002ff0| d6 16 5c 6e d2 16 09 d8 | 16 08 aa da cd d9 08 5c |..\n....|.......\|
|00003000| 22 ab 91 d2 16 0c d6 16 | 0b d1 16 5c 6e d0 16 09 |".......|...\n...|
|00003010| c6 16 08 aa c3 cd da 08 | 5c 22 ab 91 d8 16 0c d6 |........|\"......|
|00003020| 16 0b d1 16 5c 6e d0 16 | 09 d2 16 08 aa ac cd db |....\n..|........|
|00003030| 08 5c 22 ab 91 d0 16 0c | d1 16 0b d6 16 5c 6e d2 |.\".....|.....\n.|
|00003040| 16 09 d8 16 08 aa 95 cd | dc 08 5c 22 ab 8f d0 16 |........|..\"....|
|00003050| 0c d1 16 0b d6 16 5c 6e | d2 16 09 c6 16 08 0e 0c |......\n|........|
|00003060| ab e0 08 0e 0c 94 0e 0c | 95 4f 89 16 0c 47 d2 57 |........|.O...G.W|
|00003070| ab a3 dd 0e 0c 21 89 1e | 1e df 59 ab 86 0e 1e df |.....!..|..Y.....|
|00003080| 5a 16 1e e0 e1 0e 1e e2 | 57 ab 83 e3 aa 81 e4 0e |Z.......|W.......|
|00003090| 1e 23 16 0c 29 08 0e 0b | 94 0e 0b 94 d0 5c 5c 4f |.#..)...|.....\\O|
|000030a0| 1e 25 e6 e7 0e 25 96 0e | 28 5c 22 41 21 16 0b 29 |.%...%..|(\"A!..)|
|000030b0| 08 0e 5c 6e 94 0e 5c 6e | 95 4f 16 5c 6e 08 0e 09 |..\n..\n|.O.\n...|
|000030c0| 94 0e 09 95 4f 16 09 0e | 08 ab 8a 08 0e 08 94 0e |....O...|........|
|000030d0| 08 95 4f 16 08 0e 0c ab | 8e e9 0e 0c 0e 0b 0e 5c |..O.....|.......\|
|000030e0| 6e 0e 09 0e 08 25 aa 87 | e9 ea 89 89 89 c6 25 2e |n....%..|......%.|
|000030f0| 06 87 22 20 5b 64 61 74 | 65 20 74 65 78 74 2d 70 |.." [dat|e text-p|
|00003100| 72 6f 70 65 72 74 69 65 | 73 2d 61 74 20 30 20 6e |ropertie|s-at 0 n|
|00003110| 65 78 74 2d 70 72 6f 70 | 65 72 74 79 2d 63 68 61 |ext-prop|erty-cha|
|00003120| 6e 67 65 20 63 6f 70 79 | 2d 73 65 71 75 65 6e 63 |nge copy|-sequenc|
|00003130| 65 20 73 65 74 2d 74 65 | 78 74 2d 70 72 6f 70 65 |e set-te|xt-prope|
|00003140| 72 74 69 65 73 20 6e 69 | 6c 20 22 22 20 7a 6f 6e |rties ni|l "" zon|
|00003150| 65 20 74 69 6d 65 20 64 | 61 79 20 6d 6f 6e 74 68 |e time d|ay month|
|00003160| 20 79 65 61 72 20 73 74 | 72 69 6e 67 2d 6d 61 74 | year st|ring-mat|
|00003170| 63 68 20 22 5c 5c 28 5b | 5e 20 09 2c 5d 2b 5c 5c |ch "\\([|^ .,]+\\|
|00003180| 29 2c 5b 20 09 5d 2b 5c | 5c 28 5b 30 2d 39 5d 2b |),[ .]+\|\([0-9]+|
|00003190| 5c 5c 29 5b 20 09 5d 2b | 5c 5c 28 5b 5e 20 09 2c |\\)[ .]+|\\([^ .,|
|000031a0| 5d 2b 5c 5c 29 5b 20 09 | 5d 2b 5c 5c 28 5b 30 2d |]+\\)[ .|]+\\([0-|
|000031b0| 39 5d 2b 3a 5b 30 2d 39 | 3a 5d 2b 5c 5c 29 5b 20 |9]+:[0-9|:]+\\)[ |
|000031c0| 09 5d 2b 5c 5c 28 54 5b | 20 09 5d 2b 5c 5c 7c 5c |.]+\\(T[| .]+\\|\|
|000031d0| 5c 29 5c 5c 28 5b 30 2d | 39 5d 2b 5c 5c 29 5b 20 |\)\\([0-|9]+\\)[ |
|000031e0| 09 5d 2a 5c 5c 27 22 20 | 36 20 33 20 32 20 34 20 |.]*\\'" |6 3 2 4 |
|000031f0| 22 5c 5c 28 5b 5e 20 09 | 2c 5d 2b 5c 5c 29 2c 5b |"\\([^ .|,]+\\),[|
|00003200| 20 09 5d 2b 5c 5c 28 5b | 30 2d 39 5d 2b 5c 5c 29 | .]+\\([|0-9]+\\)|
|00003210| 5b 20 09 5d 2b 5c 5c 28 | 5b 5e 20 09 2c 5d 2b 5c |[ .]+\\(|[^ .,]+\|
|00003220| 5c 29 5b 20 09 5d 2b 5c | 5c 28 5b 30 2d 39 5d 2b |\)[ .]+\|\([0-9]+|
|00003230| 3a 5b 30 2d 39 3a 5d 2b | 5c 5c 29 5b 20 09 5d 2b |:[0-9:]+|\\)[ .]+|
|00003240| 5c 5c 28 54 5b 20 09 5d | 2b 5c 5c 7c 5c 5c 29 5c |\\(T[ .]|+\\|\\)\|
|00003250| 5c 28 5b 30 2d 39 5d 2b | 5c 5c 29 5b 20 09 5d 2a |\([0-9]+|\\)[ .]*|
|00003260| 5c 5c 28 5b 2d 2b 61 2d | 7a 41 2d 5a 30 2d 39 5d |\\([-+a-|zA-Z0-9]|
|00003270| 2b 5c 5c 29 22 20 37 20 | 22 5c 5c 28 5b 30 2d 39 |+\\)" 7 |"\\([0-9|
|00003280| 5d 2b 5c 5c 29 5b 20 09 | 5d 2b 5c 5c 28 5b 5e 20 |]+\\)[ .|]+\\([^ |
|00003290| 09 2c 5d 2b 5c 5c 29 5b | 20 09 5d 2b 5c 5c 28 5b |.,]+\\)[| .]+\\([|
|000032a0| 30 2d 39 5d 2b 5c 5c 29 | 5b 20 09 5d 2b 5c 5c 28 |0-9]+\\)|[ .]+\\(|
|000032b0| 5b 30 2d 39 5d 2b 3a 5b | 30 2d 39 3a 5d 2b 5c 5c |[0-9]+:[|0-9:]+\\|
|000032c0| 29 5b 20 09 5d 2a 5c 5c | 27 22 20 31 20 22 5c 5c |)[ .]*\\|'" 1 "\\|
|000032d0| 28 5b 30 2d 39 5d 2b 5c | 5c 29 5b 20 09 5d 2b 5c |([0-9]+\|\)[ .]+\|
|000032e0| 5c 28 5b 5e 20 09 2c 5d | 2b 5c 5c 29 5b 20 09 5d |\([^ .,]|+\\)[ .]|
|000032f0| 2b 5c 5c 28 5b 30 2d 39 | 5d 2b 5c 5c 29 5b 20 09 |+\\([0-9|]+\\)[ .|
|00003300| 5d 2b 5c 5c 28 5b 30 2d | 39 5d 2b 3a 5b 30 2d 39 |]+\\([0-|9]+:[0-9|
|00003310| 3a 5d 2b 5c 5c 29 5b 20 | 09 5d 2a 5c 5c 28 5b 2d |:]+\\)[ |.]*\\([-|
|00003320| 2b 61 2d 7a 41 2d 5a 30 | 2d 39 5d 2b 5c 5c 29 22 |+a-zA-Z0|-9]+\\)"|
|00003330| 20 35 20 22 5c 5c 28 5b | 5e 20 09 2c 5d 2b 5c 5c | 5 "\\([|^ .,]+\\|
|00003340| 29 5b 20 09 5d 2b 5c 5c | 28 5b 30 2d 39 5d 2b 5c |)[ .]+\\|([0-9]+\|
|00003350| 5c 29 5b 20 09 5d 2b 5c | 5c 28 5b 30 2d 39 5d 2b |\)[ .]+\|\([0-9]+|
|00003360| 3a 5b 30 2d 39 3a 5d 2b | 5c 5c 29 5b 20 09 5d 2b |:[0-9:]+|\\)[ .]+|
|00003370| 5c 5c 28 5b 30 2d 39 5d | 2b 5c 5c 29 22 20 22 5c |\\([0-9]|+\\)" "\|
|00003380| 5c 28 5b 5e 20 09 2c 5d | 2b 5c 5c 29 5b 20 09 5d |\([^ .,]|+\\)[ .]|
|00003390| 2b 5c 5c 28 5b 30 2d 39 | 5d 2b 5c 5c 29 5b 20 09 |+\\([0-9|]+\\)[ .|
|000033a0| 5d 2b 5c 5c 28 5b 30 2d | 39 5d 2b 3a 5b 30 2d 39 |]+\\([0-|9]+:[0-9|
|000033b0| 3a 5d 2b 5c 5c 29 5b 20 | 09 5d 2b 5c 5c 28 5b 2d |:]+\\)[ |.]+\\([-|
|000033c0| 2b 61 2d 7a 41 2d 5a 30 | 2d 39 5d 2b 5c 5c 29 5b |+a-zA-Z0|-9]+\\)[|
|000033d0| 20 09 5d 2b 5c 5c 28 5b | 30 2d 39 5d 2b 5c 5c 29 | .]+\\([|0-9]+\\)|
|000033e0| 22 20 22 5c 5c 28 5b 30 | 2d 39 5d 2b 5c 5c 29 5b |" "\\([0|-9]+\\)[|
|000033f0| 20 09 5d 2b 5c 5c 28 5b | 5e 20 09 2c 5d 2b 5c 5c | .]+\\([|^ .,]+\\|
|00003400| 29 5b 20 09 5d 2b 5c 5c | 28 5b 30 2d 39 5d 2b 5c |)[ .]+\\|([0-9]+\|
|00003410| 5c 29 5b 20 09 5d 2b 5c | 5c 28 5b 30 2d 39 5d 2b |\)[ .]+\|\([0-9]+|
|00003420| 5c 5c 29 5b 20 09 5d 2a | 5c 5c 28 5b 2d 2b 61 2d |\\)[ .]*|\\([-+a-|
|00003430| 7a 41 2d 5a 30 2d 39 5d | 2b 5c 5c 29 22 20 22 5c |zA-Z0-9]|+\\)" "\|
|00003440| 5c 28 5b 30 2d 39 5d 2b | 5c 5c 29 2d 5c 5c 28 5b |\([0-9]+|\\)-\\([|
|00003450| 41 2d 5a 61 2d 7a 5d 2b | 5c 5c 29 2d 5c 5c 28 5b |A-Za-z]+|\\)-\\([|
|00003460| 30 2d 39 5d 2b 5c 5c 29 | 5b 20 09 5d 2b 5c 5c 28 |0-9]+\\)|[ .]+\\(|
|00003470| 5b 30 2d 39 5d 2b 3a 5b | 30 2d 39 5d 2b 3a 5b 30 |[0-9]+:[|0-9]+:[0|
|00003480| 2d 39 5d 2b 5c 5c 29 5c | 5c 2e 5b 30 2d 39 5d 2b |-9]+\\)\|\.[0-9]+|
|00003490| 22 20 73 74 72 69 6e 67 | 2d 74 6f 2d 69 6e 74 20 |" string|-to-int |
|000034a0| 79 72 20 31 30 30 20 66 | 6f 72 6d 61 74 20 22 25 |yr 100 f|ormat "%|
|000034b0| 64 25 30 32 64 22 20 37 | 30 20 32 30 20 31 39 20 |d%02d" 7|0 20 19 |
|000034c0| 73 74 72 69 6e 67 20 69 | 6e 74 2d 74 6f 2d 73 74 |string i|nt-to-st|
|000034d0| 72 69 6e 67 20 61 73 73 | 6f 63 20 74 69 6d 65 7a |ring ass|oc timez|
|000034e0| 6f 6e 65 2d 6d 6f 6e 74 | 68 73 2d 61 73 73 6f 63 |one-mont|hs-assoc|
|000034f0| 20 76 65 63 74 6f 72 20 | 22 30 22 5d 20 37 29 20 | vector |"0"] 7) |
|00003500| 28 28 74 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |((t (byt|e-code "|
|00003510| c0 c1 5c 6e 43 5c 22 87 | 22 20 5b 73 69 67 6e 61 |..\nC\".|" [signa|
|00003520| 6c 20 69 6e 76 61 6c 69 | 64 2d 64 61 74 65 20 64 |l invali|d-date d|
|00003530| 61 74 65 5d 20 33 29 29 | 29 20 34 20 74 69 6d 65 |ate] 3))|) 4 time|
|00003540| 7a 6f 6e 65 20 6c 6f 63 | 61 6c 20 74 69 6d 65 7a |zone loc|al timez|
|00003550| 6f 6e 65 2d 70 61 72 73 | 65 2d 64 61 74 65 20 73 |one-pars|e-date s|
|00003560| 74 72 69 6e 67 2d 74 6f | 2d 69 6e 74 20 30 20 79 |tring-to|-int 0 y|
|00003570| 65 61 72 20 35 30 20 32 | 30 30 30 20 31 30 30 20 |ear 50 2|000 100 |
|00003580| 31 39 30 30 20 31 20 6d | 6f 6e 74 68 20 32 20 64 |1900 1 m|onth 2 d|
|00003590| 61 79 20 74 69 6d 65 7a | 6f 6e 65 2d 70 61 72 73 |ay timez|one-pars|
|000035a0| 65 2d 74 69 6d 65 20 33 | 20 74 69 6d 65 20 68 6f |e-time 3| time ho|
|000035b0| 75 72 20 6d 69 6e 75 74 | 65 20 73 65 63 6f 6e 64 |ur minut|e second|
|000035c0| 20 74 69 6d 65 7a 6f 6e | 65 2d 74 69 6d 65 2d 7a | timezon|e-time-z|
|000035d0| 6f 6e 65 2d 66 72 6f 6d | 2d 61 62 73 6f 6c 75 74 |one-from|-absolut|
|000035e0| 65 20 74 69 6d 65 7a 6f | 6e 65 2d 61 62 73 6f 6c |e timezo|ne-absol|
|000035f0| 75 74 65 2d 66 72 6f 6d | 2d 67 72 65 67 6f 72 69 |ute-from|-gregori|
|00003600| 61 6e 20 36 30 20 74 69 | 6d 65 7a 6f 6e 65 2d 7a |an 60 ti|mezone-z|
|00003610| 6f 6e 65 2d 74 6f 2d 6d | 69 6e 75 74 65 20 64 69 |one-to-m|inute di|
|00003620| 66 66 20 74 69 6d 65 7a | 6f 6e 65 2d 66 6c 6f 6f |ff timez|one-floo|
|00003630| 72 20 68 6f 75 72 2d 66 | 69 78 20 32 34 20 74 69 |r hour-f|ix 24 ti|
|00003640| 6d 65 7a 6f 6e 65 2d 6c | 61 73 74 2d 64 61 79 2d |mezone-l|ast-day-|
|00003650| 6f 66 2d 6d 6f 6e 74 68 | 20 31 32 20 76 65 63 74 |of-month| 12 vect|
|00003660| 6f 72 20 35 20 66 6f 72 | 6d 61 74 20 22 25 30 32 |or 5 for|mat "%02|
|00003670| 64 3a 25 30 32 64 3a 25 | 30 32 64 22 20 22 25 34 |d:%02d:%|02d" "%4|
|00003680| 64 25 30 32 64 25 30 32 | 64 25 73 22 5d 20 31 30 |d%02d%02|d%s"] 10|
|00003690| 29 20 28 28 65 72 72 6f | 72 20 22 22 29 29 5d 20 |) ((erro|r ""))] |
|000036a0| 33 20 28 23 24 20 2e 20 | 31 31 35 38 39 29 5d 29 |3 (#$ . |11589)])|
|000036b0| 0a 23 40 31 38 20 43 6f | 70 79 20 46 49 4c 45 20 |.#@18 Co|py FILE |
|000036c0| 74 6f 20 54 4f 2e 1f 0a | 28 64 65 66 61 6c 69 61 |to TO...|(defalia|
|000036d0| 73 20 27 67 6e 75 73 2d | 63 6f 70 79 2d 66 69 6c |s 'gnus-|copy-fil|
|000036e0| 65 20 23 5b 28 66 69 6c | 65 20 26 6f 70 74 69 6f |e #[(fil|e &optio|
|000036f0| 6e 61 6c 20 74 6f 29 20 | 22 08 ac 85 c1 c2 0b 5c |nal to) |"......\|
|00003700| 22 10 c4 08 21 ab 89 c5 | 08 21 c6 0e 07 21 50 10 |"...!...|.!...!P.|
|00003710| c8 0e 07 08 5c 22 87 22 | 20 5b 74 6f 20 72 65 61 |....\"."| [to rea|
|00003720| 64 2d 66 69 6c 65 2d 6e | 61 6d 65 20 22 43 6f 70 |d-file-n|ame "Cop|
|00003730| 79 20 66 69 6c 65 20 74 | 6f 3a 20 22 20 64 65 66 |y file t|o: " def|
|00003740| 61 75 6c 74 2d 64 69 72 | 65 63 74 6f 72 79 20 66 |ault-dir|ectory f|
|00003750| 69 6c 65 2d 64 69 72 65 | 63 74 6f 72 79 2d 70 20 |ile-dire|ctory-p |
|00003760| 66 69 6c 65 2d 6e 61 6d | 65 2d 61 73 2d 64 69 72 |file-nam|e-as-dir|
|00003770| 65 63 74 6f 72 79 20 66 | 69 6c 65 2d 6e 61 6d 65 |ectory f|ile-name|
|00003780| 2d 6e 6f 6e 64 69 72 65 | 63 74 6f 72 79 20 66 69 |-nondire|ctory fi|
|00003790| 6c 65 20 63 6f 70 79 2d | 66 69 6c 65 5d 20 33 20 |le copy-|file] 3 |
|000037a0| 28 23 24 20 2e 20 31 34 | 30 30 36 29 20 28 6c 69 |(#$ . 14|006) (li|
|000037b0| 73 74 20 28 72 65 61 64 | 2d 66 69 6c 65 2d 6e 61 |st (read|-file-na|
|000037c0| 6d 65 20 22 43 6f 70 79 | 20 66 69 6c 65 3a 20 22 |me "Copy| file: "|
|000037d0| 20 64 65 66 61 75 6c 74 | 2d 64 69 72 65 63 74 6f | default|-directo|
|000037e0| 72 79 29 20 28 72 65 61 | 64 2d 66 69 6c 65 2d 6e |ry) (rea|d-file-n|
|000037f0| 61 6d 65 20 22 43 6f 70 | 79 20 66 69 6c 65 20 74 |ame "Cop|y file t|
|00003800| 6f 3a 20 22 20 64 65 66 | 61 75 6c 74 2d 64 69 72 |o: " def|ault-dir|
|00003810| 65 63 74 6f 72 79 29 29 | 5d 29 0a 23 40 34 34 20 |ectory))|]).#@44 |
|00003820| 44 65 6c 65 74 65 20 61 | 6c 6c 20 6f 76 65 72 6c |Delete a|ll overl|
|00003830| 61 79 73 20 69 6e 20 74 | 68 65 20 63 75 72 72 65 |ays in t|he curre|
|00003840| 6e 74 20 62 75 66 66 65 | 72 2e 1f 0a 28 64 65 66 |nt buffe|r...(def|
|00003850| 61 6c 69 61 73 20 27 67 | 6e 75 73 2d 6b 69 6c 6c |alias 'g|nus-kill|
|00003860| 2d 61 6c 6c 2d 6f 76 65 | 72 6c 61 79 73 20 23 5b |-all-ove|rlays #[|
|00003870| 6e 69 6c 20 22 08 3f ad | a0 c1 20 1a c3 1c c5 c3 |nil ".?.|.. .....|
|00003880| 5c 6e 40 5c 6e 41 a4 5c | 22 1e 06 0e 06 ad 8c c7 |\n@\nA.\|".......|
|00003890| 0e 06 89 41 16 06 40 21 | 88 aa 70 2b 87 22 20 5b |...A..@!|..p+." [|
|000038a0| 67 6e 75 73 2d 78 65 6d | 61 63 73 20 6f 76 65 72 |gnus-xem|acs over|
|000038b0| 6c 61 79 2d 6c 69 73 74 | 73 20 6f 76 65 72 6c 61 |lay-list|s overla|
|000038c0| 79 73 73 20 6e 69 6c 20 | 62 75 66 66 65 72 2d 72 |yss nil |buffer-r|
|000038d0| 65 61 64 2d 6f 6e 6c 79 | 20 64 65 6c 71 20 6f 76 |ead-only| delq ov|
|000038e0| 65 72 6c 61 79 73 20 64 | 65 6c 65 74 65 2d 6f 76 |erlays d|elete-ov|
|000038f0| 65 72 6c 61 79 5d 20 34 | 20 28 23 24 20 2e 20 31 |erlay] 4| (#$ . 1|
|00003900| 34 33 36 38 29 5d 29 0a | 28 62 79 74 65 2d 63 6f |4368)]).|(byte-co|
|00003910| 64 65 20 22 c0 c1 21 ac | 82 c2 11 c1 0b 42 13 c0 |de "..!.|.....B..|
|00003920| 87 22 20 5b 62 6f 75 6e | 64 70 20 67 6e 75 73 2d |." [boun|dp gnus-|
|00003930| 77 6f 72 6b 2d 62 75 66 | 66 65 72 20 22 20 2a 67 |work-buf|fer " *g|
|00003940| 6e 75 73 20 77 6f 72 6b | 2a 22 20 63 75 72 72 65 |nus work|*" curre|
|00003950| 6e 74 2d 6c 6f 61 64 2d | 6c 69 73 74 5d 20 32 29 |nt-load-|list] 2)|
|00003960| 0a 23 40 34 32 20 50 75 | 74 20 70 6f 69 6e 74 20 |.#@42 Pu|t point |
|00003970| 69 6e 20 74 68 65 20 65 | 6d 70 74 79 20 47 6e 75 |in the e|mpty Gnu|
|00003980| 73 20 77 6f 72 6b 20 62 | 75 66 66 65 72 2e 1f 0a |s work b|uffer...|
|00003990| 28 64 65 66 61 6c 69 61 | 73 20 27 67 6e 75 73 2d |(defalia|s 'gnus-|
|000039a0| 73 65 74 2d 77 6f 72 6b | 2d 62 75 66 66 65 72 20 |set-work|-buffer |
|000039b0| 23 5b 6e 69 6c 20 22 c0 | 09 21 ab 86 09 71 88 c2 |#[nil ".|.!...q..|
|000039c0| 20 87 c3 09 21 71 88 c4 | 20 88 c5 70 21 87 22 20 | ...!q..| ..p!." |
|000039d0| 5b 67 65 74 2d 62 75 66 | 66 65 72 20 67 6e 75 73 |[get-buf|fer gnus|
|000039e0| 2d 77 6f 72 6b 2d 62 75 | 66 66 65 72 20 65 72 61 |-work-bu|ffer era|
|000039f0| 73 65 2d 62 75 66 66 65 | 72 20 67 65 74 2d 62 75 |se-buffe|r get-bu|
|00003a00| 66 66 65 72 2d 63 72 65 | 61 74 65 20 6b 69 6c 6c |ffer-cre|ate kill|
|00003a10| 2d 61 6c 6c 2d 6c 6f 63 | 61 6c 2d 76 61 72 69 61 |-all-loc|al-varia|
|00003a20| 62 6c 65 73 20 62 75 66 | 66 65 72 2d 64 69 73 61 |bles buf|fer-disa|
|00003a30| 62 6c 65 2d 75 6e 64 6f | 5d 20 32 20 28 23 24 20 |ble-undo|] 2 (#$ |
|00003a40| 2e 20 31 34 36 39 34 29 | 5d 29 0a 23 40 34 34 20 |. 14694)|]).#@44 |
|00003a50| 46 69 6e 64 20 74 68 65 | 20 72 65 61 6c 20 6e 61 |Find the| real na|
|00003a60| 6d 65 20 6f 66 20 61 20 | 66 6f 72 65 69 67 6e 20 |me of a |foreign |
|00003a70| 6e 65 77 73 67 72 6f 75 | 70 2e 1f 0a 28 64 65 66 |newsgrou|p...(def|
|00003a80| 61 6c 69 61 73 20 27 67 | 6e 75 73 2d 67 72 6f 75 |alias 'g|nus-grou|
|00003a90| 70 2d 72 65 61 6c 2d 6e | 61 6d 65 20 27 28 6d 61 |p-real-n|ame '(ma|
|00003aa0| 63 72 6f 20 2e 20 23 5b | 28 67 72 6f 75 70 29 20 |cro . #[|(group) |
|00003ab0| 22 c0 c1 5c 6e 44 43 c3 | 42 42 87 22 20 5b 6c 65 |"..\nDC.|BB." [le|
|00003ac0| 74 20 67 6e 61 6d 65 20 | 67 72 6f 75 70 20 28 28 |t gname |group ((|
|00003ad0| 69 66 20 28 73 74 72 69 | 6e 67 2d 6d 61 74 63 68 |if (stri|ng-match|
|00003ae0| 20 22 5e 5b 5e 3a 5d 2b | 3a 22 20 67 6e 61 6d 65 | "^[^:]+|:" gname|
|00003af0| 29 20 28 73 75 62 73 74 | 72 69 6e 67 20 67 6e 61 |) (subst|ring gna|
|00003b00| 6d 65 20 28 6d 61 74 63 | 68 2d 65 6e 64 20 30 29 |me (matc|h-end 0)|
|00003b10| 29 20 67 6e 61 6d 65 29 | 29 5d 20 33 20 28 23 24 |) gname)|)] 3 (#$|
|00003b20| 20 2e 20 31 34 39 32 38 | 29 5d 29 29 0a 23 40 36 | . 14928|)])).#@6|
|00003b30| 37 20 52 65 74 75 72 6e | 20 61 20 63 6f 6d 70 6f |7 Return| a compo|
|00003b40| 73 69 74 65 20 73 6f 72 | 74 20 63 6f 6e 64 69 74 |site sor|t condit|
|00003b50| 69 6f 6e 20 62 61 73 65 | 64 20 6f 6e 20 74 68 65 |ion base|d on the|
|00003b60| 20 66 75 6e 63 74 69 6f | 6e 73 20 69 6e 20 46 55 | functio|ns in FU|
|00003b70| 4e 43 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |NC...(de|falias '|
|00003b80| 67 6e 75 73 2d 6d 61 6b | 65 2d 73 6f 72 74 2d 66 |gnus-mak|e-sort-f|
|00003b90| 75 6e 63 74 69 6f 6e 20 | 23 5b 28 66 75 6e 73 29 |unction |#[(funs)|
|00003ba0| 20 22 08 3c ac 82 08 87 | 08 ac 82 08 87 08 41 ab | ".<....|......A.|
|00003bb0| 89 c1 c2 c3 c4 08 21 21 | 45 87 08 40 87 22 20 5b |......!!|E..@." [|
|00003bc0| 66 75 6e 73 20 6c 61 6d | 62 64 61 20 28 74 31 20 |funs lam|bda (t1 |
|00003bd0| 74 32 29 20 67 6e 75 73 | 2d 6d 61 6b 65 2d 73 6f |t2) gnus|-make-so|
|00003be0| 72 74 2d 66 75 6e 63 74 | 69 6f 6e 2d 31 20 72 65 |rt-funct|ion-1 re|
|00003bf0| 76 65 72 73 65 5d 20 35 | 20 28 23 24 20 2e 20 31 |verse] 5| (#$ . 1|
|00003c00| 35 31 35 34 29 5d 29 0a | 23 40 36 37 20 52 65 74 |5154)]).|#@67 Ret|
|00003c10| 75 72 6e 20 61 20 63 6f | 6d 70 6f 73 69 74 65 20 |urn a co|mposite |
|00003c20| 73 6f 72 74 20 63 6f 6e | 64 69 74 69 6f 6e 20 62 |sort con|dition b|
|00003c30| 61 73 65 64 20 6f 6e 20 | 74 68 65 20 66 75 6e 63 |ased on |the func|
|00003c40| 74 69 6f 6e 73 20 69 6e | 20 46 55 4e 43 2e 1f 0a |tions in| FUNC...|
|00003c50| 28 64 65 66 61 6c 69 61 | 73 20 27 67 6e 75 73 2d |(defalia|s 'gnus-|
|00003c60| 6d 61 6b 65 2d 73 6f 72 | 74 2d 66 75 6e 63 74 69 |make-sor|t-functi|
|00003c70| 6f 6e 2d 31 20 23 5b 28 | 66 75 6e 73 29 20 22 08 |on-1 #[(|funs) ".|
|00003c80| 41 ab 93 c1 08 40 c2 42 | c3 c4 08 40 c5 42 44 c6 |A....@.B|...@.BD.|
|00003c90| 08 41 21 45 45 87 08 40 | c7 42 87 22 20 5b 66 75 |.A!EE..@|.B." [fu|
|00003ca0| 6e 73 20 6f 72 20 28 74 | 31 20 74 32 29 20 61 6e |ns or (t|1 t2) an|
|00003cb0| 64 20 6e 6f 74 20 28 74 | 32 20 74 31 29 20 67 6e |d not (t|2 t1) gn|
|00003cc0| 75 73 2d 6d 61 6b 65 2d | 73 6f 72 74 2d 66 75 6e |us-make-|sort-fun|
|00003cd0| 63 74 69 6f 6e 2d 31 20 | 28 74 31 20 74 32 29 5d |ction-1 |(t1 t2)]|
|00003ce0| 20 36 20 28 23 24 20 2e | 20 31 35 33 37 33 29 5d | 6 (#$ .| 15373)]|
|00003cf0| 29 0a 23 40 34 35 20 54 | 75 72 6e 20 6f 66 66 20 |).#@45 T|urn off |
|00003d00| 65 64 69 74 20 6d 65 6e | 75 20 69 6e 20 60 67 6e |edit men|u in `gn|
|00003d10| 75 73 2d 54 59 50 45 2d | 6d 6f 64 65 2d 6d 61 70 |us-TYPE-|mode-map|
|00003d20| 27 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 67 |'...(def|alias 'g|
|00003d30| 6e 75 73 2d 74 75 72 6e | 2d 6f 66 66 2d 65 64 69 |nus-turn|-off-edi|
|00003d40| 74 2d 6d 65 6e 75 20 23 | 5b 28 74 79 70 65 29 20 |t-menu #|[(type) |
|00003d50| 22 c0 c1 c2 c3 0c 5c 22 | 21 4a c5 c6 23 87 22 20 |".....\"|!J..#." |
|00003d60| 5b 64 65 66 69 6e 65 2d | 6b 65 79 20 69 6e 74 65 |[define-|key inte|
|00003d70| 72 6e 20 66 6f 72 6d 61 | 74 20 22 67 6e 75 73 2d |rn forma|t "gnus-|
|00003d80| 25 73 2d 6d 6f 64 65 2d | 6d 61 70 22 20 74 79 70 |%s-mode-|map" typ|
|00003d90| 65 20 5b 6d 65 6e 75 2d | 62 61 72 20 65 64 69 74 |e [menu-|bar edit|
|00003da0| 5d 20 75 6e 64 65 66 69 | 6e 65 64 5d 20 35 20 28 |] undefi|ned] 5 (|
|00003db0| 23 24 20 2e 20 31 35 36 | 30 37 29 5d 29 0a 23 40 |#$ . 156|07)]).#@|
|00003dc0| 38 35 20 55 73 65 20 60 | 70 72 69 6e 31 27 20 6f |85 Use `|prin1' o|
|00003dd0| 6e 20 46 4f 52 4d 20 69 | 6e 20 74 68 65 20 63 75 |n FORM i|n the cu|
|00003de0| 72 72 65 6e 74 20 62 75 | 66 66 65 72 2e 0a 42 69 |rrent bu|ffer..Bi|
|00003df0| 6e 64 20 60 70 72 69 6e | 74 2d 71 75 6f 74 65 64 |nd `prin|t-quoted|
|00003e00| 27 20 74 6f 20 74 20 77 | 68 69 6c 65 20 70 72 69 |' to t w|hile pri|
|00003e10| 6e 74 69 6e 67 2e 1f 0a | 28 64 65 66 61 6c 69 61 |nting...|(defalia|
|00003e20| 73 20 27 67 6e 75 73 2d | 70 72 69 6e 31 20 23 5b |s 'gnus-|prin1 #[|
|00003e30| 28 66 6f 72 6d 29 20 22 | c0 c1 89 1a 1b 1c c5 0e |(form) "|........|
|00003e40| 06 70 5c 22 2b 87 22 20 | 5b 74 20 6e 69 6c 20 70 |.p\"+." |[t nil p|
|00003e50| 72 69 6e 74 2d 6c 65 6e | 67 74 68 20 70 72 69 6e |rint-len|gth prin|
|00003e60| 74 2d 6c 65 76 65 6c 20 | 70 72 69 6e 74 2d 71 75 |t-level |print-qu|
|00003e70| 6f 74 65 64 20 70 72 69 | 6e 31 20 66 6f 72 6d 5d |oted pri|n1 form]|
|00003e80| 20 33 20 28 23 24 20 2e | 20 31 35 38 31 31 29 5d | 3 (#$ .| 15811)]|
|00003e90| 29 0a 23 40 35 31 20 54 | 68 65 20 73 61 6d 65 20 |).#@51 T|he same |
|00003ea0| 61 73 20 60 70 72 69 6e | 31 27 2c 20 62 75 74 20 |as `prin|1', but |
|00003eb0| 62 75 74 20 60 70 72 69 | 6e 74 2d 71 75 6f 74 65 |but `pri|nt-quote|
|00003ec0| 64 27 20 74 6f 20 74 2e | 1f 0a 28 64 65 66 61 6c |d' to t.|..(defal|
|00003ed0| 69 61 73 20 27 67 6e 75 | 73 2d 70 72 69 6e 31 2d |ias 'gnu|s-prin1-|
|00003ee0| 74 6f 2d 73 74 72 69 6e | 67 20 23 5b 28 66 6f 72 |to-strin|g #[(for|
|00003ef0| 6d 29 20 22 c0 19 c2 0b | 21 29 87 22 20 5b 74 20 |m) "....|!)." [t |
|00003f00| 70 72 69 6e 74 2d 71 75 | 6f 74 65 64 20 70 72 69 |print-qu|oted pri|
|00003f10| 6e 31 2d 74 6f 2d 73 74 | 72 69 6e 67 20 66 6f 72 |n1-to-st|ring for|
|00003f20| 6d 5d 20 32 20 28 23 24 | 20 2e 20 31 36 30 32 33 |m] 2 (#$| . 16023|
|00003f30| 29 5d 29 0a 23 40 35 39 | 20 4d 61 6b 65 20 44 49 |)]).#@59| Make DI|
|00003f40| 52 45 43 54 4f 52 59 20 | 28 61 6e 64 20 61 6c 6c |RECTORY |(and all|
|00003f50| 20 69 74 73 20 70 61 72 | 65 6e 74 73 29 20 69 66 | its par|ents) if|
|00003f60| 20 69 74 20 64 6f 65 73 | 6e 27 74 20 65 78 69 73 | it does|n't exis|
|00003f70| 74 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 67 |t...(def|alias 'g|
|00003f80| 6e 75 73 2d 6d 61 6b 65 | 2d 64 69 72 65 63 74 6f |nus-make|-directo|
|00003f90| 72 79 20 23 5b 28 64 69 | 72 65 63 74 6f 72 79 29 |ry #[(di|rectory)|
|00003fa0| 20 22 08 ab 8a c1 08 21 | ac 85 c2 08 c3 5c 22 88 | ".....!|.....\".|
|00003fb0| c3 87 22 20 5b 64 69 72 | 65 63 74 6f 72 79 20 66 |.." [dir|ectory f|
|00003fc0| 69 6c 65 2d 65 78 69 73 | 74 73 2d 70 20 6d 61 6b |ile-exis|ts-p mak|
|00003fd0| 65 2d 64 69 72 65 63 74 | 6f 72 79 20 74 5d 20 33 |e-direct|ory t] 3|
|00003fe0| 20 28 23 24 20 2e 20 31 | 36 31 38 35 29 5d 29 0a | (#$ . 1|6185)]).|
|00003ff0| 23 40 34 36 20 57 72 69 | 74 65 20 74 68 65 20 63 |#@46 Wri|te the c|
|00004000| 75 72 72 65 6e 74 20 62 | 75 66 66 65 72 27 73 20 |urrent b|uffer's |
|00004010| 63 6f 6e 74 65 6e 74 73 | 20 74 6f 20 46 49 4c 45 |contents| to FILE|
|00004020| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 67 6e |...(defa|lias 'gn|
|00004030| 75 73 2d 77 72 69 74 65 | 2d 62 75 66 66 65 72 20 |us-write|-buffer |
|00004040| 23 5b 28 66 69 6c 65 29 | 20 22 c0 c1 5c 6e 21 21 |#[(file)| "..\n!!|
|00004050| 88 c3 65 64 5c 6e c4 c5 | 25 87 22 20 5b 67 6e 75 |..ed\n..|%." [gnu|
|00004060| 73 2d 6d 61 6b 65 2d 64 | 69 72 65 63 74 6f 72 79 |s-make-d|irectory|
|00004070| 20 66 69 6c 65 2d 6e 61 | 6d 65 2d 64 69 72 65 63 | file-na|me-direc|
|00004080| 74 6f 72 79 20 66 69 6c | 65 20 77 72 69 74 65 2d |tory fil|e write-|
|00004090| 72 65 67 69 6f 6e 20 6e | 69 6c 20 71 75 69 65 74 |region n|il quiet|
|000040a0| 6c 79 5d 20 36 20 28 23 | 24 20 2e 20 31 36 33 37 |ly] 6 (#|$ . 1637|
|000040b0| 33 29 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |3)]).(de|falias '|
|000040c0| 67 6e 75 73 2d 64 65 6c | 65 74 65 2d 61 73 73 71 |gnus-del|ete-assq|
|000040d0| 20 27 28 6d 61 63 72 6f | 20 2e 20 23 5b 28 6b 65 | '(macro| . #[(ke|
|000040e0| 79 20 6c 69 73 74 29 20 | 22 c0 c1 c2 0b 44 44 43 |y list) |"....DDC|
|000040f0| c4 0b c5 c6 0e 07 c8 42 | 42 c9 42 42 45 45 87 22 |.......B|B.BBEE."|
|00004100| 20 5b 6c 65 74 20 6c 69 | 73 74 76 61 6c 20 65 76 | [let li|stval ev|
|00004110| 61 6c 20 6c 69 73 74 20 | 73 65 74 71 20 64 65 6c |al list |setq del|
|00004120| 71 20 61 73 73 71 20 6b | 65 79 20 28 6c 69 73 74 |q assq k|ey (list|
|00004130| 76 61 6c 29 20 28 6c 69 | 73 74 76 61 6c 29 5d 20 |val) (li|stval)] |
|00004140| 38 5d 29 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |8])).(de|falias '|
|00004150| 67 6e 75 73 2d 64 65 6c | 65 74 65 2d 61 73 73 6f |gnus-del|ete-asso|
|00004160| 63 20 27 28 6d 61 63 72 | 6f 20 2e 20 23 5b 28 6b |c '(macr|o . #[(k|
|00004170| 65 79 20 6c 69 73 74 29 | 20 22 c0 c1 5c 6e 44 43 |ey list)| "..\nDC|
|00004180| c3 5c 6e c4 c5 0e 06 c7 | 42 42 c8 42 42 45 45 87 |.\n.....|BB.BBEE.|
|00004190| 22 20 5b 6c 65 74 20 6c | 69 73 74 76 61 6c 20 6c |" [let l|istval l|
|000041a0| 69 73 74 20 73 65 74 71 | 20 64 65 6c 71 20 61 73 |ist setq| delq as|
|000041b0| 73 6f 63 20 6b 65 79 20 | 28 6c 69 73 74 76 61 6c |soc key |(listval|
|000041c0| 29 20 28 6c 69 73 74 76 | 61 6c 29 5d 20 38 5d 29 |) (listv|al)] 8])|
|000041d0| 29 0a 23 40 32 37 20 44 | 65 6c 65 74 65 20 46 49 |).#@27 D|elete FI|
|000041e0| 4c 45 20 69 66 20 69 74 | 20 65 78 69 73 74 73 2e |LE if it| exists.|
|000041f0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 67 6e 75 |..(defal|ias 'gnu|
|00004200| 73 2d 64 65 6c 65 74 65 | 2d 66 69 6c 65 20 23 5b |s-delete|-file #[|
|00004210| 28 66 69 6c 65 29 20 22 | c0 09 21 ad 83 c2 09 21 |(file) "|..!....!|
|00004220| 87 22 20 5b 66 69 6c 65 | 2d 65 78 69 73 74 73 2d |." [file|-exists-|
|00004230| 70 20 66 69 6c 65 20 64 | 65 6c 65 74 65 2d 66 69 |p file d|elete-fi|
|00004240| 6c 65 5d 20 32 20 28 23 | 24 20 2e 20 31 36 38 35 |le] 2 (#|$ . 1685|
|00004250| 35 29 5d 29 0a 23 40 34 | 33 20 52 65 74 75 72 6e |5)]).#@4|3 Return|
|00004260| 20 53 54 52 49 4e 47 20 | 73 74 72 69 70 70 65 64 | STRING |stripped|
|00004270| 20 6f 66 20 61 6c 6c 20 | 77 68 69 74 65 73 70 61 | of all |whitespa|
|00004280| 63 65 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ce...(de|falias '|
|00004290| 67 6e 75 73 2d 73 74 72 | 69 70 2d 77 68 69 74 65 |gnus-str|ip-white|
|000042a0| 73 70 61 63 65 20 23 5b | 28 73 74 72 69 6e 67 29 |space #[|(string)|
|000042b0| 20 22 c0 c1 5c 6e 5c 22 | ab 89 c3 c4 c5 89 5c 6e | "..\n\"|......\n|
|000042c0| 24 12 aa 71 5c 6e 87 22 | 20 5b 73 74 72 69 6e 67 |$..q\n."| [string|
|000042d0| 2d 6d 61 74 63 68 20 22 | 5b 0d 5c 6e 09 20 5d 2b |-match "|[.\n. ]+|
|000042e0| 22 20 73 74 72 69 6e 67 | 20 72 65 70 6c 61 63 65 |" string| replace|
|000042f0| 2d 6d 61 74 63 68 20 22 | 22 20 74 5d 20 35 20 28 |-match "|" t] 5 (|
|00004300| 23 24 20 2e 20 31 36 39 | 38 36 29 5d 29 0a 23 40 |#$ . 169|86)]).#@|
|00004310| 38 39 20 54 68 65 20 73 | 61 6d 65 20 61 73 20 60 |89 The s|ame as `|
|00004320| 70 75 74 2d 74 65 78 74 | 2d 70 72 6f 70 65 72 74 |put-text|-propert|
|00004330| 79 27 2c 20 62 75 74 20 | 64 6f 6e 27 74 20 70 75 |y', but |don't pu|
|00004340| 74 20 74 68 69 73 20 70 | 72 6f 70 20 6f 6e 20 61 |t this p|rop on a|
|00004350| 6e 79 20 6e 65 77 6c 69 | 6e 65 73 20 69 6e 20 74 |ny newli|nes in t|
|00004360| 68 65 20 72 65 67 69 6f | 6e 2e 1f 0a 28 64 65 66 |he regio|n...(def|
|00004370| 61 6c 69 61 73 20 27 67 | 6e 75 73 2d 70 75 74 2d |alias 'g|nus-put-|
|00004380| 74 65 78 74 2d 70 72 6f | 70 65 72 74 79 2d 65 78 |text-pro|perty-ex|
|00004390| 63 6c 75 64 69 6e 67 2d | 6e 65 77 6c 69 6e 65 73 |cluding-|newlines|
|000043a0| 20 23 5b 28 62 65 67 20 | 65 6e 64 20 70 72 6f 70 | #[(beg |end prop|
|000043b0| 20 76 61 6c 29 20 22 c0 | 20 19 c2 8e 8a 8c 0b 62 | val) ".| ......b|
|000043c0| 88 c4 c5 0e 06 c7 23 ab | 8e c8 0b c9 94 0e 5c 6e |......#.|......\n|
|000043d0| 0e 0b 24 88 60 13 aa 6a | c8 0b 60 0e 5c 6e 0e 0b |..$.`..j|..`.\n..|
|000043e0| 24 2c 87 22 20 5b 6d 61 | 74 63 68 2d 64 61 74 61 |$,." [ma|tch-data|
|000043f0| 20 6d 61 74 63 68 2d 64 | 61 74 61 20 28 28 73 74 | match-d|ata ((st|
|00004400| 6f 72 65 2d 6d 61 74 63 | 68 2d 64 61 74 61 20 6d |ore-matc|h-data m|
|00004410| 61 74 63 68 2d 64 61 74 | 61 29 29 20 62 65 67 20 |atch-dat|a)) beg |
|00004420| 72 65 2d 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |re-searc|h-forwar|
|00004430| 64 20 22 5b 20 09 5d 2a | 5c 6e 22 20 65 6e 64 20 |d "[ .]*|\n" end |
|00004440| 6d 6f 76 65 20 70 75 74 | 2d 74 65 78 74 2d 70 72 |move put|-text-pr|
|00004450| 6f 70 65 72 74 79 20 30 | 20 70 72 6f 70 20 76 61 |operty 0| prop va|
|00004460| 6c 5d 20 35 20 28 23 24 | 20 2e 20 31 37 31 37 31 |l] 5 (#$| . 17171|
|00004470| 29 5d 29 0a 23 40 37 30 | 20 49 66 20 74 2c 20 63 |)]).#@70| If t, c|
|00004480| 65 72 74 61 69 6e 20 6f | 70 65 72 61 74 69 6f 6e |ertain o|peration|
|00004490| 73 20 77 69 6c 6c 20 62 | 65 20 70 72 6f 74 65 63 |s will b|e protec|
|000044a0| 74 65 64 20 66 72 6f 6d | 20 69 6e 74 65 72 72 75 |ted from| interru|
|000044b0| 70 74 69 6f 6e 20 62 79 | 20 43 2d 67 2e 1f 0a 28 |ption by| C-g...(|
|000044c0| 64 65 66 76 61 72 20 67 | 6e 75 73 2d 61 74 6f 6d |defvar g|nus-atom|
|000044d0| 69 63 2d 62 65 2d 73 61 | 66 65 20 74 20 28 23 24 |ic-be-sa|fe t (#$|
|000044e0| 20 2e 20 31 37 35 32 39 | 29 29 0a 23 40 34 35 37 | . 17529|)).#@457|
|000044f0| 20 45 76 61 6c 75 61 74 | 65 20 46 4f 52 4d 53 20 | Evaluat|e FORMS |
|00004500| 61 74 6f 6d 69 63 61 6c | 6c 79 2c 20 77 68 69 63 |atomical|ly, whic|
|00004510| 68 20 6d 65 61 6e 73 20 | 74 6f 20 70 72 6f 74 65 |h means |to prote|
|00004520| 63 74 20 74 68 65 20 65 | 76 61 6c 75 61 74 69 6f |ct the e|valuatio|
|00004530| 6e 0a 66 72 6f 6d 20 62 | 65 69 6e 67 20 69 6e 74 |n.from b|eing int|
|00004540| 65 72 72 75 70 74 65 64 | 20 62 79 20 74 68 65 20 |errupted| by the |
|00004550| 75 73 65 72 2e 20 20 41 | 6e 20 65 72 72 6f 72 20 |user. A|n error |
|00004560| 66 72 6f 6d 20 74 68 65 | 20 66 6f 72 6d 73 20 74 |from the| forms t|
|00004570| 68 65 6d 73 65 6c 76 65 | 73 0a 77 69 6c 6c 20 72 |hemselve|s.will r|
|00004580| 65 74 75 72 6e 20 77 69 | 74 68 6f 75 74 20 66 69 |eturn wi|thout fi|
|00004590| 6e 69 73 68 69 6e 67 20 | 74 68 65 20 6f 70 65 72 |nishing |the oper|
|000045a0| 61 74 69 6f 6e 2e 20 20 | 53 69 6e 63 65 20 69 6e |ation. |Since in|
|000045b0| 74 65 72 72 75 70 74 73 | 20 66 72 6f 6d 0a 74 68 |terrupts| from.th|
|000045c0| 65 20 75 73 65 72 20 61 | 72 65 20 64 69 73 61 62 |e user a|re disab|
|000045d0| 6c 65 64 2c 20 69 74 20 | 69 73 20 72 65 63 6f 6d |led, it |is recom|
|000045e0| 6d 65 6e 64 65 64 20 74 | 68 61 74 20 6f 6e 6c 79 |mended t|hat only|
|000045f0| 20 74 68 65 20 6d 6f 73 | 74 20 6d 69 6e 69 6d 61 | the mos|t minima|
|00004600| 6c 0a 6f 70 65 72 61 74 | 69 6f 6e 73 20 61 72 65 |l.operat|ions are|
|00004610| 20 70 65 72 66 6f 72 6d | 65 64 20 62 79 20 46 4f | perform|ed by FO|
|00004620| 52 4d 53 2e 20 20 49 66 | 20 79 6f 75 20 77 69 73 |RMS. If| you wis|
|00004630| 68 20 74 6f 20 61 73 73 | 69 67 6e 20 6d 61 6e 79 |h to ass|ign many|
|00004640| 0a 63 6f 6d 70 6c 69 63 | 61 74 65 64 20 76 61 6c |.complic|ated val|
|00004650| 75 65 73 20 61 74 6f 6d | 69 63 61 6c 6c 79 2c 20 |ues atom|ically, |
|00004660| 63 6f 6d 70 75 74 65 20 | 74 68 65 20 72 65 73 75 |compute |the resu|
|00004670| 6c 74 73 20 69 6e 74 6f | 20 74 65 6d 70 6f 72 61 |lts into| tempora|
|00004680| 72 79 0a 76 61 72 69 61 | 62 6c 65 73 20 61 6e 64 |ry.varia|bles and|
|00004690| 20 74 68 65 6e 20 64 6f | 20 6f 6e 6c 79 20 74 68 | then do| only th|
|000046a0| 65 20 61 73 73 69 67 6e | 6d 65 6e 74 20 61 74 6f |e assign|ment ato|
|000046b0| 6d 69 63 61 6c 6c 79 2e | 1f 0a 28 64 65 66 61 6c |mically.|..(defal|
|000046c0| 69 61 73 20 27 67 6e 75 | 73 2d 61 74 6f 6d 69 63 |ias 'gnu|s-atomic|
|000046d0| 2d 70 72 6f 67 6e 20 27 | 28 6d 61 63 72 6f 20 2e |-progn '|(macro .|
|000046e0| 20 23 5b 28 26 72 65 73 | 74 20 66 6f 72 6d 73 29 | #[(&res|t forms)|
|000046f0| 20 22 c0 c1 5c 6e 42 42 | 87 22 20 5b 6c 65 74 20 | "..\nBB|." [let |
|00004700| 28 28 69 6e 68 69 62 69 | 74 2d 71 75 69 74 20 67 |((inhibi|t-quit g|
|00004710| 6e 75 73 2d 61 74 6f 6d | 69 63 2d 62 65 2d 73 61 |nus-atom|ic-be-sa|
|00004720| 66 65 29 29 20 66 6f 72 | 6d 73 5d 20 33 20 28 23 |fe)) for|ms] 3 (#|
|00004730| 24 20 2e 20 31 37 36 34 | 39 29 5d 29 29 0a 28 70 |$ . 1764|9)])).(p|
|00004740| 75 74 20 27 67 6e 75 73 | 2d 61 74 6f 6d 69 63 2d |ut 'gnus|-atomic-|
|00004750| 70 72 6f 67 6e 20 27 6c | 69 73 70 2d 69 6e 64 65 |progn 'l|isp-inde|
|00004760| 6e 74 2d 66 75 6e 63 74 | 69 6f 6e 20 30 29 0a 23 |nt-funct|ion 0).#|
|00004770| 40 34 35 36 20 45 76 61 | 6c 75 61 74 65 20 46 4f |@456 Eva|luate FO|
|00004780| 52 4d 53 2c 20 62 75 74 | 20 69 6e 73 75 72 65 20 |RMS, but| insure |
|00004790| 74 68 61 74 20 74 68 65 | 20 76 61 72 69 61 62 6c |that the| variabl|
|000047a0| 65 73 20 6c 69 73 74 65 | 64 20 69 6e 20 50 52 4f |es liste|d in PRO|
|000047b0| 54 45 43 54 0a 61 72 65 | 20 6e 6f 74 20 63 68 61 |TECT.are| not cha|
|000047c0| 6e 67 65 64 20 69 66 20 | 61 6e 79 74 68 69 6e 67 |nged if |anything|
|000047d0| 20 69 6e 20 46 4f 52 4d | 53 20 73 69 67 6e 61 6c | in FORM|S signal|
|000047e0| 73 20 61 6e 20 65 72 72 | 6f 72 20 6f 72 20 6f 74 |s an err|or or ot|
|000047f0| 68 65 72 77 69 73 65 0a | 6e 6f 6e 2d 6c 6f 63 61 |herwise.|non-loca|
|00004800| 6c 6c 79 20 65 78 69 74 | 73 2e 20 20 54 68 65 20 |lly exit|s. The |
|00004810| 76 61 72 69 61 62 6c 65 | 73 20 6c 69 73 74 65 64 |variable|s listed|
|00004820| 20 69 6e 20 50 52 4f 54 | 45 43 54 20 61 72 65 20 | in PROT|ECT are |
|00004830| 75 70 64 61 74 65 64 20 | 61 74 6f 6d 69 63 61 6c |updated |atomical|
|00004840| 6c 79 2e 0a 49 74 20 69 | 73 20 73 61 66 65 20 74 |ly..It i|s safe t|
|00004850| 6f 20 75 73 65 20 67 6e | 75 73 2d 61 74 6f 6d 69 |o use gn|us-atomi|
|00004860| 63 2d 70 72 6f 67 6e 2d | 61 73 73 69 67 6e 20 77 |c-progn-|assign w|
|00004870| 69 74 68 20 6c 6f 6e 67 | 20 63 6f 6d 70 75 74 61 |ith long| computa|
|00004880| 74 69 6f 6e 73 2e 0a 0a | 4e 6f 74 65 20 74 68 61 |tions...|Note tha|
|00004890| 74 20 69 66 20 61 6e 79 | 20 6f 66 20 74 68 65 20 |t if any| of the |
|000048a0| 73 79 6d 62 6f 6c 73 20 | 69 6e 20 50 52 4f 54 45 |symbols |in PROTE|
|000048b0| 43 54 20 77 65 72 65 20 | 75 6e 62 6f 75 6e 64 2c |CT were |unbound,|
|000048c0| 20 74 68 65 79 20 77 69 | 6c 6c 20 62 65 0a 73 65 | they wi|ll be.se|
|000048d0| 74 20 74 6f 20 6e 69 6c | 20 6f 6e 20 61 20 73 75 |t to nil| on a su|
|000048e0| 63 65 73 73 66 75 6c 20 | 61 73 73 69 67 6e 6d 65 |cessful |assignme|
|000048f0| 6e 74 2e 20 20 49 6e 20 | 63 61 73 65 20 6f 66 20 |nt. In |case of |
|00004900| 61 6e 20 65 72 72 6f 72 | 20 6f 72 20 6f 74 68 65 |an error| or othe|
|00004910| 72 0a 6e 6f 6e 2d 6c 6f | 63 61 6c 20 65 78 69 74 |r.non-lo|cal exit|
|00004920| 2c 20 69 74 20 77 69 6c | 6c 20 73 74 69 6c 6c 20 |, it wil|l still |
|00004930| 62 65 20 75 6e 62 6f 75 | 6e 64 2e 1f 0a 28 64 65 |be unbou|nd...(de|
|00004940| 66 61 6c 69 61 73 20 27 | 67 6e 75 73 2d 61 74 6f |falias '|gnus-ato|
|00004950| 6d 69 63 2d 70 72 6f 67 | 6e 2d 61 73 73 69 67 6e |mic-prog|n-assign|
|00004960| 20 27 28 6d 61 63 72 6f | 20 2e 20 23 5b 28 70 72 | '(macro| . #[(pr|
|00004970| 6f 74 65 63 74 20 26 72 | 65 73 74 20 66 6f 72 6d |otect &r|est form|
|00004980| 73 29 20 22 c0 c1 5c 6e | 5c 22 1b c0 c4 0b 5c 22 |s) "..\n|\"....\"|
|00004990| 1d c0 c6 0b 5c 22 1e 07 | 0d 1e 08 c9 ca 0b 5c 22 |....\"..|......\"|
|000049a0| 1e 0b c9 ca 0d 5c 22 1e | 0c cd ce 21 1e 0f d0 ca |.....\".|...!....|
|000049b0| 0e 07 0e 0f 43 5c 22 d0 | 0e 08 d1 0e 0f d2 0e 13 |....C\".|........|
|000049c0| 42 45 d1 0e 0b 42 46 d0 | d4 d1 0e 0c 42 45 0e 0f |BE...BF.|....BE..|
|000049d0| af 05 2e 07 87 22 20 5b | 6d 61 70 63 61 72 20 23 |....." [|mapcar #|
|000049e0| 5b 28 78 29 20 22 c0 c1 | 5c 6e 21 c3 50 21 5c 6e |[(x) "..|\n!.P!\n|
|000049f0| 44 87 22 20 5b 6d 61 6b | 65 2d 73 79 6d 62 6f 6c |D." [mak|e-symbol|
|00004a00| 20 73 79 6d 62 6f 6c 2d | 6e 61 6d 65 20 78 20 22 | symbol-|name x "|
|00004a10| 2d 74 6d 70 22 5d 20 33 | 5d 20 70 72 6f 74 65 63 |-tmp"] 3|] protec|
|00004a20| 74 20 74 65 6d 70 2d 73 | 79 6d 2d 6d 61 70 20 23 |t temp-s|ym-map #|
|00004a30| 5b 28 78 29 20 22 08 41 | 40 08 40 44 87 22 20 5b |[(x) ".A|@.@D." [|
|00004a40| 78 5d 20 32 5d 20 73 79 | 6d 2d 74 65 6d 70 2d 6d |x] 2] sy|m-temp-m|
|00004a50| 61 70 20 23 5b 28 78 29 | 20 22 08 40 c1 c2 c3 08 |ap #[(x)| ".@....|
|00004a60| 41 40 44 44 08 41 40 45 | 44 87 22 20 5b 78 20 61 |A@DD.A@E|D." [x a|
|00004a70| 6e 64 20 62 6f 75 6e 64 | 70 20 71 75 6f 74 65 5d |nd bound|p quote]|
|00004a80| 20 35 5d 20 74 65 6d 70 | 2d 73 79 6d 2d 6c 65 74 | 5] temp|-sym-let|
|00004a90| 20 73 79 6d 2d 74 65 6d | 70 2d 6c 65 74 20 61 70 | sym-tem|p-let ap|
|00004aa0| 70 6c 79 20 61 70 70 65 | 6e 64 20 74 65 6d 70 2d |ply appe|nd temp-|
|00004ab0| 73 79 6d 2d 61 73 73 69 | 67 6e 20 73 79 6d 2d 74 |sym-assi|gn sym-t|
|00004ac0| 65 6d 70 2d 61 73 73 69 | 67 6e 20 6d 61 6b 65 2d |emp-assi|gn make-|
|00004ad0| 73 79 6d 62 6f 6c 20 22 | 72 65 73 75 6c 74 2d 74 |symbol "|result-t|
|00004ae0| 6d 70 22 20 72 65 73 75 | 6c 74 20 6c 65 74 20 73 |mp" resu|lt let s|
|00004af0| 65 74 71 20 70 72 6f 67 | 6e 20 66 6f 72 6d 73 20 |etq prog|n forms |
|00004b00| 28 28 69 6e 68 69 62 69 | 74 2d 71 75 69 74 20 67 |((inhibi|t-quit g|
|00004b10| 6e 75 73 2d 61 74 6f 6d | 69 63 2d 62 65 2d 73 61 |nus-atom|ic-be-sa|
|00004b20| 66 65 29 29 5d 20 38 20 | 28 23 24 20 2e 20 31 38 |fe))] 8 |(#$ . 18|
|00004b30| 32 39 33 29 5d 29 29 0a | 28 70 75 74 20 27 67 6e |293)])).|(put 'gn|
|00004b40| 75 73 2d 61 74 6f 6d 69 | 63 2d 70 72 6f 67 6e 2d |us-atomi|c-progn-|
|00004b50| 61 73 73 69 67 6e 20 27 | 6c 69 73 70 2d 69 6e 64 |assign '|lisp-ind|
|00004b60| 65 6e 74 2d 66 75 6e 63 | 74 69 6f 6e 20 31 29 0a |ent-func|tion 1).|
|00004b70| 23 40 33 31 37 20 53 69 | 6d 69 6c 61 72 20 74 6f |#@317 Si|milar to|
|00004b80| 20 73 65 74 71 2c 20 65 | 78 63 65 70 74 20 74 68 | setq, e|xcept th|
|00004b90| 61 74 20 74 68 65 20 72 | 65 61 6c 20 73 79 6d 62 |at the r|eal symb|
|00004ba0| 6f 6c 73 20 61 72 65 20 | 6f 6e 6c 79 20 61 73 73 |ols are |only ass|
|00004bb0| 69 67 6e 65 64 20 77 68 | 65 6e 0a 74 68 65 72 65 |igned wh|en.there|
|00004bc0| 20 61 72 65 20 6e 6f 20 | 65 72 72 6f 72 73 2e 20 | are no |errors. |
|00004bd0| 20 41 6e 64 20 77 68 65 | 6e 20 74 68 65 20 72 65 | And whe|n the re|
|00004be0| 61 6c 20 73 79 6d 62 6f | 6c 73 20 61 72 65 20 61 |al symbo|ls are a|
|00004bf0| 73 73 69 67 6e 65 64 2c | 20 74 68 65 79 20 61 72 |ssigned,| they ar|
|00004c00| 65 0a 64 6f 6e 65 20 73 | 6f 20 61 74 6f 6d 69 63 |e.done s|o atomic|
|00004c10| 61 6c 6c 79 2e 20 20 49 | 66 20 6f 74 68 65 72 20 |ally. I|f other |
|00004c20| 76 61 72 69 61 62 6c 65 | 73 20 6d 69 67 68 74 20 |variable|s might |
|00004c30| 62 65 20 63 68 61 6e 67 | 65 64 20 76 69 61 20 73 |be chang|ed via s|
|00004c40| 69 64 65 2d 65 66 66 65 | 63 74 2c 0a 73 65 65 20 |ide-effe|ct,.see |
|00004c50| 67 6e 75 73 2d 61 74 6f | 6d 69 63 2d 70 72 6f 67 |gnus-ato|mic-prog|
|00004c60| 6e 2d 61 73 73 69 67 6e | 2e 20 20 49 74 20 69 73 |n-assign|. It is|
|00004c70| 20 73 61 66 65 20 74 6f | 20 75 73 65 20 67 6e 75 | safe to| use gnu|
|00004c80| 73 2d 61 74 6f 6d 69 63 | 2d 73 65 74 71 0a 77 69 |s-atomic|-setq.wi|
|00004c90| 74 68 20 70 6f 74 65 6e | 74 69 61 6c 6c 79 20 6c |th poten|tially l|
|00004ca0| 6f 6e 67 20 63 6f 6d 70 | 75 74 61 74 69 6f 6e 73 |ong comp|utations|
|00004cb0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 67 6e |...(defa|lias 'gn|
|00004cc0| 75 73 2d 61 74 6f 6d 69 | 63 2d 73 65 74 71 20 27 |us-atomi|c-setq '|
|00004cd0| 28 6d 61 63 72 6f 20 2e | 20 23 5b 28 26 72 65 73 |(macro .| #[(&res|
|00004ce0| 74 20 70 61 69 72 73 29 | 20 22 08 c1 1a 89 1b ab |t pairs)| "......|
|00004cf0| 8c 0b 40 5c 6e 42 12 0b | 41 41 89 13 ac 74 c4 5c |..@\nB..|AA...t.\|
|00004d00| 6e c5 08 42 45 2a 87 22 | 20 5b 70 61 69 72 73 20 |n..BE*."| [pairs |
|00004d10| 6e 69 6c 20 73 79 6d 73 | 20 74 70 61 69 72 73 20 |nil syms| tpairs |
|00004d20| 67 6e 75 73 2d 61 74 6f | 6d 69 63 2d 70 72 6f 67 |gnus-ato|mic-prog|
|00004d30| 6e 2d 61 73 73 69 67 6e | 20 73 65 74 71 5d 20 35 |n-assign| setq] 5|
|00004d40| 20 28 23 24 20 2e 20 31 | 39 33 31 38 29 5d 29 29 | (#$ . 1|9318)]))|
|00004d50| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 09 42 |.(byte-c|ode "..B|
|00004d60| 11 c0 87 22 20 5b 72 6d | 61 69 6c 2d 64 65 66 61 |..." [rm|ail-defa|
|00004d70| 75 6c 74 2d 72 6d 61 69 | 6c 2d 66 69 6c 65 20 63 |ult-rmai|l-file c|
|00004d80| 75 72 72 65 6e 74 2d 6c | 6f 61 64 2d 6c 69 73 74 |urrent-l|oad-list|
|00004d90| 5d 20 32 29 0a 23 40 36 | 31 20 41 70 70 65 6e 64 |] 2).#@6|1 Append|
|00004da0| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 61 72 74 | the cur|rent art|
|00004db0| 69 63 6c 65 20 74 6f 20 | 61 6e 20 52 6d 61 69 6c |icle to |an Rmail|
|00004dc0| 20 66 69 6c 65 20 6e 61 | 6d 65 64 20 46 49 4c 45 | file na|med FILE|
|00004dd0| 4e 41 4d 45 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |NAME...(|defalias|
|00004de0| 20 27 67 6e 75 73 2d 6f | 75 74 70 75 74 2d 74 6f | 'gnus-o|utput-to|
|00004df0| 2d 72 6d 61 69 6c 20 23 | 5b 28 66 69 6c 65 6e 61 |-rmail #|[(filena|
|00004e00| 6d 65 20 26 6f 70 74 69 | 6f 6e 61 6c 20 61 73 6b |me &opti|onal ask|
|00004e10| 29 20 22 c0 c1 21 88 c2 | 0b 21 89 13 14 70 c5 c6 |) "..!..|.!...p..|
|00004e20| 21 1e 07 1e 08 8a c9 0b | 21 ac b2 ca 0b 21 ac ad |!.......|!....!..|
|00004e30| 0e 0b ab 88 cc cd 0b ce | 51 21 ab 9d cf 0b 21 1e |........|Q!....!.|
|00004e40| 10 8a 0e 10 71 88 d1 20 | 88 d2 1e 13 d4 0b 21 88 |....q.. |......!.|
|00004e50| 2a d5 0e 10 21 88 29 aa | 84 d6 d7 21 88 0e 07 71 |*...!.).|...!...q|
|00004e60| 88 d8 20 88 d9 0e 08 21 | 88 da 20 88 c9 0b 21 89 |.. ....!|.. ...!.|
|00004e70| 1e 1b ac 88 dc 65 64 0b | 23 88 aa be 0e 1b 71 88 |.....ed.|#.....q.|
|00004e80| d2 dd de 21 ad 82 de 4a | 1e 1f 1e 20 0e 1f ab 86 |...!...J|... ....|
|00004e90| 7e 88 64 64 7d 88 d9 0e | 07 21 88 0e 1f ab 9a 65 |~.dd}...|.!.....e|
|00004ea0| 62 88 7e 88 e1 e2 21 88 | 60 64 7d 88 65 54 62 88 |b.~...!.|`d}.eTb.|
|00004eb0| e3 e4 21 88 e5 0e 1f 21 | 88 2a 2a d5 0e 07 21 2a |..!....!|.**...!*|
|00004ec0| 87 22 20 5b 72 65 71 75 | 69 72 65 20 72 6d 61 69 |." [requ|ire rmai|
|00004ed0| 6c 20 65 78 70 61 6e 64 | 2d 66 69 6c 65 2d 6e 61 |l expand|-file-na|
|00004ee0| 6d 65 20 66 69 6c 65 6e | 61 6d 65 20 72 6d 61 69 |me filen|ame rmai|
|00004ef0| 6c 2d 64 65 66 61 75 6c | 74 2d 72 6d 61 69 6c 2d |l-defaul|t-rmail-|
|00004f00| 66 69 6c 65 20 67 65 74 | 2d 62 75 66 66 65 72 2d |file get|-buffer-|
|00004f10| 63 72 65 61 74 65 20 22 | 20 2a 47 6e 75 73 2d 6f |create "| *Gnus-o|
|00004f20| 75 74 70 75 74 2a 22 20 | 74 6d 70 62 75 66 20 61 |utput*" |tmpbuf a|
|00004f30| 72 74 62 75 66 20 67 65 | 74 2d 66 69 6c 65 2d 62 |rtbuf ge|t-file-b|
|00004f40| 75 66 66 65 72 20 66 69 | 6c 65 2d 65 78 69 73 74 |uffer fi|le-exist|
|00004f50| 73 2d 70 20 61 73 6b 20 | 67 6e 75 73 2d 79 65 73 |s-p ask |gnus-yes|
|00004f60| 2d 6f 72 2d 6e 6f 2d 70 | 20 22 5c 22 22 20 22 5c |-or-no-p| "\"" "\|
|00004f70| 22 20 64 6f 65 73 20 6e | 6f 74 20 65 78 69 73 74 |" does n|ot exist|
|00004f80| 2c 20 63 72 65 61 74 65 | 20 69 74 3f 20 22 20 63 |, create| it? " c|
|00004f90| 72 65 61 74 65 2d 66 69 | 6c 65 2d 62 75 66 66 65 |reate-fi|le-buffe|
|00004fa0| 72 20 66 69 6c 65 2d 62 | 75 66 66 65 72 20 72 6d |r file-b|uffer rm|
|00004fb0| 61 69 6c 2d 69 6e 73 65 | 72 74 2d 72 6d 61 69 6c |ail-inse|rt-rmail|
|00004fc0| 2d 66 69 6c 65 2d 68 65 | 61 64 65 72 20 6e 69 6c |-file-he|ader nil|
|00004fd0| 20 72 65 71 75 69 72 65 | 2d 66 69 6e 61 6c 2d 6e | require|-final-n|
|00004fe0| 65 77 6c 69 6e 65 20 67 | 6e 75 73 2d 77 72 69 74 |ewline g|nus-writ|
|00004ff0| 65 2d 62 75 66 66 65 72 | 20 6b 69 6c 6c 2d 62 75 |e-buffer| kill-bu|
|00005000| 66 66 65 72 20 65 72 72 | 6f 72 20 22 4f 75 74 70 |ffer err|or "Outp|
|00005010| 75 74 20 66 69 6c 65 20 | 64 6f 65 73 20 6e 6f 74 |ut file |does not|
|00005020| 20 65 78 69 73 74 22 20 | 65 72 61 73 65 2d 62 75 | exist" |erase-bu|
|00005030| 66 66 65 72 20 69 6e 73 | 65 72 74 2d 62 75 66 66 |ffer ins|ert-buff|
|00005040| 65 72 2d 73 75 62 73 74 | 72 69 6e 67 20 67 6e 75 |er-subst|ring gnu|
|00005050| 73 2d 63 6f 6e 76 65 72 | 74 2d 61 72 74 69 63 6c |s-conver|t-articl|
|00005060| 65 2d 74 6f 2d 72 6d 61 | 69 6c 20 6f 75 74 62 75 |e-to-rma|il outbu|
|00005070| 66 20 61 70 70 65 6e 64 | 2d 74 6f 2d 66 69 6c 65 |f append|-to-file|
|00005080| 20 62 6f 75 6e 64 70 20 | 72 6d 61 69 6c 2d 63 75 | boundp |rmail-cu|
|00005090| 72 72 65 6e 74 2d 6d 65 | 73 73 61 67 65 20 6d 73 |rrent-me|ssage ms|
|000050a0| 67 20 62 75 66 66 65 72 | 2d 72 65 61 64 2d 6f 6e |g buffer|-read-on|
|000050b0| 6c 79 20 73 65 61 72 63 | 68 2d 62 61 63 6b 77 61 |ly searc|h-backwa|
|000050c0| 72 64 20 22 1f 22 20 72 | 6d 61 69 6c 2d 63 6f 75 |rd "." r|mail-cou|
|000050d0| 6e 74 2d 6e 65 77 2d 6d | 65 73 73 61 67 65 73 20 |nt-new-m|essages |
|000050e0| 74 20 72 6d 61 69 6c 2d | 73 68 6f 77 2d 6d 65 73 |t rmail-|show-mes|
|000050f0| 73 61 67 65 5d 20 35 20 | 28 23 24 20 2e 20 31 39 |sage] 5 |(#$ . 19|
|00005100| 38 36 36 29 5d 29 0a 23 | 40 35 39 20 41 70 70 65 |866)]).#|@59 Appe|
|00005110| 6e 64 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 61 |nd the c|urrent a|
|00005120| 72 74 69 63 6c 65 20 74 | 6f 20 61 20 6d 61 69 6c |rticle t|o a mail|
|00005130| 20 66 69 6c 65 20 6e 61 | 6d 65 64 20 46 49 4c 45 | file na|med FILE|
|00005140| 4e 41 4d 45 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |NAME...(|defalias|
|00005150| 20 27 67 6e 75 73 2d 6f | 75 74 70 75 74 2d 74 6f | 'gnus-o|utput-to|
|00005160| 2d 6d 61 69 6c 20 23 5b | 28 66 69 6c 65 6e 61 6d |-mail #[|(filenam|
|00005170| 65 20 26 6f 70 74 69 6f | 6e 61 6c 20 61 73 6b 29 |e &optio|nal ask)|
|00005180| 20 22 c0 09 21 11 70 c2 | c3 21 1c 1d 8a c6 09 21 | "..!.p.|.!.....!|
|00005190| ac af c7 09 21 ac aa 0e | 08 ab 88 c9 ca 09 cb 51 |....!...|.......Q|
|000051a0| 21 ab 9a cc 09 21 1e 0d | 8a 0e 0d 71 88 ce 1e 0f |!....!..|...q....|
|000051b0| d0 09 21 88 2a d1 0e 0d | 21 88 29 aa 84 d2 d3 21 |..!.*...|!.)....!|
|000051c0| 88 0c 71 88 d4 20 88 d5 | 0d 21 88 65 62 88 d6 d7 |..q.. ..|.!.eb...|
|000051d0| 21 ab 85 d8 79 88 aa 87 | d9 da 20 db b1 03 88 ce |!...y...|.. .....|
|000051e0| 1e 1c dd de ce df 23 ab | 88 e0 79 88 e1 63 88 aa |......#.|..y..c..|
|000051f0| 71 29 c6 09 21 89 1e 5c | 22 ac a7 ce 1e 23 8a 64 |q)..!..\|"....#.d|
|00005200| 62 88 e4 75 88 d6 e5 21 | ac 8c 64 62 88 6e ac 83 |b..u...!|..db.n..|
|00005210| db 63 88 db 63 88 64 62 | 88 e6 65 64 09 23 88 2a |.c..c.db|..ed.#.*|
|00005220| aa 98 0e 5c 22 71 88 ce | 1e 23 64 62 88 6d ac 83 |...\"q..|.#db.m..|
|00005230| db 63 88 db 63 88 d5 0c | 21 88 29 2a d1 0c 21 2a |.c..c...|!.)*..!*|
|00005240| 87 22 20 5b 65 78 70 61 | 6e 64 2d 66 69 6c 65 2d |." [expa|nd-file-|
|00005250| 6e 61 6d 65 20 66 69 6c | 65 6e 61 6d 65 20 67 65 |name fil|ename ge|
|00005260| 74 2d 62 75 66 66 65 72 | 2d 63 72 65 61 74 65 20 |t-buffer|-create |
|00005270| 22 20 2a 47 6e 75 73 2d | 6f 75 74 70 75 74 2a 22 |" *Gnus-|output*"|
|00005280| 20 74 6d 70 62 75 66 20 | 61 72 74 62 75 66 20 67 | tmpbuf |artbuf g|
|00005290| 65 74 2d 66 69 6c 65 2d | 62 75 66 66 65 72 20 66 |et-file-|buffer f|
|000052a0| 69 6c 65 2d 65 78 69 73 | 74 73 2d 70 20 61 73 6b |ile-exis|ts-p ask|
|000052b0| 20 67 6e 75 73 2d 79 2d | 6f 72 2d 6e 2d 70 20 22 | gnus-y-|or-n-p "|
|000052c0| 5c 22 22 20 22 5c 22 20 | 64 6f 65 73 20 6e 6f 74 |\"" "\" |does not|
|000052d0| 20 65 78 69 73 74 2c 20 | 63 72 65 61 74 65 20 69 | exist, |create i|
|000052e0| 74 3f 20 22 20 63 72 65 | 61 74 65 2d 66 69 6c 65 |t? " cre|ate-file|
|000052f0| 2d 62 75 66 66 65 72 20 | 66 69 6c 65 2d 62 75 66 |-buffer |file-buf|
|00005300| 66 65 72 20 6e 69 6c 20 | 72 65 71 75 69 72 65 2d |fer nil |require-|
|00005310| 66 69 6e 61 6c 2d 6e 65 | 77 6c 69 6e 65 20 67 6e |final-ne|wline gn|
|00005320| 75 73 2d 77 72 69 74 65 | 2d 62 75 66 66 65 72 20 |us-write|-buffer |
|00005330| 6b 69 6c 6c 2d 62 75 66 | 66 65 72 20 65 72 72 6f |kill-buf|fer erro|
|00005340| 72 20 22 4f 75 74 70 75 | 74 20 66 69 6c 65 20 64 |r "Outpu|t file d|
|00005350| 6f 65 73 20 6e 6f 74 20 | 65 78 69 73 74 22 20 65 |oes not |exist" e|
|00005360| 72 61 73 65 2d 62 75 66 | 66 65 72 20 69 6e 73 65 |rase-buf|fer inse|
|00005370| 72 74 2d 62 75 66 66 65 | 72 2d 73 75 62 73 74 72 |rt-buffe|r-substr|
|00005380| 69 6e 67 20 6c 6f 6f 6b | 69 6e 67 2d 61 74 20 22 |ing look|ing-at "|
|00005390| 46 72 6f 6d 20 22 20 31 | 20 22 46 72 6f 6d 20 6e |From " 1| "From n|
|000053a0| 6f 62 6f 64 79 20 22 20 | 63 75 72 72 65 6e 74 2d |obody " |current-|
|000053b0| 74 69 6d 65 2d 73 74 72 | 69 6e 67 20 22 5c 6e 22 |time-str|ing "\n"|
|000053c0| 20 63 61 73 65 2d 66 6f | 6c 64 2d 73 65 61 72 63 | case-fo|ld-searc|
|000053d0| 68 20 72 65 2d 73 65 61 | 72 63 68 2d 66 6f 72 77 |h re-sea|rch-forw|
|000053e0| 61 72 64 20 22 5e 46 72 | 6f 6d 20 22 20 74 20 30 |ard "^Fr|om " t 0|
|000053f0| 20 22 3e 22 20 6f 75 74 | 62 75 66 20 62 75 66 66 | ">" out|buf buff|
|00005400| 65 72 2d 72 65 61 64 2d | 6f 6e 6c 79 20 2d 32 20 |er-read-|only -2 |
|00005410| 22 5c 6e 5c 6e 22 20 61 | 70 70 65 6e 64 2d 74 6f |"\n\n" a|ppend-to|
|00005420| 2d 66 69 6c 65 5d 20 35 | 20 28 23 24 20 2e 20 32 |-file] 5| (#$ . 2|
|00005430| 30 37 34 38 29 5d 29 0a | 23 40 36 30 20 43 6f 6e |0748)]).|#@60 Con|
|00005440| 76 65 72 74 20 61 72 74 | 69 63 6c 65 20 69 6e 20 |vert art|icle in |
|00005450| 63 75 72 72 65 6e 74 20 | 62 75 66 66 65 72 20 74 |current |buffer t|
|00005460| 6f 20 52 6d 61 69 6c 20 | 6d 65 73 73 61 67 65 20 |o Rmail |message |
|00005470| 66 6f 72 6d 61 74 2e 1f | 0a 28 64 65 66 61 6c 69 |format..|.(defali|
|00005480| 61 73 20 27 67 6e 75 73 | 2d 63 6f 6e 76 65 72 74 |as 'gnus|-convert|
|00005490| 2d 61 72 74 69 63 6c 65 | 2d 74 6f 2d 72 6d 61 69 |-article|-to-rmai|
|000054a0| 6c 20 23 5b 6e 69 6c 20 | 22 c0 19 65 62 88 c2 63 |l #[nil |"..eb..c|
|000054b0| 88 c3 c4 c0 c5 23 ab 88 | c6 c7 c5 89 23 88 aa 71 |.....#..|....#..q|
|000054c0| 64 62 88 c8 63 29 87 22 | 20 5b 6e 69 6c 20 62 75 |db..c)."| [nil bu|
|000054d0| 66 66 65 72 2d 72 65 61 | 64 2d 6f 6e 6c 79 20 22 |ffer-rea|d-only "|
|000054e0| 0c 5c 6e 30 2c 20 75 6e | 73 65 65 6e 2c 2c 5c 6e |.\n0, un|seen,,\n|
|000054f0| 2a 2a 2a 20 45 4f 4f 48 | 20 2a 2a 2a 5c 6e 22 20 |*** EOOH| ***\n" |
|00005500| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 22 |search-f|orward "|
|00005510| 5c 6e 1f 22 20 74 20 72 | 65 70 6c 61 63 65 2d 6d |\n." t r|eplace-m|
|00005520| 61 74 63 68 20 22 5c 6e | 5e 5f 22 20 22 1f 22 5d |atch "\n|^_" "."]|
|00005530| 20 34 20 28 23 24 20 2e | 20 32 31 35 36 35 29 5d | 4 (#$ .| 21565)]|
|00005540| 29 0a 28 70 72 6f 76 69 | 64 65 20 27 67 6e 75 73 |).(provi|de 'gnus|
|00005550| 2d 75 74 69 6c 29 0a | |-util). | |
+--------+-------------------------+-------------------------+--------+--------+
