From 030158f32daaefe34476bbd0ec7156b46c2f3f2a Mon Sep 17 00:00:00 2001 From: Gnus developers Date: Thu, 14 Oct 2010 22:39:54 +0000 Subject: Merge changes made in Gnus trunk. shr.el: Fix defcustom type (char -> character). nnimap.el (nnimap-open-connection): Remove %s from openssl incantation, which is no longer valid. gnus-sum.el (gnus-summary-refer-thread): Implement a version that uses *-request-thread. gnus-int.el (gnus-request-thread): New back end function. nnimap.el (nnimap-request-thread): New back end function. shr.el: Indent. gnus-art.el, shr.el: Have shr switch buffer truncation on if there are big tables. (nnimap-open-connection): Message when opening connection for debugging purposes. --- lisp/gnus/gnus-int.el | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'lisp/gnus/gnus-int.el') diff --git a/lisp/gnus/gnus-int.el b/lisp/gnus/gnus-int.el index b210df452ca..19bcffe0049 100644 --- a/lisp/gnus/gnus-int.el +++ b/lisp/gnus/gnus-int.el @@ -504,6 +504,12 @@ If BUFFER, insert the article in that group." article (gnus-group-real-name group) (nth 1 gnus-command-method) buffer))) +(defun gnus-request-thread (id) + "Request the thread containing the article specified by Message-ID id." + (let ((gnus-command-method (gnus-find-method-for-group gnus-newsgroup-name))) + (funcall (gnus-get-function gnus-command-method 'request-thread) + id))) + (defun gnus-request-head (article group) "Request the head of ARTICLE in GROUP." (let* ((gnus-command-method (gnus-find-method-for-group group)) -- cgit v1.2.1