InfoMagic Source Code 1993 July

home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / lemacs-19.6 / lisp / gnus / gnus-speedups.elc < prev next >
Emacs Compiled Lisp | 1993-04-01 | 3.2 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
`1%`	dexvert	Combustion 2 Particle Library `(other/combustion2ParticleLibrary)`	ext	Unsupported
`100%`	file	Emacs/XEmacs v19 byte-compiled Lisp data	default
`99%`	file	data	default
`100%`	TrID	Emacs/XEmacs byte-compiled Lisp (generic)	default
`100%`	xdgMime	text/x-emacs-lisp	default (weak)
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 77 7a 40 74 68 61 |piled by| jwz@tha|
|00000020| 6c 69 64 6f 6d 69 64 65 | 20 6f 6e 20 4d 6f 6e 20 |lidomide| on Mon |
|00000030| 46 65 62 20 20 31 20 31 | 38 3a 35 30 3a 35 37 20 |Feb  1 1|8:50:57 |
|00000040| 31 39 39 33 0a 3b 3b 3b | 20 66 72 6f 6d 20 66 69 |1993.;;;| from fi|
|00000050| 6c 65 20 2f 63 61 64 69 | 6c 6c 61 63 31 2f 63 6f |le /cadi|llac1/co|
|00000060| 64 65 2f 62 75 69 6c 64 | 2f 6c 65 6d 61 63 73 2f |de/build|/lemacs/|
|00000070| 6c 69 73 70 2f 67 6e 75 | 73 2f 67 6e 75 73 2d 73 |lisp/gnu|s/gnus-s|
|00000080| 70 65 65 64 75 70 73 2e | 65 6c 0a 3b 3b 3b 20 65 |peedups.|el.;;; e|
|00000090| 6d 61 63 73 20 76 65 72 | 73 69 6f 6e 20 31 39 2e |macs ver|sion 19.|
|000000a0| 34 2e 31 33 20 4c 75 63 | 69 64 2e 0a 3b 3b 3b 20 |4.13 Luc|id..;;; |
|000000b0| 62 79 74 65 63 6f 6d 70 | 20 76 65 72 73 69 6f 6e |bytecomp| version|
|000000c0| 20 32 2e 31 30 3b 20 20 | 31 2d 66 65 62 2d 39 33 | 2.10;  |1-feb-93|
|000000d0| 2e 0a 3b 3b 3b 20 6f 70 | 74 69 6d 69 7a 61 74 69 |..;;; op|timizati|
|000000e0| 6f 6e 20 69 73 20 6f 6e | 2e 0a 3b 3b 3b 20 74 68 |on is on|..;;; th|
|000000f0| 69 73 20 66 69 6c 65 20 | 75 73 65 73 20 6f 70 63 |is file |uses opc|
|00000100| 6f 64 65 73 20 77 68 69 | 63 68 20 64 6f 20 6e 6f |odes whi|ch do no|
|00000110| 74 20 65 78 69 73 74 20 | 69 6e 20 45 6d 61 63 73 |t exist |in Emacs|
|00000120| 31 38 2e 0a 0a 28 69 66 | 20 28 61 6e 64 20 28 62 |18...(if| (and (b|
|00000130| 6f 75 6e 64 70 20 27 65 | 6d 61 63 73 2d 76 65 72 |oundp 'e|macs-ver|
|00000140| 73 69 6f 6e 29 0a 09 20 | 28 6f 72 20 28 61 6e 64 |sion).. |(or (and|
|00000150| 20 28 62 6f 75 6e 64 70 | 20 27 65 70 6f 63 68 3a | (boundp| 'epoch:|
|00000160| 3a 76 65 72 73 69 6f 6e | 29 20 65 70 6f 63 68 3a |:version|) epoch:|
|00000170| 3a 76 65 72 73 69 6f 6e | 29 0a 09 20 20 20 20 20 |:version|)..     |
|00000180| 28 73 74 72 69 6e 67 2d | 6c 65 73 73 70 20 65 6d |(string-|lessp em|
|00000190| 61 63 73 2d 76 65 72 73 | 69 6f 6e 20 22 31 39 22 |acs-vers|ion "19"|
|000001a0| 29 29 29 0a 20 20 20 20 | 28 65 72 72 6f 72 20 22 |))).    |(error "|
|000001b0| 54 68 69 73 20 66 69 6c | 65 20 77 61 73 20 63 6f |This fil|e was co|
|000001c0| 6d 70 69 6c 65 64 20 66 | 6f 72 20 45 6d 61 63 73 |mpiled f|or Emacs|
|000001d0| 31 39 2e 22 29 29 0a 0a | 28 72 65 71 75 69 72 65 |19."))..|(require|
|000001e0| 20 27 67 6e 75 73 29 0a | 28 66 73 65 74 20 27 67 | 'gnus).|(fset 'g|
|000001f0| 6e 75 73 2d 66 69 6e 64 | 2d 6e 65 77 2d 6e 65 77 |nus-find|-new-new|
|00000200| 73 67 72 6f 75 70 73 20 | 23 5b 6e 69 6c 20 22 c0 |sgroups |#[nil ".|
|00000210| 89 c1 20 1a 1b 1c c5 c6 | 0e 07 5c 22 88 c5 c8 0e |.. .....|..\"....|
|00000220| 09 5c 22 88 ca cb 0e 0c | 5c 22 88 0b 2b 87 22 20 |.\".....|\"..+." |
|00000230| 5b 6e 69 6c 20 6d 61 6b | 65 2d 61 62 62 72 65 76 |[nil mak|e-abbrev|
|00000240| 2d 74 61 62 6c 65 20 6b | 6e 6f 77 6e 2d 67 72 6f |-table k|nown-gro|
|00000250| 75 70 73 20 6e 65 77 2d | 67 72 6f 75 70 73 20 67 |ups new-|groups g|
|00000260| 72 6f 75 70 20 6d 61 70 | 63 61 72 20 23 5b 28 67 |roup map|car #[(g|
|00000270| 72 6f 75 70 29 20 22 c0 | 09 40 5c 6e 5c 22 c3 4c |roup) ".|.@\n\".L|
|00000280| 87 22 20 5b 69 6e 74 65 | 72 6e 20 67 72 6f 75 70 |." [inte|rn group|
|00000290| 20 6b 6e 6f 77 6e 2d 67 | 72 6f 75 70 73 20 74 5d | known-g|roups t]|
|000002a0| 20 33 5d 20 67 6e 75 73 | 2d 6b 69 6c 6c 65 64 2d | 3] gnus|-killed-|
|000002b0| 61 73 73 6f 63 20 23 5b | 28 67 72 6f 75 70 29 20 |assoc #[|(group) |
|000002c0| 22 c0 09 40 5c 6e 5c 22 | c3 4c 87 22 20 5b 69 6e |"..@\n\"|.L." [in|
|000002d0| 74 65 72 6e 20 67 72 6f | 75 70 20 6b 6e 6f 77 6e |tern gro|up known|
|000002e0| 2d 67 72 6f 75 70 73 20 | 74 5d 20 33 5d 20 67 6e |-groups |t] 3] gn|
|000002f0| 75 73 2d 6e 65 77 73 72 | 63 2d 61 73 73 6f 63 20 |us-newsr|c-assoc |
|00000300| 6d 61 70 61 74 6f 6d 73 | 20 23 5b 28 73 79 6d 29 |mapatoms| #[(sym)|
|00000310| 20 22 c0 09 21 12 0b ab | 8f c4 0b 5c 6e 5c 22 ab | "..!...|...\n\".|
|00000320| 89 0d ad 95 c4 0d 5c 6e | 5c 22 ad 8f c6 5c 6e 0e |......\n|\"...\n.|
|00000330| 07 5c 22 3f ad 87 5c 6e | 0e 08 42 89 16 08 87 22 |.\"?..\n|..B...."|
|00000340| 20 5b 73 79 6d 62 6f 6c | 2d 6e 61 6d 65 20 73 79 | [symbol|-name sy|
|00000350| 6d 20 67 72 6f 75 70 20 | 67 6e 75 73 2d 6e 65 77 |m group |gnus-new|
|00000360| 73 72 63 2d 6f 70 74 69 | 6f 6e 73 2d 6e 2d 6e 6f |src-opti|ons-n-no|
|00000370| 20 73 74 72 69 6e 67 2d | 6d 61 74 63 68 20 67 6e | string-|match gn|
|00000380| 75 73 2d 6e 65 77 73 72 | 63 2d 6f 70 74 69 6f 6e |us-newsr|c-option|
|00000390| 73 2d 6e 2d 79 65 73 20 | 61 62 62 72 65 76 2d 65 |s-n-yes |abbrev-e|
|000003a0| 78 70 61 6e 73 69 6f 6e | 20 6b 6e 6f 77 6e 2d 67 |xpansion| known-g|
|000003b0| 72 6f 75 70 73 20 6e 65 | 77 2d 67 72 6f 75 70 73 |roups ne|w-groups|
|000003c0| 5d 20 33 5d 20 67 6e 75 | 73 2d 61 63 74 69 76 65 |] 3] gnu|s-active|
|000003d0| 2d 68 61 73 68 74 62 5d | 20 33 20 22 5c 0a 4c 6f |-hashtb]| 3 "\.Lo|
|000003e0| 6f 6b 20 66 6f 72 20 6e | 65 77 20 6e 65 77 73 67 |ok for n|ew newsg|
|000003f0| 72 6f 75 70 73 20 61 6e | 64 20 72 65 74 75 72 6e |roups an|d return|
|00000400| 20 6e 61 6d 65 73 2e 0a | 60 2d 6e 27 20 6f 70 74 | names..|`-n' opt|
|00000410| 69 6f 6e 20 6f 66 20 6f | 70 74 69 6f 6e 73 20 6c |ion of o|ptions l|
|00000420| 69 6e 65 20 69 6e 20 2e | 6e 65 77 73 72 63 20 66 |ine in .|newsrc f|
|00000430| 69 6c 65 20 69 73 20 72 | 65 63 6f 67 6e 69 7a 65 |ile is r|ecognize|
|00000440| 64 2e 22 5d 29 0a 28 66 | 73 65 74 20 27 67 6e 75 |d."]).(f|set 'gnu|
|00000450| 73 2d 6b 65 79 65 64 2d | 73 6f 72 74 20 23 5b 28 |s-keyed-|sort #[(|
|00000460| 6c 69 73 74 20 63 6f 6d | 70 61 72 65 20 65 78 74 |list com|pare ext|
|00000470| 72 61 63 74 29 20 22 c0 | c1 5c 6e 5c 22 1b c4 0b |ract) ".|.\n\"...|
|00000480| c5 5c 22 13 c0 c6 0b 5c | 22 29 87 22 20 5b 6d 61 |.\"....\|")." [ma|
|00000490| 70 63 61 72 20 23 5b 28 | 69 74 29 20 22 08 09 21 |pcar #[(|it) "..!|
|000004a0| 09 42 87 22 20 5b 65 78 | 74 72 61 63 74 20 69 74 |.B." [ex|tract it|
|000004b0| 5d 20 32 5d 20 6c 69 73 | 74 20 6b 65 79 65 64 2d |] 2] lis|t keyed-|
|000004c0| 6c 69 73 74 20 73 6f 72 | 74 20 23 5b 28 61 20 62 |list sor|t #[(a b|
|000004d0| 29 20 22 08 09 40 5c 6e | 40 5c 22 87 22 20 5b 63 |) "..@\n|@\"." [c|
|000004e0| 6f 6d 70 61 72 65 20 61 | 20 62 5d 20 33 5d 20 23 |ompare a| b] 3] #|
|000004f0| 5b 28 69 74 29 20 22 08 | 41 87 22 20 5b 69 74 5d |[(it) ".|A." [it]|
|00000500| 20 31 5d 5d 20 33 20 22 | 5c 0a 53 6f 72 74 20 4c | 1]] 3 "|\.Sort L|
|00000510| 49 53 54 20 73 74 61 62 | 6c 79 20 61 6e 64 20 72 |IST stab|ly and r|
|00000520| 65 74 75 72 6e 20 74 68 | 65 20 73 6f 72 74 65 64 |eturn th|e sorted|
|00000530| 20 6c 69 73 74 2e 20 20 | 44 6f 65 73 20 6e 6f 74 | list.  |Does not|
|00000540| 20 6d 6f 64 69 66 79 20 | 4c 49 53 54 2e 0a 41 72 | modify |LIST..Ar|
|00000550| 67 75 6d 65 6e 74 73 20 | 61 72 65 20 28 4c 49 53 |guments |are (LIS|
|00000560| 54 20 43 4f 4d 50 41 52 | 45 20 45 58 54 52 41 43 |T COMPAR|E EXTRAC|
|00000570| 54 29 2e 20 20 45 6c 65 | 6d 65 6e 74 73 20 69 6e |T).  Ele|ments in|
|00000580| 20 74 68 65 20 6c 69 73 | 74 20 61 72 65 0a 63 6f | the lis|t are.co|
|00000590| 6d 70 61 72 65 64 20 61 | 73 20 69 66 20 74 68 65 |mpared a|s if the|
|000005a0| 20 70 72 65 64 69 63 61 | 74 65 20 77 65 72 65 3a | predica|te were:|
|000005b0| 0a 09 28 43 4f 4d 50 41 | 52 45 20 28 45 58 54 52 |..(COMPA|RE (EXTR|
|000005c0| 41 43 54 20 61 29 20 28 | 45 58 54 52 41 43 54 20 |ACT a) (|EXTRACT |
|000005d0| 62 29 29 0a 62 75 74 20 | 45 58 54 52 41 43 54 20 |b)).but |EXTRACT |
|000005e0| 69 73 20 72 75 6e 20 6f | 76 65 72 20 65 61 63 68 |is run o|ver each|
|000005f0| 20 65 6c 65 6d 65 6e 74 | 20 6f 66 20 74 68 65 20 | element| of the |
|00000600| 6c 69 73 74 20 69 6e 20 | 61 20 70 72 65 70 72 6f |list in |a prepro|
|00000610| 63 65 73 73 69 6e 67 0a | 73 74 61 67 65 20 66 6f |cessing.|stage fo|
|00000620| 72 20 65 66 66 69 63 69 | 65 6e 63 79 2e 20 20 54 |r effici|ency.  T|
|00000630| 68 69 73 20 72 65 64 75 | 63 65 73 20 74 68 65 20 |his redu|ces the |
|00000640| 6e 75 6d 62 65 72 20 6f | 66 20 45 58 54 52 41 43 |number o|f EXTRAC|
|00000650| 54 20 63 61 6c 6c 73 20 | 66 72 6f 6d 0a 4f 28 4e |T calls |from.O(N|
|00000660| 20 6c 6f 67 20 4e 29 20 | 74 6f 20 4f 28 4e 29 2e | log N) |to O(N).|
|00000670| 0a 0a 45 78 61 6d 70 6c | 65 3a 20 28 67 6e 75 73 |..Exampl|e: (gnus|
|00000680| 2d 6b 65 79 65 64 2d 73 | 6f 72 74 20 6c 6f 61 64 |-keyed-s|ort load|
|00000690| 2d 70 61 74 68 20 27 73 | 74 72 69 6e 67 3c 20 27 |-path 's|tring< '|
|000006a0| 64 6f 77 6e 63 61 73 65 | 29 0a 22 5d 29 0a 28 66 |downcase|)."]).(f|
|000006b0| 73 65 74 20 27 67 6e 75 | 73 2d 6b 65 79 65 64 2d |set 'gnu|s-keyed-|
|000006c0| 73 6f 72 74 2d 68 65 61 | 64 65 72 73 20 23 5b 28 |sort-hea|ders #[(|
|000006d0| 63 6f 6d 70 61 72 65 20 | 65 78 74 72 61 63 74 29 |compare |extract)|
|000006e0| 20 22 c0 09 5c 6e 0b 23 | 89 11 87 22 20 5b 67 6e | "..\n.#|..." [gn|
|000006f0| 75 73 2d 6b 65 79 65 64 | 2d 73 6f 72 74 20 67 6e |us-keyed|-sort gn|
|00000700| 75 73 2d 6e 65 77 73 67 | 72 6f 75 70 2d 68 65 61 |us-newsg|roup-hea|
|00000710| 64 65 72 73 20 63 6f 6d | 70 61 72 65 20 65 78 74 |ders com|pare ext|
|00000720| 72 61 63 74 5d 20 34 20 | 22 5c 0a 53 6f 72 74 20 |ract] 4 |"\.Sort |
|00000730| 63 75 72 72 65 6e 74 20 | 67 72 6f 75 70 27 73 20 |current |group's |
|00000740| 68 65 61 64 65 72 73 20 | 62 79 20 43 4f 4d 50 41 |headers |by COMPA|
|00000750| 52 45 20 61 6e 64 20 45 | 58 54 52 41 43 54 2e 20 |RE and E|XTRACT. |
|00000760| 20 53 6f 72 74 69 6e 67 | 20 69 73 0a 64 6f 6e 65 | Sorting| is.done|
|00000770| 20 61 73 20 69 66 20 74 | 68 65 20 70 72 65 64 69 | as if t|he predi|
|00000780| 63 61 74 65 20 77 65 72 | 65 0a 09 28 43 4f 4d 50 |cate wer|e..(COMP|
|00000790| 41 52 45 20 28 45 58 54 | 52 41 43 54 20 61 29 20 |ARE (EXT|RACT a) |
|000007a0| 28 45 58 54 52 41 43 54 | 20 62 29 29 0a 53 65 65 |(EXTRACT| b)).See|
|000007b0| 20 27 67 6e 75 73 2d 6b | 65 79 65 64 2d 73 6f 72 | 'gnus-k|eyed-sor|
|000007c0| 74 20 66 6f 72 20 64 65 | 74 61 69 6c 73 2e 0a 4e |t for de|tails..N|
|000007d0| 6f 74 65 3a 20 69 6e 74 | 65 72 72 75 70 74 69 6e |ote: int|erruptin|
|000007e0| 67 20 74 68 65 20 73 6f | 72 74 20 6c 65 61 76 65 |g the so|rt leave|
|000007f0| 73 20 74 68 65 20 68 65 | 61 64 65 72 73 20 75 6e |s the he|aders un|
|00000800| 73 6f 72 74 65 64 2e 0a | 22 5d 29 0a 28 66 73 65 |sorted..|"]).(fse|
|00000810| 74 20 27 67 6e 75 73 2d | 53 75 62 6a 65 63 74 2d |t 'gnus-|Subject-|
|00000820| 6b 65 79 65 64 2d 73 6f | 72 74 2d 73 75 62 6a 65 |keyed-so|rt-subje|
|00000830| 63 74 73 20 23 5b 28 63 | 6f 6d 70 61 72 65 20 65 |cts #[(c|ompare e|
|00000840| 78 74 72 61 63 74 20 26 | 6f 70 74 69 6f 6e 61 6c |xtract &|optional|
|00000850| 20 72 65 76 65 72 73 65 | 29 20 22 c0 20 19 c2 0b | reverse|) ". ...|
|00000860| 0c 5c 22 88 0d ab 85 0e | 06 9f 16 06 c7 20 88 c8 |.\".....|..... ..|
|00000870| 09 21 29 87 22 20 5b 67 | 6e 75 73 2d 53 75 62 6a |.!)." [g|nus-Subj|
|00000880| 65 63 74 2d 61 72 74 69 | 63 6c 65 2d 6e 75 6d 62 |ect-arti|cle-numb|
|00000890| 65 72 20 63 75 72 72 65 | 6e 74 20 67 6e 75 73 2d |er curre|nt gnus-|
|000008a0| 6b 65 79 65 64 2d 73 6f | 72 74 2d 68 65 61 64 65 |keyed-so|rt-heade|
|000008b0| 72 73 20 63 6f 6d 70 61 | 72 65 20 65 78 74 72 61 |rs compa|re extra|
|000008c0| 63 74 20 72 65 76 65 72 | 73 65 20 67 6e 75 73 2d |ct rever|se gnus-|
|000008d0| 6e 65 77 73 67 72 6f 75 | 70 2d 68 65 61 64 65 72 |newsgrou|p-header|
|000008e0| 73 20 67 6e 75 73 2d 53 | 75 62 6a 65 63 74 2d 70 |s gnus-S|ubject-p|
|000008f0| 72 65 70 61 72 65 20 67 | 6e 75 73 2d 53 75 62 6a |repare g|nus-Subj|
|00000900| 65 63 74 2d 67 6f 74 6f | 2d 73 75 62 6a 65 63 74 |ect-goto|-subject|
|00000910| 5d 20 33 20 22 5c 0a 53 | 6f 72 74 20 61 6e 64 20 |] 3 "\.S|ort and |
|00000920| 72 65 64 69 73 70 6c 61 | 79 20 74 68 65 20 2a 53 |redispla|y the *S|
|00000930| 75 62 6a 65 63 74 2a 20 | 62 75 66 66 65 72 20 62 |ubject* |buffer b|
|00000940| 79 20 43 4f 4d 50 41 52 | 45 20 61 6e 64 20 45 58 |y COMPAR|E and EX|
|00000950| 54 52 41 43 54 2e 0a 43 | 61 6c 6c 73 20 27 67 6e |TRACT..C|alls 'gn|
|00000960| 75 73 2d 6b 65 79 65 64 | 2d 73 6f 72 74 2d 68 65 |us-keyed|-sort-he|
|00000970| 61 64 65 72 73 20 74 6f | 20 64 6f 20 74 68 65 20 |aders to| do the |
|00000980| 73 6f 72 74 69 6e 67 2e | 20 20 4f 70 74 69 6f 6e |sorting.|  Option|
|00000990| 61 6c 20 61 72 67 75 6d | 65 6e 74 0a 52 45 56 45 |al argum|ent.REVE|
|000009a0| 52 53 45 20 6d 65 61 6e | 73 20 74 6f 20 64 6f 20 |RSE mean|s to do |
|000009b0| 61 6e 20 27 6e 72 65 76 | 65 72 73 65 20 61 66 74 |an 'nrev|erse aft|
|000009c0| 65 72 20 73 6f 72 74 69 | 6e 67 2e 0a 22 5d 29 0a |er sorti|ng.."]).|
|000009d0| 28 66 73 65 74 20 27 67 | 6e 75 73 2d 53 75 62 6a |(fset 'g|nus-Subj|
|000009e0| 65 63 74 2d 73 6f 72 74 | 2d 62 79 2d 73 75 62 6a |ect-sort|-by-subj|
|000009f0| 65 63 74 20 23 5b 28 72 | 65 76 65 72 73 65 29 20 |ect #[(r|everse) |
|00000a00| 22 c0 c1 5c 6e ab 83 c3 | aa 81 c4 0d 23 87 22 20 |"..\n...|....#." |
|00000a10| 5b 67 6e 75 73 2d 53 75 | 62 6a 65 63 74 2d 6b 65 |[gnus-Su|bject-ke|
|00000a20| 79 65 64 2d 73 6f 72 74 | 2d 73 75 62 6a 65 63 74 |yed-sort|-subject|
|00000a30| 73 20 73 74 72 69 6e 67 | 3c 20 63 61 73 65 2d 66 |s string|< case-f|
|00000a40| 6f 6c 64 2d 73 65 61 72 | 63 68 20 23 5b 28 69 74 |old-sear|ch #[(it|
|00000a50| 29 20 22 c0 09 c2 48 c3 | 5c 22 97 87 22 20 5b 67 |) "...H.|\".." [g|
|00000a60| 6e 75 73 2d 73 69 6d 70 | 6c 69 66 79 2d 73 75 62 |nus-simp|lify-sub|
|00000a70| 6a 65 63 74 20 69 74 20 | 31 20 72 65 2d 6f 6e 6c |ject it |1 re-onl|
|00000a80| 79 5d 20 33 5d 20 23 5b | 28 69 74 29 20 22 c0 09 |y] 3] #[|(it) "..|
|00000a90| c2 48 c3 5c 22 87 22 20 | 5b 67 6e 75 73 2d 73 69 |.H.\"." |[gnus-si|
|00000aa0| 6d 70 6c 69 66 79 2d 73 | 75 62 6a 65 63 74 20 69 |mplify-s|ubject i|
|00000ab0| 74 20 31 20 72 65 2d 6f | 6e 6c 79 5d 20 33 5d 20 |t 1 re-o|nly] 3] |
|00000ac0| 72 65 76 65 72 73 65 5d | 20 34 20 22 5c 0a 53 6f |reverse]| 4 "\.So|
|00000ad0| 72 74 20 2a 53 75 62 6a | 65 63 74 2a 20 62 75 66 |rt *Subj|ect* buf|
|00000ae0| 66 65 72 20 62 79 20 73 | 75 62 6a 65 63 74 20 61 |fer by s|ubject a|
|00000af0| 6c 70 68 61 62 65 74 69 | 63 61 6c 6c 79 2e 20 20 |lphabeti|cally.  |
|00000b00| 41 72 67 75 6d 65 6e 74 | 20 52 45 56 45 52 53 45 |Argument| REVERSE|
|00000b10| 0a 6d 65 61 6e 73 20 72 | 65 76 65 72 73 65 20 6f |.means r|everse o|
|00000b20| 72 64 65 72 2e 20 20 5c | 22 52 65 3a 5c 22 73 20 |rder.  \|"Re:\"s |
|00000b30| 61 72 65 20 69 67 6e 6f | 72 65 64 2e 20 20 49 66 |are igno|red.  If|
|00000b40| 20 27 63 61 73 65 2d 66 | 6f 6c 64 2d 73 65 61 72 | 'case-f|old-sear|
|00000b50| 63 68 2c 20 74 68 65 6e | 0a 63 61 73 65 20 6f 66 |ch, then|.case of|
|00000b60| 20 6c 65 74 74 65 72 73 | 20 77 69 6c 6c 20 62 65 | letters| will be|
|00000b70| 20 69 67 6e 6f 72 65 64 | 2e 0a 22 20 22 50 22 5d | ignored|.." "P"]|
|00000b80| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |).(byte-|code "..|
|00000b90| 21 ac 84 c1 c2 4d 88 c0 | 87 22 20 5b 66 62 6f 75 |!....M..|." [fbou|
|00000ba0| 6e 64 70 20 67 6e 75 73 | 2d 73 6f 72 74 61 62 6c |ndp gnus|-sortabl|
|00000bb0| 65 2d 64 61 74 65 20 67 | 6e 75 73 2d 63 6f 6d 70 |e-date g|nus-comp|
|00000bc0| 61 72 61 62 6c 65 2d 64 | 61 74 65 5d 20 32 29 0a |arable-d|ate] 2).|
|00000bd0| 28 66 73 65 74 20 27 67 | 6e 75 73 2d 53 75 62 6a |(fset 'g|nus-Subj|
|00000be0| 65 63 74 2d 73 6f 72 74 | 2d 62 79 2d 64 61 74 65 |ect-sort|-by-date|
|00000bf0| 20 23 5b 28 72 65 76 65 | 72 73 65 29 20 22 c0 c1 | #[(reve|rse) "..|
|00000c00| c2 0b 23 87 22 20 5b 67 | 6e 75 73 2d 53 75 62 6a |..#." [g|nus-Subj|
|00000c10| 65 63 74 2d 6b 65 79 65 | 64 2d 73 6f 72 74 2d 73 |ect-keye|d-sort-s|
|00000c20| 75 62 6a 65 63 74 73 20 | 73 74 72 69 6e 67 3c 20 |ubjects |string< |
|00000c30| 23 5b 28 69 74 29 20 22 | c0 09 c2 48 21 87 22 20 |#[(it) "|...H!." |
|00000c40| 5b 67 6e 75 73 2d 73 6f | 72 74 61 62 6c 65 2d 64 |[gnus-so|rtable-d|
|00000c50| 61 74 65 20 69 74 20 35 | 5d 20 33 5d 20 72 65 76 |ate it 5|] 3] rev|
|00000c60| 65 72 73 65 5d 20 34 20 | 22 5c 0a 53 6f 72 74 20 |erse] 4 |"\.Sort |
|00000c70| 2a 53 75 62 6a 65 63 74 | 2a 20 62 75 66 66 65 72 |*Subject|* buffer|
|00000c80| 20 62 79 20 70 6f 73 74 | 65 64 20 64 61 74 65 2e | by post|ed date.|
|00000c90| 20 20 41 72 67 75 6d 65 | 6e 74 20 52 45 56 45 52 |  Argume|nt REVER|
|00000ca0| 53 45 20 6d 65 61 6e 73 | 0a 72 65 76 65 72 73 65 |SE means|.reverse|
|00000cb0| 20 6f 72 64 65 72 2e 22 | 20 22 50 22 5d 29 0a    | order."| "P"]). |
+--------+-------------------------+-------------------------+--------+--------+