2010-12-06 Lars Magne Ingebrigtsen <larsi@gnus.org>
+ * gnus-int.el (gnus-request-thread): Rework to take a header instead of
+ a Message-ID to avoid having nnimap depend on gnus-sum.
+
* shr.el (shr-descend): Only colorise something if we have a node that
sets colors.
article (gnus-group-real-name group)
(nth 1 gnus-command-method) buffer)))
-(defun gnus-request-thread (id)
- "Request the headers in the thread containing the article
-specified by Message-ID id."
+(defun gnus-request-thread (header)
+ "Request the headers in the thread containing the article specified by HEADER."
(let ((gnus-command-method (gnus-find-method-for-group gnus-newsgroup-name)))
(funcall (gnus-get-function gnus-command-method 'request-thread)
- id)))
+ header)))
(defun gnus-warp-to-article ()
"Warps from an article in a virtual group to the article in its
'list gnus-newsgroup-headers
(if (gnus-check-backend-function
'request-thread gnus-newsgroup-name)
- (gnus-request-thread id)
+ (gnus-request-thread (gnus-summary-article-header))
(let* ((last (if (numberp limit)
(min (+ (mail-header-number
(gnus-summary-article-header))
(require 'nnmail)
(require 'proto-stream)
-(eval-when-compile
- (require 'gnus-sum))
-
(autoload 'auth-source-forget-user-or-password "auth-source")
(autoload 'auth-source-user-or-password "auth-source")
(setq nnimap-status-string "Read-only server")
nil)
-(deffoo nnimap-request-thread (id)
- (let* ((refs (split-string
- (or (mail-header-references (gnus-summary-article-header))
+(deffoo nnimap-request-thread (header)
+ (let* ((id (mail-header-id header))
+ (refs (split-string
+ (or (mail-header-references header)
"")))
(cmd (let ((value
(format