Developers of Sympa

[Aumont - Comite Reseaux des Universites <address@concealed>]

Some sympa users ask us to modify the way that sympa manage Reply-To:
currently, even if the list config contain a Reply_To parameter,
sympa do not modify the Reply-To is there is one in the incomming
message.
Shall we change this and leave sympa overwrite the incomming reply-to
according to the list config ? Any suggestion ? 

Here is a patch propopsed to do it. 

---------------------------------------------------------------------------
Serge Aumont      CRU  campus Beaulieu             Tel : 02 99 84 71 47
                  35042 Rennes Cedex               fax : 02 99 84 71 11

--- Begin Message ---

• From: Mathieu ARNOLD <address@concealed>
• To: "address@concealed" <address@concealed>
• Subject: forcer le reply to sur une liste
• Date: Thu, 09 Mar 2000 22:39:53 +0100

Bonjour,

J'ai des utilisateurs vraiment têtus, qui mettent un reply to sur eux même,
et ça m'énerve :)
donc, voici un bout de patch, ça devrais marcher... :)

--- List.pm~ Thu Mar 9 21:14:48 2000
+++ List.pm Thu Mar 9 21:16:01 2000
@@ -2881,7 +2881,7 @@
next;
}

- if (/^\s*(reply-to|reply_to|replyto)\s+(sender|list|.*)\s*$/o) {
+ if
(/^\s*(reply-to|reply_to|replyto)\s+(sender|list|list_always|.*)\s*$/o) {
$admin->{'reply_to'} = $2;
next;
}
--- sympa.pl~ Thu Mar 9 21:14:43 2000
+++ sympa.pl Thu Mar 9 21:18:22 2000
@@ -484,6 +484,12 @@
$reply = "$listname\@$host";
}
$hdr->add('Reply-To', $reply);
+ } elsif ($reply && $reply =~ /^list_always$/io) {
+ if ($hdr->get('Reply-To')) {
+ $hdr->replace('Reply-To',"$listname\@$host");
+ } else {
+ $hdr->add('Reply-To',"$listname\@$host");
+ }
}

## Remove unwanted headers if present.
--- Commands.pm~ Thu Mar 9 22:37:14 2000
+++ Commands.pm Thu Mar 9 22:38:43 2000
@@ -1344,6 +1344,12 @@
$reply = "$listname\@$host";
}
$hdr->add('Reply-To', $reply);
+ } elsif ($reply && $reply =~ /^list_always$/io) {
+ if ($hdr->get('Reply-To')) {
+ $hdr->replace('Reply-To',"$listname\@$host");
+ } else {
+ $hdr->add('Reply-To',"$listname\@$host");
+ }
}

## Remove unwanted headers if present.
@@ -1489,6 +1495,12 @@
$reply = "$name\@$host";
}
$hdr->add('Reply-To', $reply);
+ } elsif ($reply && $reply =~ /^list_always$/io) {
+ if ($hdr->get('Reply-To')) {
+ $hdr->replace('Reply-To',"$name\@$host");
+ } else {
+ $hdr->add('Reply-To',"$name\@$host");
+ }
}

## Remove unwanted headers if present.

chez moi, ça marche :)

--
Mathieu Arnold

--- End Message ---