*** mailpgp.orig	Fri Aug 27 10:33:00 1993
--- mailpgp	Sun Aug 29 01:31:59 1993
***************
*** 109,111 ****
  if (@opts) {
! 	system ('pgp','-a',@opts,$name);
  	if ($? == 0) {
--- 109,111 ----
  if (@opts) {
! 	system ('pgp','-a',@opts,$name, $ENV{USER}, '+');
  	if ($? == 0) {