home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume14 / mush / patch01 next >
Encoding:
Text File  |  1990-07-15  |  47.7 KB  |  1,608 lines
  1. Newsgroups: comp.sources.misc
  2. subject: v14i005: Submission: Patch #2 for Mush 7.1
  3. from: schaefer@cse.ogi.edu (Barton E. Schaefer)
  4. Sender: allbery@uunet.UU.NET (Brandon S. Allbery - comp.sources.misc)
  5.  
  6. Posting-number: Volume 14, Issue 5
  7. Submitted-by: schaefer@cse.ogi.edu (Barton E. Schaefer)
  8. Archive-name: mush/patch01
  9.  
  10. Mush was posted to comp.sources.misc at patchlevel 1.  You can omit
  11. everything up through the @OFF line when posting this; that line is
  12. a directive to my mail server to prevent it from recognizing the
  13. later @-directives should this bounce back to me.
  14.  
  15. @OFF
  16.  
  17. This is Official Patch #2 for Mush 7.1.  Mush was previously posted
  18. to comp.sources.misc at patch level 1.  A copy of this message has
  19. been sent to the comp.sources.misc moderator for posting and archiving.
  20.  
  21. As usual, complete sources for Mush (already including the changes in
  22. this patch) can be obtained via anonymous ftp from either of:
  23.  
  24.             ucbvax.berkeley.edu:pub/mailers/mush-7.1.tar.Z
  25.  
  26.                   cse.ogi.edu:pub/mush/mush-7.1.tar.Z
  27.  
  28. Be aware that a version of mush with RELEASE_DATE (from version.h) of
  29. 7/10/90 was incorrectly made available for ftp for approximately 24
  30. hours spanning the night of July 10th and most of the day July 11th.
  31. The correct RELEASE_DATE is 7/11/90.  If you have the 7/10 version,
  32. please pick up the more recent one.  The only change was to enable
  33. walking menus by default (see below); the functionality is the same.
  34. This affects Sun systems only, but for purposes of patching you should
  35. obtain the correct version.
  36.  
  37. If you need any earlier patches, they are available for ftp from
  38. cse.ogi.edu, or you can send E-mail to me:
  39.  
  40.                          schaefer@cse.ogi.edu
  41.      {decwrl,garp,harvard,rutgers,sdsu,ucsd,unmvax}!ogicse!schaefer
  42.  
  43. Include in your message a line of the form
  44.  
  45. @PATCH patch-number path-from-ogicse-to-you
  46.  
  47. where patch-number is the number of the patch you need (digit, 1 or 2)
  48. and path-from-ogicse-to-you is either your Internet domain address or
  49. a UUCP path from site ogicse to you at your site.  There continue to
  50. be sendmail configuration problems at ogicse so please do not use mixed
  51. UUCP and Internet addresses and do not use domain names (with `.'s) in
  52. UUCP paths.  Ogicse does do UUCP map lookups now, so user@site.UUCP will
  53. often work if your site is registered.  If you don't get your patches
  54. in 2 or 3 days, try again, but use a different path.
  55.  
  56. You may include one @PATCH line for each patch you need.
  57.  
  58. You can also recieve a complete set of sources by E-mail by including
  59. a line of the form
  60.  
  61. @MUSH path-from-ogicse-to-you
  62.  
  63. where path-from-ogicse-to-you is as above.  You need not request both
  64. source and patches; the source you receive will include all current
  65. patches.  Sources are shipped as a 9-part compressed tar file, encoded
  66. for mailing with the "btoa" utility.  You will receive instructions
  67. explaining how to unpack the tar file in a separate message.
  68.  
  69. CSNet also operates an E-mail server that accesses anonymous ftp.  It
  70. may or may not be functional at this time.  To find out, and to get
  71. instructions for using the server, send a message to info-server@cs.net
  72. with the following lines in the text:
  73.  
  74. request: info
  75. topic: help-ftp
  76. request: end
  77.  
  78. Other information, plus questions and answers, on mush and mush patches
  79. is available from the mush-users mailing list, which is gatewayed in
  80. both directions with newsgroup comp.mail.mush.  The list currently
  81. resides at mush-users@garp.mit.edu, but may in the near future be moving
  82. to mush-users@apple.com.  Requests to be added to or deleted from the
  83. list should be sent to mush-users-request@garp.mit.edu, for now.
  84.  
  85. Changes/Fixes in this patch:
  86.  
  87.     The "undelete" operation in the Mailrc configuration file for UCB
  88.     Mail emulation has been adjusted to change the current message to
  89.     the last message in the undeleted list.  This causes one message
  90.     header summary to be printed whenever "undelete" is used.
  91.  
  92.     The "delete" operation in tool mode will now bring the new current
  93.     message onto the header display if and only if it was changed by
  94.     the deletion.
  95.  
  96.     Failure to truncate and recreate the editor temp file (e.g. by ~E)
  97.     is now detected and handled properly.
  98.  
  99.     Handling of "corrupted" spool mailboxes has been improved.  The
  100.     size of the spool file is now correctly recorded on new mail checks,
  101.     which should reduce the frequency of corruption reports on systems
  102.     that rely on DOT_LOCKing.  See also the locking corrections for MMDF,
  103.     noted below.  Once possible corruption is detected, new mail is no
  104.     longer checked, and upon quit or any folder change operation the
  105.     user is warned of the error.  If mush exits with the folder still
  106.     in a corrupt state, no update is done and the temporary copy is not
  107.     removed.  Further improvements in this error handling are planned
  108.     for future patches.
  109.  
  110.     SYSV systems that support BSD-style directory functions will now
  111.     correctly #include <dirent.h> if DIRECTORY is defined.
  112.  
  113.     Addresses containing UUCP !-paths ending in a domain-style @host
  114.     suffix will now be shifted to the right in header summaries to show 
  115.     as at least the last two hosts of the UUCP path tail.  This assumes
  116.     that the correct parsing of host2!host3!user@host1 is the same as
  117.     host1!host2!host3!user.
  118.  
  119.     Use of the file locking routines from the MMDF libraries has been
  120.     fixed.  Previous usage assumed that the MMDF routines locked in a
  121.     blocking manner, waiting until the lock was obtained; this is not
  122.     correct, and mush now loops until the lock is obtained.
  123.  
  124.     The "history" command now includes itself in the listing of the
  125.     last N history items when invoked with a numeric argument.  E.g.,
  126.     "history 5" will now show "history 5" as the most recent of the
  127.     five commands displayed.  This is consistent with "history -r 5"
  128.     and the csh usage.
  129.  
  130.     $verify is now treated as a multivalued variable.  In addition to
  131.     the old usage of verifying send/edit/discard on outgoing mail, it
  132.     is now necessary to "set verify=save" to enable the toolmode query
  133.     boxes that confirm save operations.  The other valid settings are
  134.     "mail" and no value, both of which behave as $verify did before.
  135.     To verify both outgoing mail and tool mode save operations, use
  136.     "set verify=mail,save".
  137.  
  138.     Stray alarm timers could be triggered by use of the "await" command
  139.     under SysV, resulting in core dumps.  This has been corrected.
  140.  
  141.     For SunView users, walking menus are now used for the file names
  142.     displayed under the <Folder> and <Save> items.  This neatens up
  143.     display of nested directory structures and avoids the menu size
  144.     limits of SunView in most cases.  Thanks to J. William Claypool
  145.     <unify!jwc@Sun.COM> for contributing 99% of this.  If you run into
  146.     any problems with this, compilation with -DNO_WALK_MENUS will
  147.     revert to the previous menu format.
  148.  
  149. *** /tmp/,RCSt1002753    Wed Jul 11 21:30:33 1990
  150. --- Mailrc    Wed Jul  4 15:36:14 1990
  151. ***************
  152. *** 52,59 ****
  153.   cmd se set
  154.   cmd shell sh
  155.   cmd so source
  156. ! cmd un undelete
  157. ! cmd unread 'flags \!* U'    # "unread" is undocumented in Mail
  158.   cmd uns unset
  159.   cmd vi v
  160.   cmd z 'z \!* + | from -'    # "z" changes current message in Mail
  161. --- 52,61 ----
  162.   cmd se set
  163.   cmd shell sh
  164.   cmd so source
  165. ! cmd u 'u \!* | pick -1 | from -' # "u" changes current message in Mail
  166. ! cmd un u
  167. ! cmd undelete u
  168. ! cmd unread 'flags \!* +U'    # "unread" is undocumented in Mail
  169.   cmd uns unset
  170.   cmd vi v
  171.   cmd z 'z \!* + | from -'    # "z" changes current message in Mail
  172. *** /tmp/,RCSt1002753    Wed Jul 11 21:32:30 1990
  173. --- README    Wed Jul 11 21:32:23 1990
  174. ***************
  175. *** 81,86 ****
  176. --- 81,89 ----
  177.       SUN_4_0, or SUN_4_1 depending on your SunOS version.  If SUNTOOL is
  178.       the only thing defined, SUN_4_0 will be used.
  179.   
  180. +     You may also choose to define NO_WALK_MENUS to disable walking menus
  181. +     for file names selectable from the "folder" and "save" command items.
  182. + 
  183.   If you are on a BSD UNIX machine:
  184.   
  185.       You should use the makefile.bsd makefile.
  186. *** /tmp/,RCSt1002753    Wed Jul 11 21:32:39 1990
  187. --- commands.c    Wed Jul 11 21:26:46 1990
  188. ***************
  189. *** 440,447 ****
  190. --- 440,451 ----
  191.       if (firstchar != 'c' && n > 0)
  192.           (void) do_hdrs(0, DUBL_NULL, NULL);
  193.       if (*mode == 'w' && n > 0) {
  194. + #ifndef NO_WALK_MENUS
  195. +         create_folder_menus();
  196. + #else /* NO_WALK_MENUS */
  197.           add_folder_to_menu(folder_item, 3);
  198.           add_folder_to_menu(save_item, 1);
  199. + #endif /* NO_WALK_MENUS */
  200.       }
  201.       }
  202.   #endif /* SUNTOOL */
  203. ***************
  204. *** 615,623 ****
  205.       /* goto next available message if current was just deleted.
  206.        * If there are no more messages, turnoff prnt_next.
  207.        */
  208. !     if (!iscurses && !undel && msg_bit(list, current_msg) &&
  209. !         (ison(msg[current_msg].m_flags, DELETE) ||
  210. !         ison(msg[current_msg].m_flags, SAVED)))
  211.       (void) next_msg();
  212.       else
  213.       prnt_next = 0;
  214. --- 619,625 ----
  215.       /* goto next available message if current was just deleted.
  216.        * If there are no more messages, turnoff prnt_next.
  217.        */
  218. !     if (!iscurses && !undel && msg_bit(list, current_msg))
  219.       (void) next_msg();
  220.       else
  221.       prnt_next = 0;
  222. ***************
  223. *** 632,643 ****
  224.       }
  225.   #ifdef SUNTOOL
  226.       if (istool && isoff(glob_flags, IS_PIPE)) {
  227. !     char *av[3], buf[8];
  228. !     /* do_hdrs(0, ...) repositions the display, so pass an arg */
  229. !     av[0] = "h";
  230. !     av[1] = sprintf(buf, "%d", n_array[0] + 1);
  231. !     av[2] = NULL;
  232. !     (void) do_hdrs(2, av, NULL);
  233.       }
  234.   #endif /* SUNTOOL */
  235.       return 0;
  236. --- 634,649 ----
  237.       }
  238.   #ifdef SUNTOOL
  239.       if (istool && isoff(glob_flags, IS_PIPE)) {
  240. !     if (current_msg != old_msg && !do_set(set_options, "show_deleted"))
  241. !         (void) do_hdrs(0, DUBL_NULL, NULL);
  242. !     else {
  243. !         char *av[3], buf[8];
  244. !         /* do_hdrs(0, ...) repositions the display, so pass an arg */
  245. !         av[0] = "h";
  246. !         av[1] = sprintf(buf, "%d", n_array[0] + 1);
  247. !         av[2] = NULL;
  248. !         (void) do_hdrs(2, av, NULL);
  249. !     }
  250.       }
  251.   #endif /* SUNTOOL */
  252.       return 0;
  253. *** /tmp/,RCSt1002753    Wed Jul 11 21:32:40 1990
  254. --- config.h-dist    Tue Jul 10 08:34:56 1990
  255. ***************
  256. *** 85,93 ****
  257.   /* If your mailer does not understand commas between addresses, you should
  258.    * define NO_COMMAS.  This includes pre-3.0 smail and default MTAs used on
  259.    * xenix, and sys-v systems.
  260. !  * This does NOT apply to MMDF or sendmail.
  261.    */
  262. ! /* #define NO_COMMAS /**/
  263.   
  264.   /*
  265.    * Most RFC822 compliant mailers (sendmail) will add the headers From:
  266. --- 85,95 ----
  267.   /* If your mailer does not understand commas between addresses, you should
  268.    * define NO_COMMAS.  This includes pre-3.0 smail and default MTAs used on
  269.    * xenix, and sys-v systems.
  270. !  * This does NOT apply to MMDF or sendmail, in most cases.
  271.    */
  272. ! #ifdef SUN_4_1        /* SunOS 4.1 has warped sendmail.cf */
  273. ! #define NO_COMMAS /**/
  274. ! #endif /* SUN_4_1
  275.   
  276.   /*
  277.    * Most RFC822 compliant mailers (sendmail) will add the headers From:
  278. *** /tmp/,RCSt1002753    Wed Jul 11 21:32:46 1990
  279. --- file.c    Thu May  3 12:44:05 1990
  280. ***************
  281. *** 217,223 ****
  282.       (void) fclose(*fp);
  283.       if (!(*fp = fopen(fname, "w")))
  284.           ret = -1;
  285. !     ret = 0;
  286.       (void) umask(omask);
  287.       return ret;
  288.       }
  289. --- 217,224 ----
  290.       (void) fclose(*fp);
  291.       if (!(*fp = fopen(fname, "w")))
  292.           ret = -1;
  293. !     else
  294. !         ret = 0;
  295.       (void) umask(omask);
  296.       return ret;
  297.       }
  298. *** /tmp/,RCSt1002753    Wed Jul 11 21:32:47 1990
  299. --- folders.c    Wed Jul  4 16:54:04 1990
  300. ***************
  301. *** 125,130 ****
  302. --- 125,131 ----
  303.       /* an error occured updating the folder */
  304.       return -1;
  305.       }
  306. +     turnoff(glob_flags, CORRUPTED);    /* copyback() was successful */
  307.       /* Assure that both oldfolder and mailfile are full paths */
  308.       if (strcmp(mailfile, buf) || !*oldfolder) {
  309.       n = 1; /* force load of new folder */
  310. *** /tmp/,RCSt1002753    Wed Jul 11 21:32:49 1990
  311. --- glob.h    Wed May 23 19:58:51 1990
  312. ***************
  313. *** 3,10 ****
  314. --- 3,14 ----
  315.   #endif /* BSD */
  316.   
  317.   #ifdef DIRECTORY
  318. + #ifdef SYSV /* Some SysV 3.0 or higher */
  319. + #include <dirent.h>
  320. + #else /* SYSV */
  321.   #include <sys/dir.h>
  322.   #define dirent direct
  323. + #endif
  324.   #else /* !DIRECTORY */
  325.   
  326.   /*
  327. *** /tmp/,RCSt1002753    Wed Jul 11 21:32:50 1990
  328. --- hdrs.c    Thu Jul  5 09:22:07 1990
  329. ***************
  330. *** 529,537 ****
  331.            * "important" part is readable only for ! paths/addresses.
  332.            */
  333.           while (p3 = index(p2, '!')) {
  334. !             int tmp = strlen(p3+1); /* xenix has compiler problems */
  335.               p2 = p3+1;
  336. !             if (tmp + isauthor*4 < pad) {
  337.               if (isauthor && (p2 -= 4) < old_p2)
  338.                   p2 = old_p2;
  339.               break;
  340. --- 529,537 ----
  341.            * "important" part is readable only for ! paths/addresses.
  342.            */
  343.           while (p3 = index(p2, '!')) {
  344. !             len = strlen(p3+1); /* xenix has compiler problems */
  345.               p2 = p3+1;
  346. !             if (len + isauthor*4 < pad) {
  347.               if (isauthor && (p2 -= 4) < old_p2)
  348.                   p2 = old_p2;
  349.               break;
  350. ***************
  351. *** 539,544 ****
  352. --- 539,551 ----
  353.           }
  354.           if (isauthor && p2 > old_p2+4 && !p3 && strlen(p2) + 4 > pad)
  355.               p2 -= 4;
  356. +         if (p3 && (p3 = rindex(p2, '@'))) {
  357. +             len = strlen(p3);
  358. +             while (len-- && --p2 > old_p2) {
  359. +             if (*(p2 + isauthor*4 - 1) == '!')
  360. +                 break;
  361. +             }
  362. +         }
  363.           if (old_p2 != p2 && isauthor)
  364.               (void) strncpy(p2, "TO: ", 4); /* doesn't null terminate */
  365.           }
  366. *** /tmp/,RCSt1002753    Wed Jul 11 21:32:53 1990
  367. --- lock.c    Tue Jun 19 13:19:03 1990
  368. ***************
  369. *** 123,133 ****
  370.   char *mode;
  371.   {
  372.       FILE *mail_fp = NULL_FILE;
  373. - #ifndef LCKDFLDIR
  374.       int fd, lk;
  375.       int cnt = 0;
  376.       SIGRET (*oldint)(), (*oldquit)();
  377. ! #else /* LCKDFLDIR */
  378.       extern FILE *lk_fopen();
  379.   #endif /* !LCKDFLDIR */
  380.   
  381. --- 123,132 ----
  382.   char *mode;
  383.   {
  384.       FILE *mail_fp = NULL_FILE;
  385.       int fd, lk;
  386.       int cnt = 0;
  387.       SIGRET (*oldint)(), (*oldquit)();
  388. ! #ifdef LCKDFLDIR
  389.       extern FILE *lk_fopen();
  390.   #endif /* !LCKDFLDIR */
  391.   
  392. ***************
  393. *** 136,145 ****
  394.       return NULL_FILE;
  395.       }
  396.   
  397. - #ifdef LCKDFLDIR
  398. -     return lk_fopen(filename, mode, NULL, NULL, 0);
  399. - #else /* !LCKDFLDIR */
  400. - 
  401.   #ifdef DOT_LOCK
  402.       if (dot_lock(filename) == 0)
  403.   #endif /* DOT_LOCK */
  404. --- 135,140 ----
  405. ***************
  406. *** 154,161 ****
  407.       lk = LOCK_SH | LOCK_NB;
  408.   
  409.       on_intr();
  410. !     while (isoff(glob_flags, WAS_INTR) && flock(fd, lk)) {
  411. !     if (errno == EWOULDBLOCK) {
  412.           if (isoff(glob_flags, REDIRECT))
  413.           if (!cnt++)
  414.               print("\nwaiting to lock");
  415. --- 149,168 ----
  416.       lk = LOCK_SH | LOCK_NB;
  417.   
  418.       on_intr();
  419. ! #ifdef LCKDFLDIR
  420. !     (void) fclose(mail_fp);
  421. !     while (isoff(glob_flags, WAS_INTR) &&
  422. !         !(mail_fp = lk_fopen(filename, mode, NULL, NULL, 0)))
  423. ! #else /* !LCKDFLDIR */
  424. !     while (isoff(glob_flags, WAS_INTR) && flock(fd, lk))
  425. ! #endif /* LCKDFLDIR */
  426. !     {
  427. ! #ifdef LCKDFLDIR
  428. !     if (Access(filename, any(mode, "aw+") ? W_OK : R_OK) == 0)
  429. ! #else /* !LCKDFLDIR */
  430. !     if (errno == EWOULDBLOCK)
  431. ! #endif /* LCKDFLDIR */
  432. !     {
  433.           if (isoff(glob_flags, REDIRECT))
  434.           if (!cnt++)
  435.               print("\nwaiting to lock");
  436. ***************
  437. *** 179,185 ****
  438.       return NULL_FILE;
  439.       }
  440.       return mail_fp;
  441. - #endif /* LCKDFLDIR */
  442.   }
  443.   
  444.   /*ARGSUSED*/
  445. --- 186,191 ----
  446. *** /tmp/,RCSt1002753    Wed Jul 11 21:32:54 1990
  447. --- loop.c    Wed Jul  4 15:39:39 1990
  448. ***************
  449. *** 1280,1287 ****
  450.       num_of_hists = min(hist_size, hist_no);
  451.   
  452.       if (!reverse)
  453. !     while (hist_no - hist->histno > num_of_hists) {
  454. !         (void) printf("skipping %d\n", hist->histno);
  455.           hist = hist->next;
  456.       }
  457.   
  458. --- 1280,1287 ----
  459.       num_of_hists = min(hist_size, hist_no);
  460.   
  461.       if (!reverse)
  462. !     while (hist_no - hist->histno >= num_of_hists) {
  463. !         Debug("skipping %d\n", hist->histno);
  464.           hist = hist->next;
  465.       }
  466.   
  467. *** /tmp/,RCSt1002753    Wed Jul 11 21:32:57 1990
  468. --- mail.c    Wed Jul  4 15:28:00 1990
  469. ***************
  470. *** 899,907 ****
  471.           }
  472.           if (*p != '!' && !do_set(set_options, "nosave"))
  473.           dead_letter(0);
  474. !         if (emptyfile(&ed_fp, edfile) == -1)
  475.           error(edfile);
  476. !         else
  477.           print("Message buffer empty\n");
  478.       when 'q':
  479.           /* save in dead.letter if nosave not set -- rm_edfile(-2). */
  480. --- 899,908 ----
  481.           }
  482.           if (*p != '!' && !do_set(set_options, "nosave"))
  483.           dead_letter(0);
  484. !         if (emptyfile(&ed_fp, edfile) == -1) {
  485.           error(edfile);
  486. !         return -1;
  487. !         } else
  488.           print("Message buffer empty\n");
  489.       when 'q':
  490.           /* save in dead.letter if nosave not set -- rm_edfile(-2). */
  491. ***************
  492. *** 982,988 ****
  493.       }
  494.       /* ~v on the Cc line asks for verification, first initialize p! */
  495.       p = NULL;
  496. !     if (!strncmp(Cc, "~v", 2) || (p = do_set(set_options, "verify"))) {
  497.           if (!p) /* so we don't Cc to ~v! */
  498.           *Cc = 0;
  499.           for (;;) {
  500. --- 983,992 ----
  501.       }
  502.       /* ~v on the Cc line asks for verification, first initialize p! */
  503.       p = NULL;
  504. !     if (!strncmp(Cc, "~v", 2) ||
  505. !         /* Flashy test for $verify either empty or set to "mail" */
  506. !         glob(p = do_set(set_options, "verify"),
  507. !                         "{,{,*[ \\,]}mail{,[ \\,]*}}")) {
  508.           if (!p) /* so we don't Cc to ~v! */
  509.           *Cc = 0;
  510.           for (;;) {
  511. ***************
  512. *** 1504,1510 ****
  513.        * created a From: header with the my_hdr command (the own_hdrs list).
  514.        * If his is not legitimate, warn user and use the other header.
  515.        */
  516. !     if ((for_editor || isoff(glob_flags, EDIT_HDRS)) &&
  517.           own_hdrs && !do_set(set_options, "no_hdrs")) {
  518.       for (opts = own_hdrs; opts; opts = opts->next)
  519.           if (!strcmp(opts->option, "From:")) {
  520. --- 1508,1514 ----
  521.        * created a From: header with the my_hdr command (the own_hdrs list).
  522.        * If his is not legitimate, warn user and use the other header.
  523.        */
  524. !     if ((for_editor || isoff(flags, EDIT_HDRS)) &&
  525.           own_hdrs && !do_set(set_options, "no_hdrs")) {
  526.       for (opts = own_hdrs; opts; opts = opts->next)
  527.           if (!strcmp(opts->option, "From:")) {
  528. *** /tmp/,RCSt1002753    Wed Jul 11 21:33:00 1990
  529. --- main.c    Wed Jul  4 07:23:41 1990
  530. ***************
  531. *** 40,49 ****
  532.   #ifdef LCKDFLDIR
  533.       lckdfldir = LCKDFLDIR;
  534.   #endif /* LCKDFLDIR */
  535. !     if (prog_name = rindex(*argv, '/'))
  536. !     prog_name++;
  537. !     else
  538. !     prog_name = *argv;
  539.   
  540.       (void) signal(SIGBUS,  bus_n_seg);
  541.       (void) signal(SIGSEGV, bus_n_seg);
  542. --- 40,46 ----
  543.   #ifdef LCKDFLDIR
  544.       lckdfldir = LCKDFLDIR;
  545.   #endif /* LCKDFLDIR */
  546. !     prog_name = basename(*argv);
  547.   
  548.       (void) signal(SIGBUS,  bus_n_seg);
  549.       (void) signal(SIGSEGV, bus_n_seg);
  550. *** /tmp/,RCSt1002753    Wed Jul 11 21:33:06 1990
  551. --- msgs.c    Wed Jul  4 17:07:44 1990
  552. ***************
  553. *** 270,277 ****
  554.        */
  555.       if (!first && mail_size()) {
  556.   lost_lock:
  557. !     if (get_new_mail(TRUE) && prompt && isoff(glob_flags, REDIRECT)
  558. !         && show_new_mail()) {
  559.           char buf[80];
  560.           if (iscurses)
  561.           putchar('\n'), turnon(glob_flags, CNTD_CMD);
  562. --- 270,277 ----
  563.        */
  564.       if (!first && mail_size()) {
  565.   lost_lock:
  566. !     if ((ison(glob_flags, CORRUPTED) || get_new_mail(TRUE)) &&
  567. !         prompt && isoff(glob_flags, REDIRECT) && show_new_mail()) {
  568.           char buf[80];
  569.           if (iscurses)
  570.           putchar('\n'), turnon(glob_flags, CNTD_CMD);
  571. ***************
  572. *** 280,286 ****
  573.           buf[0] = 0;
  574.   #ifdef SUNTOOL
  575.           if (istool) {
  576. !         (void) sprintf(buf, "New mail -- %s", prompt);
  577.           if (ask(buf) != TRUE)
  578.               return 0;
  579.           } else
  580. --- 280,288 ----
  581.           buf[0] = 0;
  582.   #ifdef SUNTOOL
  583.           if (istool) {
  584. !         (void) sprintf(buf, "%s -- %s",
  585. !             ison(glob_flags, CORRUPTED) ? "Error" : "New mail",
  586. !             prompt);
  587.           if (ask(buf) != TRUE)
  588.               return 0;
  589.           } else
  590. ***************
  591. *** 287,298 ****
  592.   #endif /* SUNTOOL */
  593.           if (!Getstr(buf, sizeof (buf), 0) || lower(*buf) != 'y')
  594.               return 0;
  595.       }
  596.       }
  597.       first = 0;
  598.   
  599.       /* If the user hasn't changed anything, just return true */
  600. !     if (isoff(glob_flags, DO_UPDATE))
  601.       return 1;
  602.       if (ison(glob_flags, READ_ONLY)) {
  603.       print("Unable to update %s: read only\n", mailfile);
  604. --- 289,301 ----
  605.   #endif /* SUNTOOL */
  606.           if (!Getstr(buf, sizeof (buf), 0) || lower(*buf) != 'y')
  607.               return 0;
  608. +         turnoff(glob_flags, CORRUPTED); /* User says go ahead */
  609.       }
  610.       }
  611.       first = 0;
  612.   
  613.       /* If the user hasn't changed anything, just return true */
  614. !     if (isoff(glob_flags, DO_UPDATE) || ison(glob_flags, CORRUPTED))
  615.       return 1;
  616.       if (ison(glob_flags, READ_ONLY)) {
  617.       print("Unable to update %s: read only\n", mailfile);
  618. ***************
  619. *** 316,323 ****
  620.       if (!(mail_fp = lock_fopen(mailfile, "r+"))) {
  621.       error("WARNING: unable to lock %s -- update aborted", mailfile);
  622.   #ifdef SUNTOOL
  623. !     write_err = 1;    /* forces return 0; below */
  624. !     goto resume_timer;    /* blecch */
  625.   #else /* !SUNTOOL */
  626.       return 0;
  627.   #endif /* SUNTOOL */
  628. --- 319,328 ----
  629.       if (!(mail_fp = lock_fopen(mailfile, "r+"))) {
  630.       error("WARNING: unable to lock %s -- update aborted", mailfile);
  631.   #ifdef SUNTOOL
  632. !     if (istool) {
  633. !         write_err = 1;    /* forces return 0; below */
  634. !         goto resume_timer;    /* blecch */
  635. !     }
  636.   #else /* !SUNTOOL */
  637.       return 0;
  638.   #endif /* SUNTOOL */
  639. *** /tmp/,RCSt1002753    Wed Jul 11 21:33:10 1990
  640. --- mush.1    Wed Jul  4 07:47:47 1990
  641. ***************
  642. *** 2937,2944 ****
  643.   searches for special mail headers in the author's message that
  644.   indicate the most efficient mail path for return mail.
  645.   .I Mush
  646. ! will search for the \*QReply-To:\*U, \*QReturn-Path:\*U,
  647. ! and \*QFrom:\*U headers, in that order, by default.
  648.   .sp
  649.   If none of these fields are found in the message, the first line of the
  650.   message is parsed if possible;
  651. --- 2937,2944 ----
  652.   searches for special mail headers in the author's message that
  653.   indicate the most efficient mail path for return mail.
  654.   .I Mush
  655. ! will search for the \*QReply-To:\*U,
  656. ! \*QFrom:\*U, and \*QReturn-Path:\*U headers, in that order, by default.
  657.   .sp
  658.   If none of these fields are found in the message, the first line of the
  659.   message is parsed if possible;
  660. ***************
  661. *** 4291,4296 ****
  662. --- 4291,4297 ----
  663.   If set to a string, that string is executed as a command when a
  664.   carriage return is typed.
  665.   Otherwise, carriage return prints the next undeleted message.
  666. + .TP
  667.   .B newmail_icon
  668.   (String)
  669.   Set to a pathname for an alternate icon pixmap to use
  670. ***************
  671. *** 4578,4584 ****
  672.   When replying to mail,
  673.   .I Mush
  674.   searches for return paths from the message by searching for
  675. ! the message headings \*QReply-to\*U, \*QReturn-path\*U, and \*QFrom:\*U,
  676.   in that order.
  677.   If none are found, then the first line of the
  678.   message created by the delivery system is parsed and the address
  679. --- 4579,4585 ----
  680.   When replying to mail,
  681.   .I Mush
  682.   searches for return paths from the message by searching for
  683. ! the message headings \*QReply-to\*U, \*QFrom:\*U, and \*QReturn-path\*U,
  684.   in that order.
  685.   If none are found, then the first line of the
  686.   message created by the delivery system is parsed and the address
  687. ***************
  688. *** 4778,4788 ****
  689.   to print additional information about the sending process.
  690.   .TP
  691.   .B verify
  692. ! (Boolean)
  693. ! When through editing messages, just before sending,
  694.   .B verify
  695. ! will ask you if you want to send, continue editing, or abort the
  696. ! whole message altogether.
  697.   .TP
  698.   .B version
  699.   (Read-only String)
  700. --- 4779,4805 ----
  701.   to print additional information about the sending process.
  702.   .TP
  703.   .B verify
  704. ! (Boolean/Multivalued)
  705. ! This variable causes mush to request confirmation of certain actions.
  706. ! If set only as a boolean (no string value), 
  707.   .B verify
  708. ! will ask just before sending mail whether you want to send, continue
  709. ! editing, or abort the message altogether.
  710. ! Otherwise,
  711. ! .B verify
  712. ! can be set to one or more of these words:
  713. ! .sp
  714. ! .nf
  715. ! .ta 1.5i
  716. ! .in +4
  717. ! .\" \& escapes are to make obvious the tab after each word
  718. ! mail\&\&    Confirm sending of mail (as above).
  719. ! save\&\&    Confirm save-item selections (tool only).
  720. ! .in -4
  721. ! .fi
  722. ! .sp
  723. ! Appending of messages to files that are not folders is verified regardless
  724. ! of the setting of this variable.
  725.   .TP
  726.   .B version
  727.   (Read-only String)
  728. *** /tmp/,RCSt1002753    Wed Jul 11 21:33:19 1990
  729. --- mush.h    Wed Jul  4 16:36:00 1990
  730. ***************
  731. *** 379,384 ****
  732. --- 379,385 ----
  733.   #define QUOTE_MACRO ULBIT(23) /* protect current macro from recursive expan.. */
  734.   #define NEW_FRAME   ULBIT(24) /* toolmode should build a new frame for pager */
  735.   #define HELP_TEXT   ULBIT(25) /* create textsw frame for paging help messages */
  736. + #define CORRUPTED   ULBIT(26) /* error loading new mail has occurred */
  737.   
  738.   /* flags to control composition */
  739.   #define VERBOSE        ULBIT(0)  /* verbose flag for sendmail */
  740. *** /tmp/,RCSt1002753    Wed Jul 11 21:33:25 1990
  741. --- signals.c    Tue Jul 10 08:38:54 1990
  742. ***************
  743. *** 74,79 ****
  744. --- 74,86 ----
  745.           wrapcolumn = atoi(fix);
  746.       }
  747.       turnoff(glob_flags, IS_GETTING);
  748. + #ifdef SYSV
  749. +     /* Interrupting "await" leaves an alarm timer running, which
  750. +      * some SysV systems mishandle.  Clean up.
  751. +      */
  752. +     if (!istool)
  753. +         (void) signal(SIGALRM, SIG_IGN);
  754. + #endif /* SYSV */
  755.       longjmp(jmpbuf, 1);
  756.       } else
  757.       puts("exiting"), cleanup(sig);
  758. ***************
  759. *** 176,182 ****
  760.           c = lower(*buf);
  761.       }
  762.       if (c != 'n' && *tempfile) {
  763. !     if (sig == SIGHUP && do_set(set_options, "hangup") && copyback(NULL))
  764.           (void) unlink(tempfile);
  765.       else if (unlink(tempfile) && !sig && errno != ENOENT)
  766.           error(tempfile);
  767. --- 183,190 ----
  768.           c = lower(*buf);
  769.       }
  770.       if (c != 'n' && *tempfile) {
  771. !     if (sig == SIGHUP && do_set(set_options, "hangup") &&
  772. !         copyback(NULL) && isoff(glob_flags, CORRUPTED))
  773.           (void) unlink(tempfile);
  774.       else if (unlink(tempfile) && !sig && errno != ENOENT)
  775.           error(tempfile);
  776. ***************
  777. *** 229,238 ****
  778.       if (isoff(glob_flags, READ_ONLY))
  779.           (void) emptyfile(&tmpf, tempfile);
  780.       current_msg = msg_cnt = 0;
  781.       }
  782.       if (load_folder(mailfile, 1, NULL) < 1) {
  783.       print("Can't load new mail: \"%s\" may be corrupted!\n", mailfile);
  784. !     turnon(glob_flags, DO_UPDATE);    /* Don't reload without rewrite */
  785.       return update_size;
  786.       /* NOTE: The above is used to stop check_new_mail() from calling
  787.        * show_new_mail(), while still allowing copyback() to detect the
  788. --- 237,249 ----
  789.       if (isoff(glob_flags, READ_ONLY))
  790.           (void) emptyfile(&tmpf, tempfile);
  791.       current_msg = msg_cnt = 0;
  792. +     turnoff(glob_flags, CORRUPTED);
  793.       }
  794. +     if (ison(glob_flags, CORRUPTED))
  795. +     return 0;
  796.       if (load_folder(mailfile, 1, NULL) < 1) {
  797.       print("Can't load new mail: \"%s\" may be corrupted!\n", mailfile);
  798. !     turnon(glob_flags, CORRUPTED);
  799.       return update_size;
  800.       /* NOTE: The above is used to stop check_new_mail() from calling
  801.        * show_new_mail(), while still allowing copyback() to detect the
  802. ***************
  803. *** 240,245 ****
  804. --- 251,260 ----
  805.        * should be a better-defined way to handle this.
  806.        */
  807.       }
  808. +     /* Prevent both bogus "new mail" messages and missed new mail */
  809. +     last_size = msg[msg_cnt].m_offset;
  810. +     if (!strcmp(mailfile, spoolfile))
  811. +     spool_size = last_size;
  812.       if (last_spool_size != spool_size) {
  813.       if (update_size)
  814.           last_spool_size = spool_size;
  815. *** /tmp/,RCSt1002753    Wed Jul 11 21:33:27 1990
  816. --- strings.c    Wed Jul  4 07:26:33 1990
  817. ***************
  818. *** 442,444 ****
  819. --- 442,458 ----
  820.       *s_out = 0;
  821.       return start;
  822.   }
  823. + 
  824. + /*
  825. +  * This routine returns a pointer to the file portion of a path/file name.
  826. +  */
  827. + char *
  828. + basename(path)
  829. + register char *path;
  830. + {
  831. +     char *file;
  832. + 
  833. +     if (file = rindex(path, '/'))
  834. +     return ++file;
  835. +     return path;
  836. + }
  837. *** /tmp/,RCSt1002753    Wed Jul 11 21:33:28 1990
  838. --- strings.h    Wed Jul  4 15:51:50 1990
  839. ***************
  840. *** 21,26 ****
  841. --- 21,27 ----
  842.       *Sprintf(),        /* See comments above function in strings.c */
  843.       *argv_to_string(),    /* convert a vector of strings into one string */
  844.       *any(),         /* return first char in str2 that exists in str1 */
  845. +     *basename(),    /* return the last component of a file path */
  846.       *ctrl_strcpy(),    /* string copy converting control chars to ascii */
  847.       *itoa(),        /* return a string representation of a number */
  848.       *lcase_strcpy(),    /* just like strcpy, but convert all chars to lower */
  849. *** /tmp/,RCSt1002753    Wed Jul 11 21:33:29 1990
  850. --- version.h    Wed Jul 11 21:30:09 1990
  851. ***************
  852. *** 1,7 ****
  853.   /* @(#)version.h    (c) Copyright 1989 (Dan Heller) */
  854.   
  855.   #define MUSHNAME    "Mail User's Shell"
  856. ! #define RELEASE_DATE    "5/02/90"
  857.   #define RELEASE        7
  858.   #define REVISION    "1"
  859. ! #define PATCHLEVEL    1
  860. --- 1,7 ----
  861.   /* @(#)version.h    (c) Copyright 1989 (Dan Heller) */
  862.   
  863.   #define MUSHNAME    "Mail User's Shell"
  864. ! #define RELEASE_DATE    "7/11/90"
  865.   #define RELEASE        7
  866.   #define REVISION    "1"
  867. ! #define PATCHLEVEL    2
  868. *** /tmp/,RCSt1002753    Wed Jul 11 21:33:29 1990
  869. --- viewopts.c    Wed Jul  4 07:39:03 1990
  870. ***************
  871. *** 184,190 ****
  872.       { "unix", NULL,
  873.       "Non-mush commands are considered to be UNIX commands." },
  874.       { "verify", NULL,
  875. !     "Verify to send, re-edit, or abort letter after editing." },
  876.       { "visual", "Visual editor:",
  877.       "Visual editor for messages (default = $editor or env VISUAL)."},
  878.       { "warning", NULL,
  879. --- 184,190 ----
  880.       { "unix", NULL,
  881.       "Non-mush commands are considered to be UNIX commands." },
  882.       { "verify", NULL,
  883. !     "Verify before acting in various situations, such as sending mail." },
  884.       { "visual", "Visual editor:",
  885.       "Visual editor for messages (default = $editor or env VISUAL)."},
  886.       { "warning", NULL,
  887. *** /tmp/,RCSt1002926    Wed Jul 11 21:33:32 1990
  888. --- doproc.c    Wed Jul 11 21:26:46 1990
  889. ***************
  890. *** 139,148 ****
  891.       if (!(p = panel_get_value(item)) || !*p &&
  892.           (!(p = do_set(set_options, "mbox")) || !*p))
  893.           p = DEF_MBOX;
  894. !     (void) sprintf(msgstr, "%s in \"%s\"?", buf, trim_filename(p));
  895. !     if (ask(msgstr) != TRUE) {
  896. !         wprint("Message not saved\n");
  897. !         return PANEL_NONE;
  898.       }
  899.       (void) strcpy(b, p); /* now add to command */
  900.       }
  901. --- 139,150 ----
  902.       if (!(p = panel_get_value(item)) || !*p &&
  903.           (!(p = do_set(set_options, "mbox")) || !*p))
  904.           p = DEF_MBOX;
  905. !     if (chk_option("verify", "save")) {
  906. !         (void) sprintf(msgstr, "%s in \"%s\"?", buf, trim_filename(p));
  907. !         if (ask(msgstr) != TRUE) {
  908. !         wprint("Message not saved\n");
  909. !         return PANEL_NONE;
  910. !         }
  911.       }
  912.       (void) strcpy(b, p); /* now add to command */
  913.       }
  914. ***************
  915. *** 153,163 ****
  916. --- 155,231 ----
  917.       return PANEL_NONE;
  918.   }
  919.   
  920. + #ifndef NO_WALK_MENUS
  921. + void
  922. + xx_file_dir(item, value)
  923. + Panel_item item;
  924. + char * value;
  925. + {
  926. +     char buf[BUFSIZ];
  927. +     u_long bang = ison(glob_flags, IGN_BANG);
  928. + 
  929. +     if (item == folder_item) {
  930. +     (void) sprintf(buf, "folder %s ",
  931. +         (ison(glob_flags, READ_ONLY) || ison(glob_flags, DO_UPDATE) &&
  932. +         !ask("Folder has been modified.  Update changes?"))? "!" : "");
  933. +     strcat(buf, value);
  934. +     } else if (item == save_item) {
  935. +     char msgstr[BUFSIZ], *p;
  936. +     register char *p2 = (char *)panel_get_value(msg_num_item);
  937. +     (void) strcpy(buf, "save ");
  938. + 
  939. +     if (p2 && *p2) {
  940. +         (void) strcat(buf, p2);
  941. +         (void) strcat(buf, " ");
  942. +     }
  943. +     (void) strcat(buf, value);
  944. +     if (chk_option("verify", "save")) {
  945. +         (void) sprintf(msgstr, "Save in %s? ", trim_filename(value));
  946. +         if (ask(msgstr) != TRUE) {
  947. +         wprint("Message not saved\n");
  948. +         return;
  949. +         }
  950. +     }
  951. +     }
  952. +     turnon(glob_flags, IGN_BANG);
  953. +     (void) cmd_line(buf, msg_list);
  954. +     if (!bang)
  955. +     turnoff(glob_flags, IGN_BANG);
  956. +     (void) panel_set(item, PANEL_VALUE, 0, NULL); /* remove last value */
  957. + }
  958. + 
  959.   /*
  960.    * callback routine for the panel items that need filename input.
  961.    * (folder and save)
  962.    */
  963.   void
  964. + do_file_dir(item, event)
  965. + Panel_item item;
  966. + Event *event;
  967. + {
  968. +     if (item == folder_item) {
  969. +     char *p = panel_get_value(folder_text_item);
  970. +     if (!*p) {
  971. +         ok_box("Enter folder name.");
  972. +         return;
  973. +     }
  974. +     xx_file_dir(item, p);
  975. +     } else if (item == save_item) {
  976. +     if (!strcmp("Filename:", panel_get(file_item,PANEL_LABEL_STRING))) {
  977. +         event_id(event) = '\n';  /* let file_dir think it got a \n */
  978. +         file_dir(file_item, event);
  979. +         return;
  980. +     }
  981. +     }
  982. +     (void) panel_set(item, PANEL_VALUE, 0, NULL); /* remove last value */
  983. + }
  984. + #else /* NO_WALK_MENUS */
  985. + 
  986. + /*
  987. +  * callback routine for the panel items that need filename input.
  988. +  * (folder and save)
  989. +  */
  990. + void
  991.   do_file_dir(item, value, event)
  992.   Panel_item item;
  993.   int value;
  994. ***************
  995. *** 206,215 ****
  996.           (void) strcat(buf, p);
  997.       } else
  998.           (void) strcat(buf, p = panel_get(item, PANEL_CHOICE_STRING, value));
  999. !     (void) sprintf(msgstr, "Save in %s? ", trim_filename(p));
  1000. !     if (ask(msgstr) != TRUE) {
  1001. !         wprint("Message not saved\n");
  1002. !         return;
  1003.       }
  1004.       }
  1005.       turnon(glob_flags, IGN_BANG);
  1006. --- 274,285 ----
  1007.           (void) strcat(buf, p);
  1008.       } else
  1009.           (void) strcat(buf, p = panel_get(item, PANEL_CHOICE_STRING, value));
  1010. !     if (chk_option("verify", "save")) {
  1011. !         (void) sprintf(msgstr, "Save in %s? ", trim_filename(p));
  1012. !         if (ask(msgstr) != TRUE) {
  1013. !         wprint("Message not saved\n");
  1014. !         return;
  1015. !         }
  1016.       }
  1017.       }
  1018.       turnon(glob_flags, IGN_BANG);
  1019. ***************
  1020. *** 218,223 ****
  1021. --- 288,294 ----
  1022.       turnoff(glob_flags, IGN_BANG);
  1023.       (void) panel_set(item, PANEL_VALUE, 0, NULL); /* remove last value */
  1024.   }
  1025. + #endif /* NO_WALK_MENUS */
  1026.   
  1027.   /*ARGSUSED*/
  1028.   void
  1029. *** /tmp/,RCSt1002926    Wed Jul 11 21:33:35 1990
  1030. --- hdr_sw.c    Wed Jul 11 21:26:47 1990
  1031. ***************
  1032. *** 19,26 ****
  1033.   
  1034.   static Notify_value scroll_hdr();
  1035.   static void msg_menu_func(), do_menu(), msg_menu_notify();
  1036. ! static Menu msg_menu;
  1037. ! static Menu_item cur_msg_item;
  1038.   
  1039.   void
  1040.   make_hdr_sw(parent)
  1041. --- 19,25 ----
  1042.   
  1043.   static Notify_value scroll_hdr();
  1044.   static void msg_menu_func(), do_menu(), msg_menu_notify();
  1045. ! Menu msg_menu;
  1046.   
  1047.   void
  1048.   make_hdr_sw(parent)
  1049. ***************
  1050. *** 261,267 ****
  1051.       char *data;    /* Menu item client data. */
  1052.   };
  1053.   
  1054. ! static void
  1055.   get_msg_menu()
  1056.   {
  1057.       int i;
  1058. --- 260,266 ----
  1059.       char *data;    /* Menu item client data. */
  1060.   };
  1061.   
  1062. ! void
  1063.   get_msg_menu()
  1064.   {
  1065.       int i;
  1066. ***************
  1067. *** 278,284 ****
  1068.       { "Help",            HELP_MSG  },
  1069.       };
  1070.   
  1071. !     msg_menu = menu_create(MENU_NOTIFY_PROC, msg_menu_notify, NULL);
  1072.       for (i = 0; i < ArraySize(msg_items); i++) {
  1073.       mi = menu_create_item(MENU_STRING,    msg_items[i].str,
  1074.                     MENU_CLIENT_DATA,    msg_items[i].data,
  1075. --- 277,283 ----
  1076.       { "Help",            HELP_MSG  },
  1077.       };
  1078.   
  1079. !     msg_menu = menu_create(MENU_NOTIFY_PROC, menu_return_item, NULL);
  1080.       for (i = 0; i < ArraySize(msg_items); i++) {
  1081.       mi = menu_create_item(MENU_STRING,    msg_items[i].str,
  1082.                     MENU_CLIENT_DATA,    msg_items[i].data,
  1083. ***************
  1084. *** 288,301 ****
  1085.   }
  1086.   
  1087.   static void
  1088. - msg_menu_notify(menu, item)
  1089. - Menu menu;
  1090. - Menu_item item;
  1091. - {
  1092. -     cur_msg_item = item;
  1093. - }
  1094. - 
  1095. - static void
  1096.   do_menu(can_sw, event, fd, message)
  1097.   Canvas can_sw;
  1098.   Event *event;
  1099. --- 287,292 ----
  1100. ***************
  1101. *** 302,307 ****
  1102. --- 293,300 ----
  1103.   int fd, message;
  1104.   {
  1105.       char *action;
  1106. +     char * save_place;
  1107. +     Menu_item cur_msg_item;
  1108.       static char buf[16];
  1109.   
  1110.       if (!msg_cnt) {
  1111. ***************
  1112. *** 323,329 ****
  1113.       box(0, 5 + line * l_height(),
  1114.           hdr_rect->r_width, 5 + (line+1) * l_height());
  1115.       /* show menu */
  1116. !     menu_show(msg_menu, can_sw, event, NULL);
  1117.       /* remove feedback */
  1118.       box(0, 5 + line * l_height(),
  1119.           hdr_rect->r_width, 5 + (line+1) * l_height());
  1120. --- 316,322 ----
  1121.       box(0, 5 + line * l_height(),
  1122.           hdr_rect->r_width, 5 + (line+1) * l_height());
  1123.       /* show menu */
  1124. !     cur_msg_item = menu_show(msg_menu, can_sw, event, NULL);
  1125.       /* remove feedback */
  1126.       box(0, 5 + line * l_height(),
  1127.           hdr_rect->r_width, 5 + (line+1) * l_height());
  1128. ***************
  1129. *** 330,337 ****
  1130.       /* if user selected something, figure out what was selected. */
  1131.       if (!cur_msg_item)
  1132.           return;
  1133. !     action = (char *) menu_get(cur_msg_item, MENU_CLIENT_DATA);
  1134. !     cur_msg_item = (Menu_item)NULL;
  1135.       } else
  1136.       action = (char *) event;
  1137.   
  1138. --- 323,338 ----
  1139.       /* if user selected something, figure out what was selected. */
  1140.       if (!cur_msg_item)
  1141.           return;
  1142. ! #ifndef NO_WALK_MENUS
  1143. !         if ((Menu)menu_get(cur_msg_item, MENU_PARENT) == msg_menu) {
  1144. !         action = (char *) menu_get(cur_msg_item, MENU_CLIENT_DATA);
  1145. !         } else {
  1146. !         save_place = (char *)menu_get(cur_msg_item, MENU_CLIENT_DATA);
  1147. !         action = SAVE_MSG;
  1148. !         }   /* endif */
  1149. ! #else /* NO_WALK_MENUS */
  1150. !         action = (char *) menu_get(cur_msg_item, MENU_CLIENT_DATA);
  1151. ! #endif /* NO_WALK_MENUS */
  1152.       } else
  1153.       action = (char *) event;
  1154.   
  1155. ***************
  1156. *** 341,348 ****
  1157.           extern Panel_item msg_num_item, save_item;
  1158.           (void) panel_set(msg_num_item, PANEL_VALUE,
  1159.                       sprintf(buf, "%d", message+1), NULL);
  1160. !         event_id(event) = MS_LEFT;
  1161. !         do_file_dir(save_item, 0, event);
  1162.           (void) panel_set(msg_num_item, PANEL_VALUE, NO_STRING, NULL);
  1163.       }
  1164.       when HELP_MSG :
  1165. --- 342,357 ----
  1166.           extern Panel_item msg_num_item, save_item;
  1167.           (void) panel_set(msg_num_item, PANEL_VALUE,
  1168.                       sprintf(buf, "%d", message+1), NULL);
  1169. ! #ifndef NO_WALK_MENUS
  1170. !         if (*save_place == '\0') { /* magic to mean "use Filename:" */
  1171. !             do_file_dir(save_item, event);
  1172. !         } else {
  1173. !             xx_file_dir(save_item, save_place);
  1174. !         }   /* endif */
  1175. ! #else /* NO_WALK_MENUS */
  1176. !         event_id(event) = MS_LEFT;
  1177. !         do_file_dir(save_item, 0, event);
  1178. ! #endif /* NO_WALK_MENUS */
  1179.           (void) panel_set(msg_num_item, PANEL_VALUE, NO_STRING, NULL);
  1180.       }
  1181.       when HELP_MSG :
  1182. *** /tmp/,RCSt1002926    Wed Jul 11 21:33:38 1990
  1183. --- panels.c    Wed Jul 11 21:26:47 1990
  1184. ***************
  1185. *** 31,36 ****
  1186. --- 31,47 ----
  1187.       save_item,        /* saves messages */
  1188.       sub_hdr_item[6];    /* display items that just sit there and give help */
  1189.   
  1190. + #ifndef NO_WALK_MENUS
  1191. + Panel
  1192. +     folder_panel,
  1193. +     save_panel;
  1194. + Menu      folder_menu;    /* Menu of folders for folder button */
  1195. + Menu      save_menu;    /* Menu of folders for save button */
  1196. + Menu      hdr_save_menu;/* Menu of folders for save option in hdr window */
  1197. + extern Menu msg_menu;    /* header subwindow menu, defined in hdr_sw.c */
  1198. + walk_menu_event();
  1199. + #endif /* NO_WALK_MENUS */
  1200. + 
  1201.   /* These global panel items for letter composition should eventually go away */
  1202.   Panel_item
  1203.       edit_item,        /* edit a message */
  1204. ***************
  1205. *** 75,80 ****
  1206. --- 86,101 ----
  1207.       PANEL_NOTIFY_PROC,         do_help,
  1208.       NULL);
  1209.   
  1210. + #ifndef NO_WALK_MENUS
  1211. +     folder_panel = panel;
  1212. +     folder_item = panel_create_item(panel, PANEL_BUTTON,
  1213. +     PANEL_ATTRIBUTE_LIST,         button_args,
  1214. +     PANEL_LABEL_IMAGE,
  1215. +         panel_button_image(panel, "Folder", 6, mush_font),
  1216. +     PANEL_NOTIFY_PROC,         do_file_dir,
  1217. +     PANEL_EVENT_PROC,        walk_menu_event,
  1218. +     NULL);
  1219. + #else /* NO_WALK_MENUS */
  1220.       folder_item = panel_create_item(panel, PANEL_CHOICE,
  1221.       PANEL_ATTRIBUTE_LIST,         choice_args,
  1222.       PANEL_LABEL_IMAGE,
  1223. ***************
  1224. *** 85,90 ****
  1225. --- 106,112 ----
  1226.       NULL);
  1227.   
  1228.       add_folder_to_menu(folder_item, 3);
  1229. + #endif /* NO_WALK_MENUS */
  1230.   
  1231.       folder_text_item = panel_create_item(panel, PANEL_TEXT,
  1232.       PANEL_ATTRIBUTE_LIST,         choice_args,
  1233. ***************
  1234. *** 214,219 ****
  1235. --- 236,252 ----
  1236.       PANEL_NOTIFY_PROC,         delete_mail,
  1237.       NULL);
  1238.   
  1239. + #ifndef NO_WALK_MENUS
  1240. +     save_panel = panel;
  1241. +     save_item = panel_create_item(panel, PANEL_BUTTON,
  1242. +     PANEL_ATTRIBUTE_LIST,         button_args,
  1243. +     PANEL_LABEL_IMAGE, panel_button_image(panel, "Save", 4, mush_font),
  1244. +     PANEL_NOTIFY_PROC,         do_file_dir,
  1245. +     PANEL_EVENT_PROC,        walk_menu_event,
  1246. +     NULL);
  1247. + 
  1248. +     create_folder_menus();
  1249. + #else /* NO_WALK_MENUS */
  1250.       {
  1251.       char *mbox = do_set(set_options, "mbox");
  1252.       if (!mbox || !*mbox)
  1253. ***************
  1254. *** 227,232 ****
  1255. --- 260,266 ----
  1256.       }
  1257.   
  1258.       add_folder_to_menu(save_item, 1);
  1259. + #endif /* NO_WALK_MENUS */
  1260.   
  1261.       file_item = panel_create_item(panel, PANEL_TEXT,
  1262.       PANEL_ATTRIBUTE_LIST,         choice_args,
  1263. ***************
  1264. *** 391,445 ****
  1265.   
  1266.   #include "glob.h"
  1267.   
  1268. ! #ifdef WALK_MENUS
  1269. ! folder_menu_notify(menu, mi)
  1270. ! Menu menu;
  1271. ! Menu_item mi;
  1272. ! {
  1273. ! }
  1274.   
  1275. ! static Menu_item
  1276. ! add_path_to_menu(menu, path)
  1277. ! Menu menu;
  1278.   char *path;
  1279.   {
  1280. -     DIR            *dirp;
  1281. -     struct dirent    *dp;
  1282. -     struct stat     s_buf;
  1283.       Menu_item        mi;
  1284.       Menu        next_menu;
  1285.       char        buf[MAXPATHLEN];
  1286.   
  1287.       /* don't add a folder to the list if user can't read it */
  1288. !     if (stat(path, &s_buf) == -1 || !(s_buf.st_mode & S_IREAD))
  1289.       return NULL;
  1290.       if ((s_buf.st_mode & S_IFMT) == S_IFDIR) {
  1291.       int cnt = 0;
  1292. !     if (!(dirp = opendir(path)))
  1293. !         return NULL; /* don't bother adding to list if we can't scan it */
  1294. !     next_menu = menu_create(MENU_NOTIFY_PROC, folder_menu_notify, NULL);
  1295. !     while (dp = readdir(dirp))
  1296. !         if (strcmp(dp->d_name, ".") && strcmp(dp->d_name, ".."))
  1297. !         if (mi = add_path_to_menu(next_menu,
  1298. !             sprintf(buf, "%s/%s", path, dp->d_name))) {
  1299. !             menu_set(next_menu, MENU_APPEND_ITEM, mi, NULL);
  1300. !             cnt++;
  1301.           }
  1302. !     closedir(dirp);
  1303. !     mi = menu_create_item(MENU_STRING, trim_filename(path), NULL);
  1304. !     if (!cnt) {
  1305.           menu_destroy(next_menu);
  1306.           menu_set(mi, MENU_INACTIVE, TRUE, NULL);
  1307. !     } else
  1308.           menu_set(mi, MENU_PULLRIGHT, next_menu, NULL);
  1309. !     return mi;
  1310.       }
  1311. !     /* we should check that this file is actually a folder */
  1312. !     return menu_create_item(MENU_STRING, trim_filename(path), NULL);
  1313.   }
  1314. - #endif /* WALK_MENUS */
  1315.   
  1316.   static
  1317.   add_path_to_menu(item, path, n)
  1318.   Panel_item item;
  1319.   char *path;
  1320. --- 425,675 ----
  1321.   
  1322.   #include "glob.h"
  1323.   
  1324. ! #ifndef NO_WALK_MENUS
  1325.   
  1326. ! static
  1327. ! Menu_item
  1328. ! make_folder_item(path)
  1329.   char *path;
  1330.   {
  1331.       Menu_item        mi;
  1332. +     Menu_item        sub_mi;
  1333.       Menu        next_menu;
  1334. +     char        **names, **np;
  1335. +     struct stat     s_buf;
  1336.       char        buf[MAXPATHLEN];
  1337.   
  1338. +     if (glob(path, "*/{.,..}")) {
  1339. +     return NULL;
  1340. +     }
  1341. + 
  1342.       /* don't add a folder to the list if user can't read it */
  1343. !     if (stat(path, &s_buf) == -1 || !(s_buf.st_mode & S_IREAD)) {
  1344.       return NULL;
  1345. +     }
  1346. +     mi = menu_create_item(
  1347. +     MENU_STRING,        savestr(basename(trim_filename(path))),
  1348. +     MENU_CLIENT_DATA,    NULL,
  1349. +     MENU_RELEASE,        /* no value */
  1350. +     NULL);
  1351.       if ((s_buf.st_mode & S_IFMT) == S_IFDIR) {
  1352.       int cnt = 0;
  1353. !     next_menu = menu_create(MENU_NOTIFY_PROC, menu_return_item, NULL);
  1354. !     sprintf(buf, "%s/{.*,*}", path);
  1355. !     if (filexp(buf, &names) > 0) {
  1356. !         for (np = names; np && *np; np++) {
  1357. !         if ((sub_mi = make_folder_item(*np)) != NULL) {
  1358. !             menu_set(next_menu, MENU_APPEND_ITEM, sub_mi, NULL);
  1359. !             ++cnt;
  1360.           }
  1361. !         }
  1362. !         free_vec(names);
  1363. !     }
  1364. !     if (! cnt) {
  1365.           menu_destroy(next_menu);
  1366.           menu_set(mi, MENU_INACTIVE, TRUE, NULL);
  1367. !     } else {
  1368.           menu_set(mi, MENU_PULLRIGHT, next_menu, NULL);
  1369. !     }
  1370. !     } else if (test_folder(path, NULL)) {
  1371. !     menu_set(mi, MENU_CLIENT_DATA, savestr(path), NULL);
  1372. !     } else {
  1373. !     menu_destroy(mi);
  1374. !     mi = NULL;
  1375.       }
  1376. !     return mi;
  1377.   }
  1378.   
  1379.   static
  1380. + void
  1381. + destroy_folder_item(menu_item, menu_type)
  1382. + Menu_item menu_item;
  1383. + Menu_attribute menu_type;
  1384. + {
  1385. +     char    *ptr;
  1386. + 
  1387. +     if (menu_type == MENU_ITEM) {
  1388. +     if ((ptr = (char *)menu_get(menu_item, MENU_STRING)) != NULL) {
  1389. +         free(ptr);
  1390. +     }
  1391. +     if ((ptr = (char *)menu_get(menu_item, MENU_CLIENT_DATA)) != NULL) {
  1392. +         free(ptr);
  1393. +     }
  1394. +     }
  1395. +     return;
  1396. + }
  1397. + 
  1398. + create_folder_menus()
  1399. + {
  1400. +     int       item_number;
  1401. +     Menu      menu;
  1402. +     Menu_item      menu_item;
  1403. +     int       nitems;
  1404. +     char     *mbox;
  1405. +     char     *tmp = NULL;
  1406. +     char     *p;
  1407. +     static int      menus_exist = 0;
  1408. + 
  1409. +     if (menus_exist) {
  1410. +     /* remove duplicated menu items from save_menu */
  1411. +     for (item_number = (int)menu_get(save_menu, MENU_NITEMS) ;
  1412. +           item_number > 1 ; --item_number) {
  1413. +         menu_set(save_menu, MENU_REMOVE, item_number, NULL);
  1414. +     }
  1415. +     /* remove duplicated menu items from hdr_save_menu */
  1416. +     for (item_number = (int)menu_get(hdr_save_menu, MENU_NITEMS) ;
  1417. +           item_number > 1 ; --item_number) {
  1418. +         menu_set(save_menu, MENU_REMOVE, item_number, NULL);
  1419. +     }
  1420. +     menu_destroy_with_proc(hdr_save_menu, destroy_folder_item);
  1421. +     menu_destroy_with_proc(save_menu, destroy_folder_item);
  1422. +     menu_destroy_with_proc(folder_menu, destroy_folder_item);
  1423. +     }
  1424. + 
  1425. +     if (!(p = do_set(set_options, "folder")) || !*p) {
  1426. +     p = DEF_FOLDER;
  1427. +     }
  1428. +     if (p) {
  1429. +     int x = 0;
  1430. +     tmp = getpath(p, &x);
  1431. +     if (x == -1) {
  1432. +         if (errno != ENOENT)
  1433. +         print("%s: %s\n", p, tmp);
  1434. +         tmp = NULL;
  1435. +     }
  1436. +     }
  1437. +     menu = NULL;
  1438. +     menu_item = NULL;
  1439. +     if (tmp != NULL) {
  1440. +     if ((menu_item = make_folder_item(tmp)) != NULL) {
  1441. +         if ((menu = menu_get(menu_item, MENU_PULLRIGHT)) != NULL) {
  1442. +             /* $folder was a directory, use the pullright
  1443. +          * instead of the directory menu item.
  1444. +          */
  1445. +         /* "unhook" the pullright (so it is not released) */
  1446. +         menu_set(menu_item, MENU_PULLRIGHT, NULL, NULL);
  1447. +         /* destroy the menu item */
  1448. +         menu_destroy_with_proc(menu_item, destroy_folder_item);
  1449. +         menu_item = NULL;
  1450. +         }
  1451. +     }
  1452. +     }
  1453. +     if (menu == NULL) {
  1454. +     menu = menu_create(MENU_NOTIFY_PROC, menu_return_item, NULL);
  1455. +     if (menu_item != NULL) {
  1456. +         menu_set(menu, MENU_APPEND_ITEM, menu_item, NULL);
  1457. +     }
  1458. +     }
  1459. + 
  1460. +     /* create save_menu */
  1461. +     save_menu = menu_create(MENU_NOTIFY_PROC, menu_return_item, NULL);
  1462. +     /* add magic first item */
  1463. +     mbox = do_set(set_options, "mbox");
  1464. +     if (!mbox || !*mbox) {
  1465. +     mbox = DEF_MBOX;
  1466. +     }
  1467. +     menu_item = menu_create_item(
  1468. +     MENU_STRING,        savestr(trim_filename(mbox)),
  1469. +     MENU_CLIENT_DATA,    savestr(mbox),
  1470. +     MENU_RELEASE,        /* no value */
  1471. +     NULL);
  1472. +     menu_set(save_menu, MENU_APPEND_ITEM, menu_item, NULL);
  1473. +     /* copy menu for save_menu */
  1474. +     nitems = (int)menu_get(menu, MENU_NITEMS);
  1475. +     for (item_number = 1 ; item_number <= nitems ; ++item_number) {
  1476. +     menu_set(save_menu,
  1477. +         MENU_APPEND_ITEM, menu_get(menu, MENU_NTH_ITEM, item_number),
  1478. +         NULL);
  1479. +     }
  1480. + 
  1481. +     /* create hdr_save_menu */
  1482. +     hdr_save_menu = menu_create(MENU_NOTIFY_PROC, menu_return_item, NULL);
  1483. +     /* add magic first item */
  1484. +     menu_item = menu_create_item(
  1485. +     MENU_STRING,        savestr("use Filename:"),
  1486. +     MENU_CLIENT_DATA,    savestr(""),    /* magic */
  1487. +     MENU_RELEASE,        /* no value */
  1488. +     NULL);
  1489. +     menu_set(hdr_save_menu, MENU_APPEND_ITEM, menu_item, NULL);
  1490. +     /* copy save_menu for hdr_save_menu */
  1491. +     nitems = (int)menu_get(save_menu, MENU_NITEMS);
  1492. +     for (item_number = 1 ; item_number <= nitems ; ++item_number) {
  1493. +     menu_set(hdr_save_menu,
  1494. +         MENU_APPEND_ITEM, menu_get(save_menu, MENU_NTH_ITEM, item_number),
  1495. +         NULL);
  1496. +     }
  1497. +     /* Make sure the header subwindow menu exists so we can tack on a
  1498. +      * pullright for Save.
  1499. +      */
  1500. +     if (! msg_menu) {
  1501. +     get_msg_menu();
  1502. +     }
  1503. +     if ((menu_item = menu_find(msg_menu, MENU_STRING, "Save", NULL))
  1504. +         != NULL) {
  1505. +     menu_set(menu_item, MENU_PULLRIGHT, hdr_save_menu, NULL);
  1506. +     }
  1507. + 
  1508. +     /* insert folder-specific initial options to menu */
  1509. +     folder_menu = menu;
  1510. +     menu_item = menu_create_item(
  1511. +     MENU_STRING,        savestr("System Mailbox"),
  1512. +     MENU_CLIENT_DATA,    savestr("%"),
  1513. +     MENU_RELEASE,        /* no value */
  1514. +     NULL);
  1515. +     menu_set(folder_menu, MENU_INSERT, 0, menu_item, NULL);
  1516. +     menu_item = menu_create_item(
  1517. +     MENU_STRING,        savestr("Main Mailbox"),
  1518. +     MENU_CLIENT_DATA,    savestr("&"),
  1519. +     MENU_RELEASE,        /* no value */
  1520. +     NULL);
  1521. +     menu_set(folder_menu, MENU_INSERT, 1, menu_item, NULL);
  1522. +     menu_item = menu_create_item(
  1523. +     MENU_STRING,        savestr("Last Accessed Folder"),
  1524. +     MENU_CLIENT_DATA,    savestr("#"),
  1525. +     MENU_RELEASE,        /* no value */
  1526. +     NULL);
  1527. +     menu_set(folder_menu, MENU_INSERT, 2, menu_item, NULL);
  1528. + 
  1529. +     menus_exist = 1;
  1530. +     return;
  1531. + }
  1532. + 
  1533. + static
  1534. + walk_menu_event(item, event)
  1535. + Panel_item item;
  1536. + Event *event;
  1537. + {
  1538. +     char     *folder_name;
  1539. +     Menu_item       selection;
  1540. +     Menu      menu;
  1541. +     Panel      panel;
  1542. +     void xx_file_dir();
  1543. + 
  1544. +     if (event_id(event) == MS_RIGHT && event_is_down(event)) {
  1545. +     if (item == folder_item) {
  1546. +         menu = folder_menu;
  1547. +         panel = folder_panel;
  1548. +     } else {
  1549. +         menu = save_menu;
  1550. +         panel = save_panel;
  1551. +     }
  1552. +     selection = (Menu_item)menu_show(menu, panel, event, 0);
  1553. +     if (! selection) {
  1554. +         /* no selection was made */
  1555. +         return;
  1556. +     }
  1557. +     if ((folder_name = (char *)menu_get(selection, MENU_CLIENT_DATA))
  1558. +         != NULL) {
  1559. +         xx_file_dir(item, folder_name);
  1560. +     }
  1561. +     } else {
  1562. +     panel_default_handle_event(item, event);
  1563. +     }
  1564. + }
  1565. + 
  1566. + #else /* NO_WALK_MENUS */
  1567. + 
  1568. + static
  1569.   add_path_to_menu(item, path, n)
  1570.   Panel_item item;
  1571.   char *path;
  1572. ***************
  1573. *** 476,484 ****
  1574.   Panel_item item;
  1575.   {
  1576.       char    *tmp = NULL, *p;
  1577. - #ifdef WALK_MENUS
  1578. -     Menu_item    mi;
  1579. - #endif /* WALK_MENUS */
  1580.   
  1581.       if (!(p = do_set(set_options, "folder")) || !*p)
  1582.       p = DEF_FOLDER;
  1583. --- 706,711 ----
  1584. ***************
  1585. *** 492,501 ****
  1586.       }
  1587.       }
  1588.       if (tmp) {
  1589. - #ifdef WALK_MENUS
  1590. -     mi = add_path_to_menu(menu, tmp);
  1591. - #else /* WALK_MENUS */
  1592.       add_path_to_menu(item, tmp, &n);
  1593. - #endif /* WALK_MENUS */
  1594.       }
  1595.   }
  1596. --- 719,725 ----
  1597.       }
  1598.       }
  1599.       if (tmp) {
  1600.       add_path_to_menu(item, tmp, &n);
  1601.       }
  1602.   }
  1603. + #endif /* NO_WALK_MENUS */
  1604.  
  1605. -- 
  1606. Bart Schaefer                        schaefer@cse.ogi.edu
  1607.  
  1608.