home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1723 < prev    next >
Text File  |  1990-12-28  |  21KB  |  803 lines
  1. Newsgroups: alt.sources
  2. From: ctl@OCF.Berkeley.EDU (Case Larsen)
  3. Subject: [comp.mail.mh] Re: XMH cache
  4. Message-ID: <1990Aug27.172616.19016@math.lsa.umich.edu>
  5. Date: Mon, 27 Aug 90 17:26:16 GMT
  6.  
  7. Archive-name: ctl-mh-cache-patch/27-Aug-90
  8. Original-posting-by: ctl@OCF.Berkeley.EDU (Case Larsen)
  9. Original-subject: Re: XMH cache
  10. Reposted-by: emv@math.lsa.umich.edu (Edward Vielmetti)
  11.  
  12. [Reposted from comp.mail.mh.
  13. Comments on this service to emv@math.lsa.umich.edu (Edward Vielmetti).]
  14.  
  15. In article <9008230524.AA07100@PROMETHEUS.MIT.EDU> Raeburn@MIT.EDU (Ken Raeburn) writes:
  16.  
  17.    Does anyone have patches (hacks, suggestions) that would allow
  18.    for maintenance of such a cache?  Does anyone else think it
  19.    would be a good idea for an addition to MH proper, as an extra
  20.    option (preferably runtime-selectable, I'd say)?
  21.  
  22. I've made a few hacks to MH 6.7 to allow caching of both the output
  23. of scan, and the initial directory scan of the folder which gathers
  24. various statistics like highest message, lowest message, deleted
  25. messages, etc.  The caching code uses ndbm to 1) speed access to any
  26. given scan output of a particular message, and 2) make insertions and
  27. deletions of new messages easy.
  28.  
  29. The only affected commands are 'folders', 'rmm', and 'scan'.  The only
  30. command with a runtime selectable option is 'scan'.  Use 'scan -fast'
  31. to cache the output and make use of cached output.  Caching on the
  32. other two commands is automatic, and doesn't consume very much disk
  33. space (a few Kbytes).  The limit of the scan line length is currently
  34. 80 characters.  The limit can be changed, but the longer your scan
  35. line length is, the more space the cache file takes.  For emacs users,
  36. if you use 'mh-e', you will want to change the 'scan' command to 
  37. 'scan -fast' in mh-e.el. 
  38.  
  39. Here is an example of the speedup you can expect.  This was on a
  40. folder of about 1000 messages.
  41. + /*
  42. +  * The 'fast' option uses ndbm to store the output of scan.  Speedup is
  43. +  * typically around 10 to 20 times on large folders.  As you see, the
  44. +  * first time takes a while to build the cache.  The subsequent times are
  45. +  * much quicker.
  46. +  *
  47. +  * dingo uip [887] time xscan -fast > & /dev/null
  48. +  * 18.380u 15.060s 1:02.58 53.4% 0+26k 1408+316io 1413pf+0w
  49. +  * dingo uip [888] time xscan -fast > & /dev/null
  50. +  * 1.120u 1.420s 0:03.58 70.9% 0+22k 53+0io 63pf+0w
  51. +  */
  52.  
  53. --
  54. Case Larsen
  55. ctl@OCF.Berkeley.EDU
  56. Open Computing Facility
  57.  
  58.  
  59. -------------cut here-------cut here-------cut here--------------------
  60. diff -cr mh-6.7/sbr/m_gmsg.c mh-6.7.new/sbr/m_gmsg.c
  61. *** mh-6.7/sbr/m_gmsg.c    Thu Apr 12 13:29:01 1990
  62. --- mh-6.7.new/sbr/m_gmsg.c    Tue Jul 31 10:28:01 1990
  63. ***************
  64. *** 3,11 ****
  65.   #include "../h/mh.h"
  66.   #include "../h/local.h"
  67.   #include <stdio.h>
  68.   
  69. - 
  70.   #define    NINFO    (MAXFOLDER / 5)    /* PLEASE be non-trivial... */
  71.   struct info {
  72.       int     msgno;
  73.       short   stats;
  74. --- 3,13 ----
  75.   #include "../h/mh.h"
  76.   #include "../h/local.h"
  77.   #include <stdio.h>
  78. + #include <fcntl.h>
  79.   
  80.   #define    NINFO    (MAXFOLDER / 5)    /* PLEASE be non-trivial... */
  81. + #define GMSG_CACHE ".m_gmsgcache"
  82. + 
  83.   struct info {
  84.       int     msgno;
  85.       short   stats;
  86. ***************
  87. *** 43,49 ****
  88. --- 45,67 ----
  89.       register    DIR * dd;
  90.   #endif SYS5DIR
  91.       struct stat st;
  92. +     int cache;
  93.   
  94. +     if ((cache = open(GMSG_CACHE,O_RDONLY)) >= 0) {
  95. +     int len;
  96. + 
  97. +     read(cache,&len,sizeof(len));
  98. +     mp = (struct msgs  *) malloc (len);
  99. +     if (mp == NULL)
  100. +       adios (NULLCP, "unable to allocate folder storage");
  101. +     read(cache,mp,len);
  102. +     mp->foldpath = name;
  103. +     m_getatr (mp);
  104. +     close(cache);
  105. +     return mp;
  106. +     }
  107. +     
  108. +     /* else do scan and save */
  109.       if ((dd = opendir (name = m_mailpath (name))) == NULL) {
  110.       free (name);
  111.       return NULL;
  112. ***************
  113. *** 191,196 ****
  114. --- 209,223 ----
  115.   #endif    MTR
  116.       for (tail = head; tail < rover; tail++)
  117.       mp -> msgstats[tail -> msgno] = tail -> stats;
  118. + 
  119. +     if ((cache = open(GMSG_CACHE,O_RDWR | O_CREAT, 0600)) >= 0) {
  120. +     int len;
  121. +     len = MSIZE(mp,mp->lowoff,mp->hghoff);
  122. + 
  123. +     write(cache,&len,sizeof(len));
  124. +     write(cache,mp,len);
  125. +     close(cache);
  126. +     }
  127.       m_getatr (mp);
  128.   
  129.       return mp;
  130. diff -cr mh-6.7/sbr/m_sync.c mh-6.7.new/sbr/m_sync.c
  131. *** mh-6.7/sbr/m_sync.c    Thu Apr 12 13:29:03 1990
  132. --- mh-6.7.new/sbr/m_sync.c    Tue Jul 31 13:02:44 1990
  133. ***************
  134. *** 1,4 ****
  135. --- 1,5 ----
  136.   /* m_sync.c - synchronize message sequences */
  137. + static char *RCSid="$Id: m_sync.c,v 1.2 90/07/31 10:27:25 case Exp Locker: case $";
  138.   
  139.   #include "../h/mh.h"
  140.   #include <stdio.h>
  141. ***************
  142. *** 7,13 ****
  143. --- 8,17 ----
  144.   #define    sigmask(s)    (1 << ((s) - 1))
  145.   #endif    not sigmask
  146.   
  147. + #include <fcntl.h>
  148.   
  149. + #define GMSG_CACHE ".m_gmsgcache"
  150. + 
  151.   /* decision logic
  152.       1.  public and folder readonly: make it private
  153.       2a. public: add it to the sequences file
  154. ***************
  155. *** 14,19 ****
  156. --- 18,31 ----
  157.       2b. private: add it to the profile
  158.    */
  159.   
  160. + /*
  161. +  *$Log:    m_sync.c,v $
  162. +  * Revision 1.2  90/07/31  10:27:25  case
  163. +  * Save incremental changes to msgs structure to GMSG_CACHE.
  164. +  * 
  165. +  * ctl:  Added logic for caching of message stats to speedup m_gmsg().
  166. +  */
  167. + void m_sync_cache();
  168.   
  169.   void m_sync (mp)
  170.   register struct msgs *mp;
  171. ***************
  172. *** 32,39 ****
  173.   #endif    BSD42
  174.   
  175.       if (!(mp -> msgflags & SEQMOD))
  176. !     return;
  177.       mp -> msgflags &= ~SEQMOD;
  178.   
  179.       m_getdefs ();
  180.       (void) sprintf (seq, "%s/%s", mp -> foldpath, mh_seq);
  181. --- 44,52 ----
  182.   #endif    BSD42
  183.   
  184.       if (!(mp -> msgflags & SEQMOD))
  185. !       return;
  186.       mp -> msgflags &= ~SEQMOD;
  187. +     m_sync_cache(mp);
  188.   
  189.       m_getdefs ();
  190.       (void) sprintf (seq, "%s/%s", mp -> foldpath, mh_seq);
  191. ***************
  192. *** 59,69 ****
  193.           if ((cp = m_seq (mp, mp -> msgattrs[i])) == NULL)
  194.           continue;
  195.           if (fp == NULL) {
  196. !         if ((fp = fopen (seq, "w")) == NULL
  197. !             && unlink (seq) != NOTOK 
  198. !             && (fp = fopen (seq, "w")) == NULL) {
  199. !             admonish (attr, "unable to write");
  200. !             goto priv;
  201.           }
  202.   #ifndef    BSD42
  203.           hstat = signal (SIGHUP, SIG_IGN);
  204. --- 72,88 ----
  205.           if ((cp = m_seq (mp, mp -> msgattrs[i])) == NULL)
  206.           continue;
  207.           if (fp == NULL) {
  208. !         fp = fopen (seq, "w");
  209. !         if (fp == NULL) {
  210. !             if (unlink (seq) != NOTOK ) {
  211. !             fp = fopen (seq, "w");
  212. !             } else {
  213. !             fp  = fopen(mh_seq,"w");
  214. !             }
  215. !             if (fp == NULL) {
  216. !             admonish (attr, "unable to write");
  217. !             goto priv;
  218. !             }
  219.           }
  220.   #ifndef    BSD42
  221.           hstat = signal (SIGHUP, SIG_IGN);
  222. ***************
  223. *** 95,98 ****
  224. --- 114,131 ----
  225.           (void) unlink (seq);
  226.   
  227.       mp -> msgflags = flags;
  228. + }
  229. + 
  230. + void m_sync_cache(mp)
  231. +      register struct msgs* mp;
  232. + {
  233. +     int cache;
  234. +     if ((cache = open(GMSG_CACHE,O_RDWR)) >= 0) {
  235. +     int len;
  236. +     len = MSIZE(mp,mp->lowoff,mp->hghoff);
  237. + 
  238. +     write(cache,&len,sizeof(len));
  239. +     write(cache,mp,len);
  240. +     close(cache);
  241. +     }
  242.   }
  243. diff -cr mh-6.7/uip/annosbr.c mh-6.7.new/uip/annosbr.c
  244. *** mh-6.7/uip/annosbr.c    Thu Apr 12 13:29:25 1990
  245. --- mh-6.7.new/uip/annosbr.c    Tue Jul 31 13:38:13 1990
  246. ***************
  247. *** 1,6 ****
  248.   /* annosbr.c - prepend annotation to messages */
  249.   #ifndef    lint
  250. ! static char ident[] = "@(#)$Id: annosbr.c,v 2.4 90/04/05 15:35:09 sources Exp $";
  251.   #endif    lint
  252.   
  253.   #include "../h/mh.h"
  254. --- 1,6 ----
  255.   /* annosbr.c - prepend annotation to messages */
  256.   #ifndef    lint
  257. ! static char ident[] = "@(#)$Id: annosbr.c,v 1.1 90/07/31 13:29:50 case Exp Locker: case $";
  258.   #endif    lint
  259.   
  260.   #include "../h/mh.h"
  261. ***************
  262. *** 9,15 ****
  263. --- 9,18 ----
  264.   #include <stdio.h>
  265.   #include <sys/types.h>
  266.   #include <sys/stat.h>
  267. + #include <ndbm.h>
  268. + #include <fcntl.h>
  269.   
  270. + #define DBMDIR ".mhcache"
  271.   
  272.   extern int  errno;
  273.   long lseek ();
  274. ***************
  275. *** 121,126 ****
  276.           return 1;
  277.       }
  278.       }
  279. ! 
  280.       return 0;
  281.   }
  282. --- 124,141 ----
  283.           return 1;
  284.       }
  285.       }
  286. !     {
  287. !     /* annotate could change fmtsbr()'s output */
  288. !     int msgnum = atoi(file);
  289. !     DBM *scache = dbm_open(DBMDIR,O_RDWR, 0600);
  290. !     datum key;
  291. !     printf ("file: %s",file);
  292. !     if (scache != NULL) {
  293. !         key.dptr = (char *) &msgnum;
  294. !         key.dsize = sizeof(msgnum);
  295. !         dbm_delete(scache,key);
  296. !         dbm_close(scache);
  297. !     }
  298. !     }
  299.       return 0;
  300.   }
  301. diff -cr mh-6.7/uip/folder.c mh-6.7.new/uip/folder.c
  302. *** mh-6.7/uip/folder.c    Thu Apr 12 13:29:27 1990
  303. --- mh-6.7.new/uip/folder.c    Tue Jul 31 10:25:42 1990
  304. ***************
  305. *** 1,6 ****
  306.   /* folder(s).c - report on folders */
  307.   #ifndef    lint
  308. ! static char ident[] = "@(#)$Id: folder.c,v 2.4 90/04/05 14:56:54 sources Exp $";
  309.   #endif    lint
  310.   
  311.   #include "../h/mh.h"
  312. --- 1,6 ----
  313.   /* folder(s).c - report on folders */
  314.   #ifndef    lint
  315. ! static char ident[] = "@(#)$Id: folder.c,v 1.1 90/07/30 16:53:36 case Exp $";
  316.   #endif    lint
  317.   
  318.   #include "../h/mh.h"
  319. diff -cr mh-6.7/uip/inc.c mh-6.7.new/uip/inc.c
  320. *** mh-6.7/uip/inc.c    Thu Apr 12 13:29:28 1990
  321. --- mh-6.7.new/uip/inc.c    Tue Jul 31 14:16:30 1990
  322. ***************
  323. *** 1,6 ****
  324.   /* inc.c - incorporate messages from a maildrop into a folder */
  325.   #ifndef    lint
  326. ! static char ident[] = "@(#)$Id: inc.c,v 1.4 90/04/05 14:57:51 sources Exp $";
  327.   #endif    lint
  328.   
  329.   #include "../h/mh.h"
  330. --- 1,6 ----
  331.   /* inc.c - incorporate messages from a maildrop into a folder */
  332.   #ifndef    lint
  333. ! static char ident[] = "@(#)$Id: inc.c,v 1.1 90/07/31 14:15:49 case Exp Locker: case $";
  334.   #endif    lint
  335.   
  336.   #include "../h/mh.h"
  337. ***************
  338. *** 625,630 ****
  339. --- 625,631 ----
  340.               (void) fflush (stdout);
  341.   
  342.           msgnum++, mp -> hghmsg++;
  343. +         mp->nummsg++;
  344.           mp -> msgstats[msgnum] = EXISTS;
  345.   #ifdef    TMA
  346.           if (i == SCNENC) {
  347. diff -cr mh-6.7/uip/rmm.c mh-6.7.new/uip/rmm.c
  348. *** mh-6.7/uip/rmm.c    Thu Apr 12 13:29:37 1990
  349. --- mh-6.7.new/uip/rmm.c    Mon Jul 30 16:54:30 1990
  350. ***************
  351. *** 2,7 ****
  352. --- 2,9 ----
  353.   
  354.   #include "../h/mh.h"
  355.   #include <stdio.h>
  356. + #include <ndbm.h>
  357. + #include <fcntl.h>
  358.   
  359.   /*   */
  360.   
  361. ***************
  362. *** 11,16 ****
  363. --- 13,19 ----
  364.   
  365.       NULL, NULL
  366.   };
  367. + #define DBMDIR ".mhcache"
  368.   
  369.   /*   */
  370.   
  371. ***************
  372. *** 34,40 ****
  373.              *arguments[MAXARGS],
  374.              *msgs[MAXARGS];
  375.       struct msgs *mp;
  376. ! 
  377.       invo_name = r1bindex (argv[0], '/');
  378.       if ((cp = m_find (invo_name)) != NULL) {
  379.       ap = brkstring (cp = getcpy (cp), " ", "\n");
  380. --- 37,44 ----
  381.              *arguments[MAXARGS],
  382.              *msgs[MAXARGS];
  383.       struct msgs *mp;
  384. !     DBM  *scache;
  385. !     datum key;
  386.       invo_name = r1bindex (argv[0], '/');
  387.       if ((cp = m_find (invo_name)) != NULL) {
  388.       ap = brkstring (cp = getcpy (cp), " ", "\n");
  389. ***************
  390. *** 124,129 ****
  391. --- 128,134 ----
  392.       execvp (rmmproc, vec);
  393.       adios (rmmproc, "unable to exec");
  394.       }
  395. +     scache = dbm_open(DBMDIR,O_RDWR, 0600);
  396.   
  397.       for (msgnum = mp -> lowsel; msgnum <= mp -> hghsel; msgnum++)
  398.       if (mp -> msgstats[msgnum] & SELECTED) {
  399. ***************
  400. *** 130,136 ****
  401.           (void) strcpy (buf, m_backup (dp = m_name (msgnum)));
  402.           if (rename (dp, buf) == NOTOK)
  403.           admonish (buf, "unable to rename %s to", dp);
  404.       }
  405. ! 
  406.       done (0);
  407.   }
  408. --- 135,146 ----
  409.           (void) strcpy (buf, m_backup (dp = m_name (msgnum)));
  410.           if (rename (dp, buf) == NOTOK)
  411.           admonish (buf, "unable to rename %s to", dp);
  412. +         if (scache != NULL) {
  413. +         key.dptr = (char *)&msgnum;
  414. +         key.dsize = sizeof(msgnum);
  415. +         dbm_delete(scache,key);
  416. +         }
  417.       }
  418. !     if (scache != NULL) dbm_close(scache);
  419.       done (0);
  420.   }
  421. diff -cr mh-6.7/uip/scan.c mh-6.7.new/uip/scan.c
  422. *** mh-6.7/uip/scan.c    Thu Apr 12 13:29:37 1990
  423. --- mh-6.7.new/uip/scan.c    Wed Aug  8 11:06:10 1990
  424. ***************
  425. *** 1,6 ****
  426.   /* scan.c - display a one-line "scan" listing */
  427.   #ifndef    lint
  428. ! static char ident[] = "@(#)$Id: scan.c,v 1.8 90/04/05 14:59:58 sources Exp $";
  429.   #endif    lint
  430.   
  431.   #include "../h/mh.h"
  432. --- 1,6 ----
  433.   /* scan.c - display a one-line "scan" listing */
  434.   #ifndef    lint
  435. ! static char ident[] = "@(#)$Id: scan.c,v 1.3 90/07/31 10:24:27 case Exp Locker: case $";
  436.   #endif    lint
  437.   
  438.   #include "../h/mh.h"
  439. ***************
  440. *** 9,14 ****
  441. --- 9,16 ----
  442.   #include "../zotnet/tws.h"
  443.   #include <errno.h>
  444.   #include <stdio.h>
  445. + #include <ndbm.h>
  446. + #include <fcntl.h>
  447.   
  448.   /*   */
  449.   
  450. ***************
  451. *** 42,47 ****
  452. --- 44,62 ----
  453.   #define    HELPSW    10
  454.       "help", 4,
  455.   
  456. + #define FASTSW  11
  457. +     "fast", 4,
  458. + /*
  459. +  * The 'fast' option uses ndbm to store the output of scan.  Speedup is
  460. +  * typically around 10 to 20 times on large folders.  As you see, the
  461. +  * first time takes a while to build the cache.  The subsequent times are
  462. +  * much quicker.
  463. +  *
  464. +  * dingo uip [887] time xscan -fast > & /dev/null
  465. +  * 18.380u 15.060s 1:02.58 53.4% 0+26k 1408+316io 1413pf+0w
  466. +  * dingo uip [888] time xscan -fast > & /dev/null
  467. +  * 1.120u 1.420s 0:03.58 70.9% 0+22k 53+0io 63pf+0w
  468. +  */
  469.       NULL, NULL
  470.   };
  471.   
  472. ***************
  473. *** 52,58 ****
  474. --- 67,81 ----
  475.   extern struct msgs *fmt_current_folder;    
  476.   #endif
  477.   
  478. + typedef struct record {
  479. +     char scanout[80];
  480. + } Record;
  481. + #define SBUFSIZ 256
  482. + #define DBMDIR ".mhcache"
  483. + #define MAXPATHLEN 2048+1
  484.   
  485. + static struct format *fmt;
  486. + 
  487.   void    clear_screen ();
  488.   
  489.   /*   */
  490. ***************
  491. *** 68,73 ****
  492. --- 91,97 ----
  493.           revflag = 0,     /* used to be #ifdef BERK */
  494.           width = 0,
  495.               msgp = 0,
  496. +             fast = 0,
  497.           ontty,
  498.           state,
  499.               msgnum;
  500. ***************
  501. *** 86,92 ****
  502.              *msgs[MAXARGS];
  503.       struct msgs *mp;
  504.       FILE * in;
  505. ! 
  506.       invo_name = r1bindex (argv[0], '/');
  507.       mts_init (invo_name);
  508.       if ((cp = m_find (invo_name)) != NULL) {
  509. --- 110,118 ----
  510.              *msgs[MAXARGS];
  511.       struct msgs *mp;
  512.       FILE * in;
  513. !     DBM  *scache;
  514. !     datum key, rec;
  515. !      
  516.       invo_name = r1bindex (argv[0], '/');
  517.       mts_init (invo_name);
  518.       if ((cp = m_find (invo_name)) != NULL) {
  519. ***************
  520. *** 150,155 ****
  521. --- 176,184 ----
  522.           case NREVSW:
  523.               revflag = 0;
  524.               continue;
  525. +         case FASTSW:
  526. +             fast = 1;
  527. +             continue;
  528.   
  529.           case FILESW:
  530.               if (!(cp = *argp++) || *cp == '-')
  531. ***************
  532. *** 217,256 ****
  533.   #endif
  534.   
  535.   /*   */
  536. ! 
  537.       for (msgnum = revflag ? mp -> hghsel : mp -> lowsel;
  538.           (revflag ? msgnum >= mp -> lowsel : msgnum <= mp -> hghsel);
  539.           msgnum += revflag ? (-1) : 1)
  540. !     if (mp -> msgstats[msgnum] & SELECTED) {
  541. !         if ((in = fopen (cp = m_name (msgnum), "r")) == NULL) {
  542.   #ifdef    notdef
  543. !         if (errno != EACCES)
  544.   #endif
  545. !             admonish (cp, "unable to open message");
  546.   #ifdef    notdef
  547. !         else
  548. !             printf ("%*d  unreadable\n", DMAXFOLDER, msgnum);
  549.   #endif
  550. !         continue;
  551. !         }
  552.   
  553. !         if (hdrflag) {
  554. !         (void) time (&clock);
  555. !         printf ("Folder %-32s%s\n\n", folder,
  556. !             dasctime (dlocaltime (&clock), TW_NULL));
  557. !         }
  558. !         switch (state = scan (in, msgnum, 0, nfs, width,
  559. !             msgnum == mp -> curmsg,
  560. !             hdrflag, 0L, 1)) {
  561. !         case SCNMSG: 
  562. !         case SCNENC: 
  563. !         case SCNERR: 
  564.               break;
  565.   
  566. !         default: 
  567.               adios (NULLCP, "scan() botch (%d)", state);
  568.   
  569. !         case SCNEOF: 
  570.   #ifdef    notdef
  571.               printf ("%*d  empty\n", DMAXFOLDER, msgnum);
  572.   #else
  573. --- 246,350 ----
  574.   #endif
  575.   
  576.   /*   */
  577. !      if (fast) {
  578. !      scache = dbm_open(DBMDIR,O_RDWR | O_CREAT, 0600);
  579. !      if (scache == NULL) {
  580. !          perror("dbm");
  581. !          exit(1);
  582. !      }
  583. !      }
  584.       for (msgnum = revflag ? mp -> hghsel : mp -> lowsel;
  585.           (revflag ? msgnum >= mp -> lowsel : msgnum <= mp -> hghsel);
  586.           msgnum += revflag ? (-1) : 1)
  587. !     if ((mp -> msgstats[msgnum] & (SELECTED | EXISTS)) == (SELECTED | EXISTS)) {
  588. !         if (fast) {
  589. !         /* caching stuff here using (n)dbm 
  590. !            key on message number
  591. !            just keep a few of the fields around */
  592. !         key.dptr = (char *)&msgnum;
  593. !         key.dsize = sizeof(msgnum);
  594. !         rec = dbm_fetch(scache,key);
  595. !         if (hdrflag) {
  596. !             (void) time (&clock);
  597. !             printf ("Folder %-32s%s\n\n", folder,
  598. !                 dasctime (dlocaltime (&clock), TW_NULL));
  599. !         }
  600. !         if (rec.dptr == NULL) {
  601. !             int compnum;
  602. !             char    name[NAMESZ];
  603. !             char tmpbuf[NAMESZ];
  604. !             Record rectmp;
  605. !             char *scanout;
  606. ! 
  607. !             rec.dptr = (char *)&rectmp;
  608. !             rec.dsize = sizeof(rectmp);
  609. !             rectmp.scanout[0] = '\0';
  610. ! 
  611. !             if ((in = fopen (cp = m_name (msgnum), "r")) == NULL) {
  612. !             admonish (cp, "unable to open message");
  613. !             continue;
  614. !             }
  615. !             switch (state = scan (in, msgnum, 0, nfs, width,
  616. !                       msgnum == mp -> curmsg,
  617. !                       hdrflag, 0L, 0, 1, &scanout)) {
  618. !               case SCNMSG: 
  619. !               case SCNENC: 
  620. !               case SCNERR: 
  621. !             break;
  622. !             
  623. !             default: 
  624. !             adios (NULLCP, "scan() botch (%d)", state);
  625. !             
  626. !               case SCNEOF: 
  627.   #ifdef    notdef
  628. !             printf ("%*d  empty\n", DMAXFOLDER, msgnum);
  629. ! #else
  630. !             advise (NULLCP, "message %d: empty", msgnum);
  631.   #endif
  632. !             break;
  633. !             }
  634. !             hdrflag = 0;
  635. !             (void) fclose (in);
  636. !             strncpy(rectmp.scanout,scanout,sizeof(rectmp.scanout));
  637. !             if (strlen(scanout) >= sizeof(rectmp.scanout))
  638. !             rectmp.scanout[sizeof(rectmp.scanout)-1] = '\n';
  639. !             dbm_store(scache,key,rec,DBM_INSERT);
  640. !         }
  641. !         ((Record  *)rec.dptr)->scanout[4] =
  642. !           (mp->curmsg == msgnum) ? '+' : ' ';
  643. !         fputs(((Record *)rec.dptr)->scanout,stdout);
  644. !         if (ontty)
  645. !           (void) fflush (stdout);
  646. !         } else {
  647. !         if ((in = fopen (cp = m_name (msgnum), "r")) == NULL) {
  648.   #ifdef    notdef
  649. !             if (errno != EACCES)
  650.   #endif
  651. !               admonish (cp, "unable to open message");
  652. ! #ifdef    notdef
  653. !             else
  654. !               printf ("%*d  unreadable\n", DMAXFOLDER, msgnum);
  655. ! #endif
  656. !             continue;
  657. !         }
  658.   
  659. !         if (hdrflag) {
  660. !             (void) time (&clock);
  661. !             printf ("Folder %-32s%s\n\n", folder,
  662. !                 dasctime (dlocaltime (&clock), TW_NULL));
  663. !         }
  664. !         switch (state = scan (in, msgnum, 0, nfs, width,
  665. !                       msgnum == mp -> curmsg,
  666. !                       hdrflag, 0L, 1, 0, NULL)) {
  667. !           case SCNMSG: 
  668. !           case SCNENC: 
  669. !           case SCNERR: 
  670.               break;
  671.   
  672. !             default: 
  673.               adios (NULLCP, "scan() botch (%d)", state);
  674.   
  675. !           case SCNEOF: 
  676.   #ifdef    notdef
  677.               printf ("%*d  empty\n", DMAXFOLDER, msgnum);
  678.   #else
  679. ***************
  680. *** 257,268 ****
  681.               advise (NULLCP, "message %d: empty", msgnum);
  682.   #endif
  683.               break;
  684.           }
  685. -         hdrflag = 0;
  686. -         (void) fclose (in);
  687. -         if (ontty)
  688. -         (void) fflush (stdout);
  689.       }
  690.   #ifdef    VAN
  691.       m_sync (mp);    /* because formatsbr might have made changes */
  692.   #endif
  693. --- 351,365 ----
  694.               advise (NULLCP, "message %d: empty", msgnum);
  695.   #endif
  696.               break;
  697. +         }
  698. +         hdrflag = 0;
  699. +         (void) fclose (in);
  700. +         if (ontty)
  701. +           (void) fflush (stdout);
  702.           }
  703.       }
  704. +      if (fast && scache != NULL) dbm_close(scache);
  705. + 
  706.   #ifdef    VAN
  707.       m_sync (mp);    /* because formatsbr might have made changes */
  708.   #endif
  709. ***************
  710. *** 274,276 ****
  711. --- 371,375 ----
  712.   
  713.       done (0);
  714.   }
  715. + 
  716. + 
  717. diff -cr mh-6.7/uip/scansbr.c mh-6.7.new/uip/scansbr.c
  718. *** mh-6.7/uip/scansbr.c    Thu Apr 12 13:29:37 1990
  719. --- mh-6.7.new/uip/scansbr.c    Mon Jul 30 16:54:30 1990
  720. ***************
  721. *** 1,6 ****
  722.   /* scansbr.c - routines to help scan along... */
  723.   #ifndef    lint
  724. ! static char ident[] = "@(#)$Id: scansbr.c,v 1.5 90/04/05 14:57:59 sources Exp $";
  725.   #endif    lint
  726.   
  727.   #include "../h/mh.h"
  728. --- 1,6 ----
  729.   /* scansbr.c - routines to help scan along... */
  730.   #ifndef    lint
  731. ! static char ident[] = "@(#)$Id: scansbr.c,v 1.2 90/07/30 16:54:18 case Exp $";
  732.   #endif    lint
  733.   
  734.   #include "../h/mh.h"
  735. ***************
  736. *** 53,59 ****
  737.   
  738.   /* ARGSUSED */
  739.   
  740. ! int     scan (inb, innum, outnum, nfs, width, curflg, header, size, noisy)
  741.   char    *nfs;
  742.   int     innum,
  743.           outnum,
  744. --- 53,59 ----
  745.   
  746.   /* ARGSUSED */
  747.   
  748. ! int     scan (inb, innum, outnum, nfs, width, curflg, header, size, noisy,fast,scanout)
  749.   char    *nfs;
  750.   int     innum,
  751.           outnum,
  752. ***************
  753. *** 60,66 ****
  754.       width,
  755.           curflg,
  756.           header,
  757. !     noisy;
  758.   long    size;
  759.   register FILE   *inb;
  760.   {
  761. --- 60,68 ----
  762.       width,
  763.           curflg,
  764.           header,
  765. !     noisy,
  766. !         fast;
  767. ! char **scanout;
  768.   long    size;
  769.   register FILE   *inb;
  770.   {
  771. ***************
  772. *** 292,297 ****
  773. --- 294,301 ----
  774.       }
  775.       if (noisy)
  776.       (void) fputs (scanl, stdout);
  777. +     if (fast)
  778. +         *scanout = scanl; /* return formatted buffer */
  779.   
  780.       FINDCOMP (cptr, "encrypted");
  781.       encrypted = cptr && cptr -> c_text;
  782. diff -cr mh-6.7/uip/sendsbr.c mh-6.7.new/uip/sendsbr.c
  783. *** mh-6.7/uip/sendsbr.c    Thu Apr 12 13:29:37 1990
  784. --- mh-6.7.new/uip/sendsbr.c    Tue Jul 31 13:28:55 1990
  785. ***************
  786. *** 1,6 ****
  787.   /* sendsbr.c - routines to help WhatNow/Send along */
  788.   #ifndef    lint
  789. ! static char ident[] = "@(#)$Id: sendsbr.c,v 2.3 90/04/05 14:57:18 sources Exp $";
  790.   #endif    lint
  791.   
  792.   #include "../h/mh.h"
  793. --- 1,6 ----
  794.   /* sendsbr.c - routines to help WhatNow/Send along */
  795.   #ifndef    lint
  796. ! static char ident[] = "@(#)$Id: sendsbr.c,v 1.1 90/07/31 13:28:44 case Exp $";
  797.   #endif    lint
  798.   
  799.   #include "../h/mh.h"
  800. --
  801. Case Larsen
  802. ctl@OCF.berkeley.edu
  803.