From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/88333 Path: news.gmane.org!.POSTED!not-for-mail From: Eric S Fraga Newsgroups: gmane.emacs.gnus.general Subject: Re: Command for browsing article URLs? Date: Fri, 18 Jan 2019 09:32:56 +0000 Organization: On the Interweb somewhere Message-ID: References: <878szwwdjw.fsf@ericabrahamsen.net> <87a7k8wg9k.fsf@ericabrahamsen.net> <87wonbts5s.fsf@ucl.ac.uk> <87fttzc4lo.fsf@ericabrahamsen.net> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: blaine.gmane.org 1547803875 15862 195.159.176.226 (18 Jan 2019 09:31:15 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Fri, 18 Jan 2019 09:31:15 +0000 (UTC) User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.0.50 (gnu/linux) To: ding@gnus.org Original-X-From: ding-owner+M36542@lists.math.uh.edu Fri Jan 18 10:31:11 2019 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from lists1.math.uh.edu ([129.7.128.208]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1gkQUV-0003zo-Qn for ding-account@gmane.org; Fri, 18 Jan 2019 10:31:07 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by lists1.math.uh.edu with smtp (Exim 4.91) (envelope-from ) id 1gkQWY-0000uW-Lb; Fri, 18 Jan 2019 03:33:14 -0600 Original-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.91) (envelope-from ) id 1gkQWT-0000ro-2u for ding@lists.math.uh.edu; Fri, 18 Jan 2019 03:33:09 -0600 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx2.math.uh.edu with esmtps (TLSv1.2:ECDHE-RSA-AES128-GCM-SHA256:128) (Exim 4.91) (envelope-from ) id 1gkQWR-0005AY-30 for ding@lists.math.uh.edu; Fri, 18 Jan 2019 03:33:08 -0600 Original-Received: from [195.159.176.226] (helo=blaine.gmane.org) by quimby.gnus.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.84_2) (envelope-from ) id 1gkQWN-0007Ie-Np for ding@gnus.org; Fri, 18 Jan 2019 10:33:05 +0100 Original-Received: from list by blaine.gmane.org with local (Exim 4.84_2) (envelope-from ) id 1gkQUF-0003b6-D3 for ding@gnus.org; Fri, 18 Jan 2019 10:30:51 +0100 X-Injected-Via-Gmane: http://gmane.org/ Original-Lines: 149 Original-X-Complaints-To: usenet@blaine.gmane.org X-Url: http://twitter.com/ericsfraga/ Cancel-Lock: sha1:NshRcHvsYI9sfVtie8/7Ptxbc88= X-Spam-Report: Spam detection software, running on the system "quimby.gnus.org", has NOT identified this incoming email as spam. The original message has been attached to this so you can view it or label similar future email. If you have any questions, see @@CONTACT_ADDRESS@@ for details. Content preview: On Friday, 11 Jan 2019 at 12:38, Eric Abrahamsen wrote: > Thanks, that was helpful! When you have a moment, please try this > updated version. Sorry for previous posting. My C-c key repeated itself and sent the post before I was done. Content analysis details: (-0.9 points, 5.0 required) pts rule name description ---- ---------------------- -------------------------------------------------- 0.2 HEADER_FROM_DIFFERENT_DOMAINS From and EnvelopeFrom 2nd level mail domains are different -1.9 BAYES_00 BODY: Bayes spam probability is 0 to 1% [score: 0.0000] 0.8 RDNS_NONE Delivered to internal network by a host with no rDNS X-Spam-Score: -1.1 (-) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:88333 Archived-At: --=-=-= Content-Type: text/plain On Friday, 11 Jan 2019 at 12:38, Eric Abrahamsen wrote: > Thanks, that was helpful! When you have a moment, please try this > updated version. Sorry for previous posting. My C-c key repeated itself and sent the post before I was done. In any case, trying your new version still doesn't work. It now fails explicitly in an ivy related function. See attached backtrace. Thanks, eric -- Eric S Fraga via Emacs 27.0.50 & org 9.1.13 on Debian 9.6 --=-=-= Content-Type: text/plain Content-Disposition: attachment; filename=debug.txt Content-Transfer-Encoding: quoted-printable Debugger entered--Lisp error: (wrong-type-argument stringp ((# . #) #)) ivy-string<((#("Eric S Fraga writes:" 14 31 (mouse-fa= ce highlight gnus-callback gnus-button-push gnus-data (# (gnus-button-mid-or-= mail-regexp 0 (>=3D gnus-button-message-level 5) gnus-button-handle-mid-or-= mail 1)) gnus-string "e.fraga@ucl.ac.uk") 33 40 (mouse-face highlight gnus-= callback gnus-cite-toggle gnus-data ">")) . 259) (((# . #) #) . 281)) sort(((((# . #) #) . 281)) ivy-string<) ivy--reset-state(#s(ivy-state :prompt "URL to browse: " :collection ((((#= .= #= ) #) . 281) (#("Eric S Fraga writes:" 14 31 (mouse-face h= ighlight gnus-callback gnus-button-push gnus-data (# (gnus-button-mid-or-mail= -regexp 0 (>=3D gnus-button-message-level 5) gnus-button-handle-mid-or-mail= 1)) gnus-string "e.fraga@ucl.ac.uk") 33 40 (mouse-face highlight gnus-call= back gnus-cite-toggle gnus-data ">")) . 259) ("e.fraga@ucl.ac.uk" . 240)) := predicate nil :require-match t :initial-input nil :history nil :preselect n= il :keymap nil :update-fn nil :sort t :frame # :window # :buffer # :text nil :action (1= ("o" identity "default") ("i" #f(compiled-function (x) #) "insert") ("w" #f(compiled-function (x) #) "copy"))= :unwind nil :re-builder nil :matcher nil :dynamic-collection nil :display-= transformer-fn nil :directory "~/" :caller gnus-article-browse-url :current= nil :def nil)) ivy-read("URL to browse: " ((((# . #) #) . 281) (#("Eric S Fraga writes:" 14 31 (mouse-face highlight gnus-callback gnus-button-push g= nus-data (# (gnus-button-mid-or-mail-regexp 0 (>=3D gnus-button-message-level= 5) gnus-button-handle-mid-or-mail 1)) gnus-string "e.fraga@ucl.ac.uk") 33 = 40 (mouse-face highlight gnus-callback gnus-cite-toggle gnus-data ">")) . 2= 59) ("e.fraga@ucl.ac.uk" . 240)) :predicate nil :require-match t :initial-i= nput nil :preselect nil :def nil :history nil :keymap nil :sort t :dynamic-= collection nil :caller gnus-article-browse-url) ivy-completing-read("URL to browse: " ((((# . #) #) . 281) (#("Eric S Fraga writes:" 14 31 (mouse-face highlight gnus-callback gnus-bu= tton-push gnus-data (# (gnus-button-mid-or-mail-regexp 0 (>=3D gnus-button-me= ssage-level 5) gnus-button-handle-mid-or-mail 1)) gnus-string "e.fraga@ucl.= ac.uk") 33 40 (mouse-face highlight gnus-callback gnus-cite-toggle gnus-dat= a ">")) . 259) ("e.fraga@ucl.ac.uk" . 240)) nil t nil nil nil nil) completing-read("URL to browse: " ((((# . #) #) . 281) (#("Eric S Fraga writes:" 14 31 (mouse-face highlight gnus-callback gnus-button= -push gnus-data (# (gnus-button-mid-or-mail-regexp 0 (>=3D gnus-button-messag= e-level 5) gnus-button-handle-mid-or-mail 1)) gnus-string "e.fraga@ucl.ac.u= k") 33 40 (mouse-face highlight gnus-callback gnus-cite-toggle gnus-data ">= ")) . 259) ("e.fraga@ucl.ac.uk" . 240)) nil t) (cond ((=3D (length urls) 1) (car (car urls))) ((> (length urls) 1) (comp= leting-read "URL to browse: " (delete-dups urls) nil t))) (assoc (cond ((=3D (length urls) 1) (car (car urls))) ((> (length urls) 1= ) (completing-read "URL to browse: " (delete-dups urls) nil t))) urls) (setq target (assoc (cond ((=3D (length urls) 1) (car (car urls))) ((> (l= ength urls) 1) (completing-read "URL to browse: " (delete-dups urls) nil t)= )) urls)) (let ((inhibit-read-only t)) (if arg (goto-char (point-min)) (article-got= o-body) (backward-char)) (setq pt (point)) (while (progn (widget-forward 1)= (> (point) pt)) (setq pt (point)) (let* ((u (and t (cond (...) (...) (...)= )))) (if u (setq urls (cons (cons u pt) urls)) nil))) (setq target (assoc (= cond ((=3D (length urls) 1) (car (car urls))) ((> (length urls) 1) (complet= ing-read "URL to browse: " (delete-dups urls) nil t))) urls)) (if target (f= uncall-interactively #'widget-button-press (1+ (cdr target))) (message "No = URLs found."))) (save-current-buffer (set-buffer gnus-article-buffer) (let ((inhibit-read= -only t)) (if arg (goto-char (point-min)) (article-goto-body) (backward-cha= r)) (setq pt (point)) (while (progn (widget-forward 1) (> (point) pt)) (set= q pt (point)) (let* ((u (and t (cond ... ... ...)))) (if u (setq urls (cons= (cons u pt) urls)) nil))) (setq target (assoc (cond ((=3D (length urls) 1)= (car (car urls))) ((> (length urls) 1) (completing-read "URL to browse: " = (delete-dups urls) nil t))) urls)) (if target (funcall-interactively #'widg= et-button-press (1+ (cdr target))) (message "No URLs found.")))) (progn (save-current-buffer (set-buffer gnus-article-buffer) (let ((inhib= it-read-only t)) (if arg (goto-char (point-min)) (article-goto-body) (backw= ard-char)) (setq pt (point)) (while (progn (widget-forward 1) (> (point) pt= )) (setq pt (point)) (let* ((u (and t ...))) (if u (setq urls (cons ... url= s)) nil))) (setq target (assoc (cond ((=3D ... 1) (car ...)) ((> ... 1) (co= mpleting-read "URL to browse: " ... nil t))) urls)) (if target (funcall-int= eractively #'widget-button-press (1+ (cdr target))) (message "No URLs found= ."))))) (if (buffer-live-p (get-buffer gnus-article-buffer)) (progn (save-current= -buffer (set-buffer gnus-article-buffer) (let ((inhibit-read-only t)) (if a= rg (goto-char (point-min)) (article-goto-body) (backward-char)) (setq pt (p= oint)) (while (progn (widget-forward 1) (> (point) pt)) (setq pt (point)) (= let* ((u ...)) (if u (setq urls ...) nil))) (setq target (assoc (cond (... = ...) (... ...)) urls)) (if target (funcall-interactively #'widget-button-pr= ess (1+ (cdr target))) (message "No URLs found.")))))) (let ((opened (and (gnus-buffer-live-p gnus-article-buffer) (get-buffer-w= indow gnus-article-buffer t) (=3D gnus-current-article (progn (let (...) (a= nd to ...)) (or (get-text-property ... ...) (gnus-summary-last-subject)))))= ) pt urls target) (if opened nil (gnus-summary-select-article) (gnus-config= ure-windows 'article)) (if (buffer-live-p (get-buffer gnus-article-buffer))= (progn (save-current-buffer (set-buffer gnus-article-buffer) (let ((inhibi= t-read-only t)) (if arg (goto-char (point-min)) (article-goto-body) (backwa= rd-char)) (setq pt (point)) (while (progn (widget-forward 1) (> ... pt)) (s= etq pt (point)) (let* (...) (if u ... nil))) (setq target (assoc (cond ... = ...) urls)) (if target (funcall-interactively #'widget-button-press (1+ ...= )) (message "No URLs found.")))))) (if (get-buffer-window gnus-summary-buff= er) (progn (gnus-summary-expand-window opened)))) gnus-article-browse-url(nil) funcall-interactively(gnus-article-browse-url nil) call-interactively(gnus-article-browse-url nil nil) command-execute(gnus-article-browse-url) --=-=-=--