Signaling: (error "This is a pseudo-article")
  signal(error ("This is a pseudo-article"))
  cerror("This is a pseudo-article")
  apply(cerror "This is a pseudo-article" nil)
  error("This is a pseudo-article")
  (and (not pseudo) (gnus-summary-article-pseudo-p article) (error "This is a pseudo-article"))
  (let ((article ...) (all-headers ...) gnus-summary-display-article-function) (and (not pseudo) (gnus-summary-article-pseudo-p article) (error "This is a pseudo-article")) (save-excursion (set-buffer gnus-summary-buffer) (if ... ... ...)))
  gnus-summary-select-article(nil nil nil 48820)
  (progn (gnus-summary-select-article nil nil nil number) (throw (quote found) t))
  (if (setq number (gnus-summary-insert-subject message-id)) (progn (gnus-summary-select-article nil nil nil number) (throw ... t)))
  (when (setq number (gnus-summary-insert-subject message-id)) (gnus-summary-select-article nil nil nil number) (throw (quote found) t))
  (while --dolist-temp--12665 (setq gnus-override-method (car --dolist-temp--12665)) (gnus-check-server gnus-override-method) (when (setq number ...) (gnus-summary-select-article nil nil nil number) (throw ... t)) (setq --dolist-temp--12665 (cdr --dolist-temp--12665)))
  (let ((--dolist-temp--12665 ...) gnus-override-method) (while --dolist-temp--12665 (setq gnus-override-method ...) (gnus-check-server gnus-override-method) (when ... ... ...) (setq --dolist-temp--12665 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... gnus-override-method) (while --dolist-temp--12665 ... ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... gnus-override-method) (while --dolist-temp--12665 ... ... ... ...) nil))
  (dolist (gnus-override-method (gnus-refer-article-methods)) (gnus-check-server gnus-override-method) (when (setq number ...) (gnus-summary-select-article nil nil nil number) (throw ... t)))
  (catch (quote found) (dolist (gnus-override-method ...) (gnus-check-server gnus-override-method) (when ... ... ...)) (gnus-message 3 "Couldn't fetch article %s" message-id))
  (cond ((and header ...) (prog1 ... ...)) (t (catch ... ... ...)))
  (let* ((header ...) (sparse ...) number) (cond (... ...) (t ...)))
  (progn (unless (string-match "^<" message-id) (setq message-id ...)) (unless (string-match ">$" message-id) (setq message-id ...)) (let* (... ... number) (cond ... ...)))
  (if (and (stringp message-id) (not ...)) (progn (unless ... ...) (unless ... ...) (let* ... ...)))
  (when (and (stringp message-id) (not ...)) (unless (string-match "^<" message-id) (setq message-id ...)) (unless (string-match ">$" message-id) (setq message-id ...)) (let* (... ... number) (cond ... ...)))
  gnus-summary-refer-article("<86wulirxo7.fsf@asfast.com>")
  (if (gnus-summary-refer-article (gnus-parent-id ref skip)) nil (gnus-message 1 "Couldn't find parent"))
  (unless (gnus-summary-refer-article (gnus-parent-id ref skip)) (gnus-message 1 "Couldn't find parent"))
  (if (and ref (not ...)) (unless (gnus-summary-refer-article ...) (gnus-message 1 "Couldn't find parent")) (gnus-message 1 "No references in article %d" (gnus-summary-article-number)) (setq error t))
  (while (and (> n 0) (not error)) (setq header (gnus-summary-article-header)) (if (and ... ...) (save-excursion ... ... ... ...) (setq ref ...)) (if (and ref ...) (unless ... ...) (gnus-message 1 "No references in article %d" ...) (setq error t)) (decf n))
  (let ((skip 1) error header ref) (when (not ...) (setq skip ... n 1)) (while (and ... ...) (setq header ...) (if ... ... ...) (if ... ... ... ...) (decf n)) (gnus-summary-position-point) n)
  gnus-summary-refer-parent-article(1)
  call-interactively(gnus-summary-refer-parent-article)