2 files changed, 66 insertions, 67 deletions

diff --git a/mail/premail/Makefile b/mail/premail/Makefile
index 2975dc780d91..422ba2f4a9cc 100644
--- a/mail/premail/Makefile
+++ b/mail/premail/Makefile
@@ -18,7 +18,6 @@ BUILD_DEPENDS+= pgp:${PORTSDIR}/security/pgp
 WRKSRC=         ${WRKDIR}/premail
 USE_PERL5=      Yes
 NO_BUILD=       Yes
-RESTRICTED=     "Author treats it as ITAR subject"
 
 post-patch:
 	cd ${WRKSRC}; \
diff --git a/mail/premail/files/patch-aa b/mail/premail/files/patch-aa
index 0292844963fe..d53762a683a8 100644
--- a/mail/premail/files/patch-aa
+++ b/mail/premail/files/patch-aa
@@ -1,5 +1,5 @@
 --- premail.orig	Sat Oct 25 02:19:07 1997
-+++ premail	Mon May 17 03:07:52 1999
++++ premail	Thu Jul  6 11:55:51 2000
 @@ -2,7 +2,7 @@
  #
  # premail, an e-mail privacy package
@@ -9,21 +9,21 @@
  $version = '0.46';
  
  # Copyright 1996,1997 Raph Levien <raph@acm.org>
-@@ -85,8 +85,11 @@
+@@ -87,15 +87,24 @@
  
- $config{'rlist-valid'} = 300;
- 
--$config{'rlist-url'} = 'http://www.publius.net/rlist';
--$config{'pubring-url'} = 'http://www.publius.net/pubring.pgp';
-+#$config{'rlist-url'} = 'http://www.publius.net/rlist';
-+#$config{'pubring-url'} = 'http://www.publius.net/pubring.pgp';
+ $config{'rlist-url'} = 'http://www.publius.net/rlist';
+ $config{'pubring-url'} = 'http://www.publius.net/pubring.pgp';
+-$config{'type2-list-url'} = 'http://www.jpunix.com/type2.html';
+-$config{'pubring-mix-url'} = 'http://www.jpunix.com/pubring.html';
++$config{'type2-list-url'} = 'http://www.publius.net/type2.list';
++$config{'pubring-mix-url'} = 'http://www.publius.net/pubring.mix';
 +
-+$config{'rlist-url'} = 'finger:rlist@anon.lcs.mit.edu';
-+$config{'pubring-url'} = 'finger:pubring@anon.lcs.mit.edu';
- $config{'type2-list-url'} = 'http://www.jpunix.com/type2.html';
- $config{'pubring-mix-url'} = 'http://www.jpunix.com/pubring.html';
++#$config{'rlist-url'} = 'finger:rlist@anon.lcs.mit.edu';
++#$config{'pubring-url'} = 'finger:pubring@anon.lcs.mit.edu';
++#$config{'type2-list-url'} = 'http://www.jpunix.com/type2.html';
++#$config{'pubring-mix-url'} = 'http://www.jpunix.com/pubring.html';
  
-@@ -94,8 +97,12 @@
+ $config{'charset'} = 'iso-8859-1';
  
  $config{'encrypt'} = 'yes';
  
@@ -36,7 +36,7 @@
  
  # Global state
  
-@@ -112,6 +119,7 @@
+@@ -112,6 +121,7 @@
  $editfile = '';			# name of file to edit
  $dashoi = 0;			# -oi on cmd line
  $more_input = 1;
@@ -44,7 +44,7 @@
  $header_sep = '';
  $in_body = '';			# the filename of the input message body
  $prezilla = 0;			# special mode for Netscape Navigator 2.1
