/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / interfaces / gnus-jds.shar

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 3a 20 6a 65 | 66 66 31 40 67 61 72 66 |From: je|ff1@garf|
|00000010| 69 65 6c 64 2e 4d 55 4e | 2e 45 44 55 20 28 4a 65 |ield.MUN|.EDU (Je|
|00000020| 66 66 20 53 70 61 72 6b | 65 73 29 0a 4e 65 77 73 |ff Spark|es).News|
|00000030| 67 72 6f 75 70 73 3a 20 | 67 6e 75 2e 65 6d 61 63 |groups: |gnu.emac|
|00000040| 73 2e 67 6e 75 73 0a 53 | 75 62 6a 65 63 74 3a 20 |s.gnus.S|ubject: |
|00000050| 6d 61 72 6b 69 6e 67 20 | 69 6e 74 65 72 65 73 74 |marking |interest|
|00000060| 69 6e 67 20 61 72 74 69 | 63 6c 65 73 0a 4d 65 73 |ing arti|cles.Mes|
|00000070| 73 61 67 65 2d 49 44 3a | 20 3c 35 32 36 30 40 67 |sage-ID:| <5260@g|
|00000080| 61 72 66 69 65 6c 64 2e | 4d 55 4e 2e 45 44 55 3e |arfield.|MUN.EDU>|
|00000090| 0a 44 61 74 65 3a 20 31 | 38 20 4a 75 6c 20 38 39 |.Date: 1|8 Jul 89|
|000000a0| 20 31 35 3a 35 38 3a 33 | 39 20 47 4d 54 0a 4f 72 | 15:58:3|9 GMT.Or|
|000000b0| 67 61 6e 69 7a 61 74 69 | 6f 6e 3a 20 43 53 20 44 |ganizati|on: CS D|
|000000c0| 65 70 74 2e 2c 20 4d 65 | 6d 6f 72 69 61 6c 20 55 |ept., Me|morial U|
|000000d0| 2e 20 6f 66 20 4e 65 77 | 66 6f 75 6e 64 6c 61 6e |. of New|foundlan|
|000000e0| 64 2c 20 53 74 2e 20 4a | 6f 68 6e 27 73 0a 4c 69 |d, St. J|ohn's.Li|
|000000f0| 6e 65 73 3a 20 31 30 37 | 0a 0a 0a 09 48 65 72 65 |nes: 107|....Here|
|00000100| 27 73 20 61 6e 6f 74 68 | 65 72 20 76 65 72 73 69 |'s anoth|er versi|
|00000110| 6f 6e 20 6f 66 20 6d 79 | 20 68 61 63 6b 73 20 74 |on of my| hacks t|
|00000120| 6f 20 73 75 62 6a 65 63 | 74 20 6d 6f 64 65 2e 20 |o subjec|t mode. |
|00000130| 20 54 68 69 73 20 6f 6e | 65 20 64 6f 65 73 6e 27 | This on|e doesn'|
|00000140| 74 0a 6e 65 65 64 20 74 | 6f 20 62 65 20 6c 6f 61 |t.need t|o be loa|
|00000150| 64 65 64 20 6d 75 6c 74 | 69 70 6c 65 20 74 69 6d |ded mult|iple tim|
|00000160| 65 73 2e 0a 0a 42 61 73 | 69 63 20 6f 70 65 72 61 |es...Bas|ic opera|
|00000170| 74 69 6f 6e 3a 20 20 69 | 6e 20 74 68 65 20 73 75 |tion:  i|n the su|
|00000180| 62 6a 65 63 74 20 62 75 | 66 66 65 72 2c 20 43 2d |bject bu|ffer, C-|
|00000190| 6b 20 6b 69 6c 6c 73 20 | 61 20 73 75 62 6a 65 63 |k kills |a subjec|
|000001a0| 74 73 2c 20 43 2d 69 20 | 6d 61 72 6b 73 0a 69 74 |ts, C-i |marks.it|
|000001b0| 20 61 73 20 69 6e 74 65 | 72 65 73 74 69 6e 67 20 | as inte|resting |
|000001c0| 28 77 69 74 68 20 61 6e | 20 49 29 2e 20 20 57 68 |(with an| I).  Wh|
|000001d0| 65 6e 20 79 6f 75 20 68 | 69 74 20 22 2e 22 2c 20 |en you h|it ".", |
|000001e0| 61 6c 6c 20 74 68 65 20 | 22 49 22 27 73 20 20 61 |all the |"I"'s  a|
|000001f0| 72 65 20 72 65 6d 6f 76 | 65 64 0a 61 6e 64 20 79 |re remov|ed.and y|
|00000200| 6f 75 20 72 65 61 64 20 | 6f 6e 6c 79 20 74 68 6f |ou read |only tho|
|00000210| 73 65 20 61 72 74 69 63 | 6c 65 73 2e 0a 0a 23 21 |se artic|les...#!|
|00000220| 20 2f 62 69 6e 2f 73 68 | 0a 23 20 54 68 69 73 20 | /bin/sh|.# This |
|00000230| 69 73 20 61 20 73 68 65 | 6c 6c 20 61 72 63 68 69 |is a she|ll archi|
|00000240| 76 65 2c 20 6d 65 61 6e | 69 6e 67 3a 0a 23 20 31 |ve, mean|ing:.# 1|
|00000250| 2e 20 52 65 6d 6f 76 65 | 20 65 76 65 72 79 74 68 |. Remove| everyth|
|00000260| 69 6e 67 20 61 62 6f 76 | 65 20 74 68 65 20 23 21 |ing abov|e the #!|
|00000270| 20 2f 62 69 6e 2f 73 68 | 20 6c 69 6e 65 2e 0a 23 | /bin/sh| line..#|
|00000280| 20 32 2e 20 53 61 76 65 | 20 74 68 65 20 72 65 73 | 2. Save| the res|
|00000290| 75 6c 74 69 6e 67 20 74 | 65 78 74 20 69 6e 20 61 |ulting t|ext in a|
|000002a0| 20 66 69 6c 65 2e 0a 23 | 20 33 2e 20 45 78 65 63 | file..#| 3. Exec|
|000002b0| 75 74 65 20 74 68 65 20 | 66 69 6c 65 20 77 69 74 |ute the |file wit|
|000002c0| 68 20 2f 62 69 6e 2f 73 | 68 20 28 6e 6f 74 20 63 |h /bin/s|h (not c|
|000002d0| 73 68 29 20 74 6f 20 63 | 72 65 61 74 65 20 74 68 |sh) to c|reate th|
|000002e0| 65 20 66 69 6c 65 73 3a | 0a 23 09 67 6e 75 73 2d |e files:|.#.gnus-|
|000002f0| 6a 64 73 2e 65 6c 0a 23 | 20 54 68 69 73 20 61 72 |jds.el.#| This ar|
|00000300| 63 68 69 76 65 20 63 72 | 65 61 74 65 64 3a 20 54 |chive cr|eated: T|
|00000310| 75 65 20 4a 75 6c 20 31 | 38 20 31 33 3a 32 38 3a |ue Jul 1|8 13:28:|
|00000320| 32 31 20 31 39 38 39 0a | 65 78 70 6f 72 74 20 50 |21 1989.|export P|
|00000330| 41 54 48 3b 20 50 41 54 | 48 3d 2f 62 69 6e 3a 24 |ATH; PAT|H=/bin:$|
|00000340| 50 41 54 48 0a 69 66 20 | 74 65 73 74 20 2d 66 20 |PATH.if |test -f |
|00000350| 27 67 6e 75 73 2d 6a 64 | 73 2e 65 6c 27 0a 74 68 |'gnus-jd|s.el'.th|
|00000360| 65 6e 0a 09 65 63 68 6f | 20 73 68 61 72 3a 20 77 |en..echo| shar: w|
|00000370| 69 6c 6c 20 6e 6f 74 20 | 6f 76 65 72 2d 77 72 69 |ill not |over-wri|
|00000380| 74 65 20 65 78 69 73 74 | 69 6e 67 20 66 69 6c 65 |te exist|ing file|
|00000390| 20 22 27 67 6e 75 73 2d | 6a 64 73 2e 65 6c 27 22 | "'gnus-|jds.el'"|
|000003a0| 0a 65 6c 73 65 0a 63 61 | 74 20 3c 3c 20 5c 53 48 |.else.ca|t << \SH|
|000003b0| 41 52 5f 45 4f 46 20 3e | 20 27 67 6e 75 73 2d 6a |AR_EOF >| 'gnus-j|
|000003c0| 64 73 2e 65 6c 27 0a 3b | 20 4d 61 72 6b 20 69 6e |ds.el'.;| Mark in|
|000003d0| 74 65 72 65 73 74 69 6e | 67 20 61 72 74 69 63 6c |terestin|g articl|
|000003e0| 65 73 20 69 6e 20 47 4e | 55 53 20 73 75 62 6a 65 |es in GN|US subje|
|000003f0| 63 74 20 6d 6f 64 65 2e | 0a 3b 20 4a 65 66 66 20 |ct mode.|.; Jeff |
|00000400| 53 70 61 72 6b 65 73 2c | 20 20 4d 65 6d 6f 72 69 |Sparkes,|  Memori|
|00000410| 61 6c 20 55 6e 69 76 65 | 72 73 69 74 79 20 6f 66 |al Unive|rsity of|
|00000420| 20 4e 65 77 66 6f 75 6e | 64 6c 61 6e 64 2c 20 6a | Newfoun|dland, j|
|00000430| 65 66 66 31 40 67 61 72 | 66 69 65 6c 64 2e 6d 75 |eff1@gar|field.mu|
|00000440| 6e 2e 65 64 75 0a 3b 20 | 4a 75 6c 79 20 31 38 2c |n.edu.; |July 18,|
|00000450| 20 31 39 38 39 0a 3b 20 | 44 69 73 74 72 69 62 75 | 1989.; |Distribu|
|00000460| 74 61 62 6c 65 20 75 6e | 64 65 72 20 74 68 65 20 |table un|der the |
|00000470| 47 4e 55 20 47 65 6e 65 | 72 61 6c 20 50 75 62 6c |GNU Gene|ral Publ|
|00000480| 69 63 20 4c 69 63 65 6e | 73 65 0a 0a 28 70 72 6f |ic Licen|se..(pro|
|00000490| 76 69 64 65 20 27 67 6e | 75 73 2d 6a 64 73 29 0a |vide 'gn|us-jds).|
|000004a0| 0a 28 64 65 66 76 61 72 | 20 67 6e 75 73 2d 6a 64 |.(defvar| gnus-jd|
|000004b0| 73 2d 76 65 72 73 69 6f | 6e 20 22 30 2e 32 22 20 |s-versio|n "0.2" |
|000004c0| 22 56 65 72 73 69 6f 6e | 20 6e 75 6d 62 65 72 20 |"Version| number |
|000004d0| 66 6f 72 20 70 61 74 63 | 68 65 73 22 29 0a 28 64 |for patc|hes").(d|
|000004e0| 65 66 76 61 72 20 67 6e | 75 73 2d 69 6e 74 65 72 |efvar gn|us-inter|
|000004f0| 65 73 74 20 6e 69 6c 20 | 22 48 61 76 65 20 61 6e |est nil |"Have an|
|00000500| 79 20 61 72 74 69 63 6c | 65 73 20 62 65 65 6e 20 |y articl|es been |
|00000510| 6d 61 72 6b 65 64 20 61 | 73 20 69 6e 74 65 72 65 |marked a|s intere|
|00000520| 73 74 69 6e 67 3f 22 29 | 0a 0a 3b 20 43 68 61 6e |sting?")|..; Chan|
|00000530| 67 65 3a 20 63 61 6c 6c | 20 6f 72 69 67 69 6e 61 |ge: call| origina|
|00000540| 6c 20 68 6f 6f 6b 20 62 | 65 66 6f 72 65 3f 20 6d |l hook b|efore? m|
|00000550| 69 6e 65 0a 28 73 65 74 | 71 20 67 6e 75 73 2d 53 |ine.(set|q gnus-S|
|00000560| 74 61 72 74 75 70 2d 68 | 6f 6f 6b 0a 20 20 20 20 |tartup-h|ook.    |
|00000570| 20 20 27 28 6c 61 6d 62 | 64 61 20 28 29 0a 09 20 |  '(lamb|da ().. |
|00000580| 28 64 65 66 69 6e 65 2d | 6b 65 79 20 67 6e 75 73 |(define-|key gnus|
|00000590| 2d 53 75 62 6a 65 63 74 | 2d 6d 6f 64 65 2d 6d 61 |-Subject|-mode-ma|
|000005a0| 70 20 22 5c 43 2d 49 22 | 20 27 67 6e 75 73 2d 53 |p "\C-I"| 'gnus-S|
|000005b0| 75 62 6a 65 63 74 2d 69 | 6e 74 65 72 65 73 74 69 |ubject-i|nteresti|
|000005c0| 6e 67 2d 73 75 62 6a 65 | 63 74 29 0a 09 20 28 66 |ng-subje|ct).. (f|
|000005d0| 73 65 74 20 27 67 6e 75 | 73 2d 53 75 62 6a 65 63 |set 'gnu|s-Subjec|
|000005e0| 74 2d 64 69 73 70 6c 61 | 79 2d 61 72 74 69 63 6c |t-displa|y-articl|
|000005f0| 65 20 27 67 6e 75 73 2d | 6a 64 73 2d 53 75 62 6a |e 'gnus-|jds-Subj|
|00000600| 65 63 74 2d 64 69 73 70 | 6c 61 79 2d 61 72 74 69 |ect-disp|lay-arti|
|00000610| 63 6c 65 29 0a 09 20 28 | 66 73 65 74 20 27 67 6e |cle).. (|fset 'gn|
|00000620| 75 73 2d 53 75 62 6a 65 | 63 74 2d 66 69 72 73 74 |us-Subje|ct-first|
|00000630| 2d 75 6e 72 65 61 64 2d | 61 72 74 69 63 6c 65 0a |-unread-|article.|
|00000640| 09 09 27 67 6e 75 73 2d | 6a 64 73 2d 53 75 62 6a |..'gnus-|jds-Subj|
|00000650| 65 63 74 2d 66 69 72 73 | 74 2d 75 6e 72 65 61 64 |ect-firs|t-unread|
|00000660| 2d 61 72 74 69 63 6c 65 | 29 0a 0a 09 20 29 29 0a |-article|)... )).|
|00000670| 0a 28 64 65 66 75 6e 20 | 67 6e 75 73 2d 53 75 62 |.(defun |gnus-Sub|
|00000680| 6a 65 63 74 2d 69 6e 74 | 65 72 65 73 74 69 6e 67 |ject-int|eresting|
|00000690| 2d 73 75 62 6a 65 63 74 | 20 28 29 0a 20 20 22 4d |-subject| ().  "M|
|000006a0| 61 72 6b 20 61 72 74 69 | 63 6c 65 73 20 77 69 74 |ark arti|cles wit|
|000006b0| 68 20 74 68 69 73 20 73 | 75 62 6a 65 63 74 20 61 |h this s|ubject a|
|000006c0| 73 20 69 6e 74 65 72 65 | 73 74 69 6e 67 2e 22 0a |s intere|sting.".|
|000006d0| 20 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 29 0a |  (inter|active).|
|000006e0| 20 20 28 67 6e 75 73 2d | 53 75 62 6a 65 63 74 2d |  (gnus-|Subject-|
|000006f0| 6d 61 72 6b 2d 61 73 2d | 72 65 61 64 20 6e 69 6c |mark-as-|read nil|
|00000700| 20 22 49 22 29 0a 20 20 | 28 73 61 76 65 2d 65 78 | "I").  |(save-ex|
|00000710| 63 75 72 73 69 6f 6e 0a | 20 20 20 20 28 6c 65 74 |cursion.|    (let|
|00000720| 20 28 28 73 75 62 6a 65 | 63 74 20 28 67 6e 75 73 | ((subje|ct (gnus|
|00000730| 2d 53 75 62 6a 65 63 74 | 2d 73 75 62 6a 65 63 74 |-Subject|-subject|
|00000740| 2d 73 74 72 69 6e 67 29 | 29 29 0a 20 20 20 20 20 |-string)|)).     |
|00000750| 20 28 77 68 69 6c 65 20 | 28 67 6e 75 73 2d 53 75 | (while |(gnus-Su|
|00000760| 62 6a 65 63 74 2d 73 65 | 61 72 63 68 2d 66 6f 72 |bject-se|arch-for|
|00000770| 77 61 72 64 20 6e 69 6c | 20 73 75 62 6a 65 63 74 |ward nil| subject|
|00000780| 29 0a 09 28 67 6e 75 73 | 2d 53 75 62 6a 65 63 74 |)..(gnus|-Subject|
|00000790| 2d 6d 61 72 6b 2d 61 73 | 2d 72 65 61 64 20 6e 69 |-mark-as|-read ni|
|000007a0| 6c 20 22 49 22 29 29 0a | 20 20 20 20 20 20 29 29 |l "I")).|      ))|
|000007b0| 0a 20 20 28 67 6e 75 73 | 2d 53 75 62 6a 65 63 74 |.  (gnus|-Subject|
|000007c0| 2d 6e 65 78 74 2d 73 75 | 62 6a 65 63 74 20 31 20 |-next-su|bject 1 |
|000007d0| 74 29 0a 20 20 28 73 65 | 74 71 20 67 6e 75 73 2d |t).  (se|tq gnus-|
|000007e0| 69 6e 74 65 72 65 73 74 | 20 74 29 0a 20 20 29 0a |interest| t).  ).|
|000007f0| 0a 28 64 65 66 75 6e 20 | 67 6e 75 73 2d 53 75 62 |.(defun |gnus-Sub|
|00000800| 6a 65 63 74 2d 6d 61 72 | 6b 2d 69 6e 74 65 72 65 |ject-mar|k-intere|
|00000810| 73 74 69 6e 67 20 28 29 | 0a 20 20 22 46 69 6e 64 |sting ()|.  "Find|
|00000820| 20 61 6c 6c 20 69 6e 74 | 65 72 65 73 74 69 6e 67 | all int|eresting|
|00000830| 20 73 75 62 6a 65 63 74 | 73 20 28 6d 61 72 6b 65 | subject|s (marke|
|00000840| 64 20 77 69 74 68 20 5c | 22 49 5c 22 29 20 61 6e |d with \|"I\") an|
|00000850| 64 20 6d 61 72 6b 20 74 | 68 65 6d 20 61 73 20 75 |d mark t|hem as u|
|00000860| 6e 72 65 61 64 2e 22 0a | 20 20 28 73 61 76 65 2d |nread.".|  (save-|
|00000870| 65 78 63 75 72 73 69 6f | 6e 0a 20 20 20 20 3b 20 |excursio|n.    ; |
|00000880| 4e 6f 74 65 3a 20 77 65 | 20 61 72 65 20 63 61 6c |Note: we| are cal|
|00000890| 6c 65 64 20 66 72 6f 6d | 20 64 69 73 70 6c 61 79 |led from| display|
|000008a0| 2d 61 72 74 69 63 6c 65 | 2c 20 61 6e 64 20 61 72 |-article|, and ar|
|000008b0| 65 20 69 6e 20 53 75 62 | 6a 65 63 74 2d 62 75 66 |e in Sub|ject-buf|
|000008c0| 66 65 72 0a 20 20 20 20 | 28 67 6f 74 6f 2d 63 68 |fer.    |(goto-ch|
|000008d0| 61 72 20 28 70 6f 69 6e | 74 2d 6d 69 6e 29 29 0a |ar (poin|t-min)).|
|000008e0| 20 20 20 20 28 6c 65 74 | 20 28 28 65 6e 64 20 28 |    (let| ((end (|
|000008f0| 70 6f 69 6e 74 2d 6d 61 | 78 29 29 29 0a 20 20 20 |point-ma|x))).   |
|00000900| 20 20 20 28 77 68 69 6c | 65 20 28 72 65 2d 73 65 |   (whil|e (re-se|
|00000910| 61 72 63 68 2d 66 6f 72 | 77 61 72 64 20 22 5e 49 |arch-for|ward "^I|
|00000920| 22 20 65 6e 64 20 74 29 | 0a 09 28 67 6e 75 73 2d |" end t)|..(gnus-|
|00000930| 53 75 62 6a 65 63 74 2d | 6d 61 72 6b 2d 61 73 2d |Subject-|mark-as-|
|00000940| 75 6e 72 65 61 64 20 6e | 69 6c 20 74 29 29 29 0a |unread n|il t))).|
|00000950| 20 20 20 20 29 29 0a 0a | 3b 20 41 20 6d 6f 64 69 |    ))..|; A modi|
|00000960| 66 69 65 64 20 76 65 72 | 73 69 6f 6e 20 74 68 61 |fied ver|sion tha|
|00000970| 74 20 6d 61 72 6b 20 61 | 6c 6c 20 69 6e 74 65 72 |t mark a|ll inter|
|00000980| 65 73 74 69 6e 67 20 61 | 72 74 69 63 6c 65 73 20 |esting a|rticles |
|00000990| 28 6d 61 72 6b 65 64 20 | 77 69 74 68 20 22 49 22 |(marked |with "I"|
|000009a0| 29 0a 3b 20 61 73 20 75 | 6e 72 65 61 64 20 69 66 |).; as u|nread if|
|000009b0| 20 6e 65 63 65 73 73 61 | 72 79 0a 28 64 65 66 75 | necessa|ry.(defu|
|000009c0| 6e 20 67 6e 75 73 2d 6a | 64 73 2d 53 75 62 6a 65 |n gnus-j|ds-Subje|
|000009d0| 63 74 2d 64 69 73 70 6c | 61 79 2d 61 72 74 69 63 |ct-displ|ay-artic|
|000009e0| 6c 65 20 28 61 72 74 69 | 63 6c 65 20 26 6f 70 74 |le (arti|cle &opt|
|000009f0| 69 6f 6e 61 6c 20 61 6c | 6c 2d 68 65 61 64 65 72 |ional al|l-header|
|00000a00| 29 0a 20 20 22 44 69 73 | 70 6c 61 79 20 41 52 54 |).  "Dis|play ART|
|00000a10| 49 43 4c 45 20 69 6e 20 | 41 72 74 69 63 6c 65 20 |ICLE in |Article |
|00000a20| 62 75 66 66 65 72 2e 22 | 0a 20 20 28 69 66 20 28 |buffer."|.  (if (|
|00000a30| 6e 75 6c 6c 20 61 72 74 | 69 63 6c 65 29 0a 20 20 |null art|icle).  |
|00000a40| 20 20 20 20 6e 69 6c 0a | 20 20 20 20 28 67 6e 75 |    nil.|    (gnu|
|00000a50| 73 2d 63 6f 6e 66 69 67 | 75 72 65 2d 77 69 6e 64 |s-config|ure-wind|
|00000a60| 6f 77 73 20 27 53 65 6c | 65 63 74 41 72 74 69 63 |ows 'Sel|ectArtic|
|00000a70| 6c 65 29 0a 20 20 20 20 | 28 70 6f 70 2d 74 6f 2d |le).    |(pop-to-|
|00000a80| 62 75 66 66 65 72 20 67 | 6e 75 73 2d 53 75 62 6a |buffer g|nus-Subj|
|00000a90| 65 63 74 2d 62 75 66 66 | 65 72 29 0a 20 20 20 20 |ect-buff|er).    |
|00000aa0| 28 69 66 20 67 6e 75 73 | 2d 69 6e 74 65 72 65 73 |(if gnus|-interes|
|00000ab0| 74 0a 09 28 67 6e 75 73 | 2d 53 75 62 6a 65 63 74 |t..(gnus|-Subject|
|00000ac0| 2d 6d 61 72 6b 2d 69 6e | 74 65 72 65 73 74 69 6e |-mark-in|terestin|
|00000ad0| 67 29 29 0a 20 20 20 20 | 28 67 6e 75 73 2d 41 72 |g)).    |(gnus-Ar|
|00000ae0| 74 69 63 6c 65 2d 70 72 | 65 70 61 72 65 20 61 72 |ticle-pr|epare ar|
|00000af0| 74 69 63 6c 65 20 61 6c | 6c 2d 68 65 61 64 65 72 |ticle al|l-header|
|00000b00| 29 0a 20 20 20 20 28 67 | 6e 75 73 2d 53 75 62 6a |).    (g|nus-Subj|
|00000b10| 65 63 74 2d 72 65 63 65 | 6e 74 65 72 29 0a 20 20 |ect-rece|nter).  |
|00000b20| 20 20 28 67 6e 75 73 2d | 53 75 62 6a 65 63 74 2d |  (gnus-|Subject-|
|00000b30| 73 65 74 2d 6d 6f 64 65 | 2d 6c 69 6e 65 29 0a 20 |set-mode|-line). |
|00000b40| 20 20 20 28 72 75 6e 2d | 68 6f 6f 6b 73 20 27 67 |   (run-|hooks 'g|
|00000b50| 6e 75 73 2d 53 65 6c 65 | 63 74 2d 61 72 74 69 63 |nus-Sele|ct-artic|
|00000b60| 6c 65 2d 68 6f 6f 6b 29 | 0a 20 20 20 20 3b 3b 20 |le-hook)|.    ;; |
|00000b70| 53 75 63 63 65 73 73 66 | 75 6c 6c 79 20 64 69 73 |Successf|ully dis|
|00000b80| 70 6c 61 79 20 61 72 74 | 69 63 6c 65 2e 0a 20 20 |play art|icle..  |
|00000b90| 20 20 74 0a 20 20 20 20 | 29 29 0a 0a 28 64 65 66 |  t.    |))..(def|
|00000ba0| 75 6e 20 67 6e 75 73 2d | 6a 64 73 2d 53 75 62 6a |un gnus-|jds-Subj|
|00000bb0| 65 63 74 2d 66 69 72 73 | 74 2d 75 6e 72 65 61 64 |ect-firs|t-unread|
|00000bc0| 2d 61 72 74 69 63 6c 65 | 20 28 29 0a 20 20 22 53 |-article| ().  "S|
|00000bd0| 65 6c 65 63 74 20 66 69 | 72 73 74 20 75 6e 72 65 |elect fi|rst unre|
|00000be0| 61 64 20 61 72 74 69 63 | 6c 65 2e 20 52 65 74 75 |ad artic|le. Retu|
|00000bf0| 72 6e 20 6e 6f 6e 2d 6e | 69 6c 20 69 66 20 73 75 |rn non-n|il if su|
|00000c00| 63 63 65 73 73 66 75 6c | 6c 79 20 73 65 6c 65 63 |ccessful|ly selec|
|00000c10| 74 65 64 2e 22 0a 20 20 | 28 69 6e 74 65 72 61 63 |ted.".  |(interac|
|00000c20| 74 69 76 65 29 0a 20 20 | 28 69 66 20 67 6e 75 73 |tive).  |(if gnus|
|00000c30| 2d 69 6e 74 65 72 65 73 | 74 0a 20 20 20 20 20 20 |-interes|t.      |
|00000c40| 28 67 6e 75 73 2d 53 75 | 62 6a 65 63 74 2d 6d 61 |(gnus-Su|bject-ma|
|00000c50| 72 6b 2d 69 6e 74 65 72 | 65 73 74 69 6e 67 29 29 |rk-inter|esting))|
|00000c60| 0a 20 20 28 6c 65 74 20 | 28 28 62 65 67 69 6e 20 |.  (let |((begin |
|00000c70| 28 70 6f 69 6e 74 29 29 | 29 0a 20 20 20 20 28 67 |(point))|).    (g|
|00000c80| 6f 74 6f 2d 63 68 61 72 | 20 28 70 6f 69 6e 74 2d |oto-char| (point-|
|00000c90| 6d 69 6e 29 29 0a 20 20 | 20 20 28 69 66 20 28 72 |min)).  |  (if (r|
|00000ca0| 65 2d 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |e-search|-forward|
|00000cb0| 20 22 5e 20 5b 20 5c 74 | 5d 2b 5b 30 2d 39 5d 2b | "^ [ \t|]+[0-9]+|
|00000cc0| 3a 22 20 6e 69 6c 20 74 | 29 0a 09 28 67 6e 75 73 |:" nil t|)..(gnus|
|00000cd0| 2d 53 75 62 6a 65 63 74 | 2d 64 69 73 70 6c 61 79 |-Subject|-display|
|00000ce0| 2d 61 72 74 69 63 6c 65 | 20 28 67 6e 75 73 2d 53 |-article| (gnus-S|
|00000cf0| 75 62 6a 65 63 74 2d 61 | 72 74 69 63 6c 65 2d 6e |ubject-a|rticle-n|
|00000d00| 75 6d 62 65 72 29 29 0a | 20 20 20 20 20 20 3b 3b |umber)).|      ;;|
|00000d10| 20 49 66 20 74 68 65 72 | 65 20 69 73 20 6e 6f 20 | If ther|e is no |
|00000d20| 75 6e 72 65 61 64 20 61 | 72 74 69 63 6c 65 73 2c |unread a|rticles,|
|00000d30| 20 73 74 61 79 20 74 68 | 65 72 65 2e 0a 20 20 20 | stay th|ere..   |
|00000d40| 20 20 20 28 67 6f 74 6f | 2d 63 68 61 72 20 62 65 |   (goto|-char be|
|00000d50| 67 69 6e 29 0a 20 20 20 | 20 20 20 3b 3b 28 67 6e |gin).   |   ;;(gn|
|00000d60| 75 73 2d 53 75 62 6a 65 | 63 74 2d 64 69 73 70 6c |us-Subje|ct-displ|
|00000d70| 61 79 2d 61 72 74 69 63 | 6c 65 20 28 67 6e 75 73 |ay-artic|le (gnus|
|00000d80| 2d 53 75 62 6a 65 63 74 | 2d 61 72 74 69 63 6c 65 |-Subject|-article|
|00000d90| 2d 6e 75 6d 62 65 72 29 | 29 0a 20 20 20 20 20 20 |-number)|).      |
|00000da0| 28 6d 65 73 73 61 67 65 | 20 22 4e 6f 20 6d 6f 72 |(message| "No mor|
|00000db0| 65 20 75 6e 72 65 61 64 | 20 61 72 74 69 63 6c 65 |e unread| article|
|00000dc0| 73 22 29 0a 20 20 20 20 | 20 20 6e 69 6c 0a 20 20 |s").    |  nil.  |
|00000dd0| 20 20 20 20 29 0a 20 20 | 20 20 29 29 0a 0a 53 48 |    ).  |  ))..SH|
|00000de0| 41 52 5f 45 4f 46 0a 66 | 69 20 23 20 65 6e 64 20 |AR_EOF.f|i # end |
|00000df0| 6f 66 20 6f 76 65 72 77 | 72 69 74 69 6e 67 20 63 |of overw|riting c|
|00000e00| 68 65 63 6b 0a 23 09 45 | 6e 64 20 6f 66 20 73 68 |heck.#.E|nd of sh|
|00000e10| 65 6c 6c 20 61 72 63 68 | 69 76 65 0a 65 78 69 74 |ell arch|ive.exit|
|00000e20| 20 30 0a 2d 2d 20 0a 4a | 65 66 66 20 53 70 61 72 | 0.-- .J|eff Spar|
|00000e30| 6b 65 73 09 6a 65 66 66 | 31 40 67 61 72 66 69 65 |kes.jeff|1@garfie|
|00000e40| 6c 64 2e 6d 75 6e 2e 65 | 64 75 20 7c 7c 20 75 75 |ld.mun.e|du || uu|
|00000e50| 6e 65 74 21 67 61 72 66 | 69 65 6c 64 21 6a 65 66 |net!garf|ield!jef|
|00000e60| 66 31 0a 0a 09 09 09 09 | 09 0a                   |f1......|..      |
+--------+-------------------------+-------------------------+--------+--------+