summaryrefslogtreecommitdiff
path: root/lisp/gnus/gnus-int.el
diff options
context:
space:
mode:
authorGnus developers <ding@gnus.org>2010-10-14 22:39:54 +0000
committerKatsumi Yamaoka <yamaoka@jpl.org>2010-10-14 22:39:54 +0000
commit030158f32daaefe34476bbd0ec7156b46c2f3f2a (patch)
treedcb65508d10559d8a27f931b50b3dcb22d88a0a7 /lisp/gnus/gnus-int.el
parent7a9fc593508250c2a84320a5430dda49e7354fef (diff)
downloademacs-030158f32daaefe34476bbd0ec7156b46c2f3f2a.tar.gz
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.
Diffstat (limited to 'lisp/gnus/gnus-int.el')
-rw-r--r--lisp/gnus/gnus-int.el6
1 files changed, 6 insertions, 0 deletions
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))