* Backtrace Debugger entered--Lisp error: (wrong-type-argument frame-live-p #) select-frame(#) org-gnus-follow-link("nnimap+thaodan.de:Sent" "871pxrjqne.fsf@") org-gnus-open("nnimap+thaodan.de:Sent#871pxrjqne.fsf@" nil) funcall(org-gnus-open "nnimap+thaodan.de:Sent#871pxrjqne.fsf@" nil) (condition-case nil (funcall f path arg) (wrong-number-of-arguments (funcall f path))) (progn (condition-case nil (funcall f path arg) (wrong-number-of-arguments (funcall f path)))) (if (functionp f) (progn (condition-case nil (funcall f path arg) (wrong-number-of-arguments (funcall f path))))) (let ((f (org-link-get-parameter type :follow))) (if (functionp f) (progn (condition-case nil (funcall f path arg) (wrong-number-of-arguments (funcall f path)))))) (let nil (let ((f (org-link-get-parameter type :follow))) (if (functionp f) (progn (condition-case nil (funcall f path arg) (wrong-number-of-arguments (funcall f path))))))) (cond ((equal type '"file") (let nil (let* ((option (org-element--property :search-option link nil nil)) (path (if option (concat path "::" option) path))) (org-link-open-as-file path (let* ((val ...)) (cond (arg ...) (... ...) (... ...))))))) ((member type '("radio" "fuzzy" "custom-id" "coderef")) (let nil (if (run-hook-with-args-until-success 'org-open-link-functions path) nil (if (not arg) (org-mark-ring-push) (switch-to-buffer-other-window (org-link--buffer-for-internals))) (let ((destination (save-excursion ...))) (if (and (<= ... destination) (>= ... destination)) nil (widen)) (goto-char destination))))) (t (let nil (let ((f (org-link-get-parameter type :follow))) (if (functionp f) (progn (condition-case nil (funcall f path arg) (wrong-number-of-arguments ...)))))))) (let ((type (org-element--property :type link nil nil)) (path (org-element--property :path link nil nil))) (cond ((equal type '"file") (let nil (let* ((option (org-element--property :search-option link nil nil)) (path (if option ... path))) (org-link-open-as-file path (let* (...) (cond ... ... ...)))))) ((member type '("radio" "fuzzy" "custom-id" "coderef")) (let nil (if (run-hook-with-args-until-success 'org-open-link-functions path) nil (if (not arg) (org-mark-ring-push) (switch-to-buffer-other-window (org-link--buffer-for-internals))) (let ((destination ...)) (if (and ... ...) nil (widen)) (goto-char destination))))) (t (let nil (let ((f (org-link-get-parameter type :follow))) (if (functionp f) (progn (condition-case nil ... ...)))))))) org-link-open((link (:standard-properties [42406 nil 42453 42538 42540 0 nil nil nil nil nil nil nil nil # nil nil (paragraph (:standard-properties [42396 42396 42396 42541 42541 0 nil nil element t nil nil nil nil # nil nil (item ...)]))] :type "gnus" :type-explicit-p t :path "nnimap+thaodan.de:Sent#871pxrjqne.fsf@" :format bracket :raw-link "gnus:nnimap+thaodan.de:Sent#871pxrjqne.fsf@" :application nil :search-option nil)) nil) (cond ((not type) (user-error "No link found")) ((memq type '(comment comment-block node-property keyword)) (call-interactively #'org-open-at-point-global)) ((memq type '(headline inlinetask)) (org-match-line org-complex-heading-regexp) (let ((tags-beg (match-beginning 5)) (tags-end (match-end 5))) (if (and tags-beg (>= (point) tags-beg) (< (point) tags-end)) (org-tags-view arg (save-excursion (let* (... ...) (buffer-substring ... ...)))) (let* ((val (org-offer-links-in-entry ... ... arg))) (if (consp val) (let* (...) (if ... ... ...))))))) ((or (eq type 'footnote-reference) (and (eq type 'footnote-definition) (save-excursion (skip-chars-forward " \11") (let ((begin ...)) (if begin (< ... begin) (= ... ...)))))) (org-footnote-action)) ((and (eq type 'planning) (org-in-regexp org-ts-regexp-both nil t)) (org-follow-timestamp-link)) ((and (eq type 'clock) value (>= (point) (org-element-begin value)) (<= (point) (org-element-end value))) (org-follow-timestamp-link)) ((eq type 'src-block) (org-babel-open-src-block-result)) ((>= (point) (save-excursion (goto-char (org-element-end context)) (skip-chars-backward " \11") (point))) (user-error "No link found")) ((eq type 'inline-src-block) (org-babel-open-src-block-result)) ((eq type 'timestamp) (org-follow-timestamp-link)) ((eq type 'link) (org-link-open context arg)) ((memq type '(citation citation-reference)) (org-cite-follow context arg)) (t (user-error "No link found"))) (let* ((context (org-element-lineage (org-element-context) '(citation citation-reference clock comment comment-block footnote-definition footnote-reference headline inline-src-block inlinetask keyword link node-property planning src-block timestamp) t)) (type (org-element-type context)) (value (org-element--property :value context nil nil))) (cond ((not type) (user-error "No link found")) ((memq type '(comment comment-block node-property keyword)) (call-interactively #'org-open-at-point-global)) ((memq type '(headline inlinetask)) (org-match-line org-complex-heading-regexp) (let ((tags-beg (match-beginning 5)) (tags-end (match-end 5))) (if (and tags-beg (>= (point) tags-beg) (< (point) tags-end)) (org-tags-view arg (save-excursion (let* ... ...))) (let* ((val ...)) (if (consp val) (let* ... ...)))))) ((or (eq type 'footnote-reference) (and (eq type 'footnote-definition) (save-excursion (skip-chars-forward " \11") (let (...) (if begin ... ...))))) (org-footnote-action)) ((and (eq type 'planning) (org-in-regexp org-ts-regexp-both nil t)) (org-follow-timestamp-link)) ((and (eq type 'clock) value (>= (point) (org-element-begin value)) (<= (point) (org-element-end value))) (org-follow-timestamp-link)) ((eq type 'src-block) (org-babel-open-src-block-result)) ((>= (point) (save-excursion (goto-char (org-element-end context)) (skip-chars-backward " \11") (point))) (user-error "No link found")) ((eq type 'inline-src-block) (org-babel-open-src-block-result)) ((eq type 'timestamp) (org-follow-timestamp-link)) ((eq type 'link) (org-link-open context arg)) ((memq type '(citation citation-reference)) (org-cite-follow context arg)) (t (user-error "No link found")))) (if (run-hook-with-args-until-success 'org-open-at-point-functions) nil (let* ((context (org-element-lineage (org-element-context) '(citation citation-reference clock comment comment-block footnote-definition footnote-reference headline inline-src-block inlinetask keyword link node-property planning src-block timestamp) t)) (type (org-element-type context)) (value (org-element--property :value context nil nil))) (cond ((not type) (user-error "No link found")) ((memq type '(comment comment-block node-property keyword)) (call-interactively #'org-open-at-point-global)) ((memq type '(headline inlinetask)) (org-match-line org-complex-heading-regexp) (let ((tags-beg (match-beginning 5)) (tags-end (match-end 5))) (if (and tags-beg (>= ... tags-beg) (< ... tags-end)) (org-tags-view arg (save-excursion ...)) (let* (...) (if ... ...))))) ((or (eq type 'footnote-reference) (and (eq type 'footnote-definition) (save-excursion (skip-chars-forward " \11") (let ... ...)))) (org-footnote-action)) ((and (eq type 'planning) (org-in-regexp org-ts-regexp-both nil t)) (org-follow-timestamp-link)) ((and (eq type 'clock) value (>= (point) (org-element-begin value)) (<= (point) (org-element-end value))) (org-follow-timestamp-link)) ((eq type 'src-block) (org-babel-open-src-block-result)) ((>= (point) (save-excursion (goto-char (org-element-end context)) (skip-chars-backward " \11") (point))) (user-error "No link found")) ((eq type 'inline-src-block) (org-babel-open-src-block-result)) ((eq type 'timestamp) (org-follow-timestamp-link)) ((eq type 'link) (org-link-open context arg)) ((memq type '(citation citation-reference)) (org-cite-follow context arg)) (t (user-error "No link found"))))) org-open-at-point() (let ((warning-suppress-types (cons '(org-element org-element-parser) warning-suppress-types))) (org-open-at-point)) org-open-at-mouse((mouse-2 (# 42477 (524 . 1069) 2228637244 nil 42477 (43 . 34) nil (8 . 5) (12 . 26)))) funcall-interactively(org-open-at-mouse (mouse-2 (# 42477 (524 . 1069) 2228637244 nil 42477 (43 . 34) nil (8 . 5) (12 . 26)))) command-execute(org-open-at-mouse)