Copy the KDE 3.5 branch to branches/trinity for new KDE 3.5 features.

BUG:215923


git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdepim@1054174 283d02a7-25f6-0310-bc7c-ecb5cbfe19da

1 files changed, 414 insertions, 0 deletions

diff --git a/kmail/mailinglist-magic.cpp b/kmail/mailinglist-magic.cpp
new file mode 100644
index 000000000..25b2abd0c
--- /dev/null
+++ b/kmail/mailinglist-magic.cpp
@@ -0,0 +1,414 @@
+// -*- Mode: C++; c-basic-offset: 2; indent-tabs-mode: nil; -*-
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+
+#include "mailinglist-magic.h"
+
+#include "kmmessage.h"
+
+#include <kconfig.h>
+#include <kurl.h>
+#include <kdebug.h>
+
+#include <qstringlist.h>
+
+using namespace KMail;
+
+typedef QString (*MagicDetectorFunc) (const KMMessage *, QCString &, QString &);
+
+/* Sender: (owner-([^@]+)|([^@+]-owner)@ */
+static QString check_sender(const KMMessage  *message,
+                            QCString &header_name,
+                            QString &header_value )
+{
+  QString header = message->headerField( "Sender" );
+
+  if ( header.isEmpty() )
+    return QString::null;
+
+  if ( header.left( 6 ) == "owner-" )
+  {
+    header_name = "Sender";
+    header_value = header;
+    header = header.mid( 6, header.find( '@' ) - 6 );
+
+  } else {
+    int index = header.find( "-owner@ " );
+    if ( index == -1 )
+      return QString::null;
+
+    header.truncate( index );
+    header_name = "Sender";
+    header_value = header;
+  }
+
+  return header;
+}
+
+/* X-BeenThere: ([^@]+) */
+static QString check_x_beenthere(const KMMessage  *message,
+                                 QCString &header_name,
+                                 QString &header_value )
+{
+  QString header = message->headerField( "X-BeenThere" );
+  if ( header.isNull() || header.find( '@' ) == -1 )
+    return QString::null;
+
+  header_name = "X-BeenThere";
+  header_value = header;
+  header.truncate( header.find( '@' ) );
+  return header;
+}
+
+/* Delivered-To:: <([^@]+) */
+static QString check_delivered_to(const KMMessage  *message,
+                                  QCString &header_name,
+                                  QString &header_value )
+{
+  QString header = message->headerField( "Delivered-To" );
+  if ( header.isNull() || header.left(13 ) != "mailing list"
+       || header.find( '@' ) == -1 )
+    return QString::null;
+
+  header_name = "Delivered-To";
+  header_value = header;
+
+  return header.mid( 13, header.find( '@' ) - 13 );
+}
+
+/* X-Mailing-List: <?([^@]+) */
+static QString check_x_mailing_list(const KMMessage  *message,
+                                    QCString &header_name,
+                                    QString &header_value )
+{
+  QString header = message->headerField( "X-Mailing-List");
+  if ( header.isEmpty() )
+    return QString::null;
+
+  if ( header.find( '@' ) < 1 )
+    return QString::null;
+
+  header_name = "X-Mailing-List";
+  header_value = header;
+  if ( header[0] == '<' )
+    header = header.mid(1,  header.find( '@' ) - 1);
+  else
+    header.truncate( header.find( '@' ) );
+  return header;
+}
+
+/* List-Id: [^<]* <([^.]+) */
+static QString check_list_id(const KMMessage  *message,
+			     QCString &header_name,
+			     QString &header_value )
+{
+  int lAnglePos, firstDotPos;
+  QString header = message->headerField( "List-Id" );
+  if ( header.isEmpty() )
+    return QString::null;
+
+  lAnglePos = header.find( '<' );
+  if ( lAnglePos < 0 )
+    return QString::null;
+
+  firstDotPos = header.find( '.', lAnglePos );
+  if ( firstDotPos < 0 )
+    return QString::null;
+
+  header_name = "List-Id";
+  header_value = header.mid( lAnglePos );
+  header = header.mid( lAnglePos + 1, firstDotPos - lAnglePos - 1 );
+  return header;
+}
+
+
+/* List-Post: <mailto:[^< ]*>) */
+static QString check_list_post(const KMMessage  *message,
+                               QCString &header_name,
+                               QString &header_value )
+{
+  QString header = message->headerField( "List-Post" );
+  if ( header.isEmpty() )
+    return QString::null;
+
+  int lAnglePos = header.find( "<mailto:" );
+  if ( lAnglePos < 0 )
+    return QString::null;
+
+  header_name = "List-Post";
+  header_value = header;
+  header = header.mid( lAnglePos + 8, header.length());
+  header.truncate( header.find('@') );
+  return header;
+}
+
+/* Mailing-List: list ([^@]+) */
+static QString check_mailing_list(const KMMessage  *message,
+                                  QCString &header_name,
+                                  QString &header_value )
+{
+  QString header = message->headerField( "Mailing-List");
+  if ( header.isEmpty() )
+    return QString::null;
+
+  if (header.left( 5 ) != "list " || header.find( '@' ) < 5 )
+    return QString::null;
+
+  header_name = "Mailing-List";
+  header_value = header;
+  header = header.mid(5,  header.find( '@' ) - 5);
+  return header;
+}
+
+
+/* X-Loop: ([^@]+) */
+static QString check_x_loop(const KMMessage  *message,
+                            QCString &header_name,
+                            QString &header_value ){
+  QString header = message->headerField( "X-Loop");
+  if ( header.isEmpty() )
+    return QString::null;
+
+  if (header.find( '@' ) < 2 )
+    return QString::null;
+
+  header_name = "X-Loop";
+  header_value = header;
+  header.truncate(header.find( '@' ));
+  return header;
+}
+
+/* X-ML-Name: (.+) */
+static QString check_x_ml_name(const KMMessage  *message,
+                               QCString &header_name,
+                               QString &header_value ){
+  QString header = message->headerField( "X-ML-Name");
+  if ( header.isEmpty() )
+    return QString::null;
+
+  header_name = "X-ML-Name";
+  header_value = header;
+  header.truncate(header.find( '@' ));
+  return header;
+}
+
+MagicDetectorFunc magic_detector[] =
+{
+  check_list_id,
+  check_list_post,
+  check_sender,
+  check_x_mailing_list,
+  check_mailing_list,
+  check_delivered_to,
+  check_x_beenthere,
+  check_x_loop,
+  check_x_ml_name
+};
+
+static const int num_detectors = sizeof (magic_detector) / sizeof (magic_detector[0]);
+
+static QStringList
+headerToAddress( const QString& header )
+{
+  QStringList addr;
+  int start = 0;
+  int end = 0;
+
+  if ( header.isEmpty() )
+    return addr;
+
+  while ( (start = header.find( "<", start )) != -1 ) {
+    if ( (end = header.find( ">", ++start ) ) == -1 ) {
+      kdDebug(5006)<<k_funcinfo<<"Serious mailing list header parsing error !"<<endl;
+      return addr;
+    }
+    kdDebug(5006)<<"Mailing list = "<<header.mid( start, end - start )<<endl;
+    addr.append( header.mid( start, end - start ) );
+  }
+  return  addr;
+}
+
+MailingList
+MailingList::detect( const KMMessage *message )
+{
+  MailingList mlist;
+
+  mlist.setPostURLS( headerToAddress(
+                       message->headerField( "List-Post" ) ) );
+  mlist.setHelpURLS( headerToAddress(
+                       message->headerField( "List-Help" ) ) );
+  mlist.setSubscribeURLS( headerToAddress(
+                            message->headerField( "List-Subscribe" ) ) );
+  mlist.setUnsubscribeURLS( headerToAddress(
+                              message->headerField( "List-Unsubscribe" ) ) );
+  mlist.setArchiveURLS( headerToAddress(
+                          message->headerField( "List-Archive" ) ) );
+  mlist.setId( message->headerField( "List-Id" ) );
+
+  return mlist;
+}
+
+QString
+MailingList::name( const KMMessage  *message, QCString &header_name,
+                   QString &header_value )
+{
+  QString mlist;
+  header_name = QCString();
+  header_value = QString::null;
+
+  if ( !message )
+    return QString::null;
+
+  for (int i = 0; i < num_detectors; i++) {
+    mlist = magic_detector[i] (message, header_name, header_value);
+    if ( !mlist.isNull() )
+      return mlist;
+  }
+
+  return QString::null;
+}
+
+MailingList::MailingList()
+  : mFeatures( None ), mHandler( KMail )
+{
+}
+
+int
+MailingList::features() const
+{
+  return mFeatures;
+}
+
+void
+MailingList::setHandler( MailingList::Handler han )
+{
+  mHandler = han;
+}
+MailingList::Handler
+MailingList::handler() const
+{
+  return mHandler;
+}
+
+void
+MailingList::setPostURLS ( const KURL::List& lst )
+{
+  mFeatures |= Post;
+  if ( lst.empty() ) {
+    mFeatures ^= Post;
+  }
+  mPostURLS = lst;
+}
+KURL::List
+MailingList::postURLS() const
+{
+  return mPostURLS;
+}
+
+void
+MailingList::setSubscribeURLS( const KURL::List& lst )
+{
+  mFeatures |= Subscribe;
+  if ( lst.empty() ) {
+    mFeatures ^= Subscribe;
+  }
+
+  mSubscribeURLS = lst;
+}
+KURL::List
+MailingList::subscribeURLS() const
+{
+  return mSubscribeURLS;
+}
+
+void
+MailingList::setUnsubscribeURLS( const KURL::List& lst )
+{
+  mFeatures |= Unsubscribe;
+  if ( lst.empty() ) {
+    mFeatures ^= Unsubscribe;
+  }
+
+  mUnsubscribeURLS = lst;
+}
+KURL::List MailingList::unsubscribeURLS() const
+{
+  return mUnsubscribeURLS;
+}
+
+void
+MailingList::setHelpURLS( const KURL::List& lst )
+{
+  mFeatures |= Help;
+  if ( lst.empty() ) {
+    mFeatures ^= Help;
+  }
+
+  mHelpURLS = lst;
+}
+KURL::List
+MailingList::helpURLS() const
+{
+  return mHelpURLS;
+}
+
+void
+MailingList::setArchiveURLS( const KURL::List& lst )
+{
+  mFeatures |= Archive;
+  if ( lst.empty() ) {
+    mFeatures ^= Archive;
+  }
+
+  mArchiveURLS = lst;
+}
+KURL::List
+MailingList::archiveURLS() const
+{
+  return mArchiveURLS;
+}
+
+void
+MailingList::setId( const QString& str )
+{
+  mFeatures |= Id;
+  if ( str.isEmpty() ) {
+    mFeatures ^= Id;
+  }
+
+  mId = str;
+}
+QString
+MailingList::id() const
+{
+  return mId;
+}
+
+void
+MailingList::writeConfig( KConfig* config ) const
+{
+  config->writeEntry( "MailingListFeatures", mFeatures );
+  config->writeEntry( "MailingListHandler", mHandler );
+  config->writeEntry( "MailingListId",  mId );
+  config->writeEntry( "MailingListPostingAddress", mPostURLS.toStringList() );
+  config->writeEntry( "MailingListSubscribeAddress", mSubscribeURLS.toStringList() );
+  config->writeEntry( "MailingListUnsubscribeAddress", mUnsubscribeURLS.toStringList() );
+  config->writeEntry( "MailingListArchiveAddress", mArchiveURLS.toStringList() );
+  config->writeEntry( "MailingListHelpAddress", mHelpURLS.toStringList() );
+}
+
+void
+MailingList::readConfig( KConfig* config )
+{
+  mFeatures =  config->readNumEntry( "MailingListFeatures", 0 );
+  mHandler = static_cast<MailingList::Handler>(
+    config->readNumEntry( "MailingListHandler", MailingList::KMail ) );
+
+  mId = config->readEntry("MailingListId");
+  mPostURLS        = config->readListEntry( "MailingListPostingAddress" );
+  mSubscribeURLS   = config->readListEntry( "MailingListSubscribeAddress" );
+  mUnsubscribeURLS = config->readListEntry( "MailingListUnsubscribeAddress" );
+  mArchiveURLS     = config->readListEntry( "MailingListArchiveAddress" );
+  mHelpURLS        = config->readListEntry( "MailingListHelpAddress" );
+}