mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 00:10:48 -08:00
Code Issues Projects Releases Wiki Activity

Merge changes made in Gnus trunk.

Browse source 
nnimap.el (nnimap-request-thread): Ensure search is performed in correct group.
gnus-int.el (gnus-request-thread): Add group argument.
gnus-sum.el (gnus-request-thread): Use it.
This commit is contained in:
Andrew Cohen 2011-07-14 14:19:53 +00:00 • committed by Katsumi Yamaoka
parent fc233c9d7e
commit 0c1362863d
4 changed files with 18 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/gnus/ChangeLog
View file

@ -1,3 +1,12 @@
2011-07-14 Andrew Cohen <cohen@andy.bu.edu>
* nnimap.el (nnimap-request-thread): Ensure search is performed in
correct group.
* gnus-int.el (gnus-request-thread): Add group argument.
* gnus-sum.el (gnus-request-thread): Use it.
2011-07-10 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus-group.el (gnus-read-ephemeral-emacs-bug-group): `debbugs-*'

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

@ -516,11 +516,12 @@ If BUFFER, insert the article in that group."
article (gnus-group-real-name group)
(nth 1 gnus-command-method) buffer)))
(defun gnus-request-thread (header)
(defun gnus-request-thread (header group)
"Request the headers in the thread containing the article specified by HEADER."
(let ((gnus-command-method (gnus-find-method-for-group gnus-newsgroup-name)))
(let ((gnus-command-method (gnus-find-method-for-group group)))
(funcall (gnus-get-function gnus-command-method 'request-thread)
header)))
header
(gnus-group-real-name group))))
(defun gnus-warp-to-article ()
"Warps from an article in a virtual group to the article in its

2
lisp/gnus/gnus-sum.el
View file

@ -8970,7 +8970,7 @@ variable."
'list gnus-newsgroup-headers
(if (gnus-check-backend-function
'request-thread gnus-newsgroup-name)
(gnus-request-thread header)
(gnus-request-thread header gnus-newsgroup-name)
(let* ((last (if (numberp limit)
(min (+ (mail-header-number header)
limit)

7
lisp/gnus/nnimap.el
View file

@ -1565,8 +1565,9 @@ textual parts.")
(declare-function gnus-fetch-headers "gnus-sum"
(articles &optional limit force-new dependencies))
(deffoo nnimap-request-thread (header)
(let* ((id (mail-header-id header))
(deffoo nnimap-request-thread (header &optional group server)
(when (nnimap-possibly-change-group group server)
(let* ((id (mail-header-id header))
(refs (split-string
(or (mail-header-references header)
"")))
@ -1584,7 +1585,7 @@ textual parts.")
(gnus-fetch-headers
(and (car result) (delete 0 (mapcar #'string-to-number
(cdr (assoc "SEARCH" (cdr result))))))
nil t))))
nil t)))))
(defun nnimap-possibly-change-group (group server)
(let ((open-result t))