🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: ont.archives
Article #64

Re: Elm 2.2 patches 1 & 2

#64
From: Ping Chew
Date: Wed, 03 May 1989 13:22
1271 lines
40273 bytes
In article <272@moegate.UUCP> soley@moegate.UUCP (Norman S. Soley) writes:
>It seems that Elm 2.2 patches 1 and 2 never made it to Toronto, I've
>sent mail to Syd asking for them. When I get them I'll announce it here.
>Rather than have several copies mailed up from the States I'd be willing to
>re-distribute them from here. Anyone who wants these drop me a line and I'll 
>send them to you when I get them. 
>
      I am posting patch 1 and 2 here as Syd has indicated that patches are
available only through ftp and archive server. What follows is patch01.
 The next message would be patch02.


------------------------------ Patch 01 ------------------------------


From ecf!me!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!rutgers!cbmvax!vu-vlsi!dsinc!syd Wed Apr 19 16:06:31 GMT 1989
Status: RO

Article 1074 of comp.mail.elm:
Path: ecf!me!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!rutgers!cbmvax!vu-vlsi!dsinc!syd
>From: syd@dsinc.DSI.COM (Syd Weinstein)
Newsgroups: comp.mail.elm,comp.sources.bugs
Subject: elm 2.2 Patch #1
Summary: This is an official patch for elm 2.2 system.  Please apply it.
Keywords: elm patch
Message-ID: <110@dsinc.DSI.COM>
Date: 19 Apr 89 16:06:31 GMT
Followup-To: comp.mail.elm
Organization: Datacomp Systems, Inc., Huntingdon Valley, PA
Lines: 585
Xref: ecf comp.mail.elm:1074 comp.sources.bugs:1326
Priority: LOW-MEDIUM

The alias seperator was changed to an equal sign from the colon character.
This change, however, wasn't made in the utils/mailrc.awk script.

The man page for answer(1l) still refered to '$home/.alias_hash'
and '...alias_data'.

fastmail had a printf statement which was not controlled by the debug flag.
The sympton was that arepdaemon kept echoing messages to the console.

removed use of the 'hp' register which is defined by the [nt]roff package as
a predefined general register, the current horizontal place on the input line.

Fixes the Elm-supplied gethostname() for the Xenix environment when the
system has been told to use the uname() call.  The Configure script
correctly sets the defines, but the code wasn't using it correctly.

Fixed scanning for calendar entries with no mail.

Another attempt at the stop code, so many systems handle this differently.

Some cursor strings on some terminals were longer than SHORT allowed,
lengthen SHORT.

Fix:	From rn, say "| patch -p -N -d DIR", where DIR is your elm source
	directory.  Outside of rn, say "cd DIR; patch -p -N <thisarticle".
	If you don't have the patch program, apply the following by hand,
	or get patch (version 2.0, latest patchlevel).

	After patching:
		make
		make install

	If patch indicates that patchlevel is the wrong version, you may need
	to apply one or more previous patches, or the patch may already
	have been applied.  See the patchlevel.h file to find out what has or
	has not been applied.  In any event, don't continue with the patch.

	If you are missing previous patches they can be obtained from me:

	Syd Weinstein
	syd@dsinc.UUCP

	The patches are available from the dsinc archive server
	Send the following message to archive-server@dsinc.UUCP for
	a list of available patches:

	Subject: patch list
	send index elm

Index: hdrs/patchlevel.h
Prereq: 0
*** ../elm2.2/hdrs/patchlevel.h	Wed Mar 29 10:12:12 1989
--- hdrs/patchlevel.h	Wed Apr 19 10:31:23 1989
***************
*** 1 ****
! #define PATCHLEVEL 0
--- 1 ----
! #define PATCHLEVEL 1

Index: Configure
Prereq: 2.37
*** ../elm2.2/Configure	Wed Mar 29 09:19:59 1989
--- Configure	Wed Apr 19 11:15:49 1989
***************
*** 8,14 ****
  # and edit it to reflect your system.  Some packages may include samples
  # of config.h for certain machines, so you might look for one of those.)
  #
! # $Header: /files/home/users/syd/elm/RCS/Configure,v 2.37 89/03/29 09:19:46 syd Exp $
  #
  # Yes, you may rip this off to use in other distribution packages.
  # (Note: this Configure script was generated automatically.  Rather than
--- 8,14 ----
  # and edit it to reflect your system.  Some packages may include samples
  # of config.h for certain machines, so you might look for one of those.)
  #
! # $Header: /files/home/users/syd/elm/RCS/Configure,v 2.38 89/04/19 11:15:30 syd Exp $
  #
  # Yes, you may rip this off to use in other distribution packages.
  # (Note: this Configure script was generated automatically.  Rather than
***************
*** 1205,1211 ****
      $echo $n "$rp $c"
      . myread
      case "$ans" in
!     y*) d_douname="$undef" d_gethname="$undef"
  	d_host_comp="$define"
  	$echo $n "Okay... $c"
  	;;
--- 1205,1212 ----
      $echo $n "$rp $c"
      . myread
      case "$ans" in
!     y*) d_douname="$undef"
! 	d_gethname="$undef"
  	d_host_comp="$define"
  	$echo $n "Okay... $c"
  	;;

Index: doc/answer.1
*** ../elm2.2/doc/answer.1	Sun Feb 26 16:37:52 1989
--- doc/answer.1	Wed Apr 19 10:34:00 1989
***************
*** 49,57 ****
  .br
  newalias(1L), checkalias(1L), mail(1), mailx(1), from(1L), printmail(1L)
  .SH FILES
! $home/.alias_hash             individual alias hash table
  .br
! $home/.alias_data             individual alias data table
  .br
  /tmp/snd.$$                   edit buffer for outgoing mail
  .SH BUG REPORTS TO
--- 49,57 ----
  .br
  newalias(1L), checkalias(1L), mail(1), mailx(1), from(1L), printmail(1L)
  .SH FILES
! $home/.elm/aliases.hash       individual alias hash table
  .br
