diff lisp/gnus/nnimap.el @ 111430:b75e6634a171

gnus-int.el, nnimap.el, nnir.el: More improvements to thread-referral. message.el (message-send-mail): Don't insert courtesy messages if the message already has List-Post and List-ID messages. gnus-ems.el (gnus-put-image): Use a blank text as the insertion string to avoid making the From headers syntactically invalid.

--- a/lisp/gnus/nnimap.el	Sat Nov 06 13:23:42 2010 -0700
+++ b/lisp/gnus/nnimap.el	Sun Nov 07 00:22:06 2010 +0000
@@ -1397,23 +1397,23 @@
   nil)
 
 (deffoo nnimap-request-thread (id)
-    (let* ((refs (split-string
-	       (or (mail-header-references (gnus-summary-article-header))
-		   "")))
-	   (cmd (let ((value
-		       (format
-			"(OR HEADER REFERENCES %s HEADER Message-Id %s)"
-			id id)))
-		  (dolist (refid refs value)
-		    (setq value (format
-				 "(OR (OR HEADER Message-Id %s HEADER REFERENCES %s) %s)"
-				 refid refid value)))))
-	   (result
-	    (with-current-buffer (nnimap-buffer)
-	      (nnimap-command  "UID SEARCH %s" cmd))))
-      (gnus-fetch-headers (and (car result)
-	   (delete 0 (mapcar #'string-to-number
-			     (cdr (assoc "SEARCH" (cdr result)))))))))
+  (let* ((refs (split-string
+		(or (mail-header-references (gnus-summary-article-header))
+		    "")))
+	 (cmd (let ((value
+		     (format
+		      "(OR HEADER REFERENCES %s HEADER Message-Id %s)"
+		      id id)))
+		(dolist (refid refs value)
+		  (setq value (format
+			       "(OR (OR HEADER Message-Id %s HEADER REFERENCES %s) %s)"
+			       refid refid value)))))
+	 (result (with-current-buffer (nnimap-buffer)
+		   (nnimap-command  "UID SEARCH %s" cmd))))
+    (gnus-fetch-headers
+     (and (car result) (delete 0 (mapcar #'string-to-number
+					 (cdr (assoc "SEARCH" (cdr result))))))
+     nil t)))
 
 (defun nnimap-possibly-change-group (group server)
   (let ((open-result t))