Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Merge changes made in Gnus trunk.

Browse source 
nnimap.el (nnimap-make-thread-query): New utility function to format an imap thread search query.
 (nnimap-request-thread): Use it.
gnus-sum.el (gnus-handle-ephemeral-exit): Ensure we are setting the right select-method if we are not going back to the group buffer.
This commit is contained in:
Andrew Cohen 2011-07-20 14:19:52 +00:00 committed by Katsumi Yamaoka
parent 8ca422621c
commit af92e24772
3 changed files with 35 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/gnus/ChangeLog
View file

@ -1,3 +1,12 @@
2011-07-20 Andrew Cohen <cohen@andy.bu.edu>
* nnimap.el (nnimap-make-thread-query): New utility function to format
an imap thread search query.
(nnimap-request-thread): Use it.
* gnus-sum.el (gnus-handle-ephemeral-exit): Ensure we are setting the
right select-method if we are not going back to the group buffer.
2011-07-19 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus-group.el (gnus-group-read-ephemeral-group): Make sure we don't

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

@ -7339,6 +7339,9 @@ The state which existed when entering the ephemeral is reset."
(if (not (buffer-name (car quit-config)))
(gnus-configure-windows 'group 'force)
(set-buffer (car quit-config))
(unless (eq (cdr quit-config) 'group)
(setq gnus-current-select-method
(gnus-find-method-for-group gnus-newsgroup-name)))
(cond ((eq major-mode 'gnus-summary-mode)
(gnus-set-global-variables))
((eq major-mode 'gnus-article-mode)

42
lisp/gnus/nnimap.el
View file

@ -1567,25 +1567,14 @@ textual parts.")
(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)
"")))
(cmd (let ((value
(format
"(OR HEADER REFERENCES %s HEADER Message-Id %s)"
id id)))
(dolist (refid refs value)
(setq value (format
"(OR (OR HEADER Message-Id %s HEADER REFERENCES %s) %s)"
refid refid value)))))
(result (with-current-buffer (nnimap-buffer)
(nnimap-command "UID SEARCH %s" cmd))))
(when result
(gnus-fetch-headers
(and (car result) (delete 0 (mapcar #'string-to-number
(cdr (assoc "SEARCH" (cdr result))))))
nil t)))))
(let* ((cmd (nnimap-make-thread-query header))
(result (with-current-buffer (nnimap-buffer)
(nnimap-command "UID SEARCH %s" cmd))))
(when result
(gnus-fetch-headers
(and (car result) (delete 0 (mapcar #'string-to-number
(cdr (assoc "SEARCH" (cdr result))))))
nil t)))))
(defun nnimap-possibly-change-group (group server)
(let ((open-result t))
@ -1951,6 +1940,21 @@ textual parts.")
group-art))
nnimap-incoming-split-list)))
(defun nnimap-make-thread-query (header)
(let* ((id (mail-header-id header))
(refs (split-string
(or (mail-header-references header)
"")))
(value
(format
"(OR HEADER REFERENCES %s HEADER Message-Id %s)"
id id)))
(dolist (refid refs value)
(setq value (format
"(OR (OR HEADER Message-Id %s HEADER REFERENCES %s) %s)"
refid refid value)))))
(provide 'nnimap)
;;; nnimap.el ends here