From: Eric S Fraga <e.fraga@ucl.ac.uk>
To: ding@gnus.org
Subject: Re: Command for browsing article URLs?
Date: Fri, 18 Jan 2019 09:32:56 +0000 [thread overview]
Message-ID: <xuu65zumjoon.fsf@ucl.ac.uk> (raw)
In-Reply-To: <87fttzc4lo.fsf@ericabrahamsen.net>
[-- Attachment #1: Type: text/plain, Size: 448 bytes --]
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
[-- Attachment #2: debug.txt --]
[-- Type: text/plain, Size: 8653 bytes --]
Debugger entered--Lisp error: (wrong-type-argument stringp ((#<marker at 285 in *Article nntp+news.gwene.org:gmane.emacs.gnus.general*> . #<marker at 778 in *Article nntp+news.gwene.org:gmane.emacs.gnus.general*>) #<marker at 281 in *Article nntp+news.gwene.org:gmane.emacs.gnus.general*>))
ivy-string<((#("Eric S Fraga <e.fraga@ucl.ac.uk> writes:" 14 31 (mouse-face highlight gnus-callback gnus-button-push gnus-data (#<marker at 240 in *Article nntp+news.gwene.org:gmane.emacs.gnus.general*> (gnus-button-mid-or-mail-regexp 0 (>= 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) (((#<marker at 285 in *Article nntp+news.gwene.org:gmane.emacs.gnus.general*> . #<marker at 778 in *Article nntp+news.gwene.org:gmane.emacs.gnus.general*>) #<marker at 281 in *Article nntp+news.gwene.org:gmane.emacs.gnus.general*>) . 281))
sort(((((#<marker at 285 in *Article nntp+news.gwene.org:gmane.emacs.gnus.general*> . #<marker at 778 in *Article nntp+news.gwene.org:gmane.emacs.gnus.general*>) #<marker at 281 in *Article nntp+news.gwene.org:gmane.emacs.gnus.general*>) . 281)) ivy-string<)
ivy--reset-state(#s(ivy-state :prompt "URL to browse: " :collection ((((#<marker at 285 in *Article nntp+news.gwene.org:gmane.emacs.gnus.general*> . #<marker at 778 in *Article nntp+news.gwene.org:gmane.emacs.gnus.general*>) #<marker at 281 in *Article nntp+news.gwene.org:gmane.emacs.gnus.general*>) . 281) (#("Eric S Fraga <e.fraga@ucl.ac.uk> writes:" 14 31 (mouse-face highlight gnus-callback gnus-button-push gnus-data (#<marker at 240 in *Article nntp+news.gwene.org:gmane.emacs.gnus.general*> (gnus-button-mid-or-mail-regexp 0 (>= 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) ("e.fraga@ucl.ac.uk" . 240)) :predicate nil :require-match t :initial-input nil :history nil :preselect nil :keymap nil :update-fn nil :sort t :frame #<frame emacs: *Summary nntp+news.gwene.org:gmane.emacs.gnus.general* 0x12cfc2d0> :window #<window 11 on *Summary nntp+news.gwene.org:gmane.emacs.gnus.general*> :buffer #<buffer *Article nntp+news.gwene.org:gmane.emacs.gnus.general*> :text nil :action (1 ("o" identity "default") ("i" #f(compiled-function (x) #<bytecode 0x5135335>) "insert") ("w" #f(compiled-function (x) #<bytecode 0x5135345>) "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: " ((((#<marker at 285 in *Article nntp+news.gwene.org:gmane.emacs.gnus.general*> . #<marker at 778 in *Article nntp+news.gwene.org:gmane.emacs.gnus.general*>) #<marker at 281 in *Article nntp+news.gwene.org:gmane.emacs.gnus.general*>) . 281) (#("Eric S Fraga <e.fraga@ucl.ac.uk> writes:" 14 31 (mouse-face highlight gnus-callback gnus-button-push gnus-data (#<marker at 240 in *Article nntp+news.gwene.org:gmane.emacs.gnus.general*> (gnus-button-mid-or-mail-regexp 0 (>= 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) ("e.fraga@ucl.ac.uk" . 240)) :predicate nil :require-match t :initial-input 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: " ((((#<marker at 285 in *Article nntp+news.gwene.org:gmane.emacs.gnus.general*> . #<marker at 778 in *Article nntp+news.gwene.org:gmane.emacs.gnus.general*>) #<marker at 281 in *Article nntp+news.gwene.org:gmane.emacs.gnus.general*>) . 281) (#("Eric S Fraga <e.fraga@ucl.ac.uk> writes:" 14 31 (mouse-face highlight gnus-callback gnus-button-push gnus-data (#<marker at 240 in *Article nntp+news.gwene.org:gmane.emacs.gnus.general*> (gnus-button-mid-or-mail-regexp 0 (>= 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) ("e.fraga@ucl.ac.uk" . 240)) nil t nil nil nil nil)
completing-read("URL to browse: " ((((#<marker at 285 in *Article nntp+news.gwene.org:gmane.emacs.gnus.general*> . #<marker at 778 in *Article nntp+news.gwene.org:gmane.emacs.gnus.general*>) #<marker at 281 in *Article nntp+news.gwene.org:gmane.emacs.gnus.general*>) . 281) (#("Eric S Fraga <e.fraga@ucl.ac.uk> writes:" 14 31 (mouse-face highlight gnus-callback gnus-button-push gnus-data (#<marker at 240 in *Article nntp+news.gwene.org:gmane.emacs.gnus.general*> (gnus-button-mid-or-mail-regexp 0 (>= 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) ("e.fraga@ucl.ac.uk" . 240)) nil t)
(cond ((= (length urls) 1) (car (car urls))) ((> (length urls) 1) (completing-read "URL to browse: " (delete-dups urls) nil t)))
(assoc (cond ((= (length urls) 1) (car (car urls))) ((> (length urls) 1) (completing-read "URL to browse: " (delete-dups urls) nil t))) urls)
(setq target (assoc (cond ((= (length urls) 1) (car (car urls))) ((> (length 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-goto-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 ((= (length urls) 1) (car (car urls))) ((> (length urls) 1) (completing-read "URL to browse: " (delete-dups urls) nil t))) urls)) (if target (funcall-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-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 ((= (length urls) 1) (car (car urls))) ((> (length urls) 1) (completing-read "URL to browse: " (delete-dups urls) nil t))) urls)) (if target (funcall-interactively #'widget-button-press (1+ (cdr target))) (message "No URLs found."))))
(progn (save-current-buffer (set-buffer gnus-article-buffer) (let ((inhibit-read-only t)) (if arg (goto-char (point-min)) (article-goto-body) (backward-char)) (setq pt (point)) (while (progn (widget-forward 1) (> (point) pt)) (setq pt (point)) (let* ((u (and t ...))) (if u (setq urls (cons ... urls)) nil))) (setq target (assoc (cond ((= ... 1) (car ...)) ((> ... 1) (completing-read "URL to browse: " ... nil t))) urls)) (if target (funcall-interactively #'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 arg (goto-char (point-min)) (article-goto-body) (backward-char)) (setq pt (point)) (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-press (1+ (cdr target))) (message "No URLs found."))))))
(let ((opened (and (gnus-buffer-live-p gnus-article-buffer) (get-buffer-window gnus-article-buffer t) (= gnus-current-article (progn (let (...) (and to ...)) (or (get-text-property ... ...) (gnus-summary-last-subject)))))) pt urls target) (if opened nil (gnus-summary-select-article) (gnus-configure-windows 'article)) (if (buffer-live-p (get-buffer gnus-article-buffer)) (progn (save-current-buffer (set-buffer gnus-article-buffer) (let ((inhibit-read-only t)) (if arg (goto-char (point-min)) (article-goto-body) (backward-char)) (setq pt (point)) (while (progn (widget-forward 1) (> ... pt)) (setq 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-buffer) (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)
next prev parent reply other threads:[~2019-01-18 9:32 UTC|newest]
Thread overview: 28+ messages / expand[flat|nested] mbox.gz Atom feed top
2019-01-07 18:03 Eric Abrahamsen
2019-01-07 20:15 ` Eric S Fraga
2019-01-07 21:53 ` Eric Abrahamsen
2019-01-08 17:07 ` Haider Rizvi
2019-01-08 20:53 ` Eric Abrahamsen
2019-01-10 18:47 ` Haider Rizvi
2019-01-10 22:27 ` Eric Abrahamsen
2019-01-10 17:53 ` Eric Abrahamsen
2019-01-10 22:46 ` Eric Abrahamsen
2019-01-11 10:17 ` Eric S Fraga
2019-01-11 20:38 ` Eric Abrahamsen
2019-01-18 9:24 ` Eric S Fraga
2019-01-18 9:32 ` Eric S Fraga [this message]
2019-01-18 18:04 ` Eric Abrahamsen
2019-01-19 11:08 ` Eric S Fraga
2019-01-21 18:03 ` Eric Abrahamsen
2019-01-22 23:45 ` Eric Abrahamsen
2019-01-30 8:13 ` Eric S Fraga
2019-01-30 19:23 ` Eric Abrahamsen
2019-01-31 8:38 ` Eric S Fraga
2019-01-31 17:18 ` Eric Abrahamsen
2019-01-31 17:25 ` Eric S Fraga
2019-01-31 17:49 ` Eric Abrahamsen
2019-01-31 18:31 ` Eric S Fraga
2019-06-22 10:30 ` Lars Ingebrigtsen
2019-01-22 20:50 ` Clemens Schüller
2019-01-22 20:59 ` Eric Abrahamsen
2019-02-10 8:55 ` Clemens Schüller
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=xuu65zumjoon.fsf@ucl.ac.uk \
--to=e.fraga@ucl.ac.uk \
--cc=ding@gnus.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).