Bug#426149: pan: set In-Reply-To in email

[Lionel Elie Mamane]

tags 426149 +patch
thanks

Here's a hackish patch that fixes this bug.

-- 
Lionel

only in patch2:
unchanged:
--- pan-0.133.orig/pan/tasks/task-post.cc
+++ pan-0.133/pan/tasks/task-post.cc
@@ -56,7 +56,11 @@
 {
   _state.set_working ();
 
+  const char *header_name = "In-Reply-To";
+  const char *header_value = g_mime_message_get_header(_message, header_name);
+  g_mime_object_remove_header(GMIME_OBJECT(_message), header_name);
   char * text = g_mime_object_to_string (GMIME_OBJECT(_message));
+  g_mime_message_set_header(_message, header_name, header_value);
   nntp->post (text, this);
   g_free (text);
 }
only in patch2:
unchanged:
--- pan-0.133.orig/pan/gui/body-pane.cc
+++ pan-0.133/pan/gui/body-pane.cc
@@ -1614,6 +1614,12 @@
     g_mime_message_add_header (msg, "X-Draft-Attribution-Date", h.c_str());
     g_free (tmp);
 
+    // In-Reply-To, for emails only
+    val = "<";
+    val += g_mime_message_get_message_id (_message);
+    val += ">";
+    g_mime_message_add_header (msg, "In-Reply-To", val.c_str());
+
     // references
     const char * header = "References";
     v = g_mime_message_get_header (_message, header);
only in patch2:
unchanged:
--- pan-0.133.orig/pan/gui/post-ui.cc
+++ pan-0.133/pan/gui/post-ui.cc
@@ -892,6 +892,7 @@
         && (name != "Xref") // not editable
         && (name != "Message-ID")
         && (name != "References")
+        && (name != "In-Reply-To")
         && ((name != "User-Agent") || (value != get_user_agent()))
         && (name.strstr ("Content-") != name.str)
         && (name.strstr ("X-Draft-") != name.str);