.key Editor/a,Filename/a
.bra {
.ket }

set width 72

failat 99

search "{filename}" "-----BEGIN PGP MESSAGE-----"
if NOT WARN
     set Msgfile `list "{Filename}" lformat="%s"`
     QuoteMsg "{filename}" "t:$Msgfile" $width UNQUOTE
     copy "t:$Msgfile" "{filename}.bak"
     if not exists ENV:PGPPASS
          setenv PGPPASS "`ESR "" "Enter PGP password:"`"
     endif
     delete {filename}
     path $PGPPATH add
	pgp >>t:out.$Msgfile t:$Msgfile -o {filename}
     if WARN
          copy "{filename}.bak" "{filename}"
          type >"CON:0/10//200/PGP Error Msg/CLOSE/WAIT/ScreenTHOR" "t:out.$Msgfile"
     	delete >nil: "t:$Msgfile" "t:out.$Msgfile" "{filename}.bak"
          skip edit
          endif
     setenv CEDPGP.$Msgfile 1
	QuoteMsg "{filename}" "t:$Msgfile" $width
     assign >nil: exists THOR:
     if NOT WARN
          THOR:bin/AddSig "t:$Msgfile"
          endif
     copy "t:$Msgfile" "{filename}"
	delete >nil: "t:$Msgfile" "t:out.$Msgfile" "{filename}.bak"
     endif

lab edit

"{editor}" -sticky "{filename}"

if exists ENV:CEDPGP.$Msgfile
     search "{filename}" "-=-=-=-=-=-DO NOT PGPCRYPT!-=-=-=-=-=-"
     if WARN
          skip crypt
          endif
     grep >"t:$Msgfile" -v "PGPCRYPT!" "{filename}"
     copy "t:$Msgfile" "{filename}"
     unsetenv CEDPGP.$Msgfile
     delete t:$Msgfile
     skip quit
     endif

search "{filename}" "-=-=-=-=-=-    PGPCRYPT!   -=-=-=-=-=-"
if not WARN
     skip crypt
     endif

skip quit

lab crypt

if exists ENV:CEDPGP.$Msgfile
      grep >"t:$Msgfile" -v "PGPCRYPT!" "{filename}"
      copy "t:$Msgfile" "{filename}"
      endif
if not exists ENV:PGPPASS
     setenv PGPPASS "`ESR "" "Enter PGP password:"`"
     endif
path $PGPPATH add
pgp >>"t:out.$Msgfile" -o "t:$Msgfile" -eas "{filename}" "`ESR "" "Who is the PGP message for?"`"
if WARN
     type >"CON:0/10//200/PGP Error Msg/CLOSE/WAIT/ScreenTHOR" "t:out.$Msgfile"
     copy "{filename}" "t:$Msgfile.asc"
     endif
copy "t:$Msgfile.asc" "{filename}"
delete "t:$Msgfile" "t:$Msgfile.asc" "t:out.$Msgfile"
unsetenv CEDPGP.$Msgfile
unset Msgfile

lab quit
