Mercurial > emacs
diff lisp/gnus/gnus-int.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.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Sun, 07 Nov 2010 00:22:06 +0000 |
parents | ffb890b32d37 |
children | 79219ca01c7b |
line wrap: on
line diff
--- a/lisp/gnus/gnus-int.el Sat Nov 06 13:23:42 2010 -0700 +++ b/lisp/gnus/gnus-int.el Sun Nov 07 00:22:06 2010 +0000 @@ -503,11 +503,22 @@ (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))