mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

gnus-int.el, nnimap.el, nnir.el: More improvements to thread-referral.

Browse source 
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.
This commit is contained in:
Gnus developers 2010-11-07 00:22:06 +00:00 • committed by Katsumi Yamaoka
parent 5ed619e0a3
commit 4ddab346e6
7 changed files with 106 additions and 117 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/gnus/gnus-int.el
View file

@ -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))