! $home/.elm/aliases.data       individual alias data table
  .br
  /tmp/snd.$$                   edit buffer for outgoing mail
  .SH BUG REPORTS TO

Index: doc/tmac.n
Prereq: 2.5
*** ../elm2.2/doc/tmac.n	Mon Mar 20 20:17:07 1989
--- doc/tmac.n	Wed Apr 19 10:40:21 1989
***************
*** 1,4 ****
! \" @(#)$Id: tmac.n,v 2.5 89/03/20 20:17:04 syd Exp $
  .\" The News macro package
  .\"
  .\" This  is  the macro package that is used to format news documents.  It
--- 1,4 ----
! \" @(#)$Id: tmac.n,v 2.6 89/04/19 10:39:59 syd Exp $
  .\" The News macro package
  .\"
  .\" This  is  the macro package that is used to format news documents.  It
***************
*** 371,377 ****
  .if !\\n(it .bt				\" end the title and such
  .br					\" force out previous line
  .b
! .ie \\n(hp .ps \\n(hp
  .el        .ps \\n(ps
  .ie \\n(hv .vs \\n(hv
  .el        .vs \\n(vs
--- 371,377 ----
  .if !\\n(it .bt				\" end the title and such
  .br					\" force out previous line
  .b
! .ie \\n(hP .ps \\n(hP
  .el        .ps \\n(ps
  .ie \\n(hv .vs \\n(hv
  .el        .vs \\n(vs
***************
*** 402,408 ****
  .if !\\n(it .bt				\" end the title and such
  .br					\" force out previous line
  .b
! .ie \\n(hp .ps \\n(hp
  .el        .ps \\n(ps
  .ie \\n(hv .vs \\n(hv
  .el        .vs \\n(vs
--- 402,408 ----
  .if !\\n(it .bt				\" end the title and such
  .br					\" force out previous line
  .b
! .ie \\n(hP .ps \\n(hP
  .el        .ps \\n(ps
  .ie \\n(hv .vs \\n(hv
  .el        .vs \\n(vs

Index: hdrs/defs.h
Prereq: 2.16
*** ../elm2.2/hdrs/defs.h	Thu Mar 30 10:34:27 1989
--- hdrs/defs.h	Wed Apr 19 11:02:06 1989
***************
*** 1,8 ****
  
! /* $Id: defs.h,v 2.16 89/03/25 21:45:23 syd Exp $ */
  
  /*******************************************************************************
!  *  The Elm Mail System  -  $Revision: 2.16 $   $State: Exp $
   *
   * 			Copyright (c) 1986, 1987 Dave Taylor
   * 			Copyright (c) 1988, 1989 USENET Community Trust
--- 1,8 ----
  
! /* $Id: defs.h,v 2.17 89/04/19 11:01:53 syd Exp $ */
  
  /*******************************************************************************
!  *  The Elm Mail System  -  $Revision: 2.17 $   $State: Exp $
   *
   * 			Copyright (c) 1986, 1987 Dave Taylor
   * 			Copyright (c) 1988, 1989 USENET Community Trust
***************
*** 14,19 ****
--- 14,22 ----
   *
   *******************************************************************************
   * $Log:	defs.h,v $
+  * Revision 2.17  89/04/19  11:01:53  syd
+  * Some cursor strings were longer than SHORT allowed, make SHORT longer
+  * 
   * Revision 2.16  89/03/25  21:45:23  syd
   * Initial 2.2 Release checkin
   * 
***************
*** 35,41 ****
  #define KLICK		25
  
  #define SLEN		256	    /* long for ensuring no overwrites... */
! #define SHORT		5	    /* super short strings!		  */
  #define NLEN		48	    /* name length for aliases            */
  #define WLEN		20
  #define STRING		128	/* reasonable string length for most..      */
--- 38,44 ----
  #define KLICK		25
  
  #define SLEN		256	    /* long for ensuring no overwrites... */
! #define SHORT		10	    /* super short strings!		  */
  #define NLEN		48	    /* name length for aliases            */
  #define WLEN		20
  #define STRING		128	/* reasonable string length for most..      */

Index: src/elm.c
Prereq: 2.33
*** ../elm2.2/src/elm.c	Thu Mar 30 10:35:40 1989
--- src/elm.c	Wed Apr 19 10:49:29 1989
***************
*** 1,8 ****
  
! static char rcsid[] = "@(#)$Id: elm.c,v 2.33 89/03/25 21:46:10 syd Exp $";
  
  /*******************************************************************************
!  *  The Elm Mail System  -  $Revision: 2.33 $   $State: Exp $
   *
   * This file and all associated files and documentation:
   * 			Copyright (c) 1986, 1987 Dave Taylor
--- 1,8 ----
  
! static char rcsid[] = "@(#)$Id: elm.c,v 2.34 89/04/19 10:49:18 syd Exp $";
  
  /*******************************************************************************
!  *  The Elm Mail System  -  $Revision: 2.34 $   $State: Exp $
   *
   * This file and all associated files and documentation:
   * 			Copyright (c) 1986, 1987 Dave Taylor
***************
*** 15,20 ****
--- 15,23 ----
   *
   *******************************************************************************
   * $Log:	elm.c,v $
+  * Revision 2.34  89/04/19  10:49:18  syd
+  * Fix scanning for calendar entries with no mail
+  * 
   * Revision 2.33  89/03/25  21:46:10  syd
   * Initial 2.2 Release checkin
   * 
***************
*** 228,236 ****
  
  	    case '<'    :  /* scan current message for calendar information */
  #ifdef ENABLE_CALENDAR
! 			   PutLine0(LINES-3, strlen("Command: "), 	
  				   "Scan message for calendar entries...");
! 			   scan_calendar();
  #else
  	 		   error("Sorry. Calendar function disabled.");
  			   fflush(stdin);
--- 231,245 ----
  
  	    case '<'    :  /* scan current message for calendar information */
  #ifdef ENABLE_CALENDAR
! 		           if  (message_count < 1) {
! 			     error("No mail to scan!");
! 			     fflush(stdin);
! 			   }
! 			   else {
! 			       PutLine0(LINES-3, strlen("Command: "), 	
  				   "Scan message for calendar entries...");
! 			       scan_calendar();
! 			   }
  #else
  	 		   error("Sorry. Calendar function disabled.");
  			   fflush(stdin);

Index: src/opt_utils.c
Prereq: 2.16
*** ../elm2.2/src/opt_utils.c	Thu Mar 30 10:36:43 1989
--- src/opt_utils.c	Wed Apr 19 10:42:55 1989
***************
*** 1,8 ****
  
! static char rcsid[] = "@(#)$Id: opt_utils.c,v 2.16 89/03/25 21:46:52 syd Exp $";
  
  /*******************************************************************************
!  *  The Elm Mail System  -  $Revision: 2.16 $   $State: Exp $
   *
   * 			Copyright (c) 1986, 1987 Dave Taylor
   * 			Copyright (c) 1988, 1989 USENET Community Trust
--- 1,8 ----
  
! static char rcsid[] = "@(#)$Id: opt_utils.c,v 2.17 89/04/19 10:42:42 syd Exp $";
  
  /*******************************************************************************
!  *  The Elm Mail System  -  $Revision: 2.17 $   $State: Exp $
   *
   * 			Copyright (c) 1986, 1987 Dave Taylor
   * 			Copyright (c) 1988, 1989 USENET Community Trust
***************
*** 14,19 ****
--- 14,22 ----
   *
   *******************************************************************************
   * $Log:	opt_utils.c,v $
+  * Revision 2.17  89/04/19  10:42:42  syd
+  * Make code use proper defines for Xenix and Uname
+  * 
   * Revision 2.16  89/03/25  21:46:52  syd
   * Initial 2.2 Release checkin
   * 
***************
*** 48,54 ****
  {
  	/** Return the name of the current host machine. **/
  
! #ifdef XENIX
  	char    buf[32];
  	FILE    *fp;
  	char    *p;
--- 51,57 ----
  {
  	/** Return the name of the current host machine. **/
  
! #if defined(XENIX) & !defined(DOUNAME)
  	char    buf[32];
  	FILE    *fp;
  	char    *p;

Index: src/syscall.c
Prereq: 2.14
*** ../elm2.2/src/syscall.c	Thu Mar 30 10:37:47 1989
--- src/syscall.c	Wed Apr 19 10:56:23 1989
***************
*** 1,8 ****
  
! static char rcsid[] = "@(#)$Id: syscall.c,v 2.14 89/03/25 21:47:31 syd Exp $";
  
  /*******************************************************************************
!  *  The Elm Mail System  -  $Revision: 2.14 $   $State: Exp $
   *
   * 			Copyright (c) 1986, 1987 Dave Taylor
   * 			Copyright (c) 1988, 1989 USENET Community Trust
--- 1,8 ----
  
! static char rcsid[] = "@(#)$Id: syscall.c,v 2.15 89/04/19 10:56:15 syd Exp $";
  
  /*******************************************************************************
!  *  The Elm Mail System  -  $Revision: 2.15 $   $State: Exp $
   *
   * 			Copyright (c) 1986, 1987 Dave Taylor
   * 			Copyright (c) 1988, 1989 USENET Community Trust
***************
*** 14,19 ****
--- 14,22 ----
   *
   *******************************************************************************
   * $Log:	syscall.c,v $
+  * Revision 2.15  89/04/19  10:56:15  syd
+  * Better attempt at stop signals
+  * 
   * Revision 2.14  89/03/25  21:47:31  syd
   * Initial 2.2 Release checkin
   * 
***************
*** 98,113 ****
  #ifdef VOIDSIG
  	register void (*istat)(), (*qstat)();
  # ifdef SIGTSTP
- #  ifndef BSD
  	register void (*oldstop)(), (*oldstart)();
- #  endif
  # endif
  #else
  	register int (*istat)(), (*qstat)();
  # ifdef SIGTSTP
- #  ifndef BSD
  	register int (*oldstop)(), (*oldstart)();
- #  endif
  # endif 
  #endif
  	
--- 101,112 ----
***************
*** 124,133 ****
  	    (void)signal(SIGHUP, SIG_DFL);
  	    (void)signal(SIGINT, SIG_DFL);
  #ifdef SIGTSTP
- # ifndef BSD
  	    (void)signal(SIGTSTP, SIG_DFL);
  	    (void)signal(SIGCONT, SIG_DFL);
- # endif
  #endif
  	  } else {
  	    /* program to exec should ignore interrupt, accidental hangup, and stop signals */
--- 123,130 ----
***************
*** 134,143 ****
  	    (void)signal(SIGHUP, SIG_IGN);
  	    (void)signal(SIGINT, SIG_IGN);
  #ifdef SIGTSTP
- # ifndef BSD
  	    (void)signal(SIGTSTP, SIG_IGN);
  	    (void)signal(SIGCONT, SIG_IGN);
- # endif
  #endif
  	  }
  
--- 131,138 ----
***************
*** 152,161 ****
  	istat = signal(SIGINT, SIG_IGN);
  	qstat = signal(SIGQUIT, SIG_IGN);
  #ifdef SIGTSTP
! # ifndef BSD
! 	oldstop = signal(SIGTSTP, SIG_IGN);
! 	oldstart = signal(SIGCONT, SIG_IGN);
! # endif
  #endif
  
  	while ((w = wait(&status)) != pid && w != -1)
--- 147,154 ----
  	istat = signal(SIGINT, SIG_IGN);
  	qstat = signal(SIGQUIT, SIG_IGN);
  #ifdef SIGTSTP
! 	oldstop = signal(SIGTSTP, SIG_DFL);
! 	oldstart = signal(SIGCONT, SIG_DFL);
  #endif
  
  	while ((w = wait(&status)) != pid && w != -1)
***************
*** 170,179 ****
  	(void)signal(SIGINT, istat);
  	(void)signal(SIGQUIT, qstat);
  #ifdef SIGTSTP
- # ifndef BSD
  	(void)signal(SIGTSTP, oldstop);
  	(void)signal(SIGCONT, oldstart);
- # endif
  #endif
  
  	return(stat);
--- 163,170 ----

Index: utils/fastmail.c
Prereq: 2.5
*** ../elm2.2/utils/fastmail.c	Thu Mar 30 10:38:09 1989
--- utils/fastmail.c	Wed Apr 19 10:38:25 1989
***************
*** 1,8 ****
  
! static char rcsid[] = "@(#)$Id: fastmail.c,v 2.5 89/03/25 21:47:44 syd Exp $";
  
  /*******************************************************************************
!  *  The Elm Mail System  -  $Revision: 2.5 $   $State: Exp $
   *
   * 			Copyright (c) 1986, 1987 Dave Taylor
   * 			Copyright (c) 1988, 1989 USENET Community Trust
--- 1,8 ----
  
! static char rcsid[] = "@(#)$Id: fastmail.c,v 2.6 89/04/19 10:38:11 syd Exp $";
  
  /*******************************************************************************
!  *  The Elm Mail System  -  $Revision: 2.6 $   $State: Exp $
   *
   * 			Copyright (c) 1986, 1987 Dave Taylor
   * 			Copyright (c) 1988, 1989 USENET Community Trust
***************
*** 14,19 ****
--- 14,22 ----
   *
   *******************************************************************************
   * $Log:	fastmail.c,v $
+  * Revision 2.6  89/04/19  10:38:11  syd
+  * Make fastmail silent unless debugging turned on
+  * 
   * Revision 2.5  89/03/25  21:47:44  syd
   * Initial 2.2 Release checkin
   * 
***************
*** 213,222 ****
  
  	sendmail_available = (access(sendmail, EXECUTE_ACCESS) != -1);
  
! 	printf("Mailing to %s%s%s%s%s [via %s]\n", to_list,
! 		(strlen(cc_list) > 0 ? " ":""), cc_list,
! 		(strlen(bcc_list) > 0 ? " ":""), bcc_list,
! 		sendmail_available? "sendmail" : "rmail");
  
  	sprintf(command_buffer, "cat %s %s | %s %s %s %s", 
  		tempfilename, filename, 
--- 216,226 ----
  
  	sendmail_available = (access(sendmail, EXECUTE_ACCESS) != -1);
  
! 	if (debug)
! 		printf("Mailing to %s%s%s%s%s [via %s]\n", to_list,
! 			(strlen(cc_list) > 0 ? " ":""), cc_list,
! 			(strlen(bcc_list) > 0 ? " ":""), bcc_list,
! 			sendmail_available? "sendmail" : "rmail");
  
  	sprintf(command_buffer, "cat %s %s | %s %s %s %s", 
  		tempfilename, filename, 

Index: utils/mailrc.awk
Prereq: 2.3
*** ../elm2.2/utils/mailrc.awk	Thu Mar 30 10:38:16 1989
--- utils/mailrc.awk	Wed Apr 19 10:31:13 1989
***************
*** 1,5 ****
  #
! # @(#)$Id: mailrc.awk,v 2.3 89/03/25 21:47:51 syd Exp $
  #	Copyright (c) 1986, 1987 Dave Taylor
  #	Copyright (c) 1988, 1989 USENET Community Trust
  # Bug reports, patches, comments, suggestions should be sent to:
--- 1,5 ----
  #
! # @(#)$Id: mailrc.awk,v 2.4 89/04/19 10:31:03 syd Exp $
  #	Copyright (c) 1986, 1987 Dave Taylor
  #	Copyright (c) 1988, 1989 USENET Community Trust
  # Bug reports, patches, comments, suggestions should be sent to:
***************
*** 8,13 ****
--- 8,16 ----
  #					 dsinc!elm
  #
  # $Log:	mailrc.awk,v $
+ # Revision 2.4  89/04/19  10:31:03  syd
+ # Change alias delimiter to ='s
+ # 
  # Revision 2.3  89/03/25  21:47:51  syd
  # Initial 2.2 Release checkin
  # 
***************
*** 43,49 ****
  $1 ~ /[Aa]lias|[Gg]roup/ { 
  
  	if ( NF == 3)
! 	  print $2 " : user alias : " $3;
  	else {
  	  group = ""
  	  for (i = 3; i <= NF; i++) {
--- 46,52 ----
  $1 ~ /[Aa]lias|[Gg]roup/ { 
  
  	if ( NF == 3)
! 	  print $2 " = user alias = " $3;
  	else {
  	  group = ""
  	  for (i = 3; i <= NF; i++) {
***************
*** 59,64 ****
  	    else
   	      group = $i;
  	    }
! 	    print $2 " : group alias : " group;
  	  }
   	}
--- 62,67 ----
  	    else
   	      group = $i;
  	    }
! 	    print $2 " = group alias = " group;
  	  }
   	}

-- 
=====================================================================
Sydney S. Weinstein, CDP, CCP                   Elm Coordinator
Datacomp Systems, Inc.				Voice: (215) 947-9900
syd@DSI.COM or {bpa,vu-vlsi}!dsinc!syd	        FAX:   (215) 938-0235


---------------------------- End of Patch 01 --------------------------
>
>
>-- 
>Norman Soley - The Communications Guy - Ontario Ministry of the Environment
>Until the next maps go out:	moegate!soley@ontenv.UUCP 
>I'd like to try golf but I just can't bring myself to buy a pair of plaid pants

      Boon
Newsgroups: ont.archivesposter
Subject: Re: Elm 2.2 patches 1 & 2
Summary: 
Expires: 
References: <272@moegate.UUCP>
Sender: 
Reply-To: chew@ecf.UUCP (Boon-Ping Chew)
Followup-To: 
Distribution: ont
Organization: Engineering Computing Facility, University of Toronto
Keywords: 

In article <272@moegate.UUCP> soley@moegate.UUCP (Norman S. Soley) writes:
>It seems that Elm 2.2 patches 1 and 2 never made it to Toronto, I've
>sent mail to Syd asking for them. When I get them I'll announce it here.
>Rather than have several copies mailed up from the States I'd be willing to
>re-distribute them from here. Anyone who wants these drop me a line and I'll 
>send them to you when I get them. 
>
      I am posting patch 1 and 2 here as Syd has indicated that patches are
available only through ftp and archive server. What follows is patch01.
 The next message would be patch02.


------------------------------ Patch 01 ------------------------------


From ecf!me!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!rutgers!cbmvax!vu-vlsi!dsinc!syd Wed Apr 19 16:06:31 GMT 1989
Status: RO

Article 1074 of comp.mail.elm:
Path: ecf!me!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!rutgers!cbmvax!vu-vlsi!dsinc!syd
>From: syd@dsinc.DSI.COM (Syd Weinstein)
Newsgroups: comp.mail.elm,comp.sources.bugs
Subject: elm 2.2 Patch #1
Summary: This is an official patch for elm 2.2 system.  Please apply it.
Keywords: elm patch
Message-ID: <110@dsinc.DSI.COM>
Date: 19 Apr 89 16:06:31 GMT
Followup-To: comp.mail.elm
Organization: Datacomp Systems, Inc., Huntingdon Valley, PA
Lines: 585
Xref: ecf comp.mail.elm:1074 comp.sources.bugs:1326
Priority: LOW-MEDIUM

The alias seperator was changed to an equal sign from the colon character.
This change, however, wasn't made in the utils/mailrc.awk script.

The man page for answer(1l) still refered to '$home/.alias_hash'
and '...alias_data'.

fastmail had a printf statement which was not controlled by the debug flag.
The sympton was that arepdaemon kept echoing messages to the console.

removed use of the 'hp' register which is defined by the [nt]roff package as
a predefined general register, the current horizontal place on the input line.

Fixes the Elm-supplied gethostname() for the Xenix environment when the
system has been told to use the uname() call.  The Configure script
correctly sets the defines, but the code wasn't using it correctly.

Fixed scanning for calendar entries with no mail.

Another attempt at the stop code, so many systems handle this differently.

Some cursor strings on some terminals were longer than SHORT allowed,
lengthen SHORT.

Fix:	From rn, say "| patch -p -N -d DIR", where DIR is your elm source
	directory.  Outside of rn, say "cd DIR; patch -p -N <thisarticle".
	If you don't have the patch program, apply the following by hand,
	or get patch (version 2.0, latest patchlevel).

	After patching:
		make
		make install

	If patch indicates that patchlevel is the wrong version, you may need
	to apply one or more previous patches, or the patch may already
	have been applied.  See the patchlevel.h file to find out what has or
	has not been applied.  In any event, don't continue with the patch.

	If you are missing previous patches they can be obtained from me:

	Syd Weinstein
	syd@dsinc.UUCP

	The patches are available from the dsinc archive server
	Send the following message to archive-server@dsinc.UUCP for
	a list of available patches:

	Subject: patch list
	send index elm

Index: hdrs/patchlevel.h
Prereq: 0
*** ../elm2.2/hdrs/patchlevel.h	Wed Mar 29 10:12:12 1989
--- hdrs/patchlevel.h	Wed Apr 19 10:31:23 1989
***************
*** 1 ****
! #define PATCHLEVEL 0
--- 1 ----
! #define PATCHLEVEL 1

Index: Configure
Prereq: 2.37
*** ../elm2.2/Configure	Wed Mar 29 09:19:59 1989
--- Configure	Wed Apr 19 11:15:49 1989
***************
*** 8,14 ****
  # and edit it to reflect your system.  Some packages may include samples
  # of config.h for certain machines, so you might look for one of those.)
  #
! # $Header: /files/home/users/syd/elm/RCS/Configure,v 2.37 89/03/29 09:19:46 syd Exp $
  #
  # Yes, you may rip this off to use in other distribution packages.
  # (Note: this Configure script was generated automatically.  Rather than
--- 8,14 ----
  # and edit it to reflect your system.  Some packages may include samples
  # of config.h for certain machines, so you might look for one of those.)
  #
! # $Header: /files/home/users/syd/elm/RCS/Configure,v 2.38 89/04/19 11:15:30 syd Exp $
  #
  # Yes, you may rip this off to use in other distribution packages.
  # (Note: this Configure script was generated automatically.  Rather than
***************
*** 1205,1211 ****
      $echo $n "$rp $c"
      . myread
      case "$ans" in
!     y*) d_douname="$undef" d_gethname="$undef"
  	d_host_comp="$define"
  	$echo $n "Okay... $c"
  	;;
--- 1205,1212 ----
      $echo $n "$rp $c"
      . myread
      case "$ans" in
!     y*) d_douname="$undef"
! 	d_gethname="$undef"
  	d_host_comp="$define"
  	$echo $n "Okay... $c"
  	;;

Index: doc/answer.1
*** ../elm2.2/doc/answer.1	Sun Feb 26 16:37:52 1989
--- doc/answer.1	Wed Apr 19 10:34:00 1989
***************
*** 49,57 ****
  .br
  newalias(1L), checkalias(1L), mail(1), mailx(1), from(1L), printmail(1L)
  .SH FILES
! $home/.alias_hash             individual alias hash table
  .br
! $home/.alias_data             individual alias data table
  .br
  /tmp/snd.$$                   edit buffer for outgoing mail
  .SH BUG REPORTS TO
--- 49,57 ----
  .br
  newalias(1L), checkalias(1L), mail(1), mailx(1), from(1L), printmail(1L)
  .SH FILES
! $home/.elm/aliases.hash       individual alias hash table
  .br
! $home/.elm/aliases.data       individual alias data table
  .br
  /tmp/snd.$$                   edit buffer for outgoing mail
  .SH BUG REPORTS TO

Index: doc/tmac.n
Prereq: 2.5
*** ../elm2.2/doc/tmac.n	Mon Mar 20 20:17:07 1989
--- doc/tmac.n	Wed Apr 19 10:40:21 1989
***************
*** 1,4 ****
! \" @(#)$Id: tmac.n,v 2.5 89/03/20 20:17:04 syd Exp $
  .\" The News macro package
  .\"
  .\" This  is  the macro package that is used to format news documents.  It
--- 1,4 ----
! \" @(#)$Id: tmac.n,v 2.6 89/04/19 10:39:59 syd Exp $
  .\" The News macro package
  .\"
  .\" This  is  the macro package that is used to format news documents.  It
***************
*** 371,377 ****
  .if !\\n(it .bt				\" end the title and such
  .br					\" force out previous line
  .b
! .ie \\n(hp .ps \\n(hp
  .el        .ps \\n(ps
  .ie \\n(hv .vs \\n(hv
  .el        .vs \\n(vs
--- 371,377 ----
  .if !\\n(it .bt				\" end the title and such
  .br					\" force out previous line
  .b
! .ie \\n(hP .ps \\n(hP
  .el        .ps \\n(ps
  .ie \\n(hv .vs \\n(hv
  .el        .vs \\n(vs
***************
*** 402,408 ****
  .if !\\n(it .bt				\" end the title and such
  .br					\" force out previous line
  .b
! .ie \\n(hp .ps \\n(hp
  .el        .ps \\n(ps
  .ie \\n(hv .vs \\n(hv
  .el        .vs \\n(vs
--- 402,408 ----
  .if !\\n(it .bt				\" end the title and such
  .br					\" force out previous line
  .b
! .ie \\n(hP .ps \\n(hP
  .el        .ps \\n(ps
  .ie \\n(hv .vs \\n(hv
  .el        .vs \\n(vs

Index: hdrs/defs.h
Prereq: 2.16
*** ../elm2.2/hdrs/defs.h	Thu Mar 30 10:34:27 1989
--- hdrs/defs.h	Wed Apr 19 11:02:06 1989
***************
*** 1,8 ****
  
! /* $Id: defs.h,v 2.16 89/03/25 21:45:23 syd Exp $ */
  
  /*******************************************************************************
!  *  The Elm Mail System  -  $Revision: 2.16 $   $State: Exp $
   *
   * 			Copyright (c) 1986, 1987 Dave Taylor
   * 			Copyright (c) 1988, 1989 USENET Community Trust
--- 1,8 ----
  
! /* $Id: defs.h,v 2.17 89/04/19 11:01:53 syd Exp $ */
  
  /*******************************************************************************
!  *  The Elm Mail System  -  $Revision: 2.17 $   $State: Exp $
   *
   * 			Copyright (c) 1986, 1987 Dave Taylor
   * 			Copyright (c) 1988, 1989 USENET Community Trust
***************
*** 14,19 ****
--- 14,22 ----
   *
   *******************************************************************************
   * $Log:	defs.h,v $
+  * Revision 2.17  89/04/19  11:01:53  syd
+  * Some cursor strings were longer than SHORT allowed, make SHORT longer
+  * 
   * Revision 2.16  89/03/25  21:45:23  syd
   * Initial 2.2 Release checkin
   * 
***************
*** 35,41 ****
  #define KLICK		25
  
  #define SLEN		256	    /* long for ensuring no overwrites... */
! #define SHORT		5	    /* super short strings!		  */
  #define NLEN		48	    /* name length for aliases            */
  #define WLEN		20
  #define STRING		128	/* reasonable string length for most..      */
--- 38,44 ----
  #define KLICK		25
  
  #define SLEN		256	    /* long for ensuring no overwrites... */
! #define SHORT		10	    /* super short strings!		  */
  #define NLEN		48	    /* name length for aliases            */
  #define WLEN		20
  #define STRING		128	/* reasonable string length for most..      */

Index: src/elm.c
Prereq: 2.33
*** ../elm2.2/src/elm.c	Thu Mar 30 10:35:40 1989
--- src/elm.c	Wed Apr 19 10:49:29 1989
***************
*** 1,8 ****
  
! static char rcsid[] = "@(#)$Id: elm.c,v 2.33 89/03/25 21:46:10 syd Exp $";
  
  /*******************************************************************************
!  *  The Elm Mail System  -  $Revision: 2.33 $   $State: Exp $
   *
   * This file and all associated files and documentation:
   * 			Copyright (c) 1986, 1987 Dave Taylor
--- 1,8 ----
  
! static char rcsid[] = "@(#)$Id: elm.c,v 2.34 89/04/19 10:49:18 syd Exp $";
  
  /*******************************************************************************
!  *  The Elm Mail System  -  $Revision: 2.34 $   $State: Exp $
   *
   * This file and all associated files and documentation:
   * 			Copyright (c) 1986, 1987 Dave Taylor
***************
*** 15,20 ****
--- 15,23 ----
   *
   *******************************************************************************
   * $Log:	elm.c,v $
+  * Revision 2.34  89/04/19  10:49:18  syd
+  * Fix scanning for calendar entries with no mail
+  * 
   * Revision 2.33  89/03/25  21:46:10  syd
   * Initial 2.2 Release checkin
   * 
***************
*** 228,236 ****
  
  	    case '<'    :  /* scan current message for calendar information */
  #ifdef ENABLE_CALENDAR
! 			   PutLine0(LINES-3, strlen("Command: "), 	
  				   "Scan message for calendar entries...");
! 			   scan_calendar();
  #else
  	 		   error("Sorry. Calendar function disabled.");
  			   fflush(stdin);
--- 231,245 ----
  
  	    case '<'    :  /* scan current message for calendar information */
  #ifdef ENABLE_CALENDAR
! 		           if  (message_count < 1) {
! 			     error("No mail to scan!");
! 			     fflush(stdin);
! 			   }
! 			   else {
! 			       PutLine0(LINES-3, strlen("Command: "), 	
  				   "Scan message for calendar entries...");
! 			       scan_calendar();
! 			   }
  #else
  	 		   error("Sorry. Calendar function disabled.");
  			   fflush(stdin);

Index: src/opt_utils.c
Prereq: 2.16
*** ../elm2.2/src/opt_utils.c	Thu Mar 30 10:36:43 1989
--- src/opt_utils.c	Wed Apr 19 10:42:55 1989
***************
*** 1,8 ****
  
! static char rcsid[] = "@(#)$Id: opt_utils.c,v 2.16 89/03/25 21:46:52 syd Exp $";
  
  /*******************************************************************************
!  *  The Elm Mail System  -  $Revision: 2.16 $   $State: Exp $
   *
   * 			Copyright (c) 1986, 1987 Dave Taylor
   * 			Copyright (c) 1988, 1989 USENET Community Trust
--- 1,8 ----
  
! static char rcsid[] = "@(#)$Id: opt_utils.c,v 2.17 89/04/19 10:42:42 syd Exp $";
  
  /*******************************************************************************
!  *  The Elm Mail System  -  $Revision: 2.17 $   $State: Exp $
   *
   * 			Copyright (c) 1986, 1987 Dave Taylor
   * 			Copyright (c) 1988, 1989 USENET Community Trust
***************
*** 14,19 ****
--- 14,22 ----
   *
   *******************************************************************************
   * $Log:	opt_utils.c,v $
+  * Revision 2.17  89/04/19  10:42:42  syd
+  * Make code use proper defines for Xenix and Uname
+  * 
   * Revision 2.16  89/03/25  21:46:52  syd
   * Initial 2.2 Release checkin
   * 
***************
*** 48,54 ****
  {
  	/** Return the name of the current host machine. **/
  
! #ifdef XENIX
  	char    buf[32];
  	FILE    *fp;
  	char    *p;
--- 51,57 ----
  {
  	/** Return the name of the current host machine. **/
  
! #if defined(XENIX) & !defined(DOUNAME)
  	char    buf[32];
  	FILE    *fp;
  	char    *p;

Index: src/syscall.c
Prereq: 2.14
*** ../elm2.2/src/syscall.c	Thu Mar 30 10:37:47 1989
--- src/syscall.c	Wed Apr 19 10:56:23 1989
***************
*** 1,8 ****
  
! static char rcsid[] = "@(#)$Id: syscall.c,v 2.14 89/03/25 21:47:31 syd Exp $";
  
  /*******************************************************************************
!  *  The Elm Mail System  -  $Revision: 2.14 $   $State: Exp $
   *
   * 			Copyright (c) 1986, 1987 Dave Taylor
   * 			Copyright (c) 1988, 1989 USENET Community Trust
--- 1,8 ----
  
! static char rcsid[] = "@(#)$Id: syscall.c,v 2.15 89/04/19 10:56:15 syd Exp $";
  
  /*******************************************************************************
!  *  The Elm Mail System  -  $Revision: 2.15 $   $State: Exp $
   *
   * 			Copyright (c) 1986, 1987 Dave Taylor
   * 			Copyright (c) 1988, 1989 USENET Community Trust
***************
*** 14,19 ****
--- 14,22 ----
   *
   *******************************************************************************
   * $Log:	syscall.c,v $
+  * Revision 2.15  89/04/19  10:56:15  syd
+  * Better attempt at stop signals
+  * 
   * Revision 2.14  89/03/25  21:47:31  syd
   * Initial 2.2 Release checkin
   * 
***************
*** 98,113 ****
  #ifdef VOIDSIG
  	register void (*istat)(), (*qstat)();
  # ifdef SIGTSTP
- #  ifndef BSD
  	register void (*oldstop)(), (*oldstart)();
- #  endif
  # endif
  #else
  	register int (*istat)(), (*qstat)();
  # ifdef SIGTSTP
- #  ifndef BSD
  	register int (*oldstop)(), (*oldstart)();
- #  endif
  # endif 
  #endif
  	
--- 101,112 ----
***************
*** 124,133 ****
  	    (void)signal(SIGHUP, SIG_DFL);
  	    (void)signal(SIGINT, SIG_DFL);
  #ifdef SIGTSTP
- # ifndef BSD
  	    (void)signal(SIGTSTP, SIG_DFL);
  	    (void)signal(SIGCONT, SIG_DFL);
- # endif
  #endif
  	  } else {
  	    /* program to exec should ignore interrupt, accidental hangup, and stop signals */
--- 123,130 ----
***************
*** 134,143 ****
  	    (void)signal(SIGHUP, SIG_IGN);
  	    (void)signal(SIGINT, SIG_IGN);
  #ifdef SIGTSTP
- # ifndef BSD
  	    (void)signal(SIGTSTP, SIG_IGN);
  	    (void)signal(SIGCONT, SIG_IGN);
- # endif
  #endif
  	  }
  
--- 131,138 ----
***************
*** 152,161 ****
  	istat = signal(SIGINT, SIG_IGN);
  	qstat = signal(SIGQUIT, SIG_IGN);
  #ifdef SIGTSTP
! # ifndef BSD
! 	oldstop = signal(SIGTSTP, SIG_IGN);
! 	oldstart = signal(SIGCONT, SIG_IGN);
! # endif
  #endif
  
  	while ((w = wait(&status)) != pid && w != -1)
--- 147,154 ----
  	istat = signal(SIGINT, SIG_IGN);
  	qstat = signal(SIGQUIT, SIG_IGN);
  #ifdef SIGTSTP
! 	oldstop = signal(SIGTSTP, SIG_DFL);
! 	oldstart = signal(SIGCONT, SIG_DFL);
  #endif
  
  	while ((w = wait(&status)) != pid && w != -1)
***************
*** 170,179 ****
  	(void)signal(SIGINT, istat);
  	(void)signal(SIGQUIT, qstat);
  #ifdef SIGTSTP
- # ifndef BSD
  	(void)signal(SIGTSTP, oldstop);
  	(void)signal(SIGCONT, oldstart);
- # endif
  #endif
  
  	return(stat);
--- 163,170 ----

Index: utils/fastmail.c
Prereq: 2.5
*** ../elm2.2/utils/fastmail.c	Thu Mar 30 10:38:09 1989
--- utils/fastmail.c	Wed Apr 19 10:38:25 1989
***************
*** 1,8 ****
  
! static char rcsid[] = "@(#)$Id: fastmail.c,v 2.5 89/03/25 21:47:44 syd Exp $";
  
  /*******************************************************************************
!  *  The Elm Mail System  -  $Revision: 2.5 $   $State: Exp $
   *
   * 			Copyright (c) 1986, 1987 Dave Taylor
   * 			Copyright (c) 1988, 1989 USENET Community Trust
--- 1,8 ----
  
! static char rcsid[] = "@(#)$Id: fastmail.c,v 2.6 89/04/19 10:38:11 syd Exp $";
  
  /*******************************************************************************
!  *  The Elm Mail System  -  $Revision: 2.6 $   $State: Exp $
   *
   * 			Copyright (c) 1986, 1987 Dave Taylor
   * 			Copyright (c) 1988, 1989 USENET Community Trust
***************
*** 14,19 ****
--- 14,22 ----
   *
   *******************************************************************************
   * $Log:	fastmail.c,v $
+  * Revision 2.6  89/04/19  10:38:11  syd
+  * Make fastmail silent unless debugging turned on
+  * 
   * Revision 2.5  89/03/25  21:47:44  syd
   * Initial 2.2 Release checkin
   * 
***************
*** 213,222 ****
  
  	sendmail_available = (access(sendmail, EXECUTE_ACCESS) != -1);
  
! 	printf("Mailing to %s%s%s%s%s [via %s]\n", to_list,
! 		(strlen(cc_list) > 0 ? " ":""), cc_list,
! 		(strlen(bcc_list) > 0 ? " ":""), bcc_list,
! 		sendmail_available? "sendmail" : "rmail");
  
  	sprintf(command_buffer, "cat %s %s | %s %s %s %s", 
  		tempfilename, filename, 
--- 216,226 ----
  
  	sendmail_available = (access(sendmail, EXECUTE_ACCESS) != -1);
  
! 	if (debug)
! 		printf("Mailing to %s%s%s%s%s [via %s]\n", to_list,
! 			(strlen(cc_list) > 0 ? " ":""), cc_list,
! 			(strlen(bcc_list) > 0 ? " ":""), bcc_list,
! 			sendmail_available? "sendmail" : "rmail");
  
  	sprintf(command_buffer, "cat %s %s | %s %s %s %s", 
  		tempfilename, filename, 

Index: utils/mailrc.awk
Prereq: 2.3
*** ../elm2.2/utils/mailrc.awk	Thu Mar 30 10:38:16 1989
--- utils/mailrc.awk	Wed Apr 19 10:31:13 1989
***************
*** 1,5 ****
  #
! # @(#)$Id: mailrc.awk,v 2.3 89/03/25 21:47:51 syd Exp $
  #	Copyright (c) 1986, 1987 Dave Taylor
  #	Copyright (c) 1988, 1989 USENET Community Trust
  # Bug reports, patches, comments, suggestions should be sent to:
--- 1,5 ----
  #
! # @(#)$Id: mailrc.awk,v 2.4 89/04/19 10:31:03 syd Exp $
  #	Copyright (c) 1986, 1987 Dave Taylor
  #	Copyright (c) 1988, 1989 USENET Community Trust
  # Bug reports, patches, comments, suggestions should be sent to:
***************
*** 8,13 ****
--- 8,16 ----
  #					 dsinc!elm
  #
  # $Log:	mailrc.awk,v $
+ # Revision 2.4  89/04/19  10:31:03  syd
+ # Change alias delimiter to ='s
+ # 
  # Revision 2.3  89/03/25  21:47:51  syd
  # Initial 2.2 Release checkin
  # 
***************
*** 43,49 ****
  $1 ~ /[Aa]lias|[Gg]roup/ { 
  
  	if ( NF == 3)
! 	  print $2 " : user alias : " $3;
  	else {
  	  group = ""
  	  for (i = 3; i <= NF; i++) {
--- 46,52 ----
  $1 ~ /[Aa]lias|[Gg]roup/ { 
  
  	if ( NF == 3)
! 	  print $2 " = user alias = " $3;
  	else {
  	  group = ""
  	  for (i = 3; i <= NF; i++) {
***************
*** 59,64 ****
  	    else
   	      group = $i;
  	    }
! 	    print $2 " : group alias : " group;
  	  }
   	}
--- 62,67 ----
  	    else
   	      group = $i;
  	    }
! 	    print $2 " = group alias = " group;
  	  }
   	}

-- 
=====================================================================
Sydney S. Weinstein, CDP, CCP                   Elm Coordinator
Datacomp Systems, Inc.				Voice: (215) 947-9900
syd@DSI.COM or {bpa,vu-vlsi}!dsinc!syd	        FAX:   (215) 938-0235


---------------------------- End of Patch 01 --------------------------
>
>
>-- 
>Norman Soley - The Communications Guy - Ontario Ministry of the Environment
>Until the next maps go out:	moegate!soley@ontenv.UUCP 
>I'd like to try golf but I just can't bring myself to buy a pair of plaid pants

      Boon
Technical Details
Message-ID: <850@ecf.toronto.edu>
Path: arc1-ca.pugleaf.net!utzoo!utgpu!jarvis.csri.toronto.edu!me!ecf!chew
References: <272@moegate.UUCP>

Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!utzoo!utgpu!jarvis.csri.toronto.edu!me!ecf!chew
From: chew@ecf.toronto.edu (Ping Chew)
Newsgroups: ont.archives
Subject: Re: Elm 2.2 patches 1 & 2
Message-ID: <850@ecf.toronto.edu>
Date: 3 May 89 13:22:40 GMT
References: <272@moegate.UUCP>
Reply-To: chew@ecf.UUCP (Boon-Ping Chew)
Distribution: ont
Organization: Engineering Computing Facility, University of Toronto
Lines: 1272