home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume1 / rn / patch10 < prev    next >
Encoding:
Text File  |  1986-11-30  |  14.4 KB  |  535 lines
  1. System: rn version 4.3
  2. Patch #: 10
  3. Priority: LOW
  4. Subject: 7 with one blow
  5. >From: rlh@ukc.UUCP (Ron Hellier), wescott@ncrcae.UUCP (Mike Wescott),
  6.     netnews@wnuxb.UUCP (Ron Heiby), urban@spp3.UUCP (Mike Urban),
  7.     sjs@u1100s.UUCP (Stan Switzer)
  8.  
  9. Description:
  10.     7 buglets:
  11.  
  12.     The filexp script produced by Configure expands ~name with a space
  13.     on the end (in the presence of /bin/csh) because of carryover from
  14.     programming around a Eunice bug.
  15.  
  16.     Pnews had some extra backslashes in it.
  17.  
  18.     Rnmail didn't put "-- " in front of the .signature.
  19.  
  20.     When using V7/Berkeley fullname code, intrp.c didn't capitalize the
  21.     & substitution of login name into fullname if it was the last
  22.     rather than the first name.
  23.  
  24.     A help message in ng.c contained the interesting word
  25.     "unsubsubscribe".
  26.  
  27.     The prompt for catch-up confirmation in rn.c didn't pay attention
  28.     to the -t (terse) flag.
  29.  
  30.     There is a glitch in terminfo's emulation of termcap (with regard
  31.     to the bc capability) that needed programming around.  Also there
  32.     seem to be some systems that don't translate \r to \n on input
  33.     properly, so that was programmed around too.
  34.  
  35. Fix:    From rn, say "| patch -d DIR", where DIR is your rn source directory.
  36.     Outside of rn, say "cd DIR; patch <thisarticle".  If you don't have
  37.     the patch program, apply the following by hand, or get patch.
  38.  
  39.     If patch indicates that patchlevel is the wrong version, you may need
  40.     to apply one or more previous patches, or the patch may already
  41.     have been applied.  See the patchlevel file to find out what has or
  42.     has not been applied.  In any event, don't continue with the patch.
  43.  
  44. Index: patchlevel
  45. Prereq: 9
  46. 1c1
  47. < Patch #: 9
  48. ---
  49. > Patch #: 10
  50.  
  51. Index: Configure
  52. Prereq: 
  53. *** Configure.old    Fri May 17 10:55:31 1985
  54. --- Configure    Fri May 17 10:56:06 1985
  55. ***************
  56. *** 3,9
  57.   # If these # comments don't work, trim them.  Don't worry about the other
  58.   # shell scripts, Configure will trim # comments from them for you.
  59.   #
  60. ! # $Header: Configure,v 4.3.1.2 85/05/13 15:54:35 lwall Exp $
  61.   #
  62.   # $Log:    Configure,v $
  63.   # Revision 4.3.1.2  85/05/13  15:54:35  lwall
  64.  
  65. --- 3,9 -----
  66.   # If these # comments don't work, trim them.  Don't worry about the other
  67.   # shell scripts, Configure will trim # comments from them for you.
  68.   #
  69. ! # $Header: Configure,v 4.3.1.3 85/05/16 16:48:48 lwall Exp $
  70.   #
  71.   # $Log:    Configure,v $
  72.   # Revision 4.3.1.3  85/05/16  16:48:48  lwall
  73. ***************
  74. *** 6,11
  75.   # $Header: Configure,v 4.3.1.2 85/05/13 15:54:35 lwall Exp $
  76.   #
  77.   # $Log:    Configure,v $
  78.   # Revision 4.3.1.2  85/05/13  15:54:35  lwall
  79.   # Libraries in /usr/local/lib shouldn't use -l switch.
  80.   # 
  81.  
  82. --- 6,14 -----
  83.   # $Header: Configure,v 4.3.1.3 85/05/16 16:48:48 lwall Exp $
  84.   #
  85.   # $Log:    Configure,v $
  86. + # Revision 4.3.1.3  85/05/16  16:48:48  lwall
  87. + # Took space from end of filexp output.
  88. + # 
  89.   # Revision 4.3.1.2  85/05/13  15:54:35  lwall
  90.   # Libraries in /usr/local/lib shouldn't use -l switch.
  91.   # 
  92. ***************
  93. *** 568,574
  94.   ~*)
  95.       if $test -f /bin/csh; then
  96.       /bin/csh -f -c "glob \$1"
  97. !     $echo " "
  98.       else
  99.       name=\`$expr x\$1 : '..\([^/]*\)'\`
  100.       dir=\`$sed </etc/passwd -n -e "/^\${name}:/{s/^[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:\([^:]*\).*"'\$'"/\1/" -e p -e q -e '}'\`
  101.  
  102. --- 571,577 -----
  103.   ~*)
  104.       if $test -f /bin/csh; then
  105.       /bin/csh -f -c "glob \$1"
  106. !     $echo ""
  107.       else
  108.       name=\`$expr x\$1 : '..\([^/]*\)'\`
  109.       dir=\`$sed </etc/passwd -n -e "/^\${name}:/{s/^[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:\([^:]*\).*"'\$'"/\1/" -e p -e q -e '}'\`
  110.  
  111. Index: Pnews.SH
  112. Prereq: 4.3
  113. *** Pnews.SH.old    Fri May 17 10:40:18 1985
  114. --- Pnews.SH    Fri May 17 10:40:21 1985
  115. ***************
  116. *** 4,10
  117.   echo "Extracting Pnews (with variable substitutions)"
  118.   $spitshell >Pnews <<!GROK!THIS!
  119.   $startsh
  120. ! # $Header: Pnews.SH,v 4.3 85/05/01 12:20:33 lwall Exp $
  121.   #
  122.   # $Log:    Pnews.SH,v $
  123.   # Revision 4.3  85/05/01  12:20:33  lwall
  124.  
  125. --- 4,10 -----
  126.   echo "Extracting Pnews (with variable substitutions)"
  127.   $spitshell >Pnews <<!GROK!THIS!
  128.   $startsh
  129. ! # $Header: Pnews.SH,v 4.3.1.2 85/05/17 10:36:46 lwall Exp $
  130.   #
  131.   # $Log:    Pnews.SH,v $
  132.   # Revision 4.3.1.2  85/05/17  10:36:46  lwall
  133. ***************
  134. *** 7,12
  135.   # $Header: Pnews.SH,v 4.3 85/05/01 12:20:33 lwall Exp $
  136.   #
  137.   # $Log:    Pnews.SH,v $
  138.   # Revision 4.3  85/05/01  12:20:33  lwall
  139.   # Baseline for release with 4.3bsd.
  140.   # 
  141.  
  142. --- 7,18 -----
  143.   # $Header: Pnews.SH,v 4.3.1.2 85/05/17 10:36:46 lwall Exp $
  144.   #
  145.   # $Log:    Pnews.SH,v $
  146. + # Revision 4.3.1.2  85/05/17  10:36:46  lwall
  147. + # Removed some extra backslashes.
  148. + # 
  149. + # Revision 4.3.1.1  85/05/10  11:30:21  lwall
  150. + # Branch for patches.
  151. + # 
  152.   # Revision 4.3  85/05/01  12:20:33  lwall
  153.   # Baseline for release with 4.3bsd.
  154.   # 
  155. ***************
  156. *** 344,351
  157.           esac
  158.           for newsgroup in $*; do
  159.   # the following screwy sed should prevent Eunice from hanging on no match
  160. !             moderator=`$sed <$lib/moderators \\
  161. !             -e "/^$newsgroup[     ]/!s/.*//" \\
  162.               -e "s/^$newsgroup[     ]//"`
  163.               case ${moderator}X in
  164.               X)  tryinews=yes
  165.  
  166. --- 350,357 -----
  167.           esac
  168.           for newsgroup in $*; do
  169.   # the following screwy sed should prevent Eunice from hanging on no match
  170. !             moderator=`$sed <$lib/moderators \
  171. !             -e "/^$newsgroup[     ]/!s/.*//" \
  172.               -e "s/^$newsgroup[     ]//"`
  173.               case ${moderator}X in
  174.               X)  tryinews=yes
  175.  
  176. Index: Rnmail.SH
  177. Prereq: 4.3
  178. *** Rnmail.SH.old    Fri May 17 10:40:07 1985
  179. --- Rnmail.SH    Fri May 17 10:40:10 1985
  180. ***************
  181. *** 4,10
  182.   echo "Extracting Rnmail (with variable substitutions)"
  183.   $spitshell >Rnmail <<!GROK!THIS!
  184.   $startsh
  185. ! # $Header: Rnmail.SH,v 4.3 85/05/01 11:34:18 lwall Exp $
  186.   # 
  187.   # $Log:    Rnmail.SH,v $
  188.   # Revision 4.3  85/05/01  11:34:18  lwall
  189.  
  190. --- 4,10 -----
  191.   echo "Extracting Rnmail (with variable substitutions)"
  192.   $spitshell >Rnmail <<!GROK!THIS!
  193.   $startsh
  194. ! # $Header: Rnmail.SH,v 4.3.1.2 85/05/17 10:36:19 lwall Exp $
  195.   # 
  196.   # $Log:    Rnmail.SH,v $
  197.   # Revision 4.3.1.2  85/05/17  10:36:19  lwall
  198. ***************
  199. *** 7,12
  200.   # $Header: Rnmail.SH,v 4.3 85/05/01 11:34:18 lwall Exp $
  201.   # 
  202.   # $Log:    Rnmail.SH,v $
  203.   # Revision 4.3  85/05/01  11:34:18  lwall
  204.   # Baseline for release with 4.3bsd.
  205.   # 
  206.  
  207. --- 7,18 -----
  208.   # $Header: Rnmail.SH,v 4.3.1.2 85/05/17 10:36:19 lwall Exp $
  209.   # 
  210.   # $Log:    Rnmail.SH,v $
  211. + # Revision 4.3.1.2  85/05/17  10:36:19  lwall
  212. + # Added "-- " before .signature.
  213. + # 
  214. + # Revision 4.3.1.1  85/05/10  11:30:38  lwall
  215. + # Branch for patches.
  216. + # 
  217.   # Revision 4.3  85/05/01  11:34:18  lwall
  218.   # Baseline for release with 4.3bsd.
  219.   # 
  220. ***************
  221. *** 227,233
  222.           echo $n "Append .signature file? [y] $c"
  223.           read ans
  224.           case $ans in
  225. !         ''|y*) cat $dotdir/.signature >> $tmpart
  226.           esac
  227.       fi
  228.       case $mailer in
  229.  
  230. --- 233,242 -----
  231.           echo $n "Append .signature file? [y] $c"
  232.           read ans
  233.           case $ans in
  234. !         ''|y*)
  235. !         echo "-- " >> $tmpart
  236. !         cat $dotdir/.signature >> $tmpart
  237. !         ;;
  238.           esac
  239.       fi
  240.       case $mailer in
  241.  
  242. Index: intrp.c
  243. Prereq: 4.3.1.2
  244. *** intrp.c.old    Fri May 17 10:40:36 1985
  245. --- intrp.c    Fri May 17 10:40:42 1985
  246. ***************
  247. *** 1,4
  248. ! /* $Header: intrp.c,v 4.3.1.2 85/05/15 14:39:45 lwall Exp $
  249.    *
  250.    * $Log:    intrp.c,v $
  251.    * Revision 4.3.1.2  85/05/15  14:39:45  lwall
  252.  
  253. --- 1,4 -----
  254. ! /* $Header: intrp.c,v 4.3.1.3 85/05/17 10:37:11 lwall Exp $
  255.    *
  256.    * $Log:    intrp.c,v $
  257.    * Revision 4.3.1.3  85/05/17  10:37:11  lwall
  258. ***************
  259. *** 1,6
  260.   /* $Header: intrp.c,v 4.3.1.2 85/05/15 14:39:45 lwall Exp $
  261.    *
  262.    * $Log:    intrp.c,v $
  263.    * Revision 4.3.1.2  85/05/15  14:39:45  lwall
  264.    * Spelled gecos right.
  265.    * 
  266.  
  267. --- 1,9 -----
  268.   /* $Header: intrp.c,v 4.3.1.3 85/05/17 10:37:11 lwall Exp $
  269.    *
  270.    * $Log:    intrp.c,v $
  271. +  * Revision 4.3.1.3  85/05/17  10:37:11  lwall
  272. +  * Fixed & substitution to capitalize last name too.
  273. +  * 
  274.    * Revision 4.3.1.2  85/05/15  14:39:45  lwall
  275.    * Spelled gecos right.
  276.    * 
  277. ***************
  278. *** 1021,1030
  279.       *c = '\0';
  280.       s = cpytill(buf,s,'&');
  281.       if (*s == '&') {            /* whoever thought this one up was */
  282. !     strcat(buf,logname);        /* in the middle of the night */
  283. !     strcat(buf,s+1);        /* before the morning after */
  284. !     if (islower(*buf))
  285. !         *buf = toupper(*buf);    /* gack and double gack */
  286.       }
  287.   #else
  288.       if ((c = index(s, '(')) != Nullch)
  289.  
  290. --- 1024,1034 -----
  291.       *c = '\0';
  292.       s = cpytill(buf,s,'&');
  293.       if (*s == '&') {            /* whoever thought this one up was */
  294. !     c = buf + strlen(buf);        /* in the middle of the night */
  295. !     strcat(c,logname);        /* before the morning after */
  296. !     strcat(c,s+1);
  297. !     if (islower(*c))
  298. !         *c = toupper(*c);        /* gack and double gack */
  299.       }
  300.   #else
  301.       if ((c = index(s, '(')) != Nullch)
  302.  
  303. Index: ng.c
  304. Prereq: 4.3.1.2
  305. *** ng.c.old    Fri May 17 10:55:26 1985
  306. --- ng.c    Fri May 17 10:55:44 1985
  307. ***************
  308. *** 1,4
  309. ! /* $Header: ng.c,v 4.3.1.2 85/05/13 09:29:28 lwall Exp $
  310.    *
  311.    * $Log:    ng.c,v $
  312.    * Revision 4.3.1.2  85/05/13  09:29:28  lwall
  313.  
  314. --- 1,4 -----
  315. ! /* $Header: ng.c,v 4.3.1.3 85/05/16 16:48:09 lwall Exp $
  316.    *
  317.    * $Log:    ng.c,v $
  318.    * Revision 4.3.1.3  85/05/16  16:48:09  lwall
  319. ***************
  320. *** 1,6
  321.   /* $Header: ng.c,v 4.3.1.2 85/05/13 09:29:28 lwall Exp $
  322.    *
  323.    * $Log:    ng.c,v $
  324.    * Revision 4.3.1.2  85/05/13  09:29:28  lwall
  325.    * Added CUSTOMLINES option.
  326.    * 
  327.  
  328. --- 1,9 -----
  329.   /* $Header: ng.c,v 4.3.1.3 85/05/16 16:48:09 lwall Exp $
  330.    *
  331.    * $Log:    ng.c,v $
  332. +  * Revision 4.3.1.3  85/05/16  16:48:09  lwall
  333. +  * Fixed unsubsubscribe.
  334. +  * 
  335.    * Revision 4.3.1.2  85/05/13  09:29:28  lwall
  336.    * Added CUSTOMLINES option.
  337.    * 
  338. ***************
  339. *** 693,699
  340.           fputs("\
  341.   Type y or SP to mark all articles as read.\n\
  342.   Type n to leave articles marked as they are.\n\
  343. ! Type u to mark everything read and unsubsubscribe.\n\
  344.   ",stdout) FLUSH;
  345.           ELSE
  346.   #endif
  347.  
  348. --- 696,702 -----
  349.           fputs("\
  350.   Type y or SP to mark all articles as read.\n\
  351.   Type n to leave articles marked as they are.\n\
  352. ! Type u to mark everything read and unsubscribe.\n\
  353.   ",stdout) FLUSH;
  354.           ELSE
  355.   #endif
  356.  
  357. Index: rn.c
  358. Prereq: 4.3.1.2
  359. *** rn.c.old    Thu May 16 16:50:49 1985
  360. --- rn.c    Thu May 16 16:51:03 1985
  361. ***************
  362. *** 8,14
  363.    *      2.0: 09/01/83
  364.    */
  365.   
  366. ! static char rnid[] = "@(#)$Header: rn.c,v 4.3.1.2 85/05/13 09:34:53 lwall Exp $";
  367.   
  368.   /* $Log:    rn.c,v $
  369.    * Revision 4.3.1.2  85/05/13  09:34:53  lwall
  370.  
  371. --- 8,14 -----
  372.    *      2.0: 09/01/83
  373.    */
  374.   
  375. ! static char rnid[] = "@(#)$Header: rn.c,v 4.3.1.3 85/05/16 16:47:10 lwall Exp $";
  376.   
  377.   /* $Log:    rn.c,v $
  378.    * Revision 4.3.1.3  85/05/16  16:47:10  lwall
  379. ***************
  380. *** 11,16
  381.   static char rnid[] = "@(#)$Header: rn.c,v 4.3.1.2 85/05/13 09:34:53 lwall Exp $";
  382.   
  383.   /* $Log:    rn.c,v $
  384.    * Revision 4.3.1.2  85/05/13  09:34:53  lwall
  385.    * Fixed default after do_newsgroup() returns from Q command.
  386.    * 
  387.  
  388. --- 11,19 -----
  389.   static char rnid[] = "@(#)$Header: rn.c,v 4.3.1.3 85/05/16 16:47:10 lwall Exp $";
  390.   
  391.   /* $Log:    rn.c,v $
  392. +  * Revision 4.3.1.3  85/05/16  16:47:10  lwall
  393. +  * Catchup confirmation didn't grok -t.
  394. +  * 
  395.    * Revision 4.3.1.2  85/05/13  09:34:53  lwall
  396.    * Fixed default after do_newsgroup() returns from Q command.
  397.    * 
  398. ***************
  399. *** 334,339
  400.   #ifdef CATCHUP
  401.   reask_catchup:
  402.   #ifdef VERBOSE
  403.               in_char("\nDo you really want to mark everything as read? [yn] ");
  404.   #else
  405.               in_char("\nReally? [ynh] ");
  406.  
  407. --- 337,343 -----
  408.   #ifdef CATCHUP
  409.   reask_catchup:
  410.   #ifdef VERBOSE
  411. +         IF(verbose)
  412.               in_char("\nDo you really want to mark everything as read? [yn] ");
  413.           ELSE
  414.   #endif
  415. ***************
  416. *** 335,341
  417.   reask_catchup:
  418.   #ifdef VERBOSE
  419.               in_char("\nDo you really want to mark everything as read? [yn] ");
  420. ! #else
  421.               in_char("\nReally? [ynh] ");
  422.   #endif
  423.               putchar('\n') FLUSH;
  424.  
  425. --- 339,347 -----
  426.   #ifdef VERBOSE
  427.           IF(verbose)
  428.               in_char("\nDo you really want to mark everything as read? [yn] ");
  429. !         ELSE
  430. ! #endif
  431. ! #ifdef TERSE
  432.               in_char("\nReally? [ynh] ");
  433.   #endif
  434.               putchar('\n') FLUSH;
  435.  
  436. Index: term.c
  437. Prereq: 4.3
  438. *** term.c.old    Thu May 16 16:50:45 1985
  439. --- term.c    Thu May 16 16:51:05 1985
  440. ***************
  441. *** 1,4
  442. ! /* $Header: term.c,v 4.3 85/05/01 11:51:10 lwall Exp $
  443.    *
  444.    * $Log:    term.c,v $
  445.    * Revision 4.3  85/05/01  11:51:10  lwall
  446.  
  447. --- 1,4 -----
  448. ! /* $Header: term.c,v 4.3.1.2 85/05/16 16:45:35 lwall Exp $
  449.    *
  450.    * $Log:    term.c,v $
  451.    * Revision 4.3.1.2  85/05/16  16:45:35  lwall
  452. ***************
  453. *** 1,6
  454.   /* $Header: term.c,v 4.3 85/05/01 11:51:10 lwall Exp $
  455.    *
  456.    * $Log:    term.c,v $
  457.    * Revision 4.3  85/05/01  11:51:10  lwall
  458.    * Baseline for release with 4.3bsd.
  459.    * 
  460.  
  461. --- 1,13 -----
  462.   /* $Header: term.c,v 4.3.1.2 85/05/16 16:45:35 lwall Exp $
  463.    *
  464.    * $Log:    term.c,v $
  465. +  * Revision 4.3.1.2  85/05/16  16:45:35  lwall
  466. +  * Forced \r to \n on input.
  467. +  * Fix for terminfo braindamage regarding bc emulation.
  468. +  * 
  469. +  * Revision 4.3.1.1  85/05/10  11:41:03  lwall
  470. +  * Branch for patches.
  471. +  * 
  472.    * Revision 4.3  85/05/01  11:51:10  lwall
  473.    * Baseline for release with 4.3bsd.
  474.    * 
  475. ***************
  476. *** 140,146
  477.       tmpaddr = tcarea;            /* set up strange tgetstr pointer */
  478.       s = Tgetstr("pc");            /* get pad character */
  479.       PC = *s;                /* get it where tputs wants it */
  480. !     if (!tgetflag("bs"))        /* is backspace not used? */
  481.       BC = Tgetstr("bc");        /* find out what is */
  482.       else
  483.       BC = "\b";            /* make a backspace handy */
  484.  
  485. --- 147,153 -----
  486.       tmpaddr = tcarea;            /* set up strange tgetstr pointer */
  487.       s = Tgetstr("pc");            /* get pad character */
  488.       PC = *s;                /* get it where tputs wants it */
  489. !     if (!tgetflag("bs")) {        /* is backspace not used? */
  490.       BC = Tgetstr("bc");        /* find out what is */
  491.       if (BC == nullstr)         /* terminfo grok's 'bs' but not 'bc' */
  492.           BC = Tgetstr("le");
  493. ***************
  494. *** 142,148
  495.       PC = *s;                /* get it where tputs wants it */
  496.       if (!tgetflag("bs"))        /* is backspace not used? */
  497.       BC = Tgetstr("bc");        /* find out what is */
  498. !     else
  499.       BC = "\b";            /* make a backspace handy */
  500.       UP = Tgetstr("up");            /* move up a line */
  501.       if (!*UP)                /* no UP string? */
  502.  
  503. --- 149,157 -----
  504.       PC = *s;                /* get it where tputs wants it */
  505.       if (!tgetflag("bs")) {        /* is backspace not used? */
  506.       BC = Tgetstr("bc");        /* find out what is */
  507. !     if (BC == nullstr)         /* terminfo grok's 'bs' but not 'bc' */
  508. !         BC = Tgetstr("le");
  509. !     } else
  510.       BC = "\b";            /* make a backspace handy */
  511.       UP = Tgetstr("up");            /* move up a line */
  512.       if (!*UP)                /* no UP string? */
  513. ***************
  514. *** 749,754
  515.       }
  516.   
  517.   got_canonical:
  518.       if (whatbuf == buf)
  519.       whatbuf[1] = FINISHCMD;        /* tell finish_command to work */
  520.   }
  521.  
  522. --- 758,767 -----
  523.       }
  524.   
  525.   got_canonical:
  526. + #ifndef TERMIO
  527. +     if (*whatbuf == '\r')
  528. +     *whatbuf = '\n';
  529. + #endif
  530.       if (whatbuf == buf)
  531.       whatbuf[1] = FINISHCMD;        /* tell finish_command to work */
  532.   }
  533.  
  534.  
  535.