home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / comp / mail / elm / 3942 < prev    next >
Encoding:
Internet Message Format  |  1993-01-05  |  72.3 KB
  1. Xref: sparky comp.mail.elm:3942 comp.sources.bugs:321
  2. Path: sparky!uunet!spool.mu.edu!dsinc!dsinc!not-for-mail
  3. From: syd@dsinc.DSI.COM (Syd Weinstein)
  4. Newsgroups: comp.mail.elm,comp.sources.bugs
  5. Subject: elm 2.4 Patch #20
  6. Followup-To: poster
  7. Date: 5 Jan 1993 13:08:21 -0500
  8. Organization: Datacomp Systems, Inc., Huntingdon Valley, PA 19006
  9. Lines: 2364
  10. Sender: syd@dsi.com
  11. Message-ID: <1iciqlINN20l@dsinc.dsi.com>
  12. NNTP-Posting-Host: dsinc.dsi.com
  13. Summary: This is an official patch for elm 2.4 system.  Please apply it.
  14. Priority: LOW
  15.  
  16. Fix:    From rn, say "| patch -p -N -d DIR", where DIR is your elm source
  17.     directory.  Outside of rn, say "cd DIR; patch -p -N <thisarticle".
  18.     If you don't have the patch program, apply the following by hand,
  19.     or get patch (version 2.0, latest patchlevel).
  20.  
  21.     After patching:
  22.         sh Configure -d
  23.         make
  24.         make install
  25.  
  26.     If patch indicates that patchlevel is the wrong version, you may need
  27.     to apply one or more previous patches, or the patch may already
  28.     have been applied.  See the patchlevel.h file to find out what has or
  29.     has not been applied.  In any event, don't continue with the patch.
  30.  
  31.     If you are missing previous patches they can be obtained from our:
  32.     archive server.
  33.  
  34.     Syd Weinstein
  35.     elm@DSI.COM
  36.  
  37.     The patches are available from the dsinc archive server
  38.     Send the following message to archive-server@DSI.COM for
  39.     a list of available patches:
  40.  
  41.     Subject: patch list
  42.     send index elm
  43.  
  44. Index: hdrs/patchlevel.h
  45. Prereq: "19"
  46. *** ../elm2.4/hdrs/patchlevel.h    Thu Dec 24 18:56:58 1992
  47. --- hdrs/patchlevel.h    Thu Dec 24 18:57:39 1992
  48. ***************
  49. *** 1 ****
  50. ! #define PATCHLEVEL "19"
  51. --- 1 ----
  52. ! #define PATCHLEVEL "20"
  53.  
  54. Index: src/elm.c
  55. Prereq: 5.8
  56. *** ../elm2.4/src/elm.c    Thu Dec 24 18:56:50 1992
  57. --- src/elm.c    Thu Dec 24 16:42:08 1992
  58. ***************
  59. *** 1,8 ****
  60.   
  61. ! static char rcsid[] = "@(#)$Id: elm.c,v 5.8 1992/12/11 01:45:04 syd Exp $";
  62.   
  63.   /*******************************************************************************
  64. !  *  The Elm Mail System  -  $Revision: 5.8 $   $State: Exp $
  65.    *
  66.    * This file and all associated files and documentation:
  67.    *            Copyright (c) 1988-1992 USENET Community Trust
  68. --- 1,8 ----
  69.   
  70. ! static char rcsid[] = "@(#)$Id: elm.c,v 5.10 1992/12/24 21:42:01 syd Exp $";
  71.   
  72.   /*******************************************************************************
  73. !  *  The Elm Mail System  -  $Revision: 5.10 $   $State: Exp $
  74.    *
  75.    * This file and all associated files and documentation:
  76.    *            Copyright (c) 1988-1992 USENET Community Trust
  77. ***************
  78. *** 15,20 ****
  79. --- 15,29 ----
  80.    *
  81.    *******************************************************************************
  82.    * $Log: elm.c,v $
  83. +  * Revision 5.10  1992/12/24  21:42:01  syd
  84. +  * Fix messages and nls messages to match.  Plus use want_to
  85. +  * where appropriate.
  86. +  * From: Syd, via prompting from Jan Djarv <Jan.Djarv@sa.erisoft.se>
  87. +  *
  88. +  * Revision 5.9  1992/12/16  14:33:25  syd
  89. +  * add back missing nl on check only output
  90. +  * From: Syd
  91. +  *
  92.    * Revision 5.8  1992/12/11  01:45:04  syd
  93.    * remove sys/types.h include, it is now included by defs.h
  94.    * and this routine includes defs.h or indirectly includes defs.h
  95. ***************
  96. *** 724,730 ****
  97.         "Expands to: ");
  98.       printf(msg);
  99.   
  100. !     printf("%s", format_long(buffer, strlen(msg)));
  101.       }
  102.   
  103.   check_range()
  104. --- 733,739 ----
  105.         "Expands to: ");
  106.       printf(msg);
  107.   
  108. !     printf("%s\n", format_long(buffer, strlen(msg)));
  109.       }
  110.   
  111.   check_range()
  112. ***************
  113. *** 783,789 ****
  114.           case '/'    :  /* scan mbox or aliases for string */
  115.                  if  (message_count < 1) {
  116.                    error1(catgets(elm_msg_cat, ElmSet,
  117. !                 ElmNoMailToScan, "No %s to scan!"), items);
  118.                    fflush(stdin);
  119.                  }
  120.                  else if (pattern_match())
  121. --- 792,798 ----
  122.           case '/'    :  /* scan mbox or aliases for string */
  123.                  if  (message_count < 1) {
  124.                    error1(catgets(elm_msg_cat, ElmSet,
  125. !                 ElmNoItemToScan, "No %s to scan!"), items);
  126.                    fflush(stdin);
  127.                  }
  128.                  else if (pattern_match())
  129.  
  130. Index: src/exitprog.c
  131. Prereq: 5.1
  132. *** ../elm2.4/src/exitprog.c    Sat Oct  3 18:58:52 1992
  133. --- src/exitprog.c    Thu Dec 24 19:27:00 1992
  134. ***************
  135. *** 1,8 ****
  136.   
  137. ! static char rcsid[] = "@(#)$Id: exitprog.c,v 5.1 1992/10/03 22:58:40 syd Exp $";
  138.   
  139.   /*******************************************************************************
  140. !  *  The Elm Mail System  -  $Revision: 5.1 $   $State: Exp $
  141.    *
  142.    *            Copyright (c) 1988-1992 USENET Community Trust
  143.    *            Copyright (c) 1986,1987 Dave Taylor
  144. --- 1,8 ----
  145.   
  146. ! static char rcsid[] = "@(#)$Id: exitprog.c,v 5.3 1992/12/25 00:26:49 syd Exp $";
  147.   
  148.   /*******************************************************************************
  149. !  *  The Elm Mail System  -  $Revision: 5.3 $   $State: Exp $
  150.    *
  151.    *            Copyright (c) 1988-1992 USENET Community Trust
  152.    *            Copyright (c) 1986,1987 Dave Taylor
  153. ***************
  154. *** 14,19 ****
  155. --- 14,28 ----
  156.    *
  157.    *******************************************************************************
  158.    * $Log: exitprog.c,v $
  159. +  * Revision 5.3  1992/12/25  00:26:49  syd
  160. +  * Fix routine names
  161. +  * From: Syd
  162. +  *
  163. +  * Revision 5.2  1992/12/24  21:42:01  syd
  164. +  * Fix messages and nls messages to match.  Plus use want_to
  165. +  * where appropriate.
  166. +  * From: Syd, via prompting from Jan Djarv <Jan.Djarv@sa.erisoft.se>
  167. +  *
  168.    * Revision 5.1  1992/10/03  22:58:40  syd
  169.    * Initial checkin as of 2.4 Release at PL0
  170.    *
  171. ***************
  172. *** 49,62 ****
  173.           softkeys_on();
  174.         }
  175.         if (changes == 1)
  176. !         msg = catgets(elm_msg_cat, ElmSet, ElmAbandonChange,
  177. !         "Abandon change to mailbox? (y/n) ");
  178.         else
  179. !         msg = catgets(elm_msg_cat, ElmSet, ElmAbandonChangePlural,
  180. !         "Abandon changes to mailbox? (y/n) ");
  181. !       answer = want_to(msg, 'n');
  182.   
  183. !       if(answer != 'y') return -1;
  184.       }
  185.   
  186.       fflush(stdout);
  187. --- 58,71 ----
  188.           softkeys_on();
  189.         }
  190.         if (changes == 1)
  191. !         MCsprintf(msg, catgets(elm_msg_cat, ElmSet, ElmAbandonChange,
  192. !         "Abandon change to mailbox? (%c/%c) "), *def_ans_yes, *def_ans_no);
  193.         else
  194. !         MCsprintf(msg, catgets(elm_msg_cat, ElmSet, ElmAbandonChangePlural,
  195. !         "Abandon changes to mailbox? (%c/%c) "), *def_ans_yes, *def_ans_no);
  196. !       answer = want_to(msg, *def_ans_no, LINES-3);
  197.   
  198. !       if(answer != *def_ans_yes) return -1;
  199.       }
  200.   
  201.       fflush(stdout);
  202.  
  203. Index: src/file.c
  204. Prereq: 5.7
  205. *** ../elm2.4/src/file.c    Thu Dec 24 18:56:51 1992
  206. --- src/file.c    Thu Dec 24 19:20:39 1992
  207. ***************
  208. *** 1,8 ****
  209.   
  210. ! static char rcsid[] = "@(#)$Id: file.c,v 5.7 1992/12/07 02:38:45 syd Exp $";
  211.   
  212.   /*******************************************************************************
  213. !  *  The Elm Mail System  -  $Revision: 5.7 $   $State: Exp $
  214.    *
  215.    *            Copyright (c) 1988-1992 USENET Community Trust
  216.    *            Copyright (c) 1986,1987 Dave Taylor
  217. --- 1,8 ----
  218.   
  219. ! static char rcsid[] = "@(#)$Id: file.c,v 5.9 1992/12/25 00:20:32 syd Exp $";
  220.   
  221.   /*******************************************************************************
  222. !  *  The Elm Mail System  -  $Revision: 5.9 $   $State: Exp $
  223.    *
  224.    *            Copyright (c) 1988-1992 USENET Community Trust
  225.    *            Copyright (c) 1986,1987 Dave Taylor
  226. ***************
  227. *** 14,19 ****
  228. --- 14,28 ----
  229.    *
  230.    *******************************************************************************
  231.    * $Log: file.c,v $
  232. +  * Revision 5.9  1992/12/25  00:20:32  syd
  233. +  * fix variable name
  234. +  * From: Syd
  235. +  *
  236. +  * Revision 5.8  1992/12/24  21:42:01  syd
  237. +  * Fix messages and nls messages to match.  Plus use want_to
  238. +  * where appropriate.
  239. +  * From: Syd, via prompting from Jan Djarv <Jan.Djarv@sa.erisoft.se>
  240. +  *
  241.    * Revision 5.7  1992/12/07  02:38:45  syd
  242.    * When ELM is reporting "appending to <foldername>" I never get to see
  243.    * but a flash of light, before the message line has been replaced by a
  244. ***************
  245. *** 177,183 ****
  246.               is_ordinary_file, scount = 0;
  247.       int mesgnum;    /* message whose address is used for save-by-name fn */
  248.       char    filename[SLEN], address[LONG_STRING], buffer[LONG_STRING],
  249. !         ch;
  250.       FILE *save_file;
  251.   
  252.       oldstat = headers[current-1]->status;    /* remember */
  253. --- 186,192 ----
  254.               is_ordinary_file, scount = 0;
  255.       int mesgnum;    /* message whose address is used for save-by-name fn */
  256.       char    filename[SLEN], address[LONG_STRING], buffer[LONG_STRING],
  257. !         ch, msg_buffer[SLEN], answer;
  258.       FILE *save_file;
  259.   
  260.       oldstat = headers[current-1]->status;    /* remember */
  261. ***************
  262. *** 281,308 ****
  263.       if (access(filename,ACCESS_EXISTS)== 0) {    /* already there!! */
  264.           appending = 1;
  265.           if (confirm_append || (confirm_files && is_ordinary_file)) {
  266. !         PutLine1 (LINES-2, 0,
  267. !               /*
  268. !                *    Well it should be like this but...
  269. !               catgets (elm_msg_cat, ElmSet, ElmConfirmFiles,
  270. !                    "Append to an existing file `%s'? (y/n) "),
  271. !                */
  272. !               is_ordinary_file
  273. !               ? "Append to an existing file `%s'? (y/n) n"
  274. !               : "Append to mail folder `%s'? (y/n) n",
  275. !               filename);
  276. !         ch = ReadCh ();
  277. !         ch = tolower (ch);
  278. !         PutLine2 (LINES-2, 0,
  279. !               is_ordinary_file
  280. !               ? "Append to an existing file `%s'? (y/n) %s"
  281. !               : "Append to mail folder `%s'? (y/n) %s",
  282. !               filename,
  283. !               (ch == *def_ans_yes) ? "Yes" : "No");
  284. !         sleep (1);
  285. !         ClearLine (LINES-2);
  286.   
  287. !         if (ch != *def_ans_yes) {
  288.               goto Retry_Save_If_Not_Confirmed;
  289.           }
  290.           }
  291. --- 290,308 ----
  292.       if (access(filename,ACCESS_EXISTS)== 0) {    /* already there!! */
  293.           appending = 1;
  294.           if (confirm_append || (confirm_files && is_ordinary_file)) {
  295. ! 
  296. !             if (is_ordinary_file)
  297. !               MCsprintf(msg_buffer, catgets(elm_msg_cat, ElmSet, ElmConfirmFilesAppend,
  298. !               "Append to an existing file `%s'? (%c/%c) "),
  299. !             filename, *def_ans_yes, *def_ans_no);
  300. !             else
  301. !               MCsprintf(msg_buffer, catgets(elm_msg_cat, ElmSet, ElmConfirmFolderAppend,
  302. !                   "Append to mail folder `%s'? (%c/%c) "),
  303. !             filename, *def_ans_yes, *def_ans_no);
  304. ! 
  305. !             answer = want_to(buffer, *def_ans_no, LINES-2);
  306.   
  307. !         if (answer != *def_ans_yes) {
  308.               goto Retry_Save_If_Not_Confirmed;
  309.           }
  310.           }
  311. ***************
  312. *** 309,336 ****
  313.       }
  314.       else {
  315.               if (confirm_create || (confirm_folders && !is_ordinary_file)) {
  316. !         PutLine1 (LINES-2, 0,
  317. !               /*
  318. !                *    Well it should be like this but...
  319. !               catgets (elm_msg_cat, ElmSet, ElmConfirmFolders,
  320. !                    "Create a new mail folder `%s'? (y/n) "),
  321. !                */
  322. !               !is_ordinary_file
  323. !               ? "Create a new mail folder `%s'? (y/n) n"
  324. !               : "Create a new file `%s'? (y/n) n",
  325. !               filename);
  326. !         ch = ReadCh ();
  327. !         ch = tolower (ch);
  328. !         PutLine2 (LINES-2, 0,
  329. !               !is_ordinary_file
  330. !               ? "Create a new mail folder `%s'? (y/n) %s"
  331. !               : "Create a new file `%s'? (y/n) %s",
  332. !               filename,
  333. !               (ch == *def_ans_yes) ? "Yes" : "No");
  334. !         sleep (1);
  335. !         ClearLine (LINES-2);
  336.   
  337. !         if (ch != *def_ans_yes) {
  338.               goto Retry_Save_If_Not_Confirmed;
  339.           }
  340.           }
  341. --- 309,327 ----
  342.       }
  343.       else {
  344.               if (confirm_create || (confirm_folders && !is_ordinary_file)) {
  345. ! 
  346. !             if (is_ordinary_file)
  347. !               MCsprintf(msg_buffer, catgets(elm_msg_cat, ElmSet, ElmConfirmFilesCreate,
  348. !               "Create a new file `%s'? (%c/%c) "),
  349. !             filename, *def_ans_yes, *def_ans_no);
  350. !             else
  351. !               MCsprintf(msg_buffer, catgets(elm_msg_cat, ElmSet, ElmConfirmFolderCreate,
  352. !                   "Create a new mail folder `%s'? (%c/%c) "),
  353. !             filename, *def_ans_yes, *def_ans_no);
  354. ! 
  355. !             answer = want_to(buffer, *def_ans_no, LINES-2);
  356.   
  357. !         if (answer != *def_ans_yes) {
  358.               goto Retry_Save_If_Not_Confirmed;
  359.           }
  360.           }
  361.  
  362. Index: src/file_util.c
  363. Prereq: 5.3
  364. *** ../elm2.4/src/file_util.c    Thu Dec 24 18:56:51 1992
  365. --- src/file_util.c    Wed Dec 16 09:31:06 1992
  366. ***************
  367. *** 1,8 ****
  368.   
  369. ! static char rcsid[] = "@(#)$Id: file_util.c,v 5.3 1992/12/11 01:45:04 syd Exp $";
  370.   
  371.   /*******************************************************************************
  372. !  *  The Elm Mail System  -  $Revision: 5.3 $   $State: Exp $
  373.    *
  374.    *            Copyright (c) 1988-1992 USENET Community Trust
  375.    *            Copyright (c) 1986,1987 Dave Taylor
  376. --- 1,8 ----
  377.   
  378. ! static char rcsid[] = "@(#)$Id: file_util.c,v 5.4 1992/12/16 14:30:52 syd Exp $";
  379.   
  380.   /*******************************************************************************
  381. !  *  The Elm Mail System  -  $Revision: 5.4 $   $State: Exp $
  382.    *
  383.    *            Copyright (c) 1988-1992 USENET Community Trust
  384.    *            Copyright (c) 1986,1987 Dave Taylor
  385. ***************
  386. *** 14,19 ****
  387. --- 14,23 ----
  388.    *
  389.    *******************************************************************************
  390.    * $Log: file_util.c,v $
  391. +  * Revision 5.4  1992/12/16  14:30:52  syd
  392. +  * Make forward to checking consistent on sign ignoring
  393. +  * From: Syd
  394. +  *
  395.    * Revision 5.3  1992/12/11  01:45:04  syd
  396.    * remove sys/types.h include, it is now included by defs.h
  397.    * and this routine includes defs.h or indirectly includes defs.h
  398. ***************
  399. *** 226,232 ****
  400.       /* file has reasonable size - see if forwarding */
  401.       else if (mail_gets (firstline, SLEN, fp) == 0)
  402.         retcode = 1;         /* empty? should have detected this above! */
  403. !     else if (first_word(firstline, FORWARDSIGN))
  404.         retcode = 2;                    /* forwarding */
  405.   
  406.       /* not forwarding - so file must have some mail in it */
  407. --- 230,236 ----
  408.       /* file has reasonable size - see if forwarding */
  409.       else if (mail_gets (firstline, SLEN, fp) == 0)
  410.         retcode = 1;         /* empty? should have detected this above! */
  411. !     else if (first_word_nc(firstline, FORWARDSIGN))
  412.         retcode = 2;                    /* forwarding */
  413.   
  414.       /* not forwarding - so file must have some mail in it */
  415.  
  416. Index: src/in_utils.c
  417. Prereq: 5.2
  418. *** ../elm2.4/src/in_utils.c    Tue Nov 17 14:11:04 1992
  419. --- src/in_utils.c    Thu Dec 24 16:42:10 1992
  420. ***************
  421. *** 1,8 ****
  422.   
  423. ! static char rcsid[] = "@(#)$Id: in_utils.c,v 5.2 1992/11/15 01:15:28 syd Exp $";
  424.   
  425.   /*******************************************************************************
  426. !  *  The Elm Mail System  -  $Revision: 5.2 $   $State: Exp $
  427.    *
  428.    *            Copyright (c) 1988-1992 USENET Community Trust
  429.    *            Copyright (c) 1986,1987 Dave Taylor
  430. --- 1,8 ----
  431.   
  432. ! static char rcsid[] = "@(#)$Id: in_utils.c,v 5.3 1992/12/24 21:42:01 syd Exp $";
  433.   
  434.   /*******************************************************************************
  435. !  *  The Elm Mail System  -  $Revision: 5.3 $   $State: Exp $
  436.    *
  437.    *            Copyright (c) 1988-1992 USENET Community Trust
  438.    *            Copyright (c) 1986,1987 Dave Taylor
  439. ***************
  440. *** 14,19 ****
  441. --- 14,24 ----
  442.    *
  443.    *******************************************************************************
  444.    * $Log: in_utils.c,v $
  445. +  * Revision 5.3  1992/12/24  21:42:01  syd
  446. +  * Fix messages and nls messages to match.  Plus use want_to
  447. +  * where appropriate.
  448. +  * From: Syd, via prompting from Jan Djarv <Jan.Djarv@sa.erisoft.se>
  449. +  *
  450.    * Revision 5.2  1992/11/15  01:15:28  syd
  451.    * The alias message_count isn't set to zero if the last alias has
  452.    * been deleted from the alias table. As no aliases are reread from
  453. ***************
  454. *** 58,67 ****
  455.                         Writechar(BACKSPACE); fflush(stdout); }
  456.   
  457.   int
  458. ! want_to(question, dflt)
  459.   char *question, dflt;
  460.   {
  461. !     /** Ask 'question' on LINES-2 left enough to just leave room for an
  462.           answer, returning the answer in lower case.
  463.           Echo answer as full "Yes" or "No".  'dflt' is the 
  464.           default answer if <return> is pressed. (Note: 'dflt' is also what 
  465. --- 63,73 ----
  466.                         Writechar(BACKSPACE); fflush(stdout); }
  467.   
  468.   int
  469. ! want_to(question, dflt, where)
  470.   char *question, dflt;
  471. + int where;
  472.   {
  473. !     /** Ask 'question' on 'where' left enough to just leave room for an
  474.           answer, returning the answer in lower case.
  475.           Echo answer as full "Yes" or "No".  'dflt' is the 
  476.           default answer if <return> is pressed. (Note: 'dflt' is also what 
  477. ***************
  478. *** 71,79 ****
  479.   
  480.       cols = COLUMNS - (strlen(question) + 5 );    /* 5 for "Yes." + 1 */
  481.   
  482. !     MoveCursor(LINES-3, cols);
  483.       CleartoEOLN();
  484. !     PutLine3(LINES-3, cols,"%s%c%c", question, dflt, BACKSPACE);
  485.       fflush(stdout);
  486.       fflush(stdin);
  487.   
  488. --- 77,85 ----
  489.   
  490.       cols = COLUMNS - (strlen(question) + 5 );    /* 5 for "Yes." + 1 */
  491.   
  492. !     MoveCursor(where, cols);
  493.       CleartoEOLN();
  494. !     PutLine3(where, cols,"%s%c%c", question, dflt, BACKSPACE);
  495.       fflush(stdout);
  496.       fflush(stdin);
  497.   
  498. ***************
  499. *** 88,96 ****
  500.         ch = dflt;
  501.   
  502.       if(ch == *def_ans_yes)
  503. !       Write_to_screen(catgets(elm_msg_cat, ElmSet, ElmYes, "Yes."), 0);
  504.       else
  505. !       Write_to_screen(catgets(elm_msg_cat, ElmSet, ElmNo, "No."), 0);
  506.   
  507.       return(ch);
  508.   }
  509. --- 94,102 ----
  510.         ch = dflt;
  511.   
  512.       if(ch == *def_ans_yes)
  513. !       Write_to_screen(catgets(elm_msg_cat, ElmSet, ElmYesWord, "Yes."), 0);
  514.       else
  515. !       Write_to_screen(catgets(elm_msg_cat, ElmSet, ElmNoWord, "No."), 0);
  516.   
  517.       return(ch);
  518.   }
  519.  
  520. Index: src/leavembox.c
  521. Prereq: 5.7
  522. *** ../elm2.4/src/leavembox.c    Thu Dec 24 18:56:47 1992
  523. --- src/leavembox.c    Thu Dec 24 16:59:21 1992
  524. ***************
  525. *** 1,8 ****
  526.   
  527. ! static char rcsid[] = "@(#)$Id: leavembox.c,v 5.7 1992/12/11 01:45:04 syd Exp $";
  528.   
  529.   /*******************************************************************************
  530. !  *  The Elm Mail System  -  $Revision: 5.7 $   $State: Exp $
  531.    *
  532.    *            Copyright (c) 1988-1992 USENET Community Trust
  533.    *            Copyright (c) 1986,1987 Dave Taylor
  534. --- 1,8 ----
  535.   
  536. ! static char rcsid[] = "@(#)$Id: leavembox.c,v 5.9 1992/12/24 21:58:52 syd Exp $";
  537.   
  538.   /*******************************************************************************
  539. !  *  The Elm Mail System  -  $Revision: 5.9 $   $State: Exp $
  540.    *
  541.    *            Copyright (c) 1988-1992 USENET Community Trust
  542.    *            Copyright (c) 1986,1987 Dave Taylor
  543. ***************
  544. *** 14,19 ****
  545. --- 14,28 ----
  546.    *
  547.    *******************************************************************************
  548.    * $Log: leavembox.c,v $
  549. +  * Revision 5.9  1992/12/24  21:58:52  syd
  550. +  * Add lstat call to properly detect symlink
  551. +  * From: Syd via partial patch from Bryan Curnutt
  552. +  *
  553. +  * Revision 5.8  1992/12/24  21:42:01  syd
  554. +  * Fix messages and nls messages to match.  Plus use want_to
  555. +  * where appropriate.
  556. +  * From: Syd, via prompting from Jan Djarv <Jan.Djarv@sa.erisoft.se>
  557. +  *
  558.    * Revision 5.7  1992/12/11  01:45:04  syd
  559.    * remove sys/types.h include, it is now included by defs.h
  560.    * and this routine includes defs.h or indirectly includes defs.h
  561. ***************
  562. *** 136,141 ****
  563. --- 145,153 ----
  564.       FILE *temp;
  565.       char temp_keep_file[SLEN], buffer[SLEN];
  566.       struct stat    buf;        /* stat command  */
  567. + #ifdef SYMLINK
  568. +     struct stat    lbuf;        /* lstat command  */
  569. + #endif
  570.   #ifdef BSD
  571.       time_t utime_buffer[2];        /* utime command */
  572.   #else
  573. ***************
  574. *** 185,191 ****
  575.           else
  576.             MCsprintf(buffer, catgets(elm_msg_cat, ElmSet, ElmLeaveDeleteMessages,
  577.           "Delete messages? (%c/%c) "), *def_ans_yes, *def_ans_no);
  578. !         answer = want_to(buffer, answer);
  579.         }
  580.   
  581.         if(answer == *def_ans_yes) {
  582. --- 197,203 ----
  583.           else
  584.             MCsprintf(buffer, catgets(elm_msg_cat, ElmSet, ElmLeaveDeleteMessages,
  585.           "Delete messages? (%c/%c) "), *def_ans_yes, *def_ans_no);
  586. !         answer = want_to(buffer, answer, LINES-3);
  587.         }
  588.   
  589.         if(answer == *def_ans_yes) {
  590. ***************
  591. *** 237,243 ****
  592.           MCsprintf(buffer, catgets(elm_msg_cat, ElmSet, ElmLeaveMoveMessages,
  593.               "Move read messages to \"received\" folder? (%c/%c) "),
  594.               *def_ans_yes, *def_ans_no);
  595. !           answer = want_to(buffer, answer);
  596.             asked_storage_q = TRUE;
  597.           }
  598.   
  599. --- 249,255 ----
  600.           MCsprintf(buffer, catgets(elm_msg_cat, ElmSet, ElmLeaveMoveMessages,
  601.               "Move read messages to \"received\" folder? (%c/%c) "),
  602.               *def_ans_yes, *def_ans_no);
  603. !           answer = want_to(buffer, answer, LINES-3);
  604.             asked_storage_q = TRUE;
  605.           }
  606.   
  607. ***************
  608. *** 291,297 ****
  609.             MCsprintf(buffer, catgets(elm_msg_cat, ElmSet, ElmLeaveKeepMessages,
  610.               "Keep unread messages in incoming mailbox? (%c/%c) "),
  611.               *def_ans_yes, *def_ans_no);
  612. !         answer = want_to(buffer, answer);
  613.             }
  614.   
  615.             for (i = 0; i < message_count; i++) {
  616. --- 303,309 ----
  617.             MCsprintf(buffer, catgets(elm_msg_cat, ElmSet, ElmLeaveKeepMessages,
  618.               "Keep unread messages in incoming mailbox? (%c/%c) "),
  619.               *def_ans_yes, *def_ans_no);
  620. !         answer = want_to(buffer, answer, LINES-3);
  621.             }
  622.   
  623.             for (i = 0; i < message_count; i++) {
  624. ***************
  625. *** 577,582 ****
  626. --- 589,604 ----
  627.           "Error %s on stat(%s)."), error_description(err), cur_folder);
  628.       }
  629.   
  630. + #ifdef SYMLINK
  631. +         if (lstat(cur_folder, &lbuf) != 0) {
  632. +       err = errno;
  633. +       dprint(1, (debugfile, "Error: errno %s attempting to stat file %s\n", 
  634. +              error_description(err), cur_folder));
  635. +           error2(catgets(elm_msg_cat, ElmSet, ElmLeaveErrorOnStat,
  636. +         "Error %s on stat(%s)."), error_description(err), cur_folder);
  637. +     }
  638. + #endif
  639. + 
  640.       /* Close and remove the original folder.
  641.        * However, if we are going to copy a temp file of kept messages
  642.        * to it, and this is a locked (spool) mailbox, we need to keep
  643. ***************
  644. *** 616,624 ****
  645.   
  646.   #ifdef SYMLINK
  647.   #ifdef S_ISLNK
  648. !       if (S_ISLNK(buf.st_mode))
  649.   #else
  650. !       if ((buf.st_mode & S_IFMT) == S_IFLNK)
  651.   #endif
  652.         {
  653.            need_to_copy = TRUE;
  654. --- 638,646 ----
  655.   
  656.   #ifdef SYMLINK
  657.   #ifdef S_ISLNK
  658. !       if (S_ISLNK(lbuf.st_mode))
  659.   #else
  660. !       if ((lbuf.st_mode & S_IFMT) == S_IFLNK)
  661.   #endif
  662.         {
  663.            need_to_copy = TRUE;
  664.  
  665. Index: src/limit.c
  666. Prereq: 5.1
  667. *** ../elm2.4/src/limit.c    Sat Oct  3 18:59:00 1992
  668. --- src/limit.c    Thu Dec 24 16:42:12 1992
  669. ***************
  670. *** 1,8 ****
  671.   
  672. ! static char rcsid[] = "@(#)$Id: limit.c,v 5.1 1992/10/03 22:58:40 syd Exp $";
  673.   
  674.   /*******************************************************************************
  675. !  *  The Elm Mail System  -  $Revision: 5.1 $   $State: Exp $
  676.    *
  677.    *            Copyright (c) 1988-1992 USENET Community Trust
  678.    *            Copyright (c) 1986,1987 Dave Taylor
  679. --- 1,8 ----
  680.   
  681. ! static char rcsid[] = "@(#)$Id: limit.c,v 5.2 1992/12/24 21:42:01 syd Exp $";
  682.   
  683.   /*******************************************************************************
  684. !  *  The Elm Mail System  -  $Revision: 5.2 $   $State: Exp $
  685.    *
  686.    *            Copyright (c) 1988-1992 USENET Community Trust
  687.    *            Copyright (c) 1986,1987 Dave Taylor
  688. ***************
  689. *** 14,19 ****
  690. --- 14,24 ----
  691.    *
  692.    *******************************************************************************
  693.    * $Log: limit.c,v $
  694. +  * Revision 5.2  1992/12/24  21:42:01  syd
  695. +  * Fix messages and nls messages to match.  Plus use want_to
  696. +  * where appropriate.
  697. +  * From: Syd, via prompting from Jan Djarv <Jan.Djarv@sa.erisoft.se>
  698. +  *
  699.    * Revision 5.1  1992/10/03  22:58:40  syd
  700.    * Initial checkin as of 2.4 Release at PL0
  701.    *
  702. ***************
  703. *** 61,71 ****
  704.         PutLine0(LINES-2, 0, msg);
  705.         criteria[0] = ReadCh();
  706.         if (tolower(criteria[0]) == *def_ans_yes) {
  707. !         Write_to_screen(catgets(elm_msg_cat, ElmSet, ElmLimitYes, "Yes."), 0);
  708.           PutLine0(LINES-3, COLUMNS-30, catgets(elm_msg_cat, ElmSet, ElmLimitAdding,
  709.           "Adding criteria..."));
  710.         } else {
  711. !         Write_to_screen(catgets(elm_msg_cat, ElmSet, ElmLimitNo, "No."), 0);
  712.           selected = 0;
  713.           PutLine0(LINES-3, COLUMNS-30, catgets(elm_msg_cat, ElmSet, ElmLimitChanging,
  714.           "Change criteria..."));
  715. --- 66,76 ----
  716.         PutLine0(LINES-2, 0, msg);
  717.         criteria[0] = ReadCh();
  718.         if (tolower(criteria[0]) == *def_ans_yes) {
  719. !         Write_to_screen(catgets(elm_msg_cat, ElmSet, ElmYesWord, "Yes."), 0);
  720.           PutLine0(LINES-3, COLUMNS-30, catgets(elm_msg_cat, ElmSet, ElmLimitAdding,
  721.           "Adding criteria..."));
  722.         } else {
  723. !         Write_to_screen(catgets(elm_msg_cat, ElmSet, ElmNoWord, "No."), 0);
  724.           selected = 0;
  725.           PutLine0(LINES-3, COLUMNS-30, catgets(elm_msg_cat, ElmSet, ElmLimitChanging,
  726.           "Change criteria..."));
  727.  
  728. Index: src/mailmsg1.c
  729. Prereq: 5.1
  730. *** ../elm2.4/src/mailmsg1.c    Sat Oct  3 18:59:01 1992
  731. --- src/mailmsg1.c    Thu Dec 24 16:42:13 1992
  732. ***************
  733. *** 1,8 ****
  734.   
  735. ! static char rcsid[] = "@(#)$Id: mailmsg1.c,v 5.1 1992/10/03 22:58:40 syd Exp $";
  736.   
  737.   /*******************************************************************************
  738. !  *  The Elm Mail System  -  $Revision: 5.1 $   $State: Exp $
  739.    *
  740.    *            Copyright (c) 1988-1992 USENET Community Trust
  741.    *            Copyright (c) 1986,1987 Dave Taylor
  742. --- 1,8 ----
  743.   
  744. ! static char rcsid[] = "@(#)$Id: mailmsg1.c,v 5.3 1992/12/24 21:42:01 syd Exp $";
  745.   
  746.   /*******************************************************************************
  747. !  *  The Elm Mail System  -  $Revision: 5.3 $   $State: Exp $
  748.    *
  749.    *            Copyright (c) 1988-1992 USENET Community Trust
  750.    *            Copyright (c) 1986,1987 Dave Taylor
  751. ***************
  752. *** 14,19 ****
  753. --- 14,29 ----
  754.    *
  755.    *******************************************************************************
  756.    * $Log: mailmsg1.c,v $
  757. +  * Revision 5.3  1992/12/24  21:42:01  syd
  758. +  * Fix messages and nls messages to match.  Plus use want_to
  759. +  * where appropriate.
  760. +  * From: Syd, via prompting from Jan Djarv <Jan.Djarv@sa.erisoft.se>
  761. +  *
  762. +  * Revision 5.2  1992/12/20  05:15:58  syd
  763. +  * Add a c)hange alias, -u and -t options to listalias to list only user
  764. +  * and only system aliases respectively.
  765. +  * From: "Robert L. Howard" <robert.howard@matd.gatech.edu>
  766. +  *
  767.    * Revision 5.1  1992/10/03  22:58:40  syd
  768.    * Initial checkin as of 2.4 Release at PL0
  769.    *
  770. ***************
  771. *** 268,286 ****
  772.   
  773.       if (strlen(subject_field) == 0) {    /* zero length subject?? */
  774.         MCsprintf(msgbuf, catgets(elm_msg_cat, ElmSet, ElmNoSubjectContinue,
  775. !         "No subject - Continue with message? (%c/%c) %c%c"),
  776. !         *def_ans_yes, *def_ans_no, *def_ans_no, BACKSPACE);
  777. !       PutLine0(prompt_line, 0, msgbuf);
  778. ! 
  779. !       ch = ReadCh();
  780. !       if (tolower(ch) != *def_ans_yes) {    /* user says no! */
  781. !         Write_to_screen(catgets(elm_msg_cat, ElmSet, ElmNo, "No."), 0);
  782.           ClearLine(prompt_line);
  783.           error(catgets(elm_msg_cat, ElmSet, ElmMailNotSend, "Mail not sent."));
  784.           return(0);
  785.         }
  786.         else {
  787. -         Write_to_screen(catgets(elm_msg_cat, ElmSet, ElmYes, "Yes."), 0);
  788.           PutLine0(prompt_line,0,"Subject: <none>");
  789.           CleartoEOLN();
  790.         }
  791. --- 278,294 ----
  792.   
  793.       if (strlen(subject_field) == 0) {    /* zero length subject?? */
  794.         MCsprintf(msgbuf, catgets(elm_msg_cat, ElmSet, ElmNoSubjectContinue,
  795. !         "No subject - Continue with message? (%c/%c) "),
  796. !         *def_ans_yes, *def_ans_no);
  797. ! 
  798. !       ch = want_to(msgbuf, *def_ans_no, prompt_line);
  799. !       if (ch != *def_ans_yes) {    /* user says no! */
  800. !         sleep(1);
  801.           ClearLine(prompt_line);
  802.           error(catgets(elm_msg_cat, ElmSet, ElmMailNotSend, "Mail not sent."));
  803.           return(0);
  804.         }
  805.         else {
  806.           PutLine0(prompt_line,0,"Subject: <none>");
  807.           CleartoEOLN();
  808.         }
  809. ***************
  810. *** 364,370 ****
  811.         else {
  812.           MCsprintf(msg, catgets(elm_msg_cat, ElmSet, ElmCopyMessageYN,
  813.           "Copy message? (%c/%c) "), *def_ans_yes, *def_ans_no);
  814. !         answer = (want_to(msg, *def_ans_no) == *def_ans_yes);
  815.         }
  816.         *is_a_response = TRUE;
  817.       }
  818. --- 372,378 ----
  819.         else {
  820.           MCsprintf(msg, catgets(elm_msg_cat, ElmSet, ElmCopyMessageYN,
  821.           "Copy message? (%c/%c) "), *def_ans_yes, *def_ans_no);
  822. !         answer = (want_to(msg, *def_ans_no, LINES-3) == *def_ans_yes);
  823.         }
  824.         *is_a_response = TRUE;
  825.       }
  826. ***************
  827. *** 387,392 ****
  828. --- 395,401 ----
  829.       **/
  830.   
  831.       register int tagged = 0, i;
  832. +     int ret;
  833.   
  834.       /* First: zero all current global message strings */
  835.   
  836. ***************
  837. *** 400,407 ****
  838.         if (ison(aliases[i]->status, TAGGED)) {
  839.           strcat(to, aliases[i]->alias);
  840.           strcat(to, " ");
  841. -         clearit(aliases[i]->status, TAGGED);
  842. -         show_msg_tag(i);
  843.           tagged++;
  844.         }
  845.       }
  846. --- 409,414 ----
  847. ***************
  848. *** 408,418 ****
  849.   
  850.       if (tagged == 0) {
  851.         strcpy(to, aliases[current-1]->alias);
  852. -       tagged = 1;
  853.       }
  854.   
  855. !     dprint(4, (debugfile, "%d message%s tagged for mailing (a_sndmsg)\n",
  856. !             tagged, plural(tagged)));
  857.   
  858.       /******* And now the real stuff! *******/
  859.   
  860. --- 415,424 ----
  861.   
  862.       if (tagged == 0) {
  863.         strcpy(to, aliases[current-1]->alias);
  864.       }
  865.   
  866. !     dprint(4, (debugfile, "%d aliases tagged for mailing (a_sndmsg)\n",
  867. !             tagged));
  868.   
  869.       /******* And now the real stuff! *******/
  870.   
  871. ***************
  872. *** 442,449 ****
  873.       dprint(5, (debugfile, "bcc=\"%s\" expanded_bcc=\"%s\"\n",bcc,expanded_bcc));
  874.   
  875.       main_state();
  876. !     i = mail(FALSE, edit_message, form_letter);
  877.       main_state();
  878.   
  879. !     return(i);
  880.   }
  881. --- 448,468 ----
  882.       dprint(5, (debugfile, "bcc=\"%s\" expanded_bcc=\"%s\"\n",bcc,expanded_bcc));
  883.   
  884.       main_state();
  885. !     ret = mail(FALSE, edit_message, form_letter);
  886.       main_state();
  887.   
  888. ! /*
  889. !  *    Since we got this far, it must be okay to clear the tags.
  890. !  */
  891. !     i = 0;
  892. !     while (tagged) {
  893. !         if (ison(aliases[i]->status, TAGGED)) {
  894. !             clearit(aliases[i]->status, TAGGED);
  895. !             show_msg_tag(i);
  896. !             tagged--;
  897. !         }
  898. !         i++;
  899. !     }
  900. ! 
  901. !     return(ret);
  902.   }
  903.  
  904. Index: src/mailmsg2.c
  905. Prereq: 5.12
  906. *** ../elm2.4/src/mailmsg2.c    Thu Dec 24 18:56:52 1992
  907. --- src/mailmsg2.c    Mon Dec 28 09:24:38 1992
  908. ***************
  909. *** 1,8 ****
  910.   
  911. ! static char rcsid[] = "@(#)$Id: mailmsg2.c,v 5.12 1992/12/11 01:58:50 syd Exp $";
  912.   
  913.   /*******************************************************************************
  914. !  *  The Elm Mail System  -  $Revision: 5.12 $   $State: Exp $
  915.    *
  916.    *             Copyright (c) 1988-1992 USENET Community Trust
  917.    *             Copyright (c) 1986,1987 Dave Taylor
  918. --- 1,8 ----
  919.   
  920. ! static char rcsid[] = "@(#)$Id: mailmsg2.c,v 5.15 1992/12/28 14:24:25 syd Exp $";
  921.   
  922.   /*******************************************************************************
  923. !  *  The Elm Mail System  -  $Revision: 5.15 $   $State: Exp $
  924.    *
  925.    *             Copyright (c) 1988-1992 USENET Community Trust
  926.    *             Copyright (c) 1986,1987 Dave Taylor
  927. ***************
  928. *** 14,19 ****
  929. --- 14,33 ----
  930.    *
  931.    *******************************************************************************
  932.    * $Log: mailmsg2.c,v $
  933. +  * Revision 5.15  1992/12/28  14:24:25  syd
  934. +  * Fix problem where it won't let no answer on recall last message
  935. +  * From: Syd
  936. +  *
  937. +  * Revision 5.14  1992/12/24  21:42:01  syd
  938. +  * Fix messages and nls messages to match.  Plus use want_to
  939. +  * where appropriate.
  940. +  * From: Syd, via prompting from Jan Djarv <Jan.Djarv@sa.erisoft.se>
  941. +  *
  942. +  * Revision 5.13  1992/12/20  05:04:51  syd
  943. +  * restore unintnded prefix_chars that caused forwarding without editing
  944. +  * to add prefix
  945. +  * From: Syd
  946. +  *
  947.    * Revision 5.12  1992/12/11  01:58:50  syd
  948.    * Allow for use from restricted shell by putting SHELL=/bin/sh in the
  949.    * environment of spawned mail transport program.
  950. ***************
  951. *** 299,305 ****
  952.           already_has_text = TRUE;    /* we just added it, right? */
  953.         }
  954.         else
  955. !         copy_message(prefixchars, reply,
  956.           ( noheader ? CM_REMOVE_HEADER : 0 ) | CM_MMDF_HEAD);
  957.       }
  958.   
  959. --- 313,319 ----
  960.           already_has_text = TRUE;    /* we just added it, right? */
  961.         }
  962.         else
  963. !         copy_message("", reply,
  964.           ( noheader ? CM_REMOVE_HEADER : 0 ) | CM_MMDF_HEAD);
  965.       }
  966.   
  967. ***************
  968. *** 575,581 ****
  969.               "mailer returned error status %d"), sys_status);
  970.              printf("\r\n");
  971.           } else {
  972. !            sprintf(very_long_buffer, catgets(elm_msg_cat, ElmSet, ElmCouldNotCreateFile,
  973.               "mailer returned error status %d"), sys_status);
  974.              set_error(very_long_buffer);
  975.           }
  976. --- 589,595 ----
  977.               "mailer returned error status %d"), sys_status);
  978.              printf("\r\n");
  979.           } else {
  980. !            sprintf(very_long_buffer, catgets(elm_msg_cat, ElmSet, ElmMailerReturnedError,
  981.               "mailer returned error status %d"), sys_status);
  982.              set_error(very_long_buffer);
  983.           }
  984. ***************
  985. *** 642,659 ****
  986.                "Recall last kept message? (%c/%c) "),
  987.                *def_ans_yes, *def_ans_no);
  988.         do {
  989. !         PutLine0(LINES-1, 0, msg);
  990. !         CleartoEOLN();
  991. !         fflush(stdout);
  992. !         ch = ReadCh();
  993. !         ch = tolower(ch);
  994.           if (ch == *def_ans_yes) {
  995. -           Write_to_screen(catgets(elm_msg_cat, ElmSet, ElmYes, "Yes."), 0);    
  996.                 retransmit++;
  997.             *already_has_text = TRUE;
  998. !         } else if (ch == *def_ans_no) {
  999. !           Write_to_screen(catgets(elm_msg_cat, ElmSet, ElmNo, "No."), 0);    
  1000. !         } else {
  1001.             Write_to_screen("%c??", 1, 07);    /* BEEP */
  1002.             sleep(1);
  1003.             ch = 0;
  1004. --- 656,666 ----
  1005.                "Recall last kept message? (%c/%c) "),
  1006.                *def_ans_yes, *def_ans_no);
  1007.         do {
  1008. !         ch = want_to(msg, '\0', LINES-1);
  1009.           if (ch == *def_ans_yes) {
  1010.                 retransmit++;
  1011.             *already_has_text = TRUE;
  1012. !         } else if (ch != *def_ans_no) {
  1013.             Write_to_screen("%c??", 1, 07);    /* BEEP */
  1014.             sleep(1);
  1015.             ch = 0;
  1016. ***************
  1017. *** 1196,1216 ****
  1018.       MoveCursor(LINES,0);
  1019.       CleartoEOLN();
  1020.       MCsprintf(msg, catgets(elm_msg_cat, ElmSet, ElmBounceOffRemote,
  1021. !           "\"Bounce\" a copy off the remote machine? (%c/%c) %c%c"),
  1022. !           *def_ans_yes, *def_ans_no, *def_ans_yes, BACKSPACE);
  1023. !     PutLine0(LINES,0, msg);
  1024. !     fflush(stdin);    /* wait for answer! */
  1025. !     fflush(stdout);
  1026. !     ch = ReadCh();
  1027. !     if (tolower(ch) != *def_ans_yes) { 
  1028. !       Write_to_screen(catgets(elm_msg_cat, ElmSet, ElmNo, "No."), 0);
  1029. !       fflush(stdout);
  1030. !       return(FALSE);
  1031. !     }
  1032. !     Write_to_screen(catgets(elm_msg_cat, ElmSet, ElmYes, "Yes."), 0);
  1033. !     fflush(stdout);
  1034. ! 
  1035. !     return(TRUE);
  1036.   }
  1037.   
  1038.   
  1039. --- 1203,1212 ----
  1040.       MoveCursor(LINES,0);
  1041.       CleartoEOLN();
  1042.       MCsprintf(msg, catgets(elm_msg_cat, ElmSet, ElmBounceOffRemote,
  1043. !           "\"Bounce\" a copy off the remote machine? (%c/%c) "),
  1044. !           *def_ans_yes, *def_ans_no);
  1045. !     ch = want_to(msg, *def_ans_no, LINES);
  1046. !     return (ch == *def_ans_yes);
  1047.   }
  1048.   
  1049.   
  1050.  
  1051. Index: src/pattern.c
  1052. Prereq: 5.2
  1053. *** ../elm2.4/src/pattern.c    Thu Dec 24 18:56:59 1992
  1054. --- src/pattern.c    Thu Dec 24 19:30:44 1992
  1055. ***************
  1056. *** 1,8 ****
  1057.   
  1058. ! static char rcsid[] = "@(#)$Id: pattern.c,v 5.2 1992/11/26 00:46:50 syd Exp $";
  1059.   
  1060.   /*******************************************************************************
  1061. !  *  The Elm Mail System  -  $Revision: 5.2 $   $State: Exp $
  1062.    *
  1063.    *            Copyright (c) 1988-1992 USENET Community Trust
  1064.    *            Copyright (c) 1986,1987 Dave Taylor
  1065. --- 1,8 ----
  1066.   
  1067. ! static char rcsid[] = "@(#)$Id: pattern.c,v 5.5 1992/12/25 00:30:37 syd Exp $";
  1068.   
  1069.   /*******************************************************************************
  1070. !  *  The Elm Mail System  -  $Revision: 5.5 $   $State: Exp $
  1071.    *
  1072.    *            Copyright (c) 1988-1992 USENET Community Trust
  1073.    *            Copyright (c) 1986,1987 Dave Taylor
  1074. ***************
  1075. *** 14,19 ****
  1076. --- 14,31 ----
  1077.    *
  1078.    *******************************************************************************
  1079.    * $Log: pattern.c,v $
  1080. +  * Revision 5.5  1992/12/25  00:30:37  syd
  1081. +  * change way message works
  1082. +  *
  1083. +  * Revision 5.4  1992/12/25  00:22:39  syd
  1084. +  * add missing *
  1085. +  * From: Syd
  1086. +  *
  1087. +  * Revision 5.3  1992/12/24  21:42:01  syd
  1088. +  * Fix messages and nls messages to match.  Plus use want_to
  1089. +  * where appropriate.
  1090. +  * From: Syd, via prompting from Jan Djarv <Jan.Djarv@sa.erisoft.se>
  1091. +  *
  1092.    * Revision 5.2  1992/11/26  00:46:50  syd
  1093.    * Fix how errno is used so err is inited and used instead
  1094.    * as errno gets overwritten by print system call
  1095. ***************
  1096. *** 58,64 ****
  1097.   meta_match(function)
  1098.   int function;
  1099.   {
  1100. !     char    ch;
  1101.   
  1102.       /** Perform specific function based on whether an entered string 
  1103.           matches either the From or Subject lines.. 
  1104. --- 70,76 ----
  1105.   meta_match(function)
  1106.   int function;
  1107.   {
  1108. !     char    ch, tagmsg[SLEN];
  1109.   
  1110.       /** Perform specific function based on whether an entered string 
  1111.           matches either the From or Subject lines.. 
  1112. ***************
  1113. *** 94,117 ****
  1114.   
  1115.         if (tagged) {
  1116.           if (tagged > 1) {
  1117. !           PutLine1(LINES-2,0, catgets(elm_msg_cat, ElmSet, ElmSomeMessagesATagged,
  1118.           "Some %s are already tagged."), items);
  1119.             MCsprintf(msg, catgets(elm_msg_cat, ElmSet, ElmRemoveTags,
  1120. !         "Remove Tags? (%c/%c) %c%c"),
  1121. !         *def_ans_yes, *def_ans_no, *def_ans_yes, BACKSPACE);
  1122.           } else {
  1123. !           PutLine1(LINES-2,0, catgets(elm_msg_cat, ElmSet, ElmAMessageATagged,
  1124.           "One %s is already tagged."), item);
  1125.             MCsprintf(msg, catgets(elm_msg_cat, ElmSet, ElmRemoveTag,
  1126. !         "Remove Tag? (%c/%c) %c%c"),
  1127. !         *def_ans_yes, *def_ans_no, *def_ans_yes, BACKSPACE);
  1128.           }
  1129.       
  1130. !         Write_to_screen(msg, 0);
  1131. ! 
  1132. !         ch = ReadCh();
  1133. !         if (tolower(ch) != *def_ans_no) {    /* remove tags... */
  1134. !           Write_to_screen(catgets(elm_msg_cat, ElmSet, ElmYes, "Yes."), 0);
  1135.             for (i=0; i < message_count; i++) {
  1136.               if (inalias)
  1137.                 clearit(aliases[i]->status,TAGGED);
  1138. --- 106,126 ----
  1139.   
  1140.         if (tagged) {
  1141.           if (tagged > 1) {
  1142. !           MCsprintf(tagmsg, catgets(elm_msg_cat, ElmSet, ElmSomeMessagesATagged,
  1143.           "Some %s are already tagged."), items);
  1144.             MCsprintf(msg, catgets(elm_msg_cat, ElmSet, ElmRemoveTags,
  1145. !         "%s Remove Tags? (%c/%c) %c%c"),
  1146. !         tagmsg, *def_ans_yes, *def_ans_no);
  1147.           } else {
  1148. !           MCsprintf(tagmsg, catgets(elm_msg_cat, ElmSet, ElmAMessageATagged,
  1149.           "One %s is already tagged."), item);
  1150.             MCsprintf(msg, catgets(elm_msg_cat, ElmSet, ElmRemoveTag,
  1151. !         "%s Remove Tag? (%c/%c) "),
  1152. !         tagmsg, *def_ans_yes, *def_ans_no);
  1153.           }
  1154.       
  1155. !         ch = want_to(msg, *def_ans_yes, LINES-2);
  1156. !         if (ch != *def_ans_no) {    /* remove tags... */
  1157.             for (i=0; i < message_count; i++) {
  1158.               if (inalias)
  1159.                 clearit(aliases[i]->status,TAGGED);
  1160. ***************
  1161. *** 119,126 ****
  1162.                 clearit(headers[i]->status,TAGGED);
  1163.           show_new_status(i);
  1164.             }
  1165. !         } else
  1166. !           Write_to_screen(catgets(elm_msg_cat, ElmSet, ElmNo, "No."), 0);
  1167.         }
  1168.       }
  1169.       
  1170. --- 128,134 ----
  1171.                 clearit(headers[i]->status,TAGGED);
  1172.           show_new_status(i);
  1173.             }
  1174. !         }
  1175.         }
  1176.       }
  1177.       
  1178.  
  1179. Index: src/remail.c
  1180. Prereq: 5.6
  1181. *** ../elm2.4/src/remail.c    Thu Dec 24 18:57:00 1992
  1182. --- src/remail.c    Thu Dec 24 16:42:16 1992
  1183. ***************
  1184. *** 1,8 ****
  1185.   
  1186. ! static char rcsid[] = "@(#)$Id: remail.c,v 5.6 1992/11/26 01:46:26 syd Exp $";
  1187.   
  1188.   /*******************************************************************************
  1189. !  *  The Elm Mail System  -  $Revision: 5.6 $   $State: Exp $
  1190.    *
  1191.    *            Copyright (c) 1988-1992 USENET Community Trust
  1192.    *            Copyright (c) 1986,1987 Dave Taylor
  1193. --- 1,8 ----
  1194.   
  1195. ! static char rcsid[] = "@(#)$Id: remail.c,v 5.7 1992/12/24 21:42:01 syd Exp $";
  1196.   
  1197.   /*******************************************************************************
  1198. !  *  The Elm Mail System  -  $Revision: 5.7 $   $State: Exp $
  1199.    *
  1200.    *            Copyright (c) 1988-1992 USENET Community Trust
  1201.    *            Copyright (c) 1986,1987 Dave Taylor
  1202. ***************
  1203. *** 14,19 ****
  1204. --- 14,24 ----
  1205.    *
  1206.    *******************************************************************************
  1207.    * $Log: remail.c,v $
  1208. +  * Revision 5.7  1992/12/24  21:42:01  syd
  1209. +  * Fix messages and nls messages to match.  Plus use want_to
  1210. +  * where appropriate.
  1211. +  * From: Syd, via prompting from Jan Djarv <Jan.Djarv@sa.erisoft.se>
  1212. +  *
  1213.    * Revision 5.6  1992/11/26  01:46:26  syd
  1214.    * add Decode option to copy_message, convert copy_message to
  1215.    * use bit or for options.
  1216. ***************
  1217. *** 118,137 ****
  1218.       ClearLine(LINES-1);
  1219.       ClearLine(LINES);
  1220.       MCsprintf(buffer, catgets(elm_msg_cat, ElmSet, ElmSureYouWantToRemail,
  1221. !         "Are you sure you want to remail this message (%c/%c)? %c%c"),
  1222. !         *def_ans_yes, *def_ans_no, *def_ans_yes, BACKSPACE);
  1223. !     PutLine0(LINES-1, 0, buffer);
  1224.       fflush(stdin);
  1225. !     fflush(stdout);
  1226. !     ch = ReadCh();
  1227. !     if (tolower(ch) == *def_ans_no) { /* another day, another No... */
  1228. !       Write_to_screen(catgets(elm_msg_cat, ElmSet, ElmNo, "No."), 0);
  1229.         set_error(catgets(elm_msg_cat, ElmSet, ElmBounceCancelled,
  1230.           "Bounce of message cancelled."));
  1231.         (void) unlink(filename);
  1232.         return(1);
  1233.       }
  1234. -     Write_to_screen(catgets(elm_msg_cat, ElmSet, ElmYes, "Yes."), 0);
  1235.   
  1236.       if (strcmp(sendmail, mailer) == 0
  1237.   #ifdef SITE_HIDING
  1238. --- 123,138 ----
  1239.       ClearLine(LINES-1);
  1240.       ClearLine(LINES);
  1241.       MCsprintf(buffer, catgets(elm_msg_cat, ElmSet, ElmSureYouWantToRemail,
  1242. !         "Are you sure you want to remail this message (%c/%c)? "),
  1243. !         *def_ans_yes, *def_ans_no);
  1244.       fflush(stdin);
  1245. !     ch = want_to(buffer, *def_ans_yes, LINES-1);
  1246. !     if (ch == *def_ans_no) { /* another day, another No... */
  1247.         set_error(catgets(elm_msg_cat, ElmSet, ElmBounceCancelled,
  1248.           "Bounce of message cancelled."));
  1249.         (void) unlink(filename);
  1250.         return(1);
  1251.       }
  1252.   
  1253.       if (strcmp(sendmail, mailer) == 0
  1254.   #ifdef SITE_HIDING
  1255.  
  1256. Index: src/reply.c
  1257. Prereq: 5.6
  1258. *** ../elm2.4/src/reply.c    Thu Dec 24 18:57:00 1992
  1259. --- src/reply.c    Thu Dec 24 16:42:17 1992
  1260. ***************
  1261. *** 1,8 ****
  1262.   
  1263. ! static char rcsid[] = "@(#)$Id: reply.c,v 5.6 1992/12/11 01:45:04 syd Exp $";
  1264.   
  1265.   /*******************************************************************************
  1266. !  *  The Elm Mail System  -  $Revision: 5.6 $   $State: Exp $
  1267.    *
  1268.    *            Copyright (c) 1988-1992 USENET Community Trust
  1269.    *            Copyright (c) 1986,1987 Dave Taylor
  1270. --- 1,8 ----
  1271.   
  1272. ! static char rcsid[] = "@(#)$Id: reply.c,v 5.7 1992/12/24 21:42:01 syd Exp $";
  1273.   
  1274.   /*******************************************************************************
  1275. !  *  The Elm Mail System  -  $Revision: 5.7 $   $State: Exp $
  1276.    *
  1277.    *            Copyright (c) 1988-1992 USENET Community Trust
  1278.    *            Copyright (c) 1986,1987 Dave Taylor
  1279. ***************
  1280. *** 14,19 ****
  1281. --- 14,24 ----
  1282.    *
  1283.    *******************************************************************************
  1284.    * $Log: reply.c,v $
  1285. +  * Revision 5.7  1992/12/24  21:42:01  syd
  1286. +  * Fix messages and nls messages to match.  Plus use want_to
  1287. +  * where appropriate.
  1288. +  * From: Syd, via prompting from Jan Djarv <Jan.Djarv@sa.erisoft.se>
  1289. +  *
  1290.    * Revision 5.6  1992/12/11  01:45:04  syd
  1291.    * remove sys/types.h include, it is now included by defs.h
  1292.    * and this routine includes defs.h or indirectly includes defs.h
  1293. ***************
  1294. *** 306,312 ****
  1295.           return_address,full_address));
  1296.   
  1297.       get_reply_subj( subject, headers[current-1]->subject,
  1298. !           catgets(elm_msg_cat, ElmSet, ElmFilledInForm, "Re: your mail"));
  1299.   
  1300.           return_value = send_msg(return_address, full_address, subject, 
  1301.           TRUE, NO, TRUE);
  1302. --- 311,317 ----
  1303.           return_address,full_address));
  1304.   
  1305.       get_reply_subj( subject, headers[current-1]->subject,
  1306. !           catgets(elm_msg_cat, ElmSet, ElmReYourMail, "Re: your mail"));
  1307.   
  1308.           return_value = send_msg(return_address, full_address, subject, 
  1309.           TRUE, NO, TRUE);
  1310. ***************
  1311. *** 339,345 ****
  1312.       else {
  1313.         MCsprintf(subject, catgets(elm_msg_cat, ElmSet, ElmEditOutgoingMessage,
  1314.             "Edit outgoing message? (%c/%c) "), *def_ans_yes, *def_ans_no);
  1315. !       edit_msg = (want_to(subject, *def_ans_yes) != *def_ans_no);
  1316.       }
  1317.   
  1318.       if (strlen(headers[current-1]->subject) > 0) {
  1319. --- 344,350 ----
  1320.       else {
  1321.         MCsprintf(subject, catgets(elm_msg_cat, ElmSet, ElmEditOutgoingMessage,
  1322.             "Edit outgoing message? (%c/%c) "), *def_ans_yes, *def_ans_no);
  1323. !       edit_msg = (want_to(subject, *def_ans_yes, LINES-3) != *def_ans_no);
  1324.       }
  1325.   
  1326.       if (strlen(headers[current-1]->subject) > 0) {
  1327.  
  1328. Index: src/returnadd.c
  1329. Prereq: 5.5
  1330. *** ../elm2.4/src/returnadd.c    Thu Dec 24 18:57:01 1992
  1331. --- src/returnadd.c    Sun Dec 20 00:25:14 1992
  1332. ***************
  1333. *** 1,8 ****
  1334.   
  1335. ! static char rcsid[] = "@(#)$Id: returnadd.c,v 5.5 1992/12/11 01:45:04 syd Exp $";
  1336.   
  1337.   /*******************************************************************************
  1338. !  *  The Elm Mail System  -  $Revision: 5.5 $   $State: Exp $
  1339.    *
  1340.    *            Copyright (c) 1988-1992 USENET Community Trust
  1341.    *            Copyright (c) 1986,1987 Dave Taylor
  1342. --- 1,8 ----
  1343.   
  1344. ! static char rcsid[] = "@(#)$Id: returnadd.c,v 5.6 1992/12/20 05:25:13 syd Exp $";
  1345.   
  1346.   /*******************************************************************************
  1347. !  *  The Elm Mail System  -  $Revision: 5.6 $   $State: Exp $
  1348.    *
  1349.    *            Copyright (c) 1988-1992 USENET Community Trust
  1350.    *            Copyright (c) 1986,1987 Dave Taylor
  1351. ***************
  1352. *** 14,19 ****
  1353. --- 14,23 ----
  1354.    *
  1355.    *******************************************************************************
  1356.    * $Log: returnadd.c,v $
  1357. +  * Revision 5.6  1992/12/20  05:25:13  syd
  1358. +  * Always pass three parameters to header_cmp().
  1359. +  * From: chip@tct.com (Chip Salzenberg)
  1360. +  *
  1361.    * Revision 5.5  1992/12/11  01:45:04  syd
  1362.    * remove sys/types.h include, it is now included by defs.h
  1363.    * and this routine includes defs.h or indirectly includes defs.h
  1364. ***************
  1365. *** 231,237 ****
  1366.       else
  1367.         add_site(buffer, name1, lastname);    /* get the user name too! */
  1368.   
  1369. !     if (header_cmp(buffer, "To")) {    /* for backward compatibility */
  1370.         get_existing_address(buffer, msgnum);
  1371.         using_to = TRUE;
  1372.       }
  1373. --- 235,241 ----
  1374.       else
  1375.         add_site(buffer, name1, lastname);    /* get the user name too! */
  1376.   
  1377. !     if (header_cmp(buffer, "To", NULL)) {    /* backward compatibility ho */
  1378.         get_existing_address(buffer, msgnum);
  1379.         using_to = TRUE;
  1380.       }
  1381.  
  1382. Index: src/savecopy.c
  1383. Prereq: 5.4
  1384. *** ../elm2.4/src/savecopy.c    Thu Dec 24 18:57:01 1992
  1385. --- src/savecopy.c    Thu Dec 24 19:18:19 1992
  1386. ***************
  1387. *** 1,8 ****
  1388.   
  1389. ! static char rcsid[] = "@(#)$Id: savecopy.c,v 5.4 1992/11/26 00:46:50 syd Exp $";
  1390.   
  1391.   /*******************************************************************************
  1392. !  *  The Elm Mail System  -  $Revision: 5.4 $   $State: Exp $
  1393.    *
  1394.    *             Copyright (c) 1988-1992 USENET Community Trust
  1395.    *             Copyright (c) 1986,1987 Dave Taylor
  1396. --- 1,8 ----
  1397.   
  1398. ! static char rcsid[] = "@(#)$Id: savecopy.c,v 5.6 1992/12/25 00:18:10 syd Exp $";
  1399.   
  1400.   /*******************************************************************************
  1401. !  *  The Elm Mail System  -  $Revision: 5.6 $   $State: Exp $
  1402.    *
  1403.    *             Copyright (c) 1988-1992 USENET Community Trust
  1404.    *             Copyright (c) 1986,1987 Dave Taylor
  1405. ***************
  1406. *** 14,19 ****
  1407. --- 14,28 ----
  1408.    *
  1409.    *******************************************************************************
  1410.    * $Log: savecopy.c,v $
  1411. +  * Revision 5.6  1992/12/25  00:18:10  syd
  1412. +  * Remove editing garbage from end
  1413. +  * From: Syd
  1414. +  *
  1415. +  * Revision 5.5  1992/12/24  21:42:01  syd
  1416. +  * Fix messages and nls messages to match.  Plus use want_to
  1417. +  * where appropriate.
  1418. +  * From: Syd, via prompting from Jan Djarv <Jan.Djarv@sa.erisoft.se>
  1419. +  *
  1420.    * Revision 5.4  1992/11/26  00:46:50  syd
  1421.    * Fix how errno is used so err is inited and used instead
  1422.    * as errno gets overwritten by print system call
  1423. ***************
  1424. *** 81,87 ****
  1425.            *write_header_info();
  1426.       char  buffer[SLEN],    /* read buffer                */
  1427.             savename[SLEN],    /* name of file saving into    */
  1428. !           ch;
  1429.       register int
  1430.            is_ordinary_file;
  1431.       int  err;
  1432. --- 90,96 ----
  1433.            *write_header_info();
  1434.       char  buffer[SLEN],    /* read buffer                */
  1435.             savename[SLEN],    /* name of file saving into    */
  1436. !           ch, msg_buffer[SLEN], answer;
  1437.       register int
  1438.            is_ordinary_file;
  1439.       int  err;
  1440. ***************
  1441. *** 143,173 ****
  1442.               strcpy(savename, sent_mail);
  1443.           }
  1444.           else {
  1445. !             PutLine1 (LINES-2, 0,
  1446. !                           /*
  1447. !                            *    Well it should be like this but...
  1448. !                   catgets (elm_msg_cat, ElmSet, ElmConfirmFiles,
  1449. !                    "Append to an existing file `%s'? (y/n) n"),
  1450. !                            */
  1451. !                   is_ordinary_file
  1452. !                   ? "Append to an existing file `%s'? (y/n) n"
  1453. !                   : "Append to mail folder `%s'? (y/n) n",
  1454. !                   savename);
  1455. !             ch = ReadCh ();
  1456. !             ch = tolower (ch);
  1457. !             PutLine2 (LINES-2, 0,
  1458. !                   is_ordinary_file
  1459. !                   ? "Append to an existing file `%s'? (y/n) %s"
  1460. !                   : "Append to mail folder `%s'? (y/n) %s",
  1461. !                   savename,
  1462. !                   (ch == *def_ans_yes) ? "Yes" : "No");
  1463. !             sleep (1);
  1464. !             ClearLine (LINES-2);
  1465.   
  1466. !             if (ch != *def_ans_yes) {
  1467.               strcpy(savename, sent_mail);
  1468. !             PutLine1 (LINES-2, 0,
  1469. !                   "Alright - saving to `%s' instead",
  1470.                     savename);
  1471.               sleep (3);
  1472.               ClearLine (LINES-2);
  1473. --- 152,172 ----
  1474.               strcpy(savename, sent_mail);
  1475.           }
  1476.           else {
  1477. !             if (is_ordinary_file)
  1478. !               MCsprintf(msg_buffer, catgets(elm_msg_cat, ElmSet, ElmConfirmFilesAppend,
  1479. !               "Append to an existing file `%s'? (%c/%c) "),
  1480. !             filename, *def_ans_yes, *def_ans_no);
  1481. !             else
  1482. !               MCsprintf(msg_buffer, catgets(elm_msg_cat, ElmSet, ElmConfirmFolderAppend,
  1483. !               "Append to mail folder `%s'? (%c/%c) "),
  1484. !             filename, *def_ans_yes, *def_ans_no);
  1485.   
  1486. !             answer = want_to(buffer, *def_ans_no, LINES-2);
  1487. ! 
  1488. !             if (answer != *def_ans_yes) {
  1489.               strcpy(savename, sent_mail);
  1490. !             PutLine1 (LINES-2, 0, catgets(elm_msg_cat, ElmSet, ElmSavingToInstead,
  1491. !                   "Alright - saving to `%s' instead"),
  1492.                     savename);
  1493.               sleep (3);
  1494.               ClearLine (LINES-2);
  1495. ***************
  1496. *** 186,216 ****
  1497.               strcpy(savename, sent_mail);
  1498.           }
  1499.           else {
  1500. !             PutLine1 (LINES-2, 0,
  1501. !                           /*
  1502. !                            *    Well it should be like this but...
  1503. !                   catgets (elm_msg_cat, ElmSet, ElmConfirmFolders,
  1504. !                                     "Create a new mail folder `%s'? (y/n) n"),
  1505. !                            */
  1506. !                   !is_ordinary_file
  1507. !                   ? "Create a new mail folder `%s'? (y/n) n"
  1508. !                   : "Create a new file `%s'? (y/n) n",
  1509. !                   savename);
  1510. !             ch = ReadCh ();
  1511. !             ch = tolower (ch);
  1512. !             PutLine2 (LINES-2, 0,
  1513. !                   !is_ordinary_file
  1514. !                   ? "Create a new mail folder `%s'? (y/n) %s"
  1515. !                   : "Create a new file `%s'? (y/n) %s",
  1516. !                   savename,
  1517. !                   (ch == *def_ans_yes) ? "Yes" : "No");
  1518. !             sleep (1);
  1519. !             ClearLine (LINES-2);
  1520.   
  1521.               if (ch != *def_ans_yes) {
  1522.               strcpy(savename, sent_mail);
  1523. !             PutLine1 (LINES-2, 0,
  1524. !                   "Alright - saving to `%s' instead",
  1525.                     savename);
  1526.               sleep (3);
  1527.               ClearLine (LINES-2);
  1528. --- 185,205 ----
  1529.               strcpy(savename, sent_mail);
  1530.           }
  1531.           else {
  1532. !             if (is_ordinary_file)
  1533. !               MCsprintf(msg_buffer, catgets(elm_msg_cat, ElmSet, ElmConfirmFilesCreate,
  1534. !               "Create a new file `%s'? (%c/%c) "),
  1535. !             filename, *def_ans_yes, *def_ans_no);
  1536. !             else
  1537. !               MCsprintf(msg_buffer, catgets(elm_msg_cat, ElmSet, ElmConfirmFolderCreate,
  1538. !               "Create a new mail folder `%s'? (%c/%c) "),
  1539. !             filename, *def_ans_yes, *def_ans_no);
  1540. ! 
  1541. !             answer = want_to(buffer, *def_ans_no, LINES-2);
  1542.   
  1543.               if (ch != *def_ans_yes) {
  1544.               strcpy(savename, sent_mail);
  1545. !             PutLine1 (LINES-2, 0, catgets(elm_msg_cat, ElmSet, ElmSavingToInstead,
  1546. !                   "Alright - saving to `%s' instead"),
  1547.                     savename);
  1548.               sleep (3);
  1549.               ClearLine (LINES-2);
  1550.  
  1551. Index: src/strings.c
  1552. Prereq: 5.2
  1553. *** ../elm2.4/src/strings.c    Mon Oct 19 13:04:09 1992
  1554. --- src/strings.c    Thu Dec 24 17:17:05 1992
  1555. ***************
  1556. *** 1,8 ****
  1557.   
  1558. ! static char rcsid[] = "@(#)$Id: strings.c,v 5.2 1992/10/17 22:30:43 syd Exp $";
  1559.   
  1560.   /*******************************************************************************
  1561. !  *  The Elm Mail System  -  $Revision: 5.2 $   $State: Exp $
  1562.    *
  1563.    *             Copyright (c) 1986, 1987 Dave Taylor
  1564.    *             Copyright (c) 1988, 1989, 1990, 1991 USENET Community Trust
  1565. --- 1,8 ----
  1566.   
  1567. ! static char rcsid[] = "@(#)$Id: strings.c,v 5.3 1992/12/24 22:16:06 syd Exp $";
  1568.   
  1569.   /*******************************************************************************
  1570. !  *  The Elm Mail System  -  $Revision: 5.3 $   $State: Exp $
  1571.    *
  1572.    *             Copyright (c) 1986, 1987 Dave Taylor
  1573.    *             Copyright (c) 1988, 1989, 1990, 1991 USENET Community Trust
  1574. ***************
  1575. *** 14,19 ****
  1576. --- 14,23 ----
  1577.    *
  1578.    *******************************************************************************
  1579.    * $Log: strings.c,v $
  1580. +  * Revision 5.3  1992/12/24  22:16:06  syd
  1581. +  * Make copy_sans_escape expand tabs to prevent subject displays from getting messed up
  1582. +  * From: Syd via request from pgf@Cayman.COM (Paul Fox)
  1583. +  *
  1584.    * Revision 5.2  1992/10/17  22:30:43  syd
  1585.    * Force text arithimetic into unsigned for those systems
  1586.    * with signed chars
  1587. ***************
  1588. *** 59,68 ****
  1589.           format (e.g. ^(char value + 32))
  1590.       **/
  1591.   
  1592. !     register int i = 0, j = 0;
  1593.   
  1594.       while (i < len && j < len && source[i] != '\0') {
  1595. !       if (iscntrl(source[i]) && source[i] != '\t') {
  1596.            dest[j++] = '^';
  1597.            if (j < len)
  1598.           dest[j++] = source[i++] + 'A' - 1;
  1599. --- 63,77 ----
  1600.           format (e.g. ^(char value + 32))
  1601.       **/
  1602.   
  1603. !     register int i = 0, j = 0, n = 0;
  1604. !     extern int tabspacing;
  1605.   
  1606.       while (i < len && j < len && source[i] != '\0') {
  1607. !       if (source[i] == '\t') {
  1608. !          n = next_tab(j) - j;
  1609. !          while (n-- && j < len)
  1610. !          dest[j++] = ' ';
  1611. !       } else if (iscntrl(source[i])) {
  1612.            dest[j++] = '^';
  1613.            if (j < len)
  1614.           dest[j++] = source[i++] + 'A' - 1;
  1615.  
  1616. Index: src/syscall.c
  1617. Prereq: 5.5
  1618. *** ../elm2.4/src/syscall.c    Thu Dec 24 18:57:02 1992
  1619. --- src/syscall.c    Sun Dec 20 00:29:34 1992
  1620. ***************
  1621. *** 1,8 ****
  1622.   
  1623. ! static char rcsid[] = "@(#)$Id: syscall.c,v 5.5 1992/12/11 02:05:26 syd Exp $";
  1624.   
  1625.   /*******************************************************************************
  1626. !  *  The Elm Mail System  -  $Revision: 5.5 $   $State: Exp $
  1627.    *
  1628.    *            Copyright (c) 1988-1992 USENET Community Trust
  1629.    *            Copyright (c) 1986,1987 Dave Taylor
  1630. --- 1,8 ----
  1631.   
  1632. ! static char rcsid[] = "@(#)$Id: syscall.c,v 5.6 1992/12/20 05:29:33 syd Exp $";
  1633.   
  1634.   /*******************************************************************************
  1635. !  *  The Elm Mail System  -  $Revision: 5.6 $   $State: Exp $
  1636.    *
  1637.    *            Copyright (c) 1988-1992 USENET Community Trust
  1638.    *            Copyright (c) 1986,1987 Dave Taylor
  1639. ***************
  1640. *** 14,19 ****
  1641. --- 14,25 ----
  1642.    *
  1643.    *******************************************************************************
  1644.    * $Log: syscall.c,v $
  1645. +  * Revision 5.6  1992/12/20  05:29:33  syd
  1646. +  * Fixed where when doing ! or | and ti/te is enabled, one doesn't see the
  1647. +  * "Press any key to return to ELM:" message. because the screens are
  1648. +  * switched before the message is printed.
  1649. +  * From: Jan Djarv <Jan.Djarv@sa.erisoft.se>
  1650. +  *
  1651.    * Revision 5.5  1992/12/11  02:05:26  syd
  1652.    * List_folder knew only about '=' but nothing about the rest
  1653.    * of [+=%] as one would have expected.
  1654. ***************
  1655. *** 103,112 ****
  1656.       SetXYLocation(0, 40);    /* a location not near the next request, so an absolute is used */
  1657.       PutLine0(LINES, 0, catgets(elm_msg_cat, ElmSet, ElmPressAnyKeyToReturn,
  1658.           "\n\nPress any key to return to ELM: "));
  1659. !     Raw(ON);
  1660.       (void) getchar();
  1661. !     if (old_raw == OFF)
  1662. !       Raw(OFF);
  1663.       softkeys_on();
  1664.       if (cursor_control)
  1665.         transmit_functions(ON);
  1666. --- 109,121 ----
  1667.       SetXYLocation(0, 40);    /* a location not near the next request, so an absolute is used */
  1668.       PutLine0(LINES, 0, catgets(elm_msg_cat, ElmSet, ElmPressAnyKeyToReturn,
  1669.           "\n\nPress any key to return to ELM: "));
  1670. !     Raw(ON | NO_TITE);
  1671.       (void) getchar();
  1672. !     printf("\r\n");
  1673. !     Raw(OFF | NO_TITE); /* Done even if old_raw == ON, to get ti/te right */
  1674. !     if (old_raw == ON)
  1675. !       Raw(ON);
  1676. ! 
  1677.       softkeys_on();
  1678.       if (cursor_control)
  1679.         transmit_functions(ON);
  1680. ***************
  1681. *** 345,353 ****
  1682.       SetXYLocation(0, 40);    /* a location not near the next request, so an absolute is used */
  1683.       PutLine0(LINES, 0, catgets(elm_msg_cat, ElmSet, ElmPressAnyKeyToReturn,
  1684.           "\n\nPress any key to return to ELM: "));
  1685. !     if (old_raw == ON)
  1686. !        Raw(ON);
  1687.       (void) getchar();
  1688.       if (cursor_control)  transmit_functions(ON);
  1689.   
  1690.       if (ret != 0)
  1691. --- 354,367 ----
  1692.       SetXYLocation(0, 40);    /* a location not near the next request, so an absolute is used */
  1693.       PutLine0(LINES, 0, catgets(elm_msg_cat, ElmSet, ElmPressAnyKeyToReturn,
  1694.           "\n\nPress any key to return to ELM: "));
  1695. ! 
  1696. !     Raw(ON | NO_TITE);
  1697.       (void) getchar();
  1698. +     printf("\r\n");
  1699. +     Raw(OFF | NO_TITE); /* Done even if old_raw == ON, to get ti/te right */
  1700. +     if (old_raw == ON)
  1701. +       Raw(ON);
  1702. + 
  1703.       if (cursor_control)  transmit_functions(ON);
  1704.   
  1705.       if (ret != 0)
  1706.  
  1707. Index: src/utils.c
  1708. Prereq: 5.4
  1709. *** ../elm2.4/src/utils.c    Thu Dec 24 18:57:03 1992
  1710. --- src/utils.c    Mon Jan  4 22:40:45 1993
  1711. ***************
  1712. *** 1,8 ****
  1713.   
  1714. ! static char rcsid[] = "@(#)$Id: utils.c,v 5.4 1992/12/11 01:45:04 syd Exp $";
  1715.   
  1716.   /*******************************************************************************
  1717. !  *  The Elm Mail System  -  $Revision: 5.4 $   $State: Exp $
  1718.    *
  1719.    *            Copyright (c) 1988-1992 USENET Community Trust
  1720.    *            Copyright (c) 1986,1987 Dave Taylor
  1721. --- 1,8 ----
  1722.   
  1723. ! static char rcsid[] = "@(#)$Id: utils.c,v 5.6 1993/01/05 03:40:45 syd Exp $";
  1724.   
  1725.   /*******************************************************************************
  1726. !  *  The Elm Mail System  -  $Revision: 5.6 $   $State: Exp $
  1727.    *
  1728.    *            Copyright (c) 1988-1992 USENET Community Trust
  1729.    *            Copyright (c) 1986,1987 Dave Taylor
  1730. ***************
  1731. *** 14,19 ****
  1732. --- 14,28 ----
  1733.    *
  1734.    *******************************************************************************
  1735.    * $Log: utils.c,v $
  1736. +  * Revision 5.6  1993/01/05  03:40:45  syd
  1737. +  * Protect TSTP for those systems without it.
  1738. +  * From: kevin@cfctech.cfc.com (Kevin Darcy)
  1739. +  *
  1740. +  * Revision 5.5  1992/12/24  22:05:11  syd
  1741. +  * Some OS's, especially ULTRIX create extra continue signals
  1742. +  * that confuse Elm on exit
  1743. +  * From: Syd via patch from Bob Mason
  1744. +  *
  1745.    * Revision 5.4  1992/12/11  01:45:04  syd
  1746.    * remove sys/types.h include, it is now included by defs.h
  1747.    * and this routine includes defs.h or indirectly includes defs.h
  1748. ***************
  1749. *** 150,155 ****
  1750. --- 159,178 ----
  1751.   
  1752.       char *mk_lockname();
  1753.   
  1754. + /*
  1755. +  *    some OS's get extra cont signal, so once this far into the
  1756. +  *    exit, ignore those signals (Especially Ultrix)
  1757. +  */
  1758. + #ifdef SIGTSTP
  1759. +     signal(SIGTSTP,SIG_IGN);
  1760. + #endif
  1761. + #ifdef SIGSTOP
  1762. +     signal(SIGSTOP,SIG_IGN);
  1763. + #endif
  1764. + #ifdef SIGCONT
  1765. +     signal(SIGCONT,SIG_IGN);
  1766. + #endif
  1767. + 
  1768.       dprint(1, (debugfile,
  1769.        "\nERROR: Something dreadful is happening!  Taking emergency exit!!\n\n"));
  1770.       dprint(1, (debugfile,
  1771. ***************
  1772. *** 176,202 ****
  1773.   }
  1774.   rm_temps_exit()
  1775.   {
  1776. !       char buffer[SLEN];
  1777. !       int do_cursor = RawState();
  1778.   
  1779. !       PutLine0(LINES, 0, catgets(elm_msg_cat, ElmSet, ElmWriteFailedExitingIntact,
  1780. !          "\nWrite to temp file failed, exiting leaving mailbox intact!\n\n"));
  1781. !       dprint(2, (debugfile, "\nrm_temps_exit, deleteing temp files\n"));
  1782. ! 
  1783. !       if (cursor_control)  transmit_functions(OFF);
  1784. !       if (hp_terminal)     softkeys_off();
  1785. !       sprintf(buffer,"%s%d",temp_file, getpid());  /* editor buffer */
  1786. !       (void) unlink(buffer);
  1787. !       if (folder_type == SPOOL) {
  1788. !         (void) unlink(cur_tempfolder);
  1789. !       }
  1790. !       unlock();                               /* remove lock file if any */
  1791. !       if(do_cursor) {
  1792. !         MoveCursor(LINES,0);
  1793. !         NewLine();
  1794. !         Raw(OFF);
  1795. !       }
  1796. !       exit(1);
  1797.   }
  1798.   
  1799.   /*ARGSUSED*/
  1800. --- 199,244 ----
  1801.   }
  1802.   rm_temps_exit()
  1803.   {
  1804. !     char buffer[SLEN];
  1805. !     int do_cursor = RawState();
  1806. ! 
  1807. ! /*
  1808. !  *    some OS's get extra cont signal, so once this far into the
  1809. !  *    exit, ignore those signals (Especially Ultrix)
  1810. !  */
  1811. ! #ifdef SIGTSTP
  1812. !     signal(SIGTSTP,SIG_IGN);
  1813. ! #endif
  1814. ! #ifdef SIGSTOP
  1815. !     signal(SIGSTOP,SIG_IGN);
  1816. ! #endif
  1817. ! #ifdef SIGCONT
  1818. !     signal(SIGCONT,SIG_IGN);
  1819. ! #endif
  1820. ! 
  1821. !     PutLine0(LINES, 0, catgets(elm_msg_cat, ElmSet, ElmWriteFailedExitingIntact,
  1822. !      "\nWrite to temp file failed, exiting leaving mailbox intact!\n\n"));
  1823. !     dprint(2, (debugfile, "\nrm_temps_exit, deleteing temp files\n"));
  1824. ! 
  1825. !     if (cursor_control)  transmit_functions(OFF);
  1826. !     if (hp_terminal)     softkeys_off();
  1827. ! 
  1828. !     sprintf(buffer,"%s%d",temp_file, getpid());  /* editor buffer */
  1829. !     (void) unlink(buffer);
  1830. ! 
  1831. !     if (folder_type == SPOOL) {
  1832. !         (void) unlink(cur_tempfolder);
  1833. !     }
  1834. ! 
  1835. !     unlock();                               /* remove lock file if any */
  1836. ! 
  1837. !     if(do_cursor) {
  1838. !         MoveCursor(LINES,0);
  1839. !         NewLine();
  1840. !         Raw(OFF);
  1841. !     }
  1842.   
  1843. !     exit(1);
  1844.   }
  1845.   
  1846.   /*ARGSUSED*/
  1847. ***************
  1848. *** 208,213 ****
  1849. --- 250,269 ----
  1850.       char buffer[SLEN];
  1851.       int do_cursor = RawState();
  1852.   
  1853. + /*
  1854. +  *    some OS's get extra cont signal, so once this far into the
  1855. +  *    exit, ignore those signals (Especially Ultrix)
  1856. +  */
  1857. + #ifdef SIGTSTP
  1858. +     signal(SIGTSTP,SIG_IGN);
  1859. + #endif
  1860. + #ifdef SIGSTOP
  1861. +     signal(SIGSTOP,SIG_IGN);
  1862. + #endif
  1863. + #ifdef SIGCONT
  1864. +     signal(SIGCONT,SIG_IGN);
  1865. + #endif
  1866. + 
  1867.       dprint(2, (debugfile, "\nLeaving mailer normally (leave)\n"));
  1868.   
  1869.       if (cursor_control)  transmit_functions(OFF);
  1870. ***************
  1871. *** 240,245 ****
  1872. --- 296,315 ----
  1873.       char buffer[SLEN];
  1874.       int do_cursor = RawState();
  1875.   
  1876. + /*
  1877. +  *    some OS's get extra cont signal, so once this far into the
  1878. +  *    exit, ignore those signals (Especially Ultrix)
  1879. +  */
  1880. + #ifdef SIGTSTP
  1881. +     signal(SIGTSTP,SIG_IGN);
  1882. + #endif
  1883. + #ifdef SIGSTOP
  1884. +     signal(SIGSTOP,SIG_IGN);
  1885. + #endif
  1886. + #ifdef SIGCONT
  1887. +     signal(SIGCONT,SIG_IGN);
  1888. + #endif
  1889. + 
  1890.       dprint(2, (debugfile, "\nLeaving mailer quietly (silently_exit)\n"));
  1891.   
  1892.       if (cursor_control)  transmit_functions(OFF);
  1893. ***************
  1894. *** 267,272 ****
  1895. --- 337,356 ----
  1896.   
  1897.       char buffer[SLEN];
  1898.           int do_cursor = RawState();
  1899. + 
  1900. + /*
  1901. +  *    some OS's get extra cont signal, so once this far into the
  1902. +  *    exit, ignore those signals (Especially Ultrix)
  1903. +  */
  1904. + #ifdef SIGTSTP
  1905. +     signal(SIGTSTP,SIG_IGN);
  1906. + #endif
  1907. + #ifdef SIGSTOP
  1908. +     signal(SIGSTOP,SIG_IGN);
  1909. + #endif
  1910. + #ifdef SIGCONT
  1911. +     signal(SIGCONT,SIG_IGN);
  1912. + #endif
  1913.   
  1914.           dprint(3, (debugfile,
  1915.           "\nLeaving mailer due to presence of lock file (leave_locked)\n"));
  1916.  
  1917. Index: utils/listalias.c
  1918. Prereq: 5.5
  1919. *** ../elm2.4/utils/listalias.c    Tue Nov 17 14:11:05 1992
  1920. --- utils/listalias.c    Sun Dec 20 00:16:02 1992
  1921. ***************
  1922. *** 1,8 ****
  1923.   
  1924. ! static char rcsid[] = "@(#)$Id: listalias.c,v 5.5 1992/11/15 01:24:34 syd Exp $";
  1925.   
  1926.   /*******************************************************************************
  1927. !  *  The Elm Mail System  -  $Revision: 5.5 $   $State: Exp $
  1928.    *
  1929.    *             Copyright (c) 1988-1992 USENET Community Trust
  1930.    *             Copyright (c) 1986,1987 Dave Taylor
  1931. --- 1,8 ----
  1932.   
  1933. ! static char rcsid[] = "@(#)$Id: listalias.c,v 5.6 1992/12/20 05:15:58 syd Exp $";
  1934.   
  1935.   /*******************************************************************************
  1936. !  *  The Elm Mail System  -  $Revision: 5.6 $   $State: Exp $
  1937.    *
  1938.    *             Copyright (c) 1988-1992 USENET Community Trust
  1939.    *             Copyright (c) 1986,1987 Dave Taylor
  1940. ***************
  1941. *** 14,19 ****
  1942. --- 14,24 ----
  1943.    *
  1944.    *******************************************************************************
  1945.    * $Log: listalias.c,v $
  1946. +  * Revision 5.6  1992/12/20  05:15:58  syd
  1947. +  * Add a c)hange alias, -u and -t options to listalias to list only user
  1948. +  * and only system aliases respectively.
  1949. +  * From: "Robert L. Howard" <robert.howard@matd.gatech.edu>
  1950. +  *
  1951.    * Revision 5.5  1992/11/15  01:24:34  syd
  1952.    * The situation is that the .elm/aliases file is missing, but
  1953.    * .elm/aliases.dir and .elm/aliases.pag exist (isn't serendipity
  1954. ***************
  1955. *** 65,80 ****
  1956.   FILE *debugfile = stderr;
  1957.   #endif
  1958.   
  1959.   main(argc, argv)
  1960.   int argc;
  1961.   char *argv[];
  1962.   {
  1963. !     FILE *fd_pipe, *datafile;
  1964. !     DBZ *db;
  1965. !     struct alias_rec alias_entry;
  1966. !     int count = 0, len;
  1967. !     char buffer[VERY_LONG_STRING], fd_hash[SLEN], 
  1968. !          fd_data[SLEN], *home;
  1969.   
  1970.   #ifdef I_LOCALE
  1971.       setlocale(LC_ALL, "");
  1972. --- 70,90 ----
  1973.   FILE *debugfile = stderr;
  1974.   #endif
  1975.   
  1976. + static void usage();
  1977. + 
  1978.   main(argc, argv)
  1979.   int argc;
  1980.   char *argv[];
  1981.   {
  1982. !     extern int optind;
  1983. ! 
  1984. !     FILE *fd_pipe;
  1985. ! 
  1986. !     int system = TRUE, user = TRUE;
  1987. !     int err_flag = 0;
  1988. ! 
  1989. !     char buffer[SLEN], fd_data[SLEN], *home;
  1990. !     char c;
  1991.   
  1992.   #ifdef I_LOCALE
  1993.       setlocale(LC_ALL, "");
  1994. ***************
  1995. *** 82,102 ****
  1996.   
  1997.       elm_msg_cat = catopen("elm2.4", 0);
  1998.   
  1999. !     if (argc > 2) {
  2000. !       fprintf(stderr, catgets(elm_msg_cat, NewaliasSet, NewaliasListUsage,
  2001. !         "Usage: listalias <optional-regular-expression>\n"));
  2002. !       exit(1);
  2003.       }
  2004.   
  2005. !     home = getenv("HOME");
  2006. ! 
  2007. !     sprintf(fd_data, "%s/%s", home, ALIAS_DATA);
  2008. ! 
  2009. !     if (argc > 1)
  2010. !       sprintf(buffer, "egrep \"%s\" | sort", argv[1]);
  2011.       else
  2012. !       sprintf(buffer, "sort");
  2013.   
  2014.       if ((fd_pipe = popen(buffer, "w")) == NULL) {
  2015.         if (argc > 1) 
  2016.           fprintf(stderr, catgets(elm_msg_cat, NewaliasSet, NewaliasNoPipe,
  2017. --- 92,125 ----
  2018.   
  2019.       elm_msg_cat = catopen("elm2.4", 0);
  2020.   
  2021. !     while ((c = getopt(argc, argv, "su")) != EOF) {
  2022. !         switch (c) {
  2023. !             case 's' :
  2024. !                 user = FALSE;
  2025. !                 if (system == FALSE)
  2026. !                     err_flag++;
  2027. !                 break;
  2028. !             case 'u' :
  2029. !                 system = FALSE;
  2030. !                 if (user == FALSE)
  2031. !                     err_flag++;
  2032. !                 break;
  2033. !             case '?' :
  2034. !                 err_flag++;
  2035. !          }
  2036. !     }    
  2037. !     if (err_flag) {
  2038. !         usage();
  2039.       }
  2040.   
  2041. !     if (optind < argc)
  2042. !         sprintf(buffer, "egrep \"%s\" | sort", argv[optind++]);
  2043.       else
  2044. !         sprintf(buffer, "sort");
  2045.   
  2046. +     if (optind < argc)
  2047. +         usage();
  2048. + 
  2049.       if ((fd_pipe = popen(buffer, "w")) == NULL) {
  2050.         if (argc > 1) 
  2051.           fprintf(stderr, catgets(elm_msg_cat, NewaliasSet, NewaliasNoPipe,
  2052. ***************
  2053. *** 104,135 ****
  2054.         fd_pipe = stdout;
  2055.       }
  2056.   
  2057. !     do {
  2058. !         if ((db = dbz_open(fd_data, O_RDONLY, 0)) == NULL) {
  2059.               fprintf(stderr, catgets(elm_msg_cat, NewaliasSet,
  2060. !         NewaliasNoOpenData, "Could not open %s data file!\n"),
  2061. !     count? catgets(elm_msg_cat, NewaliasSet, NewaliasSystem, "system")
  2062. !          : catgets(elm_msg_cat, NewaliasSet, NewaliasUser, "user"));
  2063. !           goto next_file;
  2064.           }
  2065. !     
  2066. !         /** Otherwise let us continue... **/
  2067.   
  2068. !         datafile = db->dbz_basef;
  2069. !         while (get_one_alias(db, &alias_entry)) {
  2070. !         len = alias_entry.length;
  2071. !         fread(buffer, len > sizeof(buffer) ? sizeof(buffer) : len, 1, datafile);
  2072. !         alias_entry.alias += (int) buffer;
  2073. !         alias_entry.name += (int) buffer;
  2074. !         alias_entry.address += (int) buffer;
  2075. !         fprintf(fd_pipe, "%-20.20s %s (%s)\n", alias_entry.alias, alias_entry.address, alias_entry.name);
  2076. !         for (len -= sizeof(buffer); len > 0; len -= sizeof(buffer))
  2077. !             fread(buffer, len > sizeof(buffer) ? sizeof(buffer) : len, 1, datafile);
  2078.           }
  2079. ! 
  2080. ! next_file: strcpy(fd_data, system_data_file);
  2081. ! 
  2082. !     } while (++count < 2);
  2083.   
  2084.       pclose(fd_pipe);
  2085.   
  2086. --- 127,150 ----
  2087.         fd_pipe = stdout;
  2088.       }
  2089.   
  2090. !     if (user) {
  2091. !         home = getenv("HOME");
  2092. !         sprintf(fd_data, "%s/%s", home, ALIAS_DATA);
  2093. !         if (print_aliases(fd_data, fd_pipe) == -1) {
  2094.               fprintf(stderr, catgets(elm_msg_cat, NewaliasSet,
  2095. !           NewaliasNoOpenData, "Could not open %s data file!\n"),
  2096. !               catgets(elm_msg_cat, NewaliasSet, NewaliasUser, "user"));
  2097.           }
  2098. !     }
  2099.   
  2100. !     if (system) {
  2101. !         strcpy(fd_data, system_data_file);
  2102. !         if (print_aliases(fd_data, fd_pipe) == -1) {
  2103. !             fprintf(stderr, catgets(elm_msg_cat, NewaliasSet,
  2104. !           NewaliasNoOpenData, "Could not open %s data file!\n"),
  2105. !               catgets(elm_msg_cat, NewaliasSet, NewaliasSystem, "system"));
  2106.           }
  2107. !     }
  2108.   
  2109.       pclose(fd_pipe);
  2110.   
  2111. ***************
  2112. *** 136,189 ****
  2113.       exit(0);
  2114.   }
  2115.   
  2116. ! /* byte-ordering stuff */
  2117. ! #define    MAPIN(o)    ((db->dbz_bytesame) ? (of_t) (o) : bytemap((of_t)(o), db->dbz_conf.bytemap, db->dbz_mybmap))
  2118. ! #define    MAPOUT(o)    ((db->dbz_bytesame) ? (of_t) (o) : bytemap((of_t)(o), db->dbz_mybmap, db->dbz_conf.bytemap))
  2119. ! 
  2120. ! static of_t            /* transformed result */
  2121. ! bytemap(ino, map1, map2)
  2122. ! of_t ino;
  2123. ! int *map1;
  2124. ! int *map2;
  2125.   {
  2126. -     union oc {
  2127. -         of_t o;
  2128. -         char c[SOF];
  2129. -     };
  2130. -     union oc in;
  2131. -     union oc out;
  2132. -     register int i;
  2133. - 
  2134. -     in.o = ino;
  2135. -     for (i = 0; i < SOF; i++)
  2136. -         out.c[map2[i]] = in.c[map1[i]];
  2137. -     return(out.o);
  2138. - }
  2139.   
  2140. ! get_one_alias(db, ar)
  2141. ! DBZ *db;
  2142. ! struct alias_rec *ar;
  2143. ! {
  2144. ! /*
  2145. !  *    Get an alias (name, address, etc.) from the data file
  2146. !  */
  2147.   
  2148. !     FILE *data_file = db->dbz_basef;
  2149.   
  2150. !     if (data_file == NULL)
  2151. !         return(0);    /* no alias file, but hash exists, error condition */
  2152.   
  2153. !     if (fread((char *) ar, sizeof(struct alias_rec), 1, data_file) <= 0)
  2154. !         return(0);
  2155.   
  2156. !     ar->status = (int) MAPIN(ar->status);
  2157. !     ar->alias = (char *) MAPIN(ar->alias);
  2158. !     ar->last_name = (char *) MAPIN(ar->last_name);
  2159. !     ar->name = (char *) MAPIN(ar->name);
  2160. !     ar->comment = (char *) MAPIN(ar->comment);
  2161. !     ar->address = (char *) MAPIN(ar->address);
  2162. !     ar->type = (int) MAPIN(ar->type);
  2163. !     ar->length = (long) MAPIN(ar->length);
  2164.   
  2165. !     return(1);
  2166.   }
  2167. --- 151,195 ----
  2168.       exit(0);
  2169.   }
  2170.   
  2171. ! int
  2172. ! print_aliases(fd_data, fd_pipe)
  2173. ! char *fd_data;
  2174. ! FILE *fd_pipe;
  2175.   {
  2176.   
  2177. !     FILE *datafile;
  2178. !     DBZ *db;
  2179. !     struct alias_rec alias_entry;
  2180. !     int len;
  2181.   
  2182. !     char buffer[VERY_LONG_STRING];
  2183.   
  2184. !     if ((db = dbz_open(fd_data, O_RDONLY, 0)) == NULL) {
  2185. !         return(-1);
  2186. !     }
  2187. !     
  2188. !     /** Otherwise let us continue... **/
  2189.   
  2190. !     datafile = db->dbz_basef;
  2191. !     while (read_one_alias(db, &alias_entry)) {
  2192. !         len = alias_entry.length;
  2193. !         fread(buffer,
  2194. !         len > sizeof(buffer) ? sizeof(buffer) : len, 1, datafile);
  2195. !         alias_entry.alias += (int) buffer;
  2196. !         alias_entry.name += (int) buffer;
  2197. !         alias_entry.address += (int) buffer;
  2198. !         fprintf(fd_pipe, "%-20.20s %s (%s)\n",
  2199. !         alias_entry.alias, alias_entry.address, alias_entry.name);
  2200. !         for (len -= sizeof(buffer); len > 0; len -= sizeof(buffer))
  2201. !             fread(buffer,
  2202. !             len > sizeof(buffer) ? sizeof(buffer) : len, 1, datafile);
  2203. !     }
  2204.   
  2205. ! }
  2206.   
  2207. ! static void usage()
  2208. ! {
  2209. !     fprintf(stderr, catgets(elm_msg_cat, NewaliasSet, NewaliasListUsage,
  2210. !         "Usage: listalias [ -s | -u ] <optional-regular-expression>\n"));
  2211. !     exit(1);
  2212.   }
  2213.  
  2214. Index: src/a_quit.c
  2215. Prereq: 5.2
  2216. *** ../elm2.4/src/a_quit.c    Thu Dec 24 18:56:46 1992
  2217. --- src/a_quit.c    Thu Dec 24 16:42:06 1992
  2218. ***************
  2219. *** 1,8 ****
  2220.   
  2221. ! static char rcsid[] = "@(#)$Id: a_quit.c,v 5.2 1992/12/11 02:09:06 syd Exp $";
  2222.   
  2223.   /*******************************************************************************
  2224. !  *  The Elm Mail System  -  $Revision: 5.2 $   $State: Exp $
  2225.    *
  2226.    *             Copyright (c) 1988-1992 USENET Community Trust
  2227.    *             Copyright (c) 1986,1987 Dave Taylor
  2228. --- 1,8 ----
  2229.   
  2230. ! static char rcsid[] = "@(#)$Id: a_quit.c,v 5.3 1992/12/24 21:42:01 syd Exp $";
  2231.   
  2232.   /*******************************************************************************
  2233. !  *  The Elm Mail System  -  $Revision: 5.3 $   $State: Exp $
  2234.    *
  2235.    *             Copyright (c) 1988-1992 USENET Community Trust
  2236.    *             Copyright (c) 1986,1987 Dave Taylor
  2237. ***************
  2238. *** 14,19 ****
  2239. --- 14,24 ----
  2240.    *
  2241.    *******************************************************************************
  2242.    * $Log: a_quit.c,v $
  2243. +  * Revision 5.3  1992/12/24  21:42:01  syd
  2244. +  * Fix messages and nls messages to match.  Plus use want_to
  2245. +  * where appropriate.
  2246. +  * From: Syd, via prompting from Jan Djarv <Jan.Djarv@sa.erisoft.se>
  2247. +  *
  2248.    * Revision 5.2  1992/12/11  02:09:06  syd
  2249.    * Fix where the user creates a first new alias, then deletes it, the
  2250.    * alias stays on screen, but the file really will be empty if it was the
  2251. ***************
  2252. *** 101,107 ****
  2253.               "Delete %d aliases? (%c/%c) "),
  2254.               marked_deleted, *def_ans_yes, *def_ans_no);
  2255.                           
  2256. !         answer = want_to(buffer, answer);
  2257.         }
  2258.   
  2259.         if(answer == *def_ans_yes) {
  2260. --- 106,112 ----
  2261.               "Delete %d aliases? (%c/%c) "),
  2262.               marked_deleted, *def_ans_yes, *def_ans_no);
  2263.                           
  2264. !         answer = want_to(buffer, answer, LINES-3);
  2265.         }
  2266.   
  2267.         if(answer == *def_ans_yes) {
  2268.  
  2269. Index: lib/mk_aliases.c
  2270. Prereq: 5.6
  2271. *** ../elm2.4/lib/mk_aliases.c    Thu Dec 24 18:56:45 1992
  2272. --- lib/mk_aliases.c    Tue Jan  5 12:52:14 1993
  2273. ***************
  2274. *** 1,8 ****
  2275.   
  2276. ! static char rcsid[] = "@(#)$Id: mk_aliases.c,v 5.6 1992/12/11 02:10:24 syd Exp $";
  2277.   
  2278.   /*******************************************************************************
  2279. !  *  The Elm Mail System  -  $Revision: 5.6 $   $State: Exp $
  2280.    *
  2281.    *            Copyright (c) 1988-1992 USENET Community Trust
  2282.    *            Copyright (c) 1986,1987 Dave Taylor
  2283. --- 1,8 ----
  2284.   
  2285. ! static char rcsid[] = "@(#)$Id: mk_aliases.c,v 5.7 1993/01/05 17:52:14 syd Exp $";
  2286.   
  2287.   /*******************************************************************************
  2288. !  *  The Elm Mail System  -  $Revision: 5.7 $   $State: Exp $
  2289.    *
  2290.    *            Copyright (c) 1988-1992 USENET Community Trust
  2291.    *            Copyright (c) 1986,1987 Dave Taylor
  2292. ***************
  2293. *** 14,19 ****
  2294. --- 14,23 ----
  2295.    *
  2296.    *******************************************************************************
  2297.    * $Log: mk_aliases.c,v $
  2298. +  * Revision 5.7  1993/01/05  17:52:14  syd
  2299. +  * Add missing quote check to whitespace error check loop
  2300. +  * From: "Robert L. Howard" <robert.howard@matd.gatech.edu>
  2301. +  *
  2302.    * Revision 5.6  1992/12/11  02:10:24  syd
  2303.    * Make Elm complain about spaces that are not after commas in
  2304.    * alias and address lists
  2305. ***************
  2306. *** 414,420 ****
  2307.           if (*s == '\\') {
  2308.           s++;
  2309.           continue;
  2310. !         }
  2311.   
  2312.           if (*s == '"')
  2313.           in_quote = !in_quote;
  2314. --- 418,424 ----
  2315.           if (*s == '\\') {
  2316.           s++;
  2317.           continue;
  2318. !         }
  2319.   
  2320.           if (*s == '"')
  2321.           in_quote = !in_quote;
  2322. ***************
  2323. *** 438,444 ****
  2324.           return;
  2325.       }
  2326.   
  2327. -     addresses = s + 1;            /* REDUNDANT !?!?! */
  2328.   /*
  2329.    *    Remove trailing whitespace from second field
  2330.    */
  2331. --- 442,447 ----
  2332. ***************
  2333. *** 489,505 ****
  2334.   /*
  2335.    *    Now strip out any whitespace (and make sure it was
  2336.    *    legal whitespace).  Legal whitespace follows ','.
  2337.    */
  2338.       for (s = addresses, out = addresses; *s; s++) {
  2339. !         if (whitespace(*s)) {
  2340. !             if (*(out-1) != ',') {
  2341.                   err_flag++;            /* Keep going for now */
  2342. -             *out++ = *s;
  2343.               }
  2344.           }
  2345. !         else {
  2346. !         *out++ = *s;
  2347. !         }
  2348.       }
  2349.       *out = '\0';
  2350.   
  2351. --- 492,513 ----
  2352.   /*
  2353.    *    Now strip out any whitespace (and make sure it was
  2354.    *    legal whitespace).  Legal whitespace follows ','.
  2355. +  *    Don't mess with white space in quotes.
  2356.    */
  2357. +     in_quote = FALSE;            /* Just for safety */
  2358.       for (s = addresses, out = addresses; *s; s++) {
  2359. !         if (*s == '"')
  2360. !         in_quote = !in_quote;
  2361. ! 
  2362. !         if (!in_quote && whitespace(*s)) {
  2363. !             if (*(out-1) == ',') {
  2364. !                 continue;
  2365. !             }
  2366. !             else {
  2367.                   err_flag++;            /* Keep going for now */
  2368.               }
  2369.           }
  2370. !         *out++ = *s;
  2371.       }
  2372.       *out = '\0';
  2373.   
  2374.  
  2375. -- 
  2376. ========================================================================
  2377. Sydney S. Weinstein, CDP, CCP          Elm Coordinator - Current 2.4PL20
  2378. Datacomp Systems, Inc.                 Projected 3.0 Release: ??? ?,1994
  2379. syd@DSI.COM or dsinc!syd      Voice: (215) 947-9900, FAX: (215) 938-0235
  2380.