@ECHO OFF
IF .%1 == .  GOTO SCAN
IF .%1 == .! GOTO DOIT
ECHO Edit Netscape mail/outbox using KEDIT macro XC.KEX to find the header
ECHO of the last message.  KEDIT "locate" allows to add a "forward half".
ECHO Note the OS/2 shell escape protecting the ampersand in this command.
ECHO %0 uses CHCP 1004 (windows-1252) if possible.
GOTO EXIT
:SCAN
SETLOCAL
SET BOX=e:\installed\netscape\mail\outbox
FOR %%C IN (437 850 1004 0) DO CALL %0 ! %%C
ENDLOCAL
GOTO EXIT
:DOIT
IF .%BOX% == . GOTO EXIT
IF NOT %2 == 0 KEYB|FIND /V "subcode"|FIND "%2">/dev/nul
IF NOT %2 == 0 IF ERRORLEVEL 1 GOTO EXIT
IF NOT %2 == 0 CHCP 1004
kedit "%BOX%" (prof xc) locate * -/From / ^& ~/?From / forward half
IF NOT %2 == 0 CHCP %2
IF     %2 == 0 ECHO Please edit %0 and add your codepage
SET BOX=
:EXIT