Strip quoted emails in replies

While I'm not sure how to make a proper patch file, here's a diff file with my changes:

2c2
< // $Id: listhandler.module,v 1.75.2.13 2008/10/27 20:10:29 philipnet Exp $
---
> // $Id: listhandler.module,v 1.75.2.12 2008/07/26 16:21:15 philipnet Exp $
83,91d82
<
<   $form['listhandler_strip_body'] = array(
<     '#type' => 'textfield',
<     '#title' => t('Strip body from'),
<     '#default_value' => variable_get('listhandler_strip_body', '/(On .*? wrote)|(_{10,}\s*From:)|((>\s*){0,1}-{5,}\s*Original Message\s*-{5,})/'),
<     '#size' => 50,
<     '#maxlength' => 1024,
<     '#description' => t("A comma delimited regex from which the body of messages should be discarded. Useful for deleting unwanted reply emails"));
<
161,162d151
<   variable_set('listhandler_strip_body', $form_values['listhandler_strip_body']);
<
190,192c179,183
<           $node->subject = $node->title;
<           $node->comment = $node->body;
<           listhandler_send_mail((array) $node);
---
>           if(!spam_content_filter('forum', $node->nid, $node->title, $node->body)) {
>             $node->subject = $node->title;
>             $node->comment = $node->body;
>             listhandler_send_mail((array) $node);
>           }
239,240c230,232
<
<       listhandler_send_mail($edit);
---
>       if(!spam_content_filter('comment', $edit['cid'], $edit['subject'], $edit['comment'])) {
>         listhandler_send_mail($edit);
>       }
251,259c243
<
<   if (!$user->uid) {
<     $edit['name'] = variable_get('anonymous', 'Anonymous');
<     $edit['mail'] = variable_get('listhandler_from', '');
<   }
<   else {
<     $edit["name"] = $user->name;
<     $edit["mail"] = $user->mail;
<   }
---
>
296a281,294
>   // Fill the user email, check if subscribed
>   if (!$user->uid) {
>     $edit['name'] = variable_get('anonymous', 'Anonymous');
>     $edit['mail'] = variable_get('listhandler_from', '');
>   }
>   else if(!_listhandler_user_subscribed($mboxen[0][1], $user->mail)) {
>     $edit['name'] = variable_get('anonymous', 'Anonymous');
>     $edit['mail'] = $user->name . ' <' . variable_get('listhandler_from', '').'>';
>   }
>   else {
>     $edit["name"] = $user->name;
>     $edit["mail"] = $user->mail;
>   }
>
437,443d434
<
<       //Remove body from regex
<       $strip_body_regex = variable_get('listhandler_strip_body', '');
<       $body = preg_split($strip_body_regex, $node->body);
<
<       $node->body = $body[0];
<
581c572
<       $message  .= "Content-Type:$file->filemime;\n\tname=\"$file->filename\"\n";
---
>       $message  .= "Content-Type:$file->filemime;\n\tname=$file->filename\n";
583c574
<       $message  .= "Content-Disposition: attachment;\n\tfilename=\"$file->filename\"\n\n";
---
>       $message  .= "Content-Disposition: attachment;\n\tfilename=$file->filename\n\n";
627a619,631
>
> function _listhandler_user_subscribed($list_mail, $user_mail) {
>   //Get the mail up to the @, add -request to it
>   $list_name = substr($list_mail, 0, strpos($list_mail, '@'));
>   $list_req = $list_name . '-request'.substr($list_mail, strpos($list_mail, '@'));
>
>   //Match mailman users table
> $sql = "SELECT lstatus FROM {mailman_users} mu LEFT JOIN {mailman_lists} ml on mu.lid=ml.lid WHERE mu.lmail='".$user_mail."' AND ml.command='".$list_req."' AND mu.lstatus<>0";
>   $result = db_query("SELECT lstatus FROM {mailman_users} mu LEFT JOIN {mailman_lists} ml on mu.lid=ml.lid WHERE mu.lmail='".$user_mail."' AND ml.command='".$list_req."' AND mu.lstatus<>0");
>   if(db_num_rows($result)>0) return true;
>   else return false;
>
> }