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