From unknown Thu Aug 14 17:27:53 2025 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable MIME-Version: 1.0 X-Mailer: MIME-tools 5.509 (Entity 5.509) Content-Type: text/plain; charset=utf-8 From: bug#19560 <19560@debbugs.gnu.org> To: bug#19560 <19560@debbugs.gnu.org> Subject: Status: 24.3.50; Handle adjacent links correctly in shr Reply-To: bug#19560 <19560@debbugs.gnu.org> Date: Fri, 15 Aug 2025 00:27:53 +0000 retitle 19560 24.3.50; Handle adjacent links correctly in shr reassign 19560 emacs submitter 19560 Ivan Shmakov severity 19560 normal tag 19560 fixed patch thanks From debbugs-submit-bounces@debbugs.gnu.org Sat Jan 10 15:26:12 2015 Received: (at submit) by debbugs.gnu.org; 10 Jan 2015 20:26:12 +0000 Received: from localhost ([127.0.0.1]:42157 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1YA2br-0002B1-RN for submit@debbugs.gnu.org; Sat, 10 Jan 2015 15:26:12 -0500 Received: from fely.am-1.org ([78.47.74.50]:48800) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1YA2bp-0002Ao-MQ for submit@debbugs.gnu.org; Sat, 10 Jan 2015 15:26:10 -0500 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=siamics.net; s=a2013295; h=Content-Type:MIME-Version:Message-ID:Date:Sender:Subject:To:From; bh=tWFQCupR3CcDm/qBErzE+9EAXKwh2L2QAC0ZImB8RP4=; b=Wd5JT+ju1d0FX5vHvT7cuV4s5zGzztKtonDrHA7xV5ziH+8lNgRmd+eX9shROxcC9BsplfsyEIaJKARFjGsu8mY8f9mC9ELOr7Q2bId3ogOEd2CxluDKrhhYLtBymM9au+Y5JbQS8m15Q6/7iVjMMwpIXYlhis9whq6VzBl9+6M=; Received: from [2a02:2560:6d4:26ca::1:1d] (helo=violet.siamics.net) by fely.am-1.org with esmtps (TLS1.2:DHE_RSA_AES_128_CBC_SHA1:128) (Exim 4.80) (envelope-from ) id 1YA2bm-0004Jp-JT for submit@debbugs.gnu.org; Sat, 10 Jan 2015 20:26:07 +0000 Received: from localhost ([::1] helo=violet.siamics.net) by violet.siamics.net with esmtps (TLS1.2:RSA_AES_128_CBC_SHA1:128) (Exim 4.80) (envelope-from ) id 1YA2bf-0003UD-ET for submit@debbugs.gnu.org; Sun, 11 Jan 2015 03:25:59 +0700 From: Ivan Shmakov To: submit@debbugs.gnu.org Subject: shr.el: skips over adjacent links Date: Sat, 10 Jan 2015 20:25:58 +0000 Message-ID: <87iogez8kp.fsf@violet.siamics.net> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3 (gnu/linux) MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Spam-Score: 1.8 (+) X-Spam-Report: Spam detection software, running on the system "debbugs.gnu.org", has identified this incoming email as possible spam. The original message has been attached to this so you can view it (if it isn't spam) or label similar future email. If you have any questions, see the administrator of that system for details. Content preview: Package: emacs Severity: minor As of ec7605b4b137 (2015-01-10 16:54:24 +0000), the shr-next-link and shr-previous-link commands skip over adjacent links, as per the example MIMEd. With this same example, shr-previous-link also fails to deal with the link at the very beginning of the buffer. [...] Content analysis details: (1.8 points, 10.0 required) pts rule name description ---- ---------------------- -------------------------------------------------- 0.7 SPF_NEUTRAL SPF: sender does not match SPF record (neutral) 1.2 HTML_OBFUSCATE_10_20 BODY: Message is 10% to 20% HTML obfuscation 0.0 HTML_MESSAGE BODY: HTML included in message 0.0 T_DKIM_INVALID DKIM-Signature header exists but is not valid X-Debbugs-Envelope-To: submit X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: 1.8 (+) X-Spam-Report: Spam detection software, running on the system "debbugs.gnu.org", has identified this incoming email as possible spam. The original message has been attached to this so you can view it (if it isn't spam) or label similar future email. If you have any questions, see the administrator of that system for details. Content preview: Package: emacs Severity: minor As of ec7605b4b137 (2015-01-10 16:54:24 +0000), the shr-next-link and shr-previous-link commands skip over adjacent links, as per the example MIMEd. With this same example, shr-previous-link also fails to deal with the link at the very beginning of the buffer. [...] Content analysis details: (1.8 points, 10.0 required) pts rule name description ---- ---------------------- -------------------------------------------------- 0.7 SPF_NEUTRAL SPF: sender does not match SPF record (neutral) 1.2 HTML_OBFUSCATE_10_20 BODY: Message is 10% to 20% HTML obfuscation 0.0 HTML_MESSAGE BODY: HTML included in message 0.0 T_DKIM_INVALID DKIM-Signature header exists but is not valid --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Package: emacs Severity: minor As of ec7605b4b137 (2015-01-10 16:54:24 +0000), the shr-next-link and shr-previous-link commands skip over adjacent links, as per the example MIMEd. With this same example, shr-previous-link also fails to deal with the link at the very beginning of the buffer. Please consider the patch MIMEd. --=20 FSF associate member #7257 http://boycottsystemd.org/ =E2=80=A6 3013 B6A0= 230E 334A --=-=-= Content-Type: text/html Content-Disposition: inline Adjacent links

