From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.2 (2018-09-13) on inbox.vuxu.org X-Spam-Level: X-Spam-Status: No, score=-0.9 required=5.0 tests=DKIM_INVALID,DKIM_SIGNED, RCVD_IN_BL_SPAMCOP_NET,RCVD_IN_DNSWL_MED autolearn=ham autolearn_force=no version=3.4.2 Received: (qmail 11492 invoked from network); 5 Apr 2020 15:30:08 -0000 Received: from lists1.math.uh.edu (129.7.128.208) by inbox.vuxu.org with UTF8ESMTPZ; 5 Apr 2020 15:30:08 -0000 Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by lists1.math.uh.edu with smtp (Exim 4.92.3) (envelope-from ) id 1jL7DM-0000BC-EO; Sun, 05 Apr 2020 10:29:36 -0500 Received: from mx2.math.uh.edu ([129.7.128.33]) by lists1.math.uh.edu with esmtps (TLSv1.3:TLS_AES_256_GCM_SHA384:256) (Exim 4.92.3) (envelope-from ) id 1jL7DI-000088-1N for ding@lists.math.uh.edu; Sun, 05 Apr 2020 10:29:32 -0500 Received: from quimby.gnus.org ([95.216.78.240]) by mx2.math.uh.edu with esmtps (TLSv1.3:TLS_AES_256_GCM_SHA384:256) (Exim 4.92.3) (envelope-from ) id 1jL7DG-00051Q-H8 for ding@lists.math.uh.edu; Sun, 05 Apr 2020 10:29:31 -0500 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=gnus.org; s=20200322; h=Content-Type:MIME-Version:Message-ID:References:Date: In-Reply-To:Subject:Cc:To:From:Sender:Reply-To:Content-Transfer-Encoding: Content-ID:Content-Description:Resent-Date:Resent-From:Resent-Sender: Resent-To:Resent-Cc:Resent-Message-ID:List-Id:List-Help:List-Unsubscribe: List-Subscribe:List-Post:List-Owner:List-Archive; bh=OJkAjFcO5RPNQqcgJ/e7Qi3mfYh/62/TjSOFoW8j6/w=; b=Vh5qC5yDRsLjb+5FPUQwM6qB/M ydUPIRWPLg+RlMYRoX6T8B1BRWToVriQMPuyjVUiymPF0At4W/xtVGHSlBgLhKJxXzFyAuLQ0XqfS dMlt4OKZTUdxNozv/jlEq+ddEPNv14D5DSZACgT9OfBTQ9kiBIr3VYyNp1J/jXSAqEPA=; Received: from ericabrahamsen.net ([52.70.2.18] helo=mail.ericabrahamsen.net) by quimby.gnus.org with esmtps (TLS1.3:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1jL7D9-0003q9-D7 for ding@gnus.org; Sun, 05 Apr 2020 17:29:26 +0200 Received: from localhost (c-73-254-86-141.hsd1.wa.comcast.net [73.254.86.141]) (Authenticated sender: eric@ericabrahamsen.net) by mail.ericabrahamsen.net (Postfix) with ESMTPSA id 5638BFA028; Sun, 5 Apr 2020 15:29:19 +0000 (UTC) From: Eric Abrahamsen To: hobbes@poukram.net Cc: ding@gnus.org Subject: Re: saving registry is fixed, but gnorb still can't gnorb-org-view In-Reply-To: <87d08q9bfz.fsf@sphax> (hobbes's message of "Thu, 02 Apr 2020 17:03:44 +0200") Date: Thu, 02 Apr 2020 11:15:23 -0700 References: <87d08rs5ei.fsf@sphax> <87y2rec48a.fsf@sphax> <87bloahlmo.fsf@ericabrahamsen.net> <87zhbug5l2.fsf@ericabrahamsen.net> <87a73uca2g.fsf@sphax> <87369mym1d.fsf@ericabrahamsen.net> <87d08q9bfz.fsf@sphax> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (gnu/linux) Message-ID: <87pncmc5o1.fsf@ericabrahamsen.net> MIME-Version: 1.0 Content-Type: text/plain List-ID: Precedence: bulk [Didn't see this show up on gnus.general, so I'm resending it] hobbes@poukram.net writes: > Eric Abrahamsen writes: > >> hobbes@poukram.net writes: >> >>> Eric Abrahamsen writes: >> >> [...] >> >>> So, after some more experimenting: it's indeed linked to the gnus links >>> in the org tree. >>> >>> But all links have brackets, and all have a message id, and I can follow >>> them. Evaluating the defun didn't help. >>> >>> If I remove the links, C-c v works like it should, so it's clearly >>> linked to those links... >> >> That's perplexing, but at least the location of the problem is clear. >> Would you feel comfortable mailing me the contents of the subtree in >> question, off-list? Obviously redacting anything sensitive. > > The problem seems to happen as soon as there is a gnus link in the org > entry, so I just created one: > > ** TODO debug gnorb > :PROPERTIES: > :ID: 8be1357a-1323-4950-93c2-019b0f04a904 > :END: > [2020-04-02 jeu 16:58] > test entry to debug gnorb > [[gnus:nnimap+hobbes:INBOX#87369mym1d.fsf@ericabrahamsen.net][Email > from Eric Abrahamsen: Re: saving registry is fixed, but gnorb still > can't gnorb-org-view]] > > The link works if I visit it. Okay, would you try this version of the function? Thanks... (defun gnorb-scan-links (bound &rest types) (unless (= (point) bound) (let ((alist (mapcar #'list (copy-sequence types)))) (while (re-search-forward org-link-any-re bound t) (let ((link (or ;; Bracket link. (match-string-no-properties 2) ;; "Bare" link. (match-string-no-properties 0))) sym) (when (string-match "\\([^:]+\\):\\(.+\\)" link) (setq sym (intern-soft (match-string 1 link)) link (match-string 2 link)) (when (and sym (memq sym types)) (push link (alist-get sym alist)))))) alist)))