Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 111429:249a1455856a | 111430:b75e6634a171 |
|---|---|
| 501 (funcall (gnus-get-function gnus-command-method 'request-article) | 501 (funcall (gnus-get-function gnus-command-method 'request-article) |
| 502 article (gnus-group-real-name group) | 502 article (gnus-group-real-name group) |
| 503 (nth 1 gnus-command-method) buffer))) | 503 (nth 1 gnus-command-method) buffer))) |
| 504 | 504 |
| 505 (defun gnus-request-thread (id) | 505 (defun gnus-request-thread (id) |
| 506 "Request the thread containing the article specified by Message-ID id." | 506 "Request the headers in the thread containing the article |
| 507 specified by Message-ID id." | |
| 507 (let ((gnus-command-method (gnus-find-method-for-group gnus-newsgroup-name))) | 508 (let ((gnus-command-method (gnus-find-method-for-group gnus-newsgroup-name))) |
| 508 (funcall (gnus-get-function gnus-command-method 'request-thread) | 509 (funcall (gnus-get-function gnus-command-method 'request-thread) |
| 509 id))) | 510 id))) |
| 511 | |
| 512 (defun gnus-warp-to-article () | |
| 513 "Warps from an article in a virtual group to the article in its | |
| 514 real group. Does nothing on a real group." | |
| 515 (interactive) | |
| 516 (let ((gnus-command-method | |
| 517 (gnus-find-method-for-group gnus-newsgroup-name))) | |
| 518 (when (gnus-check-backend-function | |
| 519 'warp-to-article (car gnus-command-method)) | |
| 520 (funcall (gnus-get-function gnus-command-method 'warp-to-article))))) | |
| 510 | 521 |
| 511 (defun gnus-request-head (article group) | 522 (defun gnus-request-head (article group) |
| 512 "Request the head of ARTICLE in GROUP." | 523 "Request the head of ARTICLE in GROUP." |
| 513 (let* ((gnus-command-method (gnus-find-method-for-group group)) | 524 (let* ((gnus-command-method (gnus-find-method-for-group group)) |
| 514 (head (gnus-get-function gnus-command-method 'request-head t)) | 525 (head (gnus-get-function gnus-command-method 'request-head t)) |