$ od -c -N 50000 [eris]<LispCore>LIBRARY>CLMAIL!11
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " I N
0000040 T E R L I S P " 247 P A C K A G
0000060 E " I N T E R L I S P " ) \r 006
0000100 001 ( F I L E C R E A T E D " 2
0000120 9 - O c t - 8 6 1 2 : 4 4 : 5
0000140 2 " 006 004 { E R I S } < L I S P
0000160 C O R E > L I B R A R Y > C L M
0000200 A I L . ; 1 1 006 001 1 6 6 0 4
0000220 \r \r c h a n g e s
0000240 t o % : ( F N S C L M A
0000260 I L D I S P L A Y C L M A I L
0000300 D I S P L A Y M S G C L M A I
0000320 L M S G H A S H C L M A I L M
0000340 E R G E M A K E C M L M A I L
0000360 H A S H ) \r \r p r e
0000400 v i o u s d a t e % : " 2 2
0000420 - A u g - 8 6 1 5 : 0 6 : 4 3
0000440 " { E R I S } < L I S P C O R
0000460 E > L I B R A R Y > C L M A I L
0000500 . ; 9 ) \r \r \r ( * " \r C o p y
0000520 r i g h t ( c ) 1 9 8 6 b
0000540 y X e r o x C o r p o r a t
0000560 i o n . A l l r i g h t s
0000600 r e s e r v e d . \r " ) \r \r (
0000620 P R E T T Y C O M P R I N T C
0000640 L M A I L C O M S ) \r \r ( R P A
0000660 Q Q 006 002 C L M A I L C O M S 006
0000700 001 \r ( ( F N S
0000720 C L M A I L S H O W C L M A I
0000740 L D I S P L A Y C L M A I L D
0000760 I S P L A Y M S G C L M A I L
0001000 S E A R C H C L M A I L M S G
0001020 H A S H C L M A I L M E R G E
0001040 \r C
0001060 L M A I L R E D O M E N U C L
0001100 M A I L H E A D S T R I N G C
0001120 L M A I L F I R S T C L M A I
0001140 L L A S T C L M A I L F W D
0001160 C L M A I L B K W D C L M A I
0001200 L Q U I T \r
0001220 M A K E C M L H E A D H
0001240 A S H M A K E C M L M A I L H
0001260 A S H U P D A T E H A S H F I
0001300 L E S C M L M A I L 1 C M L
0001320 M A I L 2 C M L M A I L 3 C
0001340 M L M A I L 4 \r
0001360 C M L M A I L 5 C
0001400 M L M A I L 6 C M L M A I L 7
0001420 C M L M A I L 8 C M L M A I
0001440 L 9 C M L M A I L 0 ) \r
0001460 ( V A R S C L M . M
0001500 E N U F O R M A T ( * " F o
0001520 r m a t l i s t f o r F r
0001540 e e M e n u " ) \r
0001560 C L M . M A I L
0001600 H A S H N A M E C L M . H E A
0001620 D H A S H N A M E ( * " N a
0001640 m e s o f h a s h f i l e s
0001660 " ) \r
0001700 C L M . M A I L D A T A N A M
0001720 E C L M . H E A D D A T A N A
0001740 M E ( * " N a m e s o f
0001760 u n h a s h e d d a t a f i
0002000 l e s " ) \r
0002020 C L M . V A X C D I R
0002040 C L M . M S G D I R ( * " N
0002060 a m e s o f m a g i c d i
0002100 r e c t o r i e s " ) ) \r
0002120 ( G L O B A L V A R S
0002140 C L M . H E A D I T E M S (
0002160 * \r
0002200 " A p o i n t e
0002220 r t o t h e f i r s t m
0002240 e s s a g e m e n u i t e m
0002260 i n C L M . M E N U F O R M
0002300 A T f o r e a s y r e f e
0002320 r e n c i n g " \r
0002340
0002360 ) \r
0002400 C
0002420 L M . A B O V E I T E M C L M
0002440 . B E L O W I T E M C L M . W
0002460 O R D ( * " P o i n t s a
0002500 t A b o v e : , B e l o w :
0002520 , a n d T H E W O R D f i
0002540 e l d s " \r
0002560
*
0002620 ) \r
0002640 C L
0002660 M . M S G H A S H C L M . H E
0002700 A D H A S H ( * " S t r e a
0002720 m s f o r m e s s a g e a
0002740 n d h e a d l i n e h a s
0002760 h f i l e s " ) \r
0003000 C L M . M E N
0003020 U W I N D O W \r
0003040 ( * " T h e m
0003060 e n u w i n d o w " ) \r
0003100 C L M .
0003120 H E A D A R R A Y C L M . H E
0003140 A D # ( * " A r r a y o f
0003160 h e a d l i n e s f o r
0003200 m e n u a n d a n i n d e
0003220 x i n t o i t " ) ) ) ) \r (
0003240 D E F I N E Q \r \r ( 006 004 C L M A
0003260 I L S H O W 006 001 \r ( L A M B
0003300 D A N I L 006 006 006 001
0003320
*
0003360 006 006 ( * "
0003400 P a v e l " " 2 9 - M a y - 8
0003420 6 1 5 : 5 2 " ) 006 001 \r
0003440 \r
0003460 006 006 ( * * " F i r s t ,
0003500 o p e n t h e t h e h a s
0003520 h f i l e s " ) 006 001 \r \r
0003540 ( S E T Q C L M . M S G H A
0003560 S H ( O P E N H A S H F I L E
0003600 C L M . M A I L H A S H N A M
0003620 E ' I N P U T ) ) \r (
0003640 S E T Q C L M . H E A D H A S
0003660 H ( O P E N H A S H F I L E
0003700 C L M . H E A D H A S H N A M E
0003720 ' I N P U T ) ) \r
0003740 \r 006
0003760 006 ( * * " T h e n c r e a
0004000 t e t h e m e n u w i n d
0004020 o w " ) 006 001 \r \r ( S E T
0004040 Q C L M . M E N U W I N D O W
0004060 ( F R E E M E N U C L M . M
0004100 E N U F O R M A T ) ) \r
0004120 \r
0004140 006 006 ( * * \r 006 001
0004160 006 006 " S e t v a r i o u s
0004200 p o i n t e r s i n t o t h
0004220 e F M . I T E M S l i s t
0004240 s o w e c a n f i n d t
0004260 h e f i r s t m e s s a g e
0004300 m e n u i t e m e a s i l
0004320 y " ) 006 001 \r \r ( L E T
0004340 ( ( W P ( W I N D O W P R O P
0004360 C L M . M E N U W I N D O W
0004400 ' F M . I T E M S ) ) ) \r
0004420 ( S E T Q C L M .
0004440 W O R D ( 006 002 f o r 006 001 X
0004460 006 002 i n 006 001 W P 006 002 t h e r
0004500 e i s 006 001 ( E Q ' T H E W O
0004520 R D ( F M . I T E M P R O P
0004540 X ' I D ) ) ) ) \r
0004560 ( S E T Q C L M . H E A
0004600 D I T E M S ( 006 002 f o r 006 001
0004620 X 006 002 o n 006 001 W P 006 002 t h
0004640 e r e i s 006 001 ( E Q ' L I N
0004660 E 1 ( F M . I T E M P R O P
0004700 ( C A R X ) \r
0004720
*
0005000 ' I D )
0005020 ) ) ) \r ( S E
0005040 T Q C L M . A B O V E I T E M
0005060 ( 006 002 f o r 006 001 X 006 002 i n
0005100 006 001 W P 006 002 t h e r e i s 006
0005120 001 ( E Q ' A B O V E F I E L
0005140 D ( F M . I T E M P R O P X
0005160 ' I D ) ) ) ) \r
0005200 ( S E T Q C L M . B E L O
0005220 W I T E M ( 006 002 f o r 006 001 X
0005240 006 002 i n 006 001 W P 006 002 t h e
0005260 r e i s 006 001 ( E Q ' B E L O
0005300 W F I E L D ( F M . I T E M P
0005320 R O P X ' I D ) ) ) ) ) \r
0005340 \r
0005360 006 006 ( * * " F i n a
0005400 l l y l e t u s e r m o v
0005420 e t h e m e n u w i n d o
0005440 w ( w h i c h w i l l o p
0005460 e n i t a s a n i c e
0005500 s i d e e f f e c t ) " ) 006 001
0005520 \r \r ( M O V E W C L M
0005540 . M E N U W I N D O W ( G E T
0005560 B O X P O S I T I O N ( W I N
0005600 D O W P R O P C L M . M E N U
0005620 W I N D O W ' W I D T H ) \r
0005640
*
0005700 ( W I N D O W P R O P C L M .
0005720 M E N U W I N D O W ' H E I G
0005740 H T ) \r
0005760
0006000 1 0 0 1 0 0 N I L
0006020 " S p e c i f y t h e p o
0006040 s i t i o n o f t h e m e
0006060 n u w i n d o w " ) ) \r
0006100 ( O P E N W C L M . M E N U
0006120 W I N D O W ) ) ) \r \r ( 006 004 C L
0006140 M A I L D I S P L A Y 006 001 \r
0006160 ( L A M B D A ( S L O T # ) 006
0006200 006 006 001
0006220
0006240 006
0006260 006 ( * j r b % : " 2 9 - O c
0006300 t - 8 6 1 2 : 3 9 " ) 006 001 \r
0006320 ( L E T ( ( M S G # (
0006340 + S L O T # C L M . H E A D
0006360 # ) ) ) \r ( C
0006400 L : U N L E S S ( > M S G #
0006420 ( A R R A Y S I Z E C L M .
0006440 H E A D A R R A Y ) ) \r
0006460 ( 006 002 C
0006500 L M A I L D I S P L A Y M S G 006
0006520 001 ( C A R ( E L T C L M .
0006540 H E A D A R R A Y M S G # ) )
0006560 ) ) ) ) ) \r \r ( 006 004 C L M A I L
0006600 D I S P L A Y M S G 006 001 \r (
0006620 L A M B D A ( M S G ) 006 006 006 001
0006640
*
0006700 006 006
0006720 ( * j r b % : " 2 9 - O c t
0006740 - 8 6 1 2 : 3 9 " ) 006 001 \r
0006760 ( 006 002 i f 006 001 ( N U M B E
0007000 R P M S G ) \r
0007020 006 002 t h e n 006 001 ( T E D I T
0007040 ( M K A T O M ( C O N C A T
0007060 C L M . M S G D I R M S G ) )
0007100 ) \r 006 002 e l s e 006 001
0007120 ( E R R O R " T h i s i s
0007140 n ' t a C L m e s s a g e
0007160 n u m b e r " M S G ) ) ) )
0007200 \r \r ( 006 004 C L M A I L S E A R C
0007220 H 006 001 \r ( L A M B D A N I
0007240 L 006 006 006 001
0007260
*
0007320 006 006 ( * j r b % :
0007340 " 2 2 - A u g - 8 6 1 4 : 2 4
0007360 " ) 006 001 \r ( L E T ( (
0007400 M S G S ( 006 002 C L M A I L M E
0007420 R G E 006 001 ( F M . I T E M P R
0007440 O P C L M . W O R D ' L A B
0007460 E L ) ) ) ) \r
0007500 ( 006 002 i f 006 001 M S G S \r
0007520 006 002 t h e n
0007540 006 001 ( S E T Q C L M . H E A
0007560 D A R R A Y ( A R R A Y ( L
0007600 E N G T H M S G S ) \r
0007620
*
0007660 ' P O I N T E
0007700 R ) ) \r
0007720 ( 006 002 f o r 006 001 I
0007740 006 002 f r o m 006 001 1 006 002 t o
0007760 006 001 ( A R R A Y S I Z E C L
0010000 M . H E A D A R R A Y ) 006 002 d
0010020 o 006 001 ( S E T A C L M . H E
0010040 A D A R R A Y I ( 006 002 p o p
0010060 006 001 M S G S ) ) ) \r
0010100 ( S E
0010120 T Q C L M . H E A D # 1 ) \r
0010140
0010160 ( 006 002 C L M A I L L A S T 006
0010200 001 ) \r 006 002
0010220 e l s e 006 001 ( F M . C H A N G
0010240 E L A B E L C L M . W O R D
0010260 " S o r r y , t h a t w o r
0010300 d i s n ' t i n d e x e d "
0010320 C L M . M E N U W I N D O W )
0010340 ) ) ) ) \r \r ( 006 004 C L M A I L M
0010360 S G H A S H 006 001 \r ( L A M B
0010400 D A ( W O R D ) 006 006 006 001
0010420
*
0010460 006 006 ( * j
0010500 r b % : " 2 9 - O c t - 8 6
0010520 1 2 : 3 8 " ) 006 001 \r ( 006
0010540 002 i f 006 001 ( C L : S Y M B O L
0010560 P W O R D ) \r
0010600 006 002 t h e n 006 001 ( G E T H A S
0010620 H F I L E W O R D C L M . M
0010640 S G H A S H ) \r 006 002
0010660 e l s e 006 001 ( C L : E R R O R
0010700 " ~ S i s n o t a w o
0010720 r d " W O R D ) ) ) ) \r \r ( 006
0010740 004 C L M A I L M E R G E 006 001 \r
0010760 ( L A M B D A ( S T R I N G
0011000 ) 006 006 006 001
0011020
*
0011060 006 006 ( * j r b % : " 2 9 - O
0011100 c t - 8 6 1 2 : 4 1 " ) 006 001 \r
0011120 ( L E T ( ( S T R I N
0011140 G S T R E A M ( M A K E - S T
0011160 R I N G - I N P U T - S T R E A
0011200 M S T R I N G ) ) \r
0011220 T E R M T E R M L I
0011240 S T ( R E S U L T ' F I R S
0011260 T T I M E ) ) \r
0011300 ( 006 002 w h i l e 006 001 ( N O T
0011320 ( E O F P S T R I N G S T R
0011340 E A M ) ) \r
0011360 006 002 d o 006 001 ( C L : T Y P
0011400 E C A S E ( S E T Q T E R M
0011420 ( R E A D S T R I N G S T R
0011440 E A M ) ) \r
0011460 ( S Y M
0011500 B O L ( S E T Q T E R M L I
0011520 S T ( 006 002 C L M A I L M S G H
0011540 A S H 006 001 T E R M ) ) ) \r
0011560
0011600 ( L I S T ( S E T Q
0011620 T E R M L I S T N I L ) \r
0011640
0011660 ( 006 002 f o r
0011700 006 001 T R 006 002 i n 006 001 T E R
0011720 M 006 002 d o 006 001 ( S E T Q T
0011740 E R M L I S T ( U N I O N (
0011760 006 002 C L M A I L M S G H A S H 006
0012000 001 T R ) \r
0012020
*
0012100 T E R M L
0012120 I S T ) ) ) ) \r
0012140 ( T
0012160 ( C L : E R R O R " ~ S i
0012200 s n o t a w o r d o r
0012220 l i s t o f w o r d s " T
0012240 E R M ) ) ) \r
0012260 ( S E T Q R E S U
0012300 L T ( 006 002 i f 006 001 ( E Q R
0012320 E S U L T ' F I R S T T I M E
0012340 ) \r
0012360
0012400 006 002 t h e n 006 001 T E R M L
0012420 I S T \r
0012440
0012460 006 002 e l s e 006 001 ( I N T E
0012500 R S E C T I O N T E R M L I S
0012520 T R E S U L T ) ) ) \r
0012540 ( 006 002 i f
0012560 006 001 ( N U L L R E S U L T )
0012600 \r
0012620 006 002 t h e n 006 001 ( R E
0012640 T U R N N I L ) ) ) \r
0012660 R E S U L T ) ) ) \r \r
0012700 ( 006 004 C L M A I L R E D O M E N
0012720 U 006 001 \r ( L A M B D A N I
0012740 L 006 006 006 001
0012760
*
0013020 006 006 ( * j r b % :
0013040 " 1 7 - M a y - 8 6 0 0 : 2 1
0013060 " ) 006 001 \r ( F M . C H A
0013100 N G E L A B E L C L M . A B O
0013120 V E I T E M ( S U B 1 C L M
0013140 . H E A D # ) \r
0013160 C L M . M E N U W I N D O
0013200 W ) \r ( F M . C H A N G
0013220 E L A B E L C L M . B E L O W
0013240 I T E M ( M A X 0 ( I D I
0013260 F F E R E N C E ( A R R A Y S
0013300 I Z E C L M . H E A D A R R A
0013320 Y ) \r
0013340
*
0013400 ( I P L U S C L M . H E
0013420 A D # 9 ) ) ) \r
0013440 C L M . M E N U W I N D
0013460 O W ) \r ( 006 002 f o r 006 001
0013500 I T M 006 002 i n 006 001 C L M .
0013520 H E A D I T E M S 006 002 b i n d
0013540 006 001 ( A P T R _ C L M . H
0013560 E A D # ) 006 002 d o 006 001 ( F M
0013600 . C H A N G E L A B E L I T M
0013620 ( 006 002 C L M A I L H E A D S T
0013640 R I N G 006 001 A P T R ) \r
0013660
*
0013740 C L M
0013760 . M E N U W I N D O W ) \r
0014000
*
0014060 ( S E T Q A P T R
0014100 ( A D D 1 A P T R ) ) ) ) )
0014120 \r \r ( 006 004 C L M A I L H E A D S
0014140 T R I N G 006 001 \r ( L A M B D
0014160 A ( H E A D # ) 006 006 006 001
0014200
*
0014240 006 006 ( * j r
0014260 b % : " 3 1 - M a r - 8 6 2
0014300 1 : 1 9 " ) 006 001 \r
0014320 \r 006 006
0014340 ( * * I f t h e i n d e
0014360 x i s o u t s i d e t h e
0014400 a r r a y , r e t u r n a
0014420 n u l l s t r i n g t o
0014440 b l a n k o u t t h a t \r
0014460 006 001 006 006 s l
0014500 o t i n t h e m e n u ) 006
0014520 001 \r \r
0014540 006 006 ( * * I f
0014560 t h e a r r a y e l e m e
0014600 n t i s a n u m b e r ,
0014620 i t h a s n ' t b e e n f
0014640 e t c h e d f r o m t h e
0014660 h a s h f i l e \r 006 001
0014700 006 006 y e t ; d o
0014720 s o ) 006 001 \r
0014740 \r 006 006 ( *
0014760 * O t h e r w i s e j u s t
0015000 r e t u r n i t ) 006 001 \r \r
0015020 ( C O N D \r
0015040 ( ( G R E A T E R P H E A D #
0015060 ( A R R A Y S I Z E C L M .
0015100 H E A D A R R A Y ) ) \r
0015120 " " ) \r (
0015140 ( N U M B E R P ( E L T C L
0015160 M . H E A D A R R A Y H E A D
0015200 # ) ) \r ( S E T
0015220 A C L M . H E A D A R R A Y
0015240 H E A D # ( C O N S ( E L T
0015260 C L M . H E A D A R R A Y H
0015300 E A D # ) \r
0015320
0015340 ( G
0015360 E T H A S H F I L E ( E L T
0015400 C L M . H E A D A R R A Y H E
0015420 A D # ) \r
0015440
*
0015500 C L M . H E A D H A S H
0015520 ) ) ) \r ( C D R
0015540 ( E L T C L M . H E A D A R
0015560 R A Y H E A D # ) ) ) \r
0015600 ( T ( C D R ( E L T
0015620 C L M . H E A D A R R A Y H
0015640 E A D # ) ) ) ) ) ) \r \r ( 006 004 C
0015660 L M A I L F I R S T 006 001 \r (
0015700 L A M B D A N I L 006 006 006 001
0015720
*
0015760 006 006
0016000 ( * j r b % : " 3 1 - M a r
0016020 - 8 6 1 9 : 5 0 " ) 006 001 \r
0016040 ( S E T Q C L M . H E A D
0016060 # 1 ) \r ( 006 002 C L M A
0016100 I L R E D O M E N U 006 001 ) ) ) \r
0016120 \r ( 006 004 C L M A I L L A S T 006 001
0016140 \r ( L A M B D A N I L 006 006
0016160 006 001
0016200
*
0016240 006 006 ( * j r b % : " 3 1
0016260 - M a r - 8 6 2 1 : 5 8 " ) 006
0016300 001 \r ( S E T Q C L M .
0016320 H E A D # ( M A X 1 ( I D
0016340 I F F E R E N C E ( A R R A Y
0016360 S I Z E C L M . H E A D A R R
0016400 A Y ) \r
0016420
0016440 9 ) ) ) \r (
0016460 006 002 C L M A I L R E D O M E N U
0016500 006 001 ) ) ) \r \r ( 006 004 C L M A I L
0016520 F W D 006 001 \r ( L A M B D A
0016540 N I L 006 006 006 001
0016560
*
0016620 006 006 ( * j r b %
0016640 : " 3 1 - M a r - 8 6 2 2 :
0016660 0 5 " ) 006 001 \r ( S E T Q
0016700 C L M . H E A D # ( M A X
0016720 1 ( M I N ( I P L U S C L
0016740 M . H E A D # 1 0 ) \r
0016760
0017000 ( I D I
0017020 F F E R E N C E ( A R R A Y S
0017040 I Z E C L M . H E A D A R R A
0017060 Y ) \r
0017100
0017120 9 ) ) ) ) \r
0017140 ( 006 002 C L M A I L R E D
0017160 O M E N U 006 001 ) ) ) \r \r ( 006 004 C
0017200 L M A I L B K W D 006 001 \r ( L
0017220 A M B D A N I L 006 006 006 001
0017240
*
0017300 006 006 (
0017320 * j r b % : " 3 1 - M a r -
0017340 8 6 2 2 : 0 5 " ) 006 001 \r
0017360 ( S E T Q C L M . H E A D #
0017400 ( M A X 1 ( I D I F F E R
0017420 E N C E C L M . H E A D # 1
0017440 0 ) ) ) \r ( 006 002 C L M A
0017460 I L R E D O M E N U 006 001 ) ) ) \r
0017500 \r ( 006 004 C L M A I L Q U I T 006 001
0017520 \r ( L A M B D A N I L 006 006
0017540 006 001
0017560
*
0017620 006 006 ( * j r b % : " 3 1
0017640 - M a r - 8 6 1 9 : 5 2 " ) 006
0017660 001 \r ( C L O S E H A S H
0017700 F I L E C L M . M S G H A S H
0017720 ) \r ( C L O S E H A S H
0017740 F I L E C L M . H E A D H A S
0017760 H ) \r ( C L O S E W C
0020000 L M . M E N U W I N D O W ) ) )
0020020 \r \r ( 006 004 M A K E C M L H E A D
0020040 H A S H 006 001 \r ( L A M B D A
0020060 ( D A T A F I L E N A M E H
0020100 A S H F I L E N A M E ) 006 006 006 001
0020120
0020140 006 006 ( * j r b
0020160 % : " 2 6 - M a r - 8 6 1 0
0020200 : 1 9 " ) 006 001 \r ( L E T
0020220 ( ( H F ( C R E A T E H A S
0020240 H F I L E H A S H F I L E N A
0020260 M E ' S M A L L E X P R 7 0
0020300 4 1 0 0 ) ) \r
0020320 ( D F ( O P E N S T R E A
0020340 M D A T A F I L E N A M E '
0020360 I N P U T ) ) \r
0020400 K E Y S U B J E C T S E
0020420 N D E R D A T E ) \r
0020440 ( 006 002 w h i l e 006 001 (
0020460 N O T ( E O F P D F ) ) 006
0020500 002 d o 006 001 ( S E T Q K E Y
0020520 ( R E A D D F ) ) \r
0020540
0020560 ( S
0020600 E T Q S U B J E C T ( R E A
0020620 D D F ) ) \r
0020640
0020660 ( S E T Q
0020700 S E N D E R ( R E A D D F )
0020720 ) \r
0020740
0020760 ( S E T Q D A T E
0021000 ( R E A D D F ) ) \r
0021020
0021040 ( P
0021060 U T H A S H F I L E K E Y (
0021100 C O N C A T S U B J E C T "
0021120 " S E N D E R " " D A
0021140 T E ) \r
0021160
0021200 H F
0021220 ) 006 002 f i n a l l y 006 001 ( C
0021240 L O S E H A S H F I L E H F )
0021260 \r
0021300
*
0021340 ( C L O S E F D F )
0021360 ) ) ) ) \r \r ( 006 004 M A K E C M L
0021400 M A I L H A S H 006 001 \r ( L A
0021420 M B D A ( D A T A F I L E N A
0021440 M E H A S H F I L E N A M E )
0021460 006 006 006 001
0021500 006 006 ( *
0021520 j r b % : " 2 9 - O c t - 8
0021540 6 1 2 : 4 3 " ) 006 001 \r
0021560 ( L E T ( ( H F ( C R E A T
0021600 E H A S H F I L E H A S H F I
0021620 L E N A M E ' E X P R 8 0
0021640 2 3 0 0 0 ) ) \r
0021660 ( D F ( O P E N S T R E A
0021700 M D A T A F I L E N A M E '
0021720 I N P U T ) ) \r
0021740 K E Y V L I S T N E X T
0021760 I T E M ) \r (
0022000 S E T Q K E Y ( R E A D D
0022020 F ) ) \r ( C L
0022040 : U N W I N D - P R O T E C T
0022060 ( 006 002 w h i l e 006 001 ( N O T
0022100 ( E O F P D F ) ) 006 002 d o 006
0022120 001 ( 006 002 i f 006 001 ( N U M B E
0022140 R P ( S E T Q N E X T I T E
0022160 M ( R E A D D F ) ) ) \r
0022200
*
0022260 006 002 t h e n 006 001
0022300 ( 006 002 p u s h 006 001 V L I S T
0022320 N E X T I T E M ) \r
0022340
*
0022420 006 002 e l s e 006 001 ( P U T
0022440 H A S H F I L E K E Y ( N R
0022460 E V E R S E V L I S T ) \r
0022500
*
0022600 H F ) \r
0022620
*
0022700 ( S E T Q K E Y N E X
0022720 T I T E M ) \r
0022740
*
0023020 ( S E T Q V L I S T
0023040 N I L ) ) \r
0023060
0023100 006 002 f i n a l l y 006 001
0023120 ( P U T H A S H F I L E K E
0023140 Y ( N R E V E R S E V L I S
0023160 T ) \r
0023200
*
0023240 H F ) ) \r
0023260 ( C L O S E H A S H
0023300 F I L E H F ) \r
0023320 ( C L O S E F
0023340 D F ) ) ) ) ) \r \r ( 006 004 U P D
0023360 A T E H A S H F I L E S 006 001 \r
0023400 ( L A M B D A N I L 006 006 006 001
0023420
*
0023500 006 006 ( * j r b % : " 2 8 - M
0023520 a y - 8 6 1 3 : 3 2 " ) 006 001 \r
0023540 \r
0023560 006 006 ( * * F i r s
0023600 t o p e n a l l t h e f
0023620 i l e s ) 006 001 \r \r ( L E
0023640 T ( ( M D F ( O P E N S T R
0023660 E A M C L M . M A I L D A T A
0023700 N A M E ' I N P U T ) ) \r
0023720 ( H D F ( O P
0023740 E N S T R E A M C L M . H E A
0023760 D D A T A N A M E ' I N P U T
0024000 ) ) \r ( M H
0024020 F ( O P E N H A S H F I L E
0024040 C L M . M A I L H A S H N A M E
0024060 ' B O T H ) ) \r
0024100 ( H H F ( O P E N H A S
0024120 H F I L E C L M . H E A D H A
0024140 S H N A M E ' B O T H ) ) ) \r
0024160 \r
0024200 006 006 ( * * T h e n
0024220 h a s h o u t a l l t h
0024240 e n e w h e a d e r l i n
0024260 e s ) 006 001 \r \r
0024300 ( 006 002 w h i l e 006 001 ( R E A D
0024320 P H D F ) 006 002 b i n d 006 001
0024340 K E Y S U B J E C T V A X C
0024360 F I L E 006 002 d o 006 001 ( S E T
0024400 Q K E Y ( R E A D H D F )
0024420 ) \r
0024440
*
0024500 ( S E T Q
0024520 S U B J E C T ( R E A D H
0024540 D F ) ) \r
0024560
*
0024620 ( P
0024640 U T H A S H F I L E K E Y S
0024660 U B J E C T H H F ) \r
0024700
*
0024760 ( C O P Y F I L E (
0025000 S E T Q V A X C F I L E ( C
0025020 O N C A T C L M . V A X C D I
0025040 R \r
0025060
*
0025160 K E Y )
0025200 ) \r
0025220
*
0025300 ( C O N C A T C L M . M S
0025320 G D I R K E Y ) ) \r
0025340
*
0025420 ( D E L F I L E V A X
0025440 C F I L E ) \r
0025460
*
0025540 ( P R I N T O U T T K E Y
0025560 % , ) \r
0025600 006 002 f i n a l l y 006 001 ( C L O
0025620 S E H A S H F I L E H H F ) \r
0025640
0025660 ( C L O S E F H D F ) \r
0025700
0025720 ( T E R P R I ) ) \r
0025740 \r
0025760 006 006 ( * * A n d t h e n
0026000 u p d a t e t h e m e s s a
0026020 g e h a s h f i l e ) 006 001 \r
0026040 \r ( 006 002 w h i
0026060 l e 006 001 ( R E A D P M D F )
0026100 006 002 b i n d 006 001 ( K E Y _
0026120 ( R E A D M D F ) ) \r
0026140
0026160 N E
0026200 X T I T E M V L I S T \r
0026220 006 002 d o 006 001
0026240 ( 006 002 i f 006 001 ( N U M B E R P
0026260 ( S E T Q N E X T I T E M
0026300 ( R E A D M D F ) ) ) \r
0026320
0026340 006 002 t h e n 006 001 ( 006 002 p u s h
0026360 006 001 V L I S T N E X T I T E
0026400 M ) \r
0026420 006 002 e l s e 006 001 ( P U
0026440 T H A S H F I L E K E Y ( N
0026460 C O N C ( G E T H A S H F I L
0026500 E K E Y M H F ) \r
0026520
*
0026560 ( D R E V E R
0026600 S E V L I S T ) ) \r
0026620
0026640 M H F ) \r
0026660
0026700 ( P R I N T O U T T K
0026720 E Y % , ) \r
0026740 ( S E
0026760 T Q K E Y N E X T I T E M )
0027000 \r
0027020 ( S E T Q V L I
0027040 S T N I L ) ) 006 002 f i n a l
0027060 l y 006 001 ( P U T H A S H F I L
0027100 E K E Y ( N C O N C ( G E
0027120 T H A S H F I L E K E Y M H
0027140 F ) \r
0027160
*
0027240 ( D R E V
0027260 E R S E V L I S T ) ) \r
0027300
*
0027360 M H F ) \r
0027400
*
0027440 ( C L O S E F M
0027460 D F ) \r
0027500
*
0027540 ( C L O S E H A S H F I L E
0027560 M H F ) \r
0027600
*
0027640 ( P R I N T O U T T
0027660 T " D O N E ! " T ) ) ) ) )
0027700 \r \r ( 006 004 C M L M A I L 1 006 001 \r
0027720 ( L A M B D A N I L 006 006 006
0027740 001
0027760
*
0030020 006 006 ( * j r b % : " 3 1 -
0030040 M a r - 8 6 2 1 : 4 7 " ) 006 001
0030060 \r ( 006 002 C L M A I L D I
0030100 S P L A Y 006 001 1 ) ) ) \r \r ( 006
0030120 004 C M L M A I L 2 006 001 \r ( L
0030140 A M B D A N I L 006 006 006 001
0030160
*
0030220 006 006 (
0030240 * j r b % : " 3 1 - M a r -
0030260 8 6 2 1 : 4 7 " ) 006 001 \r
0030300 ( 006 002 C L M A I L D I S P L A
0030320 Y 006 001 2 ) ) ) \r \r ( 006 004 C M L
0030340 M A I L 3 006 001 \r ( L A M B D
0030360 A N I L 006 006 006 001
0030400
*
0030440 006 006 ( * j r
0030460 b % : " 3 1 - M a r - 8 6 2
0030500 1 : 5 0 " ) 006 001 \r ( 006 002
0030520 C L M A I L D I S P L A Y 006 001
0030540 3 ) ) ) \r \r ( 006 004 C M L M A I L
0030560 4 006 001 \r ( L A M B D A N I
0030600 L 006 006 006 001
0030620
*
0030660 006 006 ( * j r b % :
0030700 " 3 1 - M a r - 8 6 2 1 : 5 0
0030720 " ) 006 001 \r ( 006 002 C L M A
0030740 I L D I S P L A Y 006 001 4 ) ) )
0030760 \r \r ( 006 004 C M L M A I L 5 006 001 \r
0031000 ( L A M B D A N I L 006 006 006
0031020 001
0031040
*
0031100 006 006 ( * j r b % : " 3 1 -
0031120 M a r - 8 6 2 1 : 5 0 " ) 006 001
0031140 \r ( 006 002 C L M A I L D I
0031160 S P L A Y 006 001 5 ) ) ) \r \r ( 006
0031200 004 C M L M A I L 6 006 001 \r ( L
0031220 A M B D A N I L 006 006 006 001
0031240
*
0031300 006 006 (
0031320 * j r b % : " 3 1 - M a r -
0031340 8 6 2 1 : 5 0 " ) 006 001 \r
0031360 ( 006 002 C L M A I L D I S P L A
0031400 Y 006 001 6 ) ) ) \r \r ( 006 004 C M L
0031420 M A I L 7 006 001 \r ( L A M B D
0031440 A N I L 006 006 006 001
0031460
*
0031520 006 006 ( * j r
0031540 b % : " 3 1 - M a r - 8 6 2
0031560 1 : 5 0 " ) 006 001 \r ( 006 002
0031600 C L M A I L D I S P L A Y 006 001
0031620 7 ) ) ) \r \r ( 006 004 C M L M A I L
0031640 8 006 001 \r ( L A M B D A N I
0031660 L 006 006 006 001
0031700
*
0031740 006 006 ( * j r b % :
0031760 " 3 1 - M a r - 8 6 2 1 : 5 2
0032000 " ) 006 001 \r ( 006 002 C L M A
0032020 I L D I S P L A Y 006 001 8 ) ) )
0032040 \r \r ( 006 004 C M L M A I L 9 006 001 \r
0032060 ( L A M B D A N I L 006 006 006
0032100 001
0032120
*
0032160 006 006 ( * j r b % : " 3 1 -
0032200 M a r - 8 6 2 1 : 5 2 " ) 006 001
0032220 \r ( 006 002 C L M A I L D I
0032240 S P L A Y 006 001 9 ) ) ) \r \r ( 006
0032260 004 C M L M A I L 0 006 001 \r ( L
0032300 A M B D A N I L 006 006 006 001
0032320
*
0032360 006 006 (
0032400 * j r b % : " 1 - A p r -
0032420 8 6 0 9 : 3 5 " ) 006 001 \r
0032440 ( 006 002 C L M A I L D I S P L A
0032460 Y 006 001 0 ) ) ) \r ) \r \r ( R P A
0032500 Q Q 006 002 C L M . M E N U F O R
0032520 M A T 006 001 ( ( P R O P S F O
0032540 R M A T R O W ) \r
0032560
0032600 ( ( T Y P E D I S P L A Y
0032620 L A B E L " C o m m o n L i
0032640 s p M a i l i n g L i s t
0032660 I n d e x " F O N T ( M O D
0032700 E R N 1 0 B O L D ) \r
0032720
0032740 H J U S T
0032760 I F Y C E N T E R ) ) \r
0033000
0033020 ( ( T Y P E E D I T S
0033040 T A R T L A B E L " W o r d
0033060 ( i m p l i c i t A N D ) :
0033100 " L I N K S ( E D I T T H
0033120 E W O R D ) \r
0033140
0033160 F O N T \r
0033200
0033220 ( M O D E R N
0033240 1 0 B O L D ) ) \r
0033260
0033300 ( T Y P E E D I T I D
0033320 T H E W O R D L A B E L " "
0033340 ) ) \r
0033360 ( ( T Y P E
0033400 D I S P L A Y L A B E L "
0033420 A b o v e : " F O N T ( M O
0033440 D E R N 1 0 B O L D ) ) \r
0033460
0033500 ( T Y P E D I S
0033520 P L A Y I D A B O V E F I E
0033540 L D L A B E L "
0033560 " ) \r
0033600 ( T Y
0033620 P E D I S P L A Y L A B E L
0033640 " B e l o w : " F O N T (
0033660 M O D E R N 1 0 B O L D ) )
0033700 \r
0033720 ( T Y P E D
0033740 I S P L A Y I D B E L O W F
0033760 I E L D L A B E L "
0034000 " ) ) \r
0034020 (
0034040 ( T Y P E M O M E N T A R Y
0034060 L A B E L " S e a r c h ! "
0034100 F O N T ( M O D E R N 1 0
0034120 B O L D ) \r
0034140
0034160 S E L E C T E D F N C
0034200 L M A I L S E A R C H ) \r
0034220
0034240 ( T Y P E M O M E N
0034260 T A R Y L A B E L " F i r s
0034300 t ! " F O N T ( M O D E R N
0034320 1 0 B O L D ) \r
0034340
0034360 S E L E C T E D
0034400 F N C L M A I L F I R S T ) \r
0034420
0034440 ( T Y P E M O
0034460 M E N T A R Y L A B E L " L
0034500 a s t ! " F O N T ( M O D E
0034520 R N 1 0 B O L D ) \r
0034540
0034560 S E L E C T
0034600 E D F N C L M A I L L A S T )
0034620 \r
0034640 ( T Y P E M
0034660 O M E N T A R Y L A B E L "
0034700 F o r w a r d s ! " F O N T
0034720 ( M O D E R N 1 0 B O L D )
0034740 \r
0034760 S
0035000 E L E C T E D F N C L M A I L
0035020 F W D ) \r
0035040 ( T Y
0035060 P E M O M E N T A R Y L A B
0035100 E L " B a c k w a r d s ! "
0035120 F O N T ( M O D E R N 1 0
0035140 B O L D ) \r
0035160
0035200 S E L E C T E D F N C
0035220 L M A I L B K W D ) \r
0035240
0035260 ( T Y P E M O M E N T A
0035300 R Y L A B E L " Q u i t ! "
0035320 F O N T ( M O D E R N 1 0
0035340 B O L D ) \r
0035360
0035400 S E L E C T E D F N
0035420 C L M A I L Q U I T ) ) \r
0035440
0035460 ( ( T Y P E M O M E N
0035500 T A R Y L A B E L \r
0035520 "
0035540
*
0035660 " \r
0035700
0035720 I D L I N E 1 S E L E C T
0035740 E D F N C M L M A I L 0 ) ) \r
0035760
0036000 ( ( T Y P E M O
0036020 M E N T A R Y L A B E L " "
0036040 S E L E C T E D F N C M L M
0036060 A I L 1 ) ) \r
0036100 ( (
0036120 T Y P E M O M E N T A R Y L
0036140 A B E L " " S E L E C T E D
0036160 F N C M L M A I L 2 ) ) \r
0036200
0036220 ( ( T Y P E M O M E
0036240 N T A R Y L A B E L " " S
0036260 E L E C T E D F N C M L M A I
0036300 L 3 ) ) \r
0036320 ( ( T Y
0036340 P E M O M E N T A R Y L A B
0036360 E L " " S E L E C T E D F N
0036400 C M L M A I L 4 ) ) \r
0036420
0036440 ( ( T Y P E M O M E N T
0036460 A R Y L A B E L " " S E L
0036500 E C T E D F N C M L M A I L 5
0036520 ) ) \r
0036540 ( ( T Y P E
0036560 M O M E N T A R Y L A B E L
0036600 " " S E L E C T E D F N C
0036620 M L M A I L 6 ) ) \r
0036640
0036660 ( ( T Y P E M O M E N T A R
0036700 Y L A B E L " " S E L E C
0036720 T E D F N C M L M A I L 7 ) )
0036740 \r
0036760 ( ( T Y P E M
0037000 O M E N T A R Y L A B E L "
0037020 " S E L E C T E D F N C M L
0037040 M A I L 8 ) ) \r
0037060 (
0037100 ( T Y P E M O M E N T A R Y
0037120 L A B E L " " S E L E C T E
0037140 D F N C M L M A I L 9 ) ) ) )
0037160 \r \r ( R P A Q Q 006 002 C L M . M
0037200 A I L H A S H N A M E 006 001 { E
0037220 R I S } < C O M M O N L I S P >
0037240 C L M A I L > M S G H A S H ) \r
0037260 \r ( R P A Q Q 006 002 C L M . H E
0037300 A D H A S H N A M E 006 001 { E R
0037320 I S } < C O M M O N L I S P > C
0037340 L M A I L > H E A D H A S H ) \r
0037360 \r ( R P A Q Q 006 002 C L M . M A
0037400 I L D A T A N A M E 006 001 { V A
0037420 X C } / u s e r / x a i s / b a
0037440 n e / c l m a i l / n e w w o r
0037460 d s ) \r \r ( R P A Q Q 006 002 C L
0037500 M . H E A D D A T A N A M E 006 001
0037520 { V A X C } / u s e r / x a i
0037540 s / b a n e / c l m a i l / n e
0037560 w h e a d s ) \r \r ( R P A Q Q
0037600 006 002 C L M . V A X C D I R 006 001
0037620 { V A X C } / u s e r / x a i s
0037640 / b a n e / c l m a i l / ) \r \r
0037660 ( R P A Q Q 006 002 C L M . M S G
0037700 D I R 006 001 { E R I S } < C O M
0037720 M O N L I S P > C L M A I L > )
0037740 \r ( D E C L A R E % : D O E V
0037760 A L @ C O M P I L E D O N T C
0040000 O P Y \r \r ( G L O B A L V A R S
0040020 C L M . H E A D I T E M S C
0040040 L M . A B O V E I T E M C L M
0040060 . B E L O W I T E M C L M . W
0040100 O R D C L M . M S G H A S H
0040120 C L M . H E A D H A S H \r
0040140 C L M . M E N U W I N
0040160 D O W C L M . H E A D A R R A
0040200 Y C L M . H E A D # ) \r ) \r (
0040220 P U T P R O P S C L M A I L
0040240 C O P Y R I G H T ( " X e r o
0040260 x C o r p o r a t i o n " 1
0040300 9 8 6 ) ) \r ( D E C L A R E % :
0040320 D O N T C O P Y \r ( F I L
0040340 E M A P ( N I L ( 1 6 9 5
0040360 1 3 6 2 6 ( C L M A I L S H O
0040400 W 1 7 0 5 . 3 1 6 1 ) (
0040420 C L M A I L D I S P L A Y 3 1
0040440 6 3 . 3 4 4 5 ) ( C L M A
0040460 I L D I S P L A Y M S G 3 4 4
0040500 7 \r . 3 7 1 2 ) ( C L M A
0040520 I L S E A R C H 3 7 1 4 .
0040540 4 3 2 4 ) ( C L M A I L M S G
0040560 H A S H 4 3 2 6 . 4 5 7 2
0040600 ) ( C L M A I L M E R G E 4
0040620 5 7 4 . 5 5 6 6 ) ( \r C L
0040640 M A I L R E D O M E N U 5 5 6
0040660 8 . 6 2 2 4 ) ( C L M A I
0040700 L H E A D S T R I N G 6 2 2 6
0040720 . 7 0 8 2 ) ( C L M A I L
0040740 F I R S T 7 0 8 4 . 7 2 4
0040760 7 ) ( C L M A I L L A S T 7
0041000 2 4 9 \r . 7 4 9 3 ) ( C L
0041020 M A I L F W D 7 4 9 5 . 7
0041040 8 0 2 ) ( C L M A I L B K W D
0041060 7 8 0 4 . 7 9 9 9 ) ( C
0041100 L M A I L Q U I T 8 0 0 1 .
0041120 8 2 0 8 ) ( M A K E C M L H
0041140 E A D H A S H \r 8 2 1 0 .
0041160 8 9 4 8 ) ( M A K E C M L M A
0041200 I L H A S H 8 9 5 0 . 9 9
0041220 6 0 ) ( U P D A T E H A S H F
0041240 I L E S 9 9 6 2 . 1 2 2 2
0041260 4 ) ( C M L M A I L 1 1 2 2
0041300 2 6 . 1 2 3 6 4 ) ( \r C M
0041320 L M A I L 2 1 2 3 6 6 . 1
0041340 2 5 0 4 ) ( C M L M A I L 3
0041360 1 2 5 0 6 . 1 2 6 4 4 ) (
0041400 C M L M A I L 4 1 2 6 4 6 .
0041420 1 2 7 8 4 ) ( C M L M A I L
0041440 5 1 2 7 8 6 . 1 2 9 2 4 )
0041460 ( \r C M L M A I L 6 1 2 9 2
0041500 6 . 1 3 0 6 4 ) ( C M L M
0041520 A I L 7 1 3 0 6 6 . 1 3 2
0041540 0 4 ) ( C M L M A I L 8 1 3
0041560 2 0 6 . 1 3 3 4 4 ) ( C M
0041600 L M A I L 9 1 3 3 4 6 . 1
0041620 3 4 8 4 ) ( \r C M L M A I L 0
0041640 1 3 4 8 6 . 1 3 6 2 4 ) )
0041660 ) ) ) \r S T O P \r
0041671