forcer le reply to sur une liste

[Mathieu ARNOLD <adresse@cachée>]

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