From 4988452740e4d8ae347570774f8aaece4372307d Mon Sep 17 00:00:00 2001
From: Joel Uckelman <uckelman@nomic.net>
Date: Mon, 27 Feb 2012 01:46:09 +0100
Subject: Added built_post_subject for stripping tags and Re's added by mailing
 lists.

---
 src/build_post.php | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 src/build_post.php

(limited to 'src/build_post.php')

diff --git a/src/build_post.php b/src/build_post.php
new file mode 100644
index 0000000..6d95be1
--- /dev/null
+++ b/src/build_post.php
@@ -0,0 +1,29 @@
+<?php
+
+function build_tag_pattern($tag) {
+  return '/' . preg_quote($tag, '/') . '\\s*/';
+}
+
+function build_post_subject($listtag, $forumtag, $subject) {
+  // strip the '[list]' and '[forum]' tags
+  $tagpat = '/(' . preg_quote($listtag, '/') .
+             '|' . preg_quote($forumtag, '/') . ')\\s*/';
+  $subject = preg_replace($tagpat, '', $subject);
+
+  // strip leading sequences of Re-equivalents
+  if (preg_match(
+    '/^((RE|AW|SV|VS)(\\[\\d+\\])?:\\s*)+/i',
+    $subject, $m, PREG_OFFSET_CAPTURE
+  )) {
+    $subject = substr($subject, $m[0][1]);
+  }
+
+  // ensure nonempty subject
+  if (trim($subject) == '') {
+    $subject = '(no subject)';
+  }
+
+  return $subject; 
+}
+
+?>
-- 
cgit v1.2.3