home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume1 / rn / patch25 < prev    next >
Encoding:
Text File  |  1986-11-30  |  15.9 KB  |  713 lines
  1.  
  2. System: rn version 4.3
  3. Patch #: 25
  4. Priority: MEDIUM
  5. Subject: various Pnews and Rnmail upgrades.
  6. >From: lots of people
  7.  
  8. Description:
  9.     Several things:
  10.  
  11.     1)  Pnews wouldn't add .signature on moderated articles.  You now
  12.         get asked if you want to do it.
  13.  
  14.     2)  There was no way to specify an alternate editor from within
  15.         Pnews or Rnmail.  You may now say "e editor" to switch editors.
  16.  
  17.     3)  There was no way to save a permanent copy of the article or
  18.         message.  There is now support for AUTHORCOPY/MAILRECORD
  19.         environment variables to do this.
  20.  
  21.     4)  When the disk gets full, inews can lie about the success of
  22.         the posting, and up to now Pnews would happily delete the
  23.         temporary file thinking all was well.  The temporary file is
  24.         now kept around in your DOTDIR until the next invocation of
  25.         Pnews/Rnmail.
  26.  
  27. Repeat-By:
  28.  
  29. Fix:    From rn, say "| patch -d DIR", where DIR is your rn source directory.
  30.     Outside of rn, say "cd DIR; patch <thisarticle".  If you don't have
  31.     the patch program, apply the following by hand, or get patch.
  32.  
  33.     If patch indicates that patchlevel is the wrong version, you may need
  34.     to apply one or more previous patches, or the patch may already
  35.     have been applied.  See the patchlevel file to find out what has or
  36.     has not been applied.  In any event, don't continue with the patch.
  37.  
  38. Index: patchlevel
  39. Prereq: 24
  40. 1c1
  41. < Patch #: 24
  42. ---
  43. > Patch #: 25
  44.  
  45. Index: Pnews.1
  46. Prereq: 4.3
  47. *** Pnews.1.old    Thu Aug  1 14:25:25 1985
  48. --- Pnews.1    Thu Aug  1 14:25:27 1985
  49. ***************
  50. *** 1,4
  51. ! ''' $Header: Pnews.1,v 4.3 85/05/01 11:33:50 lwall Exp $
  52.   ''' 
  53.   ''' $Log:    Pnews.1,v $
  54.   ''' Revision 4.3  85/05/01  11:33:50  lwall
  55.  
  56. --- 1,4 -----
  57. ! ''' $Header: Pnews.1,v 4.3.1.2 85/08/01 14:22:48 lwall Exp $
  58.   ''' 
  59.   ''' $Log:    Pnews.1,v $
  60.   ''' Revision 4.3.1.2  85/08/01  14:22:48  lwall
  61. ***************
  62. *** 1,6
  63.   ''' $Header: Pnews.1,v 4.3 85/05/01 11:33:50 lwall Exp $
  64.   ''' 
  65.   ''' $Log:    Pnews.1,v $
  66.   ''' Revision 4.3  85/05/01  11:33:50  lwall
  67.   ''' Baseline for release with 4.3bsd.
  68.   ''' 
  69.  
  70. --- 1,12 -----
  71.   ''' $Header: Pnews.1,v 4.3.1.2 85/08/01 14:22:48 lwall Exp $
  72.   ''' 
  73.   ''' $Log:    Pnews.1,v $
  74. + ''' Revision 4.3.1.2  85/08/01  14:22:48  lwall
  75. + ''' Added AUTHORCOPY.
  76. + ''' 
  77. + ''' Revision 4.3.1.1  85/05/10  11:30:30  lwall
  78. + ''' Branch for patches.
  79. + ''' 
  80.   ''' Revision 4.3  85/05/01  11:33:50  lwall
  81.   ''' Baseline for release with 4.3bsd.
  82.   ''' 
  83. ***************
  84. *** 69,74
  85.   .I rn
  86.   passes to Pnews.
  87.   .SH ENVIRONMENT
  88.   .IP DOTDIR 8
  89.   Where to find your dot files, if they aren't in your home directory.
  90.   .Sp
  91.  
  92. --- 75,85 -----
  93.   .I rn
  94.   passes to Pnews.
  95.   .SH ENVIRONMENT
  96. + .IP AUTHORCOPY 8
  97. + If defined, contains the name of a file to which the finished article will
  98. + be appended.
  99. + .Sp
  100. + Default: article not saved
  101.   .IP DOTDIR 8
  102.   Where to find your dot files, if they aren't in your home directory.
  103.   This is primarily for accounts which are shared by more than one person.
  104. ***************
  105. *** 71,76
  106.   .SH ENVIRONMENT
  107.   .IP DOTDIR 8
  108.   Where to find your dot files, if they aren't in your home directory.
  109.   .Sp
  110.   Default: $HOME
  111.   .IP EDITOR 8
  112.  
  113. --- 82,88 -----
  114.   Default: article not saved
  115.   .IP DOTDIR 8
  116.   Where to find your dot files, if they aren't in your home directory.
  117. + This is primarily for accounts which are shared by more than one person.
  118.   .Sp
  119.   Default: $HOME
  120.   .IP EDITOR 8
  121. ***************
  122. *** 105,111
  123.   .Sp
  124.   Default: $EDITOR
  125.   .SH FILES
  126. ! /tmp/article$$
  127.   .br
  128.   ~/dead.article
  129.   .SH SEE ALSO
  130.  
  131. --- 117,123 -----
  132.   .Sp
  133.   Default: $EDITOR
  134.   .SH FILES
  135. ! $DOTDIR/.article
  136.   .br
  137.   ~/dead.article
  138.   .SH SEE ALSO
  139.  
  140. Index: Pnews.SH
  141. Prereq: 4.3.1.2
  142. *** Pnews.SH.old    Thu Aug  1 14:26:09 1985
  143. --- Pnews.SH    Thu Aug  1 14:26:13 1985
  144. ***************
  145. *** 4,10
  146.   echo "Extracting Pnews (with variable substitutions)"
  147.   $spitshell >Pnews <<!GROK!THIS!
  148.   $startsh
  149. ! # $Header: Pnews.SH,v 4.3.1.2 85/05/17 10:36:46 lwall Exp $
  150.   #
  151.   # $Log:    Pnews.SH,v $
  152.   # Revision 4.3.1.2  85/05/17  10:36:46  lwall
  153.  
  154. --- 4,10 -----
  155.   echo "Extracting Pnews (with variable substitutions)"
  156.   $spitshell >Pnews <<!GROK!THIS!
  157.   $startsh
  158. ! # $Header: Pnews.SH,v 4.3.1.3 85/08/01 14:24:06 lwall Exp $
  159.   #
  160.   # $Log:    Pnews.SH,v $
  161.   # Revision 4.3.1.3  85/08/01  14:24:06  lwall
  162. ***************
  163. *** 7,12
  164.   # $Header: Pnews.SH,v 4.3.1.2 85/05/17 10:36:46 lwall Exp $
  165.   #
  166.   # $Log:    Pnews.SH,v $
  167.   # Revision 4.3.1.2  85/05/17  10:36:46  lwall
  168.   # Removed some extra backslashes.
  169.   # 
  170.  
  171. --- 7,15 -----
  172.   # $Header: Pnews.SH,v 4.3.1.3 85/08/01 14:24:06 lwall Exp $
  173.   #
  174.   # $Log:    Pnews.SH,v $
  175. + # Revision 4.3.1.3  85/08/01  14:24:06  lwall
  176. + # Added AUTHORCOPY.  Temp file is no longer in /tmp.  'e editor' added.
  177. + # 
  178.   # Revision 4.3.1.2  85/05/17  10:36:46  lwall
  179.   # Removed some extra backslashes.
  180.   # 
  181. ***************
  182. *** 83,89
  183.   
  184.   !GROK!THIS!
  185.   $spitshell >>Pnews <<'!NO!SUBS!'
  186. ! if $test -f ${DOTDIR-${HOME-$LOGDIR}}/.pnewsexpert; then
  187.       expertise=expert
  188.   else
  189.       $cat <<'EOM'
  190.  
  191. --- 86,95 -----
  192.   
  193.   !GROK!THIS!
  194.   $spitshell >>Pnews <<'!NO!SUBS!'
  195. ! dotdir=${DOTDIR-${HOME-$LOGDIR}}
  196. ! tmpart=$dotdir/.article
  197. ! 
  198. ! if $test -f $dotdir/.pnewsexpert; then
  199.       expertise=expert
  200.   else
  201.       $cat <<'EOM'
  202. ***************
  203. *** 107,114
  204.     *)   stpr=State ;;
  205.   esac
  206.   
  207. - tmpart=/tmp/article$$
  208. - 
  209.   headerfile=""
  210.   case $# in
  211.   0) ;;
  212.  
  213. --- 113,118 -----
  214.     *)   stpr=State ;;
  215.   esac
  216.   
  217.   headerfile=""
  218.   case $# in
  219.   0) ;;
  220. ***************
  221. *** 139,145
  222.       $cat < $headerfile  > $tmpart
  223.       ;;
  224.   esac
  225. !     rescue="sleep 1; $cat $tmpart >>${HOME-$LOGDIR}/dead.article ; $echo saved in ${HOME-$LOGDIR}/dead.article ; $rm -f $tmpart; exit"
  226.       trap "$rescue" 1
  227.       trap "$rescue" 2
  228.   
  229.  
  230. --- 143,149 -----
  231.       $cat < $headerfile  > $tmpart
  232.       ;;
  233.   esac
  234. !     rescue="sleep 1; $cat $tmpart >>${HOME-$LOGDIR}/dead.article ; $echo Article appended to ${HOME-$LOGDIR}/dead.article ; exit"
  235.       trap "$rescue" 1
  236.       trap "$rescue" 2
  237.   
  238. ***************
  239. *** 256,262
  240.       edit)
  241.       case $expertise in
  242.       beginner)
  243. !         $cat </dev/null >${DOTDIR-${HOME-$LOGDIR}}/.pnewsexpert
  244.           $cat <<'EOMessage'
  245.   A temporary file has been created for you to edit.  Be sure to leave at
  246.   least one blank line between the header and the body of your message.
  247.  
  248. --- 260,266 -----
  249.       edit)
  250.       case $expertise in
  251.       beginner)
  252. !         $cat </dev/null >$dotdir/.pnewsexpert
  253.           $cat <<'EOMessage'
  254.   A temporary file has been created for you to edit.  Be sure to leave at
  255.   least one blank line between the header and the body of your message.
  256. ***************
  257. *** 313,319
  258.       $echo $n "Send, abort, edit, or list? $c"
  259.       read ans
  260.       
  261. !     case $ans in
  262.       a*)
  263.           state=rescue
  264.           ;;
  265.  
  266. --- 317,323 -----
  267.       $echo $n "Send, abort, edit, or list? $c"
  268.       read ans
  269.       
  270. !     case "$ans" in
  271.       a*)
  272.           state=rescue
  273.           ;;
  274. ***************
  275. *** 318,323
  276.           state=rescue
  277.           ;;
  278.       e*)
  279.           state=edit
  280.           ;;
  281.       l*)
  282.  
  283. --- 322,331 -----
  284.           state=rescue
  285.           ;;
  286.       e*)
  287. +         set $ans
  288. +         case $# in
  289. +         2)  VISUAL="$2" ;;
  290. +         esac
  291.           state=edit
  292.           ;;
  293.       l*)
  294. ***************
  295. *** 332,337
  296.   
  297.   Type s to send the article, a to abort and append the article to dead.article,
  298.   e to edit the article again, or l to list the article.
  299.   EOH
  300.       esac
  301.       ;;
  302.  
  303. --- 340,347 -----
  304.   
  305.   Type s to send the article, a to abort and append the article to dead.article,
  306.   e to edit the article again, or l to list the article.
  307. + 
  308. + To invoke an alternate editor, type 'e editor'.
  309.   EOH
  310.       esac
  311.       ;;
  312. ***************
  313. *** 358,363
  314.               ;;
  315.               *)
  316.               $echo Mailing to moderator $moderator
  317.               case "$mailer" in
  318.               *recmail)
  319.                   $echo To: $moderator | $cat - $tmpart | $mailer
  320.  
  321. --- 368,389 -----
  322.               ;;
  323.               *)
  324.               $echo Mailing to moderator $moderator
  325. +             case "$sign" in
  326. +             n*) ;;
  327. +             *)
  328. +                 if $test -f $dotdir/.signature; then
  329. +                 echo $n "Append .signature file? [y] $c"
  330. +                 read ans
  331. +                 case $ans in
  332. +                 ''|y*)
  333. +                     echo "-- " >> $tmpart
  334. +                     cat $dotdir/.signature >> $tmpart
  335. +                     ;;
  336. +                 esac
  337. +                 fi
  338. +                 sign=no
  339. +                 ;;
  340. +             esac
  341.               case "$mailer" in
  342.               *recmail)
  343.                   $echo To: $moderator | $cat - $tmpart | $mailer
  344. ***************
  345. *** 400,407
  346.       ;;
  347.       rescue)
  348.       $cat $tmpart >> ${HOME-$LOGDIR}/dead.article
  349. !     $echo "Article saved to ${HOME-$LOGDIR}/dead.article"
  350. !     state=cleanup
  351.       ;;
  352.       cleanup)
  353.       $rm -f $tmpart
  354.  
  355. --- 426,434 -----
  356.       ;;
  357.       rescue)
  358.       $cat $tmpart >> ${HOME-$LOGDIR}/dead.article
  359. !     $echo "Article appended to ${HOME-$LOGDIR}/dead.article"
  360. !     $echo "A copy may be temporarily found in $tmpart"
  361. !     exit
  362.       ;;
  363.       cleanup)
  364.       case "${AUTHORCOPY-none}" in
  365. ***************
  366. *** 404,410
  367.       state=cleanup
  368.       ;;
  369.       cleanup)
  370. !     $rm -f $tmpart
  371.       exit
  372.       ;;
  373.       esac
  374.  
  375. --- 431,448 -----
  376.       exit
  377.       ;;
  378.       cleanup)
  379. !     case "${AUTHORCOPY-none}" in
  380. !     none)
  381. !         ;;
  382. !     *)  if $cat $tmpart >> $AUTHORCOPY; then
  383. !         $echo "Article appended to $AUTHORCOPY"
  384. !         $echo "" >> $AUTHORCOPY
  385. !         $echo "" >> $AUTHORCOPY
  386. !         else
  387. !         $echo "Cannot append to $AUTHORCOPY"
  388. !         fi
  389. !         ;;
  390. !     esac
  391.       exit
  392.       ;;
  393.       esac
  394. ***************
  395. *** 571,577
  396.       fullname=`$sed </etc/passwd -e "/^$logname:/{s/^[^:]*:[^:]*:[^:]*:[^:]*:\([^(:]*\).*"'$'"/\1/" -e "s/^.*-//" -e "q" -e "}" -e "d"`
  397.       ;;
  398.   *)
  399. !     fullname=${NAME-`$cat ${HOME-$LOGDIR}/.fullname`}
  400.       ;;
  401.   esac
  402.   
  403.  
  404. --- 609,615 -----
  405.       fullname=`$sed </etc/passwd -e "/^$logname:/{s/^[^:]*:[^:]*:[^:]*:[^:]*:\([^(:]*\).*"'$'"/\1/" -e "s/^.*-//" -e "q" -e "}" -e "d"`
  406.       ;;
  407.   *)
  408. !     fullname=${NAME-`$cat $dotdir/.fullname`}
  409.       ;;
  410.   esac
  411.   
  412.  
  413. Index: Rnmail.1
  414. Prereq: 4.3
  415. *** Rnmail.1.old    Thu Aug  1 14:25:11 1985
  416. --- Rnmail.1    Thu Aug  1 14:25:13 1985
  417. ***************
  418. *** 1,4
  419. ! ''' $Header: Rnmail.1,v 4.3 85/05/01 11:34:28 lwall Exp $
  420.   ''' 
  421.   ''' $Log:    Rnmail.1,v $
  422.   ''' Revision 4.3  85/05/01  11:34:28  lwall
  423.  
  424. --- 1,4 -----
  425. ! ''' $Header: Rnmail.1,v 4.3.1.2 85/08/01 14:22:08 lwall Exp $
  426.   ''' 
  427.   ''' $Log:    Rnmail.1,v $
  428.   ''' Revision 4.3.1.2  85/08/01  14:22:08  lwall
  429. ***************
  430. *** 1,6
  431.   ''' $Header: Rnmail.1,v 4.3 85/05/01 11:34:28 lwall Exp $
  432.   ''' 
  433.   ''' $Log:    Rnmail.1,v $
  434.   ''' Revision 4.3  85/05/01  11:34:28  lwall
  435.   ''' Baseline for release with 4.3bsd.
  436.   ''' 
  437.  
  438. --- 1,12 -----
  439.   ''' $Header: Rnmail.1,v 4.3.1.2 85/08/01 14:22:08 lwall Exp $
  440.   ''' 
  441.   ''' $Log:    Rnmail.1,v $
  442. + ''' Revision 4.3.1.2  85/08/01  14:22:08  lwall
  443. + ''' Added MAILRECORD, DOTDIR.
  444. + ''' 
  445. + ''' Revision 4.3.1.1  85/05/10  11:30:44  lwall
  446. + ''' Branch for patches.
  447. + ''' 
  448.   ''' Revision 4.3  85/05/01  11:34:28  lwall
  449.   ''' Baseline for release with 4.3bsd.
  450.   ''' 
  451. ***************
  452. *** 69,74
  453.   .I rn
  454.   passes to Rnmail.
  455.   .SH ENVIRONMENT
  456.   .IP EDITOR 8
  457.   The editor you want to use, if VISUAL is undefined.
  458.   .Sp
  459.  
  460. --- 75,86 -----
  461.   .I rn
  462.   passes to Rnmail.
  463.   .SH ENVIRONMENT
  464. + .IP DOTDIR 8
  465. + If defined, specifies a place other than your home directory where 'dot' files
  466. + may be stored.
  467. + This is primarily for accounts which are shared by more than one person.
  468. + .Sp
  469. + Default: $HOME
  470.   .IP EDITOR 8
  471.   The editor you want to use, if VISUAL is undefined.
  472.   .Sp
  473. ***************
  474. *** 83,88
  475.   Your login name, if USER is undefined.
  476.   .Sp
  477.   Default: value of \*(L"whoami\*(R".
  478.   .IP ORGANIZATION 8
  479.   Either the name of your organization, or the name of a file containing the
  480.   name of your organization.
  481.  
  482. --- 95,105 -----
  483.   Your login name, if USER is undefined.
  484.   .Sp
  485.   Default: value of \*(L"whoami\*(R".
  486. + .IP MAILRECORD 8
  487. + If defined, contains the name of a file to which the finished message will
  488. + be appended.
  489. + .Sp
  490. + Default: message not saved
  491.   .IP ORGANIZATION 8
  492.   Either the name of your organization, or the name of a file containing the
  493.   name of your organization.
  494. ***************
  495. *** 97,103
  496.   .Sp
  497.   Default: $EDITOR
  498.   .SH FILES
  499. ! /tmp/rnmail$$
  500.   .br
  501.   ~/dead.letter
  502.   .SH SEE ALSO
  503.  
  504. --- 114,120 -----
  505.   .Sp
  506.   Default: $EDITOR
  507.   .SH FILES
  508. ! $DOTDIR/.letter
  509.   .br
  510.   ~/dead.letter
  511.   .SH SEE ALSO
  512.  
  513. Index: Rnmail.SH
  514. Prereq: 4.3.1.3
  515. *** Rnmail.SH.old    Thu Aug  1 14:25:44 1985
  516. --- Rnmail.SH    Thu Aug  1 14:25:46 1985
  517. ***************
  518. *** 4,10
  519.   echo "Extracting Rnmail (with variable substitutions)"
  520.   $spitshell >Rnmail <<!GROK!THIS!
  521.   $startsh
  522. ! # $Header: Rnmail.SH,v 4.3.1.3 85/05/20 16:25:17 lwall Exp $
  523.   # 
  524.   # $Log:    Rnmail.SH,v $
  525.   # Revision 4.3.1.3  85/05/20  16:25:17  lwall
  526.  
  527. --- 4,10 -----
  528.   echo "Extracting Rnmail (with variable substitutions)"
  529.   $spitshell >Rnmail <<!GROK!THIS!
  530.   $startsh
  531. ! # $Header: Rnmail.SH,v 4.3.1.4 85/08/01 14:23:05 lwall Exp $
  532.   # 
  533.   # $Log:    Rnmail.SH,v $
  534.   # Revision 4.3.1.4  85/08/01  14:23:05  lwall
  535. ***************
  536. *** 7,12
  537.   # $Header: Rnmail.SH,v 4.3.1.3 85/05/20 16:25:17 lwall Exp $
  538.   # 
  539.   # $Log:    Rnmail.SH,v $
  540.   # Revision 4.3.1.3  85/05/20  16:25:17  lwall
  541.   # Shouldn't ask editor if EDITOR or VISUAL defined.
  542.   # 
  543.  
  544. --- 7,15 -----
  545.   # $Header: Rnmail.SH,v 4.3.1.4 85/08/01 14:23:05 lwall Exp $
  546.   # 
  547.   # $Log:    Rnmail.SH,v $
  548. + # Revision 4.3.1.4  85/08/01  14:23:05  lwall
  549. + # Added MAILRECORD.  Temp file is no longer in /tmp.  'e editor' added.
  550. + # 
  551.   # Revision 4.3.1.3  85/05/20  16:25:17  lwall
  552.   # Shouldn't ask editor if EDITOR or VISUAL defined.
  553.   # 
  554. ***************
  555. *** 57,63
  556.   
  557.   !GROK!THIS!
  558.   $spitshell >>Rnmail <<'!NO!SUBS!'
  559. - tmpart=/tmp/rnmail$$
  560.   dotdir=${DOTDIR-${HOME-$LOGDIR}}
  561.   
  562.   headerfile=""
  563.  
  564. --- 60,65 -----
  565.   
  566.   !GROK!THIS!
  567.   $spitshell >>Rnmail <<'!NO!SUBS!'
  568.   dotdir=${DOTDIR-${HOME-$LOGDIR}}
  569.   tmpart=$dotdir/.letter
  570.   
  571. ***************
  572. *** 59,64
  573.   $spitshell >>Rnmail <<'!NO!SUBS!'
  574.   tmpart=/tmp/rnmail$$
  575.   dotdir=${DOTDIR-${HOME-$LOGDIR}}
  576.   
  577.   headerfile=""
  578.   case $# in
  579.  
  580. --- 61,67 -----
  581.   !GROK!THIS!
  582.   $spitshell >>Rnmail <<'!NO!SUBS!'
  583.   dotdir=${DOTDIR-${HOME-$LOGDIR}}
  584. + tmpart=$dotdir/.letter
  585.   
  586.   headerfile=""
  587.   case $# in
  588. ***************
  589. *** 88,95
  590.           $cat <<'EOH'
  591.   
  592.   Type the net address of those people that you wish the message sent to.
  593. ! Note that you will be asked later for additional addresses of people to
  594. ! whom the message is not addressed but you wish to get copies.
  595.   
  596.   Separate multiple addresses with spaces.
  597.   
  598.  
  599. --- 91,97 -----
  600.           $cat <<'EOH'
  601.   
  602.   Type the net address of those people that you wish the message sent to.
  603. ! Additional recipients may be added on the Cc: line when you edit.
  604.   
  605.   Separate multiple addresses with spaces.
  606.   
  607. ***************
  608. *** 173,179
  609.   while true ; do
  610.       case $state in
  611.       edit)
  612. !     rescue="sleep 1; $cat $tmpart >>${HOME-$LOGDIR}/dead.letter ; $echo saved in ${HOME-$LOGDIR}/dead.letter ; $rm -f $tmpart; exit"
  613.       trap "$rescue" 1
  614.       trap : 2
  615.       case "${VISUAL-${EDITOR-}}" in
  616.  
  617. --- 175,181 -----
  618.   while true ; do
  619.       case $state in
  620.       edit)
  621. !     rescue="sleep 1; $cat $tmpart >>${HOME-$LOGDIR}/dead.letter ; $echo Message appended to ${HOME-$LOGDIR}/dead.letter ; exit"
  622.       trap "$rescue" 1
  623.       trap : 2
  624.       case "${VISUAL-${EDITOR-}}" in
  625. ***************
  626. *** 220,225
  627.           state=rescue
  628.           ;;
  629.       e*)
  630.           state=edit
  631.           ;;
  632.       l*)
  633.  
  634. --- 222,231 -----
  635.           state=rescue
  636.           ;;
  637.       e*)
  638. +         set $ans
  639. +         case $# in
  640. +         2)  VISUAL="$2" ;;
  641. +         esac
  642.           state=edit
  643.           ;;
  644.       l*)
  645. ***************
  646. *** 234,239
  647.   
  648.   Type s to send the message, a to abort and append the message to dead.letter,
  649.   e to edit the message again, or l to list the message.
  650.   EOH
  651.       esac
  652.       ;;
  653.  
  654. --- 240,247 -----
  655.   
  656.   Type s to send the message, a to abort and append the message to dead.letter,
  657.   e to edit the message again, or l to list the message.
  658. + 
  659. + To invoke an alternate editor, type 'e editor'.
  660.   EOH
  661.       esac
  662.       ;;
  663. ***************
  664. *** 278,285
  665.       ;;
  666.       rescue)
  667.       $cat $tmpart >> ${HOME-$LOGDIR}/dead.letter
  668. !     $echo "Message saved to ${HOME-$LOGDIR}/dead.letter"
  669. !     state=cleanup
  670.       ;;
  671.       cleanup)
  672.       $rm -f $tmpart
  673.  
  674. --- 286,294 -----
  675.       ;;
  676.       rescue)
  677.       $cat $tmpart >> ${HOME-$LOGDIR}/dead.letter
  678. !     $echo "Message appended to ${HOME-$LOGDIR}/dead.letter"
  679. !     $echo "A copy may be temporarily found in $tmpart"
  680. !     exit
  681.       ;;
  682.       cleanup)
  683.       case "${MAILRECORD-none}" in
  684. ***************
  685. *** 282,288
  686.       state=cleanup
  687.       ;;
  688.       cleanup)
  689. !     $rm -f $tmpart
  690.       exit
  691.       ;;
  692.       esac
  693.  
  694. --- 291,306 -----
  695.       exit
  696.       ;;
  697.       cleanup)
  698. !     case "${MAILRECORD-none}" in
  699. !     none)
  700. !         ;;
  701. !     *)  if $cat $tmpart >> $MAILRECORD; then
  702. !         $echo "Article appended to $MAILRECORD"
  703. !         else
  704. !         $echo "Cannot append to $MAILRECORD"
  705. !         fi
  706. !         ;;
  707. !     esac
  708.       exit
  709.       ;;
  710.       esac
  711.  
  712.  
  713.