diff options
| author | Gnus developers <ding@gnus.org> | 2010-11-07 00:22:06 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-11-07 00:22:06 +0000 |
| commit | 4ddab346e6595eefaaf575a1aee508950a33fee0 (patch) | |
| tree | c1c593fbad1d2a5905a537a29445b6d6832a1a97 /lisp/gnus/gnus-int.el | |
| parent | 5ed619e0a309c8ce539f0fbc2d19a068139f099d (diff) | |
| download | emacs-4ddab346e6595eefaaf575a1aee508950a33fee0.tar.gz emacs-4ddab346e6595eefaaf575a1aee508950a33fee0.tar.bz2 emacs-4ddab346e6595eefaaf575a1aee508950a33fee0.zip | |
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.
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)) |