[Roberto] Added KMMessage::referencesAsAnchor(), and display of references

line to kmreaderwin. All changes are #ifdef KRN, since they are
          fairly useless to KMail until it gets NNTP capabilities.
          Also adopted kpgp.

svn path=/trunk/kdenetwork/kmail/; revision=2962

kmmessage.cpp

@@ -117,6 +117,39 @@ const QString KMMessage::id(void) const
       return "";
 }
 
+#ifdef KRN
+const QString KMMessage::refsAsAnchor(const QString references)
+{
+    QString refsdata=references;
+    QString t,t2,result;
+    int count=1;
+
+    while (1)
+    {
+        int index=refsdata.find('>');
+        if (index==-1)
+        {
+            break;
+            refsdata=refsdata.stripWhiteSpace();
+            refsdata=refsdata.mid(1,refsdata.length()-2);
+            t.setNum(count++);
+            t="<a href=\"news:///"+refsdata+"\">"+t+"</a> ";
+            result+=t;
+        }
+        else
+        {
+            t.setNum(count++);
+            t2=refsdata.left(index+1).stripWhiteSpace();
+            t2=t2.mid(1,t2.length()-2);
+            t="<a href=\"news:///"+t2+"\">"+t+"</a> ";
+            refsdata=refsdata.right(refsdata.length()-index-1);
+            result+=t;
+        }
+    }
+    return result.data();
+}
+#endif
+
 /* End of functions added by KRN */
 
 

kmmessage.h

@@ -220,6 +220,12 @@ public:
   static const QString emailAddrAsAnchor(const QString emailAddr, 
 					 bool stripped=TRUE);
 
+#ifdef KRN
+  /** Convert a normal References: header into a list of anchors
+   to news URLs for the referred articles. Right now, only for KRN. */
+  static const QString refsAsAnchor(const QString references);
+#endif
+
   /** Reads config settings from group "KMMessage" and sets all internal
    * variables (e.g. indent-prefix, etc.) */
   static void readConfig(void);

kmreaderwin.cpp

@@ -242,7 +242,13 @@ void KMReaderWin::writeMsgHeader(void)
     mViewer->write(nls->translate("From: ") +
 		   KMMessage::emailAddrAsAnchor(mMsg->from()) + "<BR>");
     mViewer->write(nls->translate("To: ") +
-		   KMMessage::emailAddrAsAnchor(mMsg->to()) + "<BR><BR>");
+                   KMMessage::emailAddrAsAnchor(mMsg->to()) + "<BR><BR>");
+#ifdef KRN
+    if (!mMsg->references().isEmpty())
+        mViewer->write(nls->translate("References: ") +
+                       KMMessage::refsAsAnchor(mMsg->references()) + "<BR><BR>");
+#endif
+
     break;
 
   case HdrFancy:
@@ -259,6 +265,11 @@ void KMReaderWin::writeMsgHeader(void)
     mViewer->write(nls->translate("Date: ") +
 		   strToHtml(mMsg->dateStr()) + "<BR>");
     mViewer->write("</B></TD></TR></TABLE><BR>");
+#ifdef KRN
+    if (!mMsg->references().isEmpty())
+        mViewer->write(nls->translate("References: ") +
+                       KMMessage::refsAsAnchor(mMsg->references()) + "<BR><BR>");
+#endif
     break;
 
   case HdrLong: