From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/71973 Path: news.gmane.org!not-for-mail From: Andrew Cohen Newsgroups: gmane.emacs.gnus.general Subject: Re: Any juicy outstanding Gnus bugs? Date: Mon, 27 Sep 2010 10:30:54 -0400 Message-ID: <87r5gf1co1.fsf@andy.bu.edu> References: <877hi89wks.fsf@dod.no> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: dough.gmane.org 1285597877 28365 80.91.229.12 (27 Sep 2010 14:31:17 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Mon, 27 Sep 2010 14:31:17 +0000 (UTC) To: ding@gnus.org Original-X-From: ding-owner+M20346@lists.math.uh.edu Mon Sep 27 16:31:16 2010 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1P0Ejc-0006a7-5l for ding-account@gmane.org; Mon, 27 Sep 2010 16:31:16 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by util0.math.uh.edu with smtp (Exim 4.63) (envelope-from ) id 1P0EjX-0000Vq-MD; Mon, 27 Sep 2010 09:31:11 -0500 Original-Received: from mx1.math.uh.edu ([129.7.128.32]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1P0EjV-0000VW-UA for ding@lists.math.uh.edu; Mon, 27 Sep 2010 09:31:09 -0500 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx1.math.uh.edu with esmtp (Exim 4.72) (envelope-from ) id 1P0EjR-0005kG-F9 for ding@lists.math.uh.edu; Mon, 27 Sep 2010 09:31:09 -0500 Original-Received: from lo.gmane.org ([80.91.229.12]) by quimby.gnus.org with esmtp (Exim 3.36 #1 (Debian)) id 1P0EjQ-0003GA-00 for ; Mon, 27 Sep 2010 16:31:04 +0200 Original-Received: from list by lo.gmane.org with local (Exim 4.69) (envelope-from ) id 1P0EjQ-0006Uj-Od for ding@gnus.org; Mon, 27 Sep 2010 16:31:04 +0200 Original-Received: from andy.bu.edu ([128.197.41.152]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Mon, 27 Sep 2010 16:31:04 +0200 Original-Received: from cohen by andy.bu.edu with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Mon, 27 Sep 2010 16:31:04 +0200 X-Injected-Via-Gmane: http://gmane.org/ Original-Lines: 65 Original-X-Complaints-To: usenet@dough.gmane.org X-Gmane-NNTP-Posting-Host: andy.bu.edu User-Agent: Gnus/5.110011 (No Gnus v0.11) Emacs/24.0.50 (gnu/linux) Cancel-Lock: sha1:HfZFB30FSsz5YE4U6MWNkQ4L+bs= X-Spam-Score: -1.9 (-) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:71973 Archived-At: --=-=-= Content-Type: text/plain >>>>> "Lars" == Lars Magne Ingebrigtsen writes: Lars> Steinar Bang writes: >> My wishlist: >> - I would like "warp-to-group" functionality for nnimap nnir >> search matches (I don't need to find the articles' thread which >> is the present functionality, which doesn't work anyway) Lars> Yes, that should exist. Ignore my previous muddled version of this. I've simplified and moved things into nnir.el. I've only done limited testing but the patch seems to do the right thing for imap groups. It looks to me like the original version shouldn't have worked properly on ANY kind of group, but I don't have any other backends to easily test. --=-=-= Content-Type: text/x-diff Content-Disposition: inline; filename=nnir.el.diff Content-Description: nnir.el diff --git a/lisp/nnir.el b/lisp/nnir.el index db8b397..fe3cc22 100644 --- a/lisp/nnir.el +++ b/lisp/nnir.el @@ -704,19 +704,18 @@ and show thread that contains this article." (let* ((cur (gnus-summary-article-number)) (group (nnir-artlist-artitem-group nnir-artlist cur)) (backend-number (nnir-artlist-artitem-number nnir-artlist cur)) - server backend-group) - (setq server (nnir-group-server group)) - (setq backend-group (gnus-group-real-name group)) - (gnus-group-read-ephemeral-group - backend-group - (gnus-server-to-method server) - t ; activate - (cons (current-buffer) - 'summary) ; window config - nil - (list backend-number)) - (gnus-summary-limit (list backend-number)) - (gnus-summary-refer-thread))) + (id (mail-header-id (gnus-summary-article-header)))) + (if (string= (car (gnus-group-method group)) "nnimap") + (with-current-buffer (nnimap-buffer) + (let ((result (nnimap-command + "UID SEARCH OR HEADER REFERENCES %S HEADER Message-Id %S" id id))) + (gnus-summary-read-group-1 group t t nil nil + (and (car result) + (delete 0 (mapcar #'string-to-number + (cdr (assoc "SEARCH" (cdr result))))))))) + (gnus-summary-read-group-1 group t t nil nil (list backend-number)) + (gnus-summary-limit (list backend-number)) + (gnus-summary-refer-thread)))) (if (fboundp 'eval-after-load) (eval-after-load "gnus-sum" --=-=-=--