-@@ -226,7 +234,7 @@
+@@ -226,7 +236,7 @@
  # Return the name of the real sendmail executable
      if (!defined $config{'sendmail'} || $config{'sendmail'} eq '') {
  	# Standard place
@@ -53,7 +53,7 @@
  	# Newer BSD-based systems
  	(-x '/usr/sbin/sendmail') && return '/usr/sbin/sendmail';
  	# Okay, I give up
-@@ -306,8 +314,16 @@
+@@ -306,8 +316,16 @@
  	} elsif (/^\-oe(.)$/) {
  	    $error_mode = $1;
  	    if ($1 =~ /^[mwpqe]$/) { push (@sendmail_args, $_); }
@@ -70,7 +70,7 @@
          } elsif (/^\-f$/) {
  	    if ($#_ < 0) { &error ("$_ option needs an argument\n"); }
  	    shift;		# discard
-@@ -363,7 +379,7 @@
+@@ -363,7 +381,7 @@
      &apply_cmdline_configs ();
      if ($config{'preferences'}) {
  	$preferences = &tilde_expand ($config{'preferences'});
@@ -79,7 +79,7 @@
  	while (<PREF>) {
  	    if (/^\s*\$config\{\"([^\"]+)\"\}\s*\=\s*\"([^\"]*)\"/
  		|| /^\s*\$config\{\'([^\']+)\'\}\s*\=\s*\'([^\']*)\'/) {
-@@ -371,10 +387,11 @@
+@@ -371,10 +389,11 @@
  	    }
  	}
  	close (PREF);
@@ -92,7 +92,7 @@
  	while (<ADDR>) {
  	    if (/^([\w\-\_\+\.\@\!]+)\:\s*(.*)$/) {
  		$recip = &strip_address ($1);
-@@ -382,6 +399,7 @@
+@@ -382,6 +401,7 @@
  	    }
  	}
  	close (ADDR);
@@ -100,7 +100,7 @@
      }
      if ($config{'logfile'}) {
  	open (LOG, '>>'.&tilde_expand_mkdir ($config{'logfile'}));
-@@ -413,6 +431,7 @@
+@@ -413,6 +433,7 @@
  	if (!open (IN, $editfile)) {
  	    &error ("cannot open edit file $editfile\n");
  	}
@@ -108,7 +108,7 @@
  	return 1;
      } elsif ($dashbs) {
  	# do simple SMTP
-@@ -463,7 +482,9 @@
+@@ -463,7 +484,9 @@
  
      @in_headers = ();
      for ($lineno = 0;;$lineno++) {
@@ -119,7 +119,7 @@
  	if ($handle_from && $lineno == 0 && $line =~ /^From /) {
  	    return $line;
  	}
-@@ -495,16 +516,16 @@
+@@ -495,16 +518,16 @@
      my $line;
  
      if ($edit || $post) {
@@ -139,7 +139,7 @@
      return $line;
  }
  
-@@ -516,6 +537,7 @@
+@@ -516,6 +539,7 @@
  #   }
      if ($edit || $post) {
  	close (IN);
@@ -147,7 +147,7 @@
      } elsif ($dashbs) {
  	print "250 Message accepted for delivery\n";
  	$more_input = 1;
-@@ -600,10 +622,7 @@
+@@ -600,10 +624,7 @@
  
      # suppress cmdline remailers in -t mode; sendmail 8.6.8 manpage '-t'
      if ($dasht) {
@@ -159,7 +159,7 @@
      }
  
      @recips = ();
-@@ -1268,7 +1287,7 @@
+@@ -1268,7 +1289,7 @@
      my ($body, @the_recips) = @_;
      my ($key_type, $key);
      my (@keys);
@@ -168,7 +168,7 @@
      my (@mime_fields, $prefix, $boundary);
      my ($sign_type, $sign);
      my ($invoc, $errfile);
-@@ -1354,7 +1373,7 @@
+@@ -1354,7 +1375,7 @@
      my ($body, @the_recips) = @_;
      my ($key_type, $key);
      my (@keys);
@@ -177,7 +177,7 @@
      my (@mime_fields, $prefix);
      my ($sign_type, $sign);
      my ($invoc, $errfile);
-@@ -1487,6 +1506,16 @@
+@@ -1487,6 +1508,16 @@
      } else {
  	$num_shuf = 3;
      }
@@ -194,7 +194,7 @@
      foreach $hop (@chain) {
  	if ($hop =~ /^\d+$/) {
  	    for ($i = 0; $i < $hop; $i++) {
-@@ -1498,8 +1527,14 @@
+@@ -1498,8 +1529,14 @@
  			  || &member ('eric', @options))) {
  			next;
  		    }
@@ -211,7 +211,7 @@
  		    if ($config{'encrypt'} &&
  			(&member ('pgp', @options)
  			 || &member ('pgp.', @options))) {
-@@ -1511,7 +1546,8 @@
+@@ -1511,7 +1548,8 @@
  			     || &member ('pgponly', @options)) { next; }
  		    if ($config{'no-middle'}
  			&& &member ('middle', @options)) { next; }
@@ -221,7 +221,7 @@
  		    if (&member ('filter', @options)) { $score -= 10; }
  		    if (&member ('mon', @options)) { $score -= 10; }
  		    if ($#new_chain < 0 && !$erb
-@@ -1687,7 +1723,7 @@
+@@ -1687,7 +1725,7 @@
  	    }
  	}
  	if ($put_open) { close (PUT); }
@@ -230,7 +230,7 @@
      }
  }
  
-@@ -1817,7 +1853,7 @@
+@@ -1817,7 +1855,7 @@
  	}
      }
      push (@deliver_headers, "To\: $new_to\n");
@@ -239,7 +239,7 @@
  	$hash = "$1\n".$hash;
  	$body = &cat_tail ($body, "\*\*\n");
      }
-@@ -2214,7 +2250,7 @@
+@@ -2214,7 +2252,7 @@
  	# we know it's sendmail
  	$invoc = &bin_sendmail ();
  	if ($#sendmail_args >= 0) {
@@ -248,7 +248,7 @@
  	}
  	$invoc .= ' -oi';
  	foreach $recip (@the_recips) {
-@@ -2252,11 +2288,11 @@
+@@ -2252,11 +2290,11 @@
      &close_body ($body);
      if ($post) {
  	close (DELIVER);
@@ -264,7 +264,7 @@
  	unlink $tmpfile;
      } elsif ($edit && !$prezilla) {
  	close (DELIVER);
-@@ -2441,6 +2477,7 @@
+@@ -2441,6 +2479,7 @@
      }
      $strip =~ s/^\s+//s;
      $strip =~ s/\s+$//s;
@@ -272,7 +272,7 @@
      return ($strip, $caret);
  }
  
-@@ -2801,6 +2838,7 @@
+@@ -2801,6 +2840,7 @@
  # (@new_dict) = &delete_field ($key, @dict)
      my ($key, @dict) = @_;
      my (@new_dict);
@@ -280,7 +280,7 @@
  
      @new_dict = ();
      foreach $field (@dict) {
-@@ -2972,8 +3010,8 @@
+@@ -2972,8 +3012,8 @@
  
      $data = '';
      if (open (ERRFILE, $file)) {
@@ -290,7 +290,7 @@
  	    $data .= $_;
  	}
  	close (ERRFILE);
-@@ -3040,7 +3078,7 @@
+@@ -3040,7 +3080,7 @@
  	$pass = '';
      }
      if ($pubring) { $invoc .= ' +pubring='.&shell_quote ($pubring); }
@@ -299,7 +299,7 @@
      if ($sign) {
  	$invoc .= 's -u '.&shell_quote ($signuser);
  	&load_secrets ();
-@@ -3126,7 +3164,7 @@
+@@ -3126,7 +3166,7 @@
  	$signuser = '0x';
  	$pass = '';
      }
@@ -308,7 +308,7 @@
      $invoc .= ' -u '.&shell_quote ($signuser);
      unless (defined $pass) {
  	if (defined $pgppass{$signuser}) {
-@@ -3182,7 +3220,7 @@
+@@ -3182,7 +3222,7 @@
  	$signuser = '0x';
  	$pass = '';
      }
@@ -317,7 +317,7 @@
      $invoc .= ' -u '.&shell_quote ($signuser);
      unless (defined $pass) {
  	if (defined $pgppass{$signuser}) {
-@@ -3238,7 +3276,7 @@
+@@ -3238,7 +3278,7 @@
      return ($mimefile, $err, $boundary);
  }
  
@@ -326,7 +326,7 @@
  sub pgp_decrypt {
  # ($out_body, $err) = &pgp_decrypt ($body, $pass)
  # Try to decrypt $body using passphrase $pass. $out_body is null on error.
-@@ -3251,7 +3289,7 @@
+@@ -3251,7 +3291,7 @@
      $outfile = &tmp_filename ();
      $errfile = &tmp_filename ();
      $invoc = &tilde_expand ($config{'pgp'});
@@ -335,7 +335,7 @@
      $invoc .= " +pubring=$PUBRING" if $PUBRING;
      $invoc .= " +secring=$SECRING" if $SECRING;
  #    if ($pass =~ /^RING$;/) {
-@@ -3299,7 +3337,7 @@
+@@ -3299,7 +3339,7 @@
  
      $errfile = &tmp_filename ();
      $invoc = &tilde_expand ($config{'pgp'});
@@ -344,7 +344,7 @@
      $invoc .= ' '.$pgp_file;
      $invoc .= ' '.$signed_file;
      $invoc .= ' > '.$errfile.' 2>&1';
-@@ -3344,6 +3382,7 @@
+@@ -3344,6 +3384,7 @@
      $ENV{'TMP'} = $pgp_tmpdir;
      if ($pass) {
  	pipe (READER, WRITER);
@@ -352,7 +352,7 @@
  	$ENV{'PGPPASSFD'} = fileno(READER);
      }
      $status = open (PGP, $invoc);
-@@ -3390,7 +3429,7 @@
+@@ -3390,7 +3431,7 @@
      $chars_needed = 2 + sprintf ("%d", $bits / 8);
      &pdv ($config{'pgp'}." +makerandom=$chars_needed $outf"
  	." >/dev/null 2>&1\n");
@@ -361,7 +361,7 @@
  	." >/dev/null 2>&1";
      &pdv ($status."\n");
      if (!$status) {
-@@ -3592,6 +3631,7 @@
+@@ -3592,6 +3633,7 @@
      if ($x) {
  	if ($ENV{'DISPLAY'}) {
  	    pipe (READER, WRITER);
@@ -369,7 +369,7 @@
  	    system 'xterm -geometry 42x4-5-5 -e perl -e \''
  		.'system "stty -echo";print "\n";'
  		.'print "   Remember to logout when done.\n";'
-@@ -3626,11 +3666,14 @@
+@@ -3626,11 +3668,14 @@
  
      $errfile = &tmp_filename ();
      $invoc = &tilde_expand ($config{'pgp'});
@@ -385,7 +385,7 @@
      $status = &open_pgp ($invoc, $pass, '');
      $err = &read_and_delete ($errfile);
      &pdv ($err);
-@@ -3647,7 +3690,7 @@
+@@ -3647,7 +3692,7 @@
  	unlink $ps_pgp;
      }
      $invoc = &tilde_expand ($config{'pgp'});
@@ -394,7 +394,7 @@
      $invoc .= ' < '.$ps;
      $invoc .= ' > '.$ps_pgp;
      $invoc .= ' 2> '.$errfile;
-@@ -3910,7 +3953,8 @@
+@@ -3910,7 +3955,8 @@
  		&replace_field ('Content-Type: text/plain; charset='
  				.$config{'charset'}."\n",
  				@deliver_headers);
@@ -404,7 +404,7 @@
  	    # Should we detect other charsets which are supersets of us-ascii?
  	    if (!$mv_present) {
  		push (@deliver_headers, 'MIME-Version: 1.0'."\n");
-@@ -3923,7 +3967,8 @@
+@@ -3923,7 +3969,8 @@
  	}
      }
      # must deal with existing cte, charset, etc.
@@ -414,7 +414,7 @@
  	# Do the QP
  	&pdv ("Doing QP encoding!\n");
  	if (!$mv_present) {
-@@ -4336,6 +4381,8 @@
+@@ -4336,6 +4383,8 @@
      exit 0;
  }
  
@@ -423,7 +423,7 @@
  sub decode_msg {
  # &decode_msg ($msg)
  # This is possibly the ugliest function in all of premail. Most of it is
-@@ -5129,7 +5176,7 @@
+@@ -5129,7 +5178,7 @@
      &load_secrets ();
      foreach (keys %pgpring) {
  	my ($tpr, $tsr) = &makerings ($pgpring{$_});
@@ -432,7 +432,7 @@
  	#filecat ($tpr, $pr);
  	filecat ($tsr, $sr);
  	&delete_tmpfile ($tpr);
-@@ -5157,12 +5204,12 @@
+@@ -5157,12 +5206,12 @@
  #   &pdv ('&makerings ("'.join ('", "', @_)."\")\n");
      foreach ([$pr, $pk], [$sr, $sk]) {
  	open TMP, ">$$_[0]";
@@ -447,7 +447,7 @@
  	    . "$id $pr $pubring 2>&1";
  	&pdv ("$invoc > /dev/null\n");
  	system "$invoc > /dev/null";
-@@ -5189,7 +5236,7 @@
+@@ -5189,7 +5238,7 @@
      $outfile = &tmp_filename ();
      $errfile = &tmp_filename ();
      $invoc = &tilde_expand ($config{'pgp'});
@@ -456,7 +456,7 @@
      $invoc .= " +pubring=$pr +secring=$sr ";
      $invoc .= $cmd;
      $invoc .= ' < ' . $infile if $infile;
-@@ -5248,7 +5295,7 @@
+@@ -5248,7 +5297,7 @@
  EOF
      <STDIN>;
  
@@ -465,7 +465,7 @@
  	print STDERR "\nKey generation failed.\n";
  	&killbaks ($pr, $sr);
  	&delete_open_tmpfiles ();
-@@ -5272,7 +5319,7 @@
+@@ -5272,7 +5321,7 @@
      foreach $a ("$kid $pr",
  		"$remid $pr " . &tilde_expand ($config{'pubring'}),
  		"$kid $sr $defsr") {
@@ -474,7 +474,7 @@
  #	print STDERR "+ $invoc\n";
  	my $result = `$invoc`;
  	unless ($result =~ /^Key extracted/m) {
-@@ -5300,7 +5347,7 @@
+@@ -5300,7 +5349,7 @@
  EOF
      <STDIN>;
  
@@ -483,7 +483,7 @@
  #    print STDERR "+ $invoc\n";
      if (system ($invoc)) {
  	print STDERR "Edit failed.\n";
-@@ -5495,6 +5542,7 @@
+@@ -5495,6 +5544,7 @@
  	    }
  	}
      }
@@ -491,7 +491,7 @@
      if ($#args >= 1) {
  	$to = $args[1];
      } elsif ($#args < 0) {
-@@ -5609,7 +5657,6 @@
+@@ -5609,7 +5659,6 @@
  		$fullname = &query ('Full name of pseudonym (not just '
  				    . 'E-mail address)', $fullname);
  		$fullname =~ s/[\'\^\n]//g;  # kludge for secrets file
@@ -499,7 +499,7 @@
  		$signsend = &query ('Sign mail with (R)emailer key, '
  				    . '(P)seudonym key or (N)o key?',
  				    $signsend);
-@@ -5652,7 +5699,7 @@
+@@ -5652,7 +5701,7 @@
      }
  #   print "Here's the encrypted block:\n";
  #   system "cat $replyblock_fn";
@@ -508,7 +508,7 @@
      if (&member ('newnym', @options)) {
  	$secret = "\$nym\{\'$time\,$remailer\=$nym\'\} \= ".
  	    "\'chain=$chain\^to=$to^"
-@@ -5771,6 +5818,7 @@
+@@ -5771,6 +5820,7 @@
      if (!open (IN, $body)) {
  	&error ("Internal error opening replyblock\n");
      }
@@ -516,7 +516,7 @@
      @in_headers = ("To: $to\n");
      push (@in_headers, "Chain: $chain\n") if $chain;
      $header_sep = "\n";
-@@ -5784,6 +5832,7 @@
+@@ -5784,6 +5834,7 @@
      }
      &send_group ($groups[0]);
      close (IN);
@@ -524,7 +524,7 @@
  }
  
  sub find_nym {
-@@ -5997,7 +6046,7 @@
+@@ -5997,7 +6048,7 @@
  
      # The main loop
      $quit = 0;
@@ -533,7 +533,7 @@
      while (!$quit) {
  	$rin = $win = $ein = '';
  	vec ($rin, fileno(STDIN), 1) = 1 unless $ineof;
-@@ -6315,7 +6364,7 @@
+@@ -6315,7 +6366,7 @@
  # Open a Web connection for the file as file handle WWW.
      my ($url) = @_;
      my ($host, $port, $suf);
@@ -542,7 +542,7 @@
      my ($name, $proto);
      my ($that);
      my ($savesel, $gotsep);
-@@ -6330,7 +6379,7 @@
+@@ -6330,7 +6381,7 @@
  	$host = $1;
  	$port = $2;
  	$suf = $3;
@@ -551,7 +551,7 @@
  	else { $port = 80; }
  	($fqdn, $aliases, $type, $len, $thataddr) = gethostbyname ($host);
  	return &pdv ("Host not found: $host\n") if ($thataddr eq '');
-@@ -6345,7 +6394,7 @@
+@@ -6345,7 +6396,7 @@
  		       unpack ('C4', $thataddr), $port));
  	eval {
  	    $SIG{'ALRM'} = sub { die "Timeout error on $url\n" };
@@ -560,7 +560,7 @@
  #	    bind(WWW, $this) || &die_disarm ("bind: $!\n");
  #	    &pdv ("bound the socket...\n");
  	    connect(WWW, $that) || &die_disarm ("connect: $!\n");
-@@ -6368,6 +6417,21 @@
+@@ -6368,6 +6419,21 @@
  	};
  	if ($@) { return &pdv ($@); }
  	return &pdv ("No response from server\n") unless $gotsep;