Package: listadmin
Version: 2.32-1
Tags: patch

listadmin's *_if_subject options do not work, because perl's "write" eats
$subject.  The attached patch fixes this problem.

- Josh Triplett and Jamey Sharp


--- /usr/bin/listadmin	2006-11-26 11:09:44.000000000 -0800
+++ listadmin	2006-12-01 17:58:34.000000000 -0800
@@ -253,6 +253,8 @@
 	$reason = $info->{$id}{"reason"};
 	$spamscore = $info->{$id}{"spamscore"};
 	write;
+	# write modifies $subject, so reinitialise it
+	$subject = $info->{$id}{"subject"} || "";
 
 	while (1) {
 	    my $ans;
@@ -375,8 +377,8 @@
 		print mailman_url($list, $config->{adminurl}), "\n";
 	    } elsif ($ans eq ".") {
 		# write modifies $subject, so reinitialise it
-		$subject = $info->{$id}{"subject"} || "";
 		write;
+		$subject = $info->{$id}{"subject"} || "";
 	    } elsif ($ans eq "") {
 		# nothing.
 	    } else {

Attachment: signature.asc
Description: OpenPGP digital signature

Reply via email to