AB --=-=-= Content-Type: text/diff Content-Disposition: inline --- a/lisp/net/shr.el 2015-01-10 16:54:24 +0000 +++ b/lisp/net/shr.el 2015-01-10 20:20:24 +0000 @@ -265,8 +269,11 @@ (defun shr-next-link () "Skip to the next link." (interactive) - (let ((skip (text-property-any (point) (point-max) 'help-echo nil))) + (let* ((cur (get-text-property (point) 'help-echo)) + (skip (text-property-not-all (point) (point-max) + 'help-echo cur))) (if (or (eobp) + (not skip) (not (setq skip (text-property-not-all skip (point-max) 'help-echo nil)))) (message "No next link") @@ -276,25 +283,28 @@ (defun shr-previous-link () "Skip to the previous link." (interactive) - (let ((start (point)) + (let ((cur (get-text-property (point) 'help-echo)) + (start (point)) (found nil)) ;; Skip past the current link. (while (and (not (bobp)) - (get-text-property (point) 'help-echo)) + (when-let ((h-e (get-text-property (point) 'help-echo))) + (eq cur h-e))) (forward-char -1)) ;; Find the previous link. - (while (and (not (bobp)) - (not (setq found (get-text-property (point) 'help-echo)))) + (while (and (not (setq found (get-text-property (point) 'help-echo))) + (not (bobp))) (forward-char -1)) - (if (not found) + (if (or (not found) (eq start (point))) (progn (message "No previous link") (goto-char start)) ;; Put point at the start of the link. - (while (and (not (bobp)) - (get-text-property (point) 'help-echo)) - (forward-char -1)) - (forward-char 1) + (when (not (bobp)) + (while (and (not (bobp)) + (eq found (get-text-property (point) 'help-echo))) + (forward-char -1)) + (forward-char 1)) (message "%s" (get-text-property (point) 'help-echo))))) (defun shr-show-alt-text () --=-=-=-- From debbugs-submit-bounces@debbugs.gnu.org Sun Jan 11 04:36:02 2015 Received: (at control) by debbugs.gnu.org; 11 Jan 2015 09:36:02 +0000 Received: from localhost ([127.0.0.1]:42373 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1YAEwE-0002q5-Ay for submit@debbugs.gnu.org; Sun, 11 Jan 2015 04:36:02 -0500 Received: from fely.am-1.org ([78.47.74.50]:48858) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1YAEwB-0002pe-5v for control@debbugs.gnu.org; Sun, 11 Jan 2015 04:36:00 -0500 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=siamics.net; s=a2013295; h=Content-Transfer-Encoding:Content-Type:MIME-Version:Message-ID:Date:Sender:Subject:To:From; bh=v73J/orP+vLPbxX1AT3+vssyF6BfTNKlv6tLUTl9g3U=; b=Lv83EwjoPiSaL5iSCfTqOrdn3pSP+MgooaCCBu6k0mQ21NwJAfHp3QRJV2LR7Kct8ehMBZY1e4DgqExg8NiRGvsUDcWcANiLL0X5mnVpSmPSwxfeZ3mBIagrHPBzQcyl+1/4l7WVApb7cpN5D2t2c2uOLvhABFrVHFT2fVfktV4=; Received: from [2a02:2560:6d4:26ca::1:1d] (helo=violet.siamics.net) by fely.am-1.org with esmtps (TLS1.2:DHE_RSA_AES_128_CBC_SHA1:128) (Exim 4.80) (envelope-from ) id 1YAEw9-0002PO-DU for control@debbugs.gnu.org; Sun, 11 Jan 2015 09:35:57 +0000 Received: from localhost ([::1] helo=violet.siamics.net) by violet.siamics.net with esmtps (TLS1.2:RSA_AES_128_CBC_SHA1:128) (Exim 4.80) (envelope-from ) id 1YAEw2-0004vq-0T for control@debbugs.gnu.org; Sun, 11 Jan 2015 16:35:50 +0700 From: Ivan Shmakov To: control@debbugs.gnu.org Subject: tweaking bugs Date: Sun, 11 Jan 2015 09:35:49 +0000 Message-ID: <87a91pzmkq.fsf@violet.siamics.net> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Spam-Score: 0.7 (/) X-Debbugs-Envelope-To: control X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: 0.7 (/) severity 19560 normal tags 19560 + patch merge 16415 19560 retitle 16415 24.3.50; Handle adjacent links correctly in shr=20 tags 19481 + patch tags 19555 + patch tags 19556 + patch thanks --=20 FSF associate member #7257 http://boycottsystemd.org/ =E2=80=A6 3013 B6A0= 230E 334A From debbugs-submit-bounces@debbugs.gnu.org Fri Dec 25 12:37:59 2015 Received: (at control) by debbugs.gnu.org; 25 Dec 2015 17:37:59 +0000 Received: from localhost ([127.0.0.1]:35221 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84) (envelope-from ) id 1aCWJT-0001tH-D0 for submit@debbugs.gnu.org; Fri, 25 Dec 2015 12:37:59 -0500 Received: from hermes.netfonds.no ([80.91.224.195]:60712) by debbugs.gnu.org with esmtp (Exim 4.84) (envelope-from ) id 1aCWJQ-0001t1-PJ for control@debbugs.gnu.org; Fri, 25 Dec 2015 12:37:57 -0500 Received: from 2.150.58.24.tmi.telenormobil.no ([2.150.58.24] helo=mouse) by hermes.netfonds.no with esmtpsa (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.72) (envelope-from ) id 1aCWJ4-0001ta-3b for control@debbugs.gnu.org; Fri, 25 Dec 2015 18:37:34 +0100 Date: Fri, 25 Dec 2015 18:37:33 +0100 Message-Id: <87ziwyxwde.fsf@gnus.org> To: control@debbugs.gnu.org From: Lars Ingebrigtsen Subject: control message for bug #16415 X-MailScanner-ID: 1aCWJ4-0001ta-3b X-Netfonds-MailScanner: Found to be clean X-Netfonds-MailScanner-From: larsi@gnus.org MailScanner-NULL-Check: 1451669856.4136@mULtL6Oh6zGXry2dMoES5g X-Spam-Status: No X-Spam-Score: -0.7 (/) X-Debbugs-Envelope-To: control X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -0.7 (/) close 16415 From unknown Thu Aug 14 17:27:53 2025 Received: (at fakecontrol) by fakecontrolmessage; To: internal_control@debbugs.gnu.org From: Debbugs Internal Request Subject: Internal Control Message-Id: Did not alter fixed versions and reopened. Date: Sat, 26 Dec 2015 13:09:02 +0000 User-Agent: Fakemail v42.6.9 # This is a fake control message. # # The action: # Did not alter fixed versions and reopened. thanks # This fakemail brought to you by your local debbugs # administrator From debbugs-submit-bounces@debbugs.gnu.org Mon Dec 28 16:21:42 2015 Received: (at control) by debbugs.gnu.org; 28 Dec 2015 21:21:42 +0000 Received: from localhost ([127.0.0.1]:46812 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84) (envelope-from ) id 1aDfEb-0007nw-Rt for submit@debbugs.gnu.org; Mon, 28 Dec 2015 16:21:42 -0500 Received: from hermes.netfonds.no ([80.91.224.195]:53768) by debbugs.gnu.org with esmtp (Exim 4.84) (envelope-from ) id 1aDfEZ-0007nh-F0 for control@debbugs.gnu.org; Mon, 28 Dec 2015 16:21:40 -0500 Received: from 2.150.58.24.tmi.telenormobil.no ([2.150.58.24] helo=mouse) by hermes.netfonds.no with esmtpsa (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.72) (envelope-from ) id 1aDfEE-0006ES-IK for control@debbugs.gnu.org; Mon, 28 Dec 2015 22:21:18 +0100 Date: Mon, 28 Dec 2015 22:21:17 +0100 Message-Id: <878u4es20i.fsf@gnus.org> To: control@debbugs.gnu.org From: Lars Ingebrigtsen Subject: control message for bug #16415 X-MailScanner-ID: 1aDfEE-0006ES-IK X-Netfonds-MailScanner: Found to be clean X-Netfonds-MailScanner-From: larsi@gnus.org MailScanner-NULL-Check: 1451942478.75984@Tm1+fiBZ+iccth5UjfvzGg X-Spam-Status: No X-Spam-Score: -0.7 (/) X-Debbugs-Envelope-To: control X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -0.7 (/) tags 16415 fixed close 16415 25.1 From unknown Thu Aug 14 17:27:53 2025 Received: (at fakecontrol) by fakecontrolmessage; To: internal_control@debbugs.gnu.org From: Debbugs Internal Request Subject: Internal Control Message-Id: bug archived. Date: Tue, 26 Jan 2016 12:24:03 +0000 User-Agent: Fakemail v42.6.9 # This is a fake control message. # # The action: # bug archived. thanks # This fakemail brought to you by your local debbugs # administrator