diff options
Diffstat (limited to 'lisp/gnus/gnus-int.el')
| -rw-r--r-- | lisp/gnus/gnus-int.el | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/lisp/gnus/gnus-int.el b/lisp/gnus/gnus-int.el index b344a5ef15c..bcfff347968 100644 --- a/lisp/gnus/gnus-int.el +++ b/lisp/gnus/gnus-int.el @@ -503,11 +503,22 @@ If BUFFER, insert the article in that group." (nth 1 gnus-command-method) buffer))) (defun gnus-request-thread (id) - "Request the thread containing the article specified by Message-ID id." + "Request the headers in 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-warp-to-article () + "Warps from an article in a virtual group to the article in its +real group. Does nothing on a real group." + (interactive) + (let ((gnus-command-method + (gnus-find-method-for-group gnus-newsgroup-name))) + (when (gnus-check-backend-function + 'warp-to-article (car gnus-command-method)) + (funcall (gnus-get-function gnus-command-method 'warp-to-article))))) + (defun gnus-request-head (article group) "Request the head of ARTICLE in GROUP." (let* ((gnus-command-method (gnus-find-method-for-group group)) |