gravatar-hang.el

;; Debugger entered--Lisp error: (quit)
  (while --dolist-tail-- (setq address (car --dolist-tail--)) (if (and (setq name (car address)) (string-match "\\` +" name)) (progn (setcar address (setq name (substring name (match-end 0)))))) (if (or force (not (and gnus-gravatar-too-ugly (or (string-match gnus-gravatar-too-ugly (or ... "")) (and name (string-match gnus-gravatar-too-ugly name)))))) (progn (condition-case nil (progn (gravatar-retrieve (cadr address) (quote gnus-gravatar-insert) (list header address category))) (error nil)))) (setq --dolist-tail-- (cdr --dolist-tail--)))
  (let ((--dolist-tail-- addresses) address) (while --dolist-tail-- (setq address (car --dolist-tail--)) (if (and (setq name (car address)) (string-match "\\` +" name)) (progn (setcar address (setq name (substring name (match-end 0)))))) (if (or force (not (and gnus-gravatar-too-ugly (or (string-match gnus-gravatar-too-ugly ...) (and name ...))))) (progn (condition-case nil (progn (gravatar-retrieve (cadr address) (quote gnus-gravatar-insert) (list header address category))) (error nil)))) (setq --dolist-tail-- (cdr --dolist-tail--))))
  (let* ((mail-extr-disable-voodoo t) (mail-extr-ignore-realname-equals-mailbox-name nil) (addresses (mail-extract-address-components (or (mail-fetch-field header) "") t)) (gravatar-size (or gnus-gravatar-size gravatar-size)) name) (let ((--dolist-tail-- addresses) address) (while --dolist-tail-- (setq address (car --dolist-tail--)) (if (and (setq name (car address)) (string-match "\\` +" name)) (progn (setcar address (setq name (substring name ...))))) (if (or force (not (and gnus-gravatar-too-ugly (or ... ...)))) (progn (condition-case nil (progn (gravatar-retrieve ... ... ...)) (error nil)))) (setq --dolist-tail-- (cdr --dolist-tail--)))))
  (let ((inhibit-read-only t) (inhibit-point-motion-hooks t) (case-fold-search t)) (article-narrow-to-head) (let* ((mail-extr-disable-voodoo t) (mail-extr-ignore-realname-equals-mailbox-name nil) (addresses (mail-extract-address-components (or (mail-fetch-field header) "") t)) (gravatar-size (or gnus-gravatar-size gravatar-size)) name) (let ((--dolist-tail-- addresses) address) (while --dolist-tail-- (setq address (car --dolist-tail--)) (if (and (setq name (car address)) (string-match "\\` +" name)) (progn (setcar address (setq name ...)))) (if (or force (not (and gnus-gravatar-too-ugly ...))) (progn (condition-case nil (progn ...) (error nil)))) (setq --dolist-tail-- (cdr --dolist-tail--))))))
  (save-restriction (let ((inhibit-read-only t) (inhibit-point-motion-hooks t) (case-fold-search t)) (article-narrow-to-head) (let* ((mail-extr-disable-voodoo t) (mail-extr-ignore-realname-equals-mailbox-name nil) (addresses (mail-extract-address-components (or (mail-fetch-field header) "") t)) (gravatar-size (or gnus-gravatar-size gravatar-size)) name) (let ((--dolist-tail-- addresses) address) (while --dolist-tail-- (setq address (car --dolist-tail--)) (if (and (setq name ...) (string-match "\\` +" name)) (progn (setcar address ...))) (if (or force (not ...)) (progn (condition-case nil ... ...))) (setq --dolist-tail-- (cdr --dolist-tail--)))))))
  (save-current-buffer (set-buffer gnus-article-buffer) (save-restriction (let ((inhibit-read-only t) (inhibit-point-motion-hooks t) (case-fold-search t)) (article-narrow-to-head) (let* ((mail-extr-disable-voodoo t) (mail-extr-ignore-realname-equals-mailbox-name nil) (addresses (mail-extract-address-components (or ... "") t)) (gravatar-size (or gnus-gravatar-size gravatar-size)) name) (let ((--dolist-tail-- addresses) address) (while --dolist-tail-- (setq address (car --dolist-tail--)) (if (and ... ...) (progn ...)) (if (or force ...) (progn ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))))))
  gnus-gravatar-transform-address("from" from-gravatar nil)
  (if (memq (quote from-gravatar) gnus-article-wash-types) (gnus-delete-images (quote from-gravatar)) (gnus-gravatar-transform-address "from" (quote from-gravatar) force))
  (let ((inhibit-read-only t)) (if (memq (quote from-gravatar) gnus-article-wash-types) (gnus-delete-images (quote from-gravatar)) (gnus-gravatar-transform-address "from" (quote from-gravatar) force)))
  (save-current-buffer (set-buffer gnus-article-buffer) (let ((inhibit-read-only t)) (if (memq (quote from-gravatar) gnus-article-wash-types) (gnus-delete-images (quote from-gravatar)) (gnus-gravatar-transform-address "from" (quote from-gravatar) force))))
  (progn (save-current-buffer (set-buffer gnus-article-buffer) (let ((inhibit-read-only t)) (if (memq (quote from-gravatar) gnus-article-wash-types) (gnus-delete-images (quote from-gravatar)) (gnus-gravatar-transform-address "from" (quote from-gravatar) force)))))
  (if (buffer-live-p (get-buffer gnus-article-buffer)) (progn (save-current-buffer (set-buffer gnus-article-buffer) (let ((inhibit-read-only t)) (if (memq (quote from-gravatar) gnus-article-wash-types) (gnus-delete-images (quote from-gravatar)) (gnus-gravatar-transform-address "from" (quote from-gravatar) force))))))
  gnus-treat-from-gravatar()
  funcall(gnus-treat-from-gravatar)
  (save-restriction (funcall (cadr elem)))
  (progn (save-restriction (funcall (cadr elem))))
  (if (and (or (consp val) treated-type) (or (not gnus-inhibit-article-treatments) (eq gnus-treat-condition (quote head))) (gnus-treat-predicate val) (or (not (get (car elem) (quote highlight))) highlightp)) (progn (save-restriction (funcall (cadr elem)))))
  (while --dolist-tail-- (setq elem (car --dolist-tail--)) (setq val (save-excursion (if (gnus-buffer-live-p gnus-summary-buffer) (progn (set-buffer gnus-summary-buffer))) (symbol-value (car elem)))) (if (and (or (consp val) treated-type) (or (not gnus-inhibit-article-treatments) (eq gnus-treat-condition (quote head))) (gnus-treat-predicate val) (or (not (get (car elem) (quote highlight))) highlightp)) (progn (save-restriction (funcall (cadr elem))))) (setq --dolist-tail-- (cdr --dolist-tail--)))
  (let ((--dolist-tail-- alist) elem) (while --dolist-tail-- (setq elem (car --dolist-tail--)) (setq val (save-excursion (if (gnus-buffer-live-p gnus-summary-buffer) (progn (set-buffer gnus-summary-buffer))) (symbol-value (car elem)))) (if (and (or (consp val) treated-type) (or (not gnus-inhibit-article-treatments) (eq gnus-treat-condition (quote head))) (gnus-treat-predicate val) (or (not (get (car elem) (quote highlight))) highlightp)) (progn (save-restriction (funcall (cadr elem))))) (setq --dolist-tail-- (cdr --dolist-tail--))))
  (let ((gnus-treat-length (- (point-max) (point-min))) (alist gnus-treatment-function-alist) (article-goto-body-goes-to-point-min-p t) (treated-type (or (not gnus-treat-type) (catch (quote found) (let ((list gnus-article-treat-types)) (while list (if ... ...)))))) (highlightp (gnus-visual-p (quote article-highlight) (quote highlight))) val elem) (gnus-run-hooks (quote gnus-part-display-hook)) (let ((--dolist-tail-- alist) elem) (while --dolist-tail-- (setq elem (car --dolist-tail--)) (setq val (save-excursion (if (gnus-buffer-live-p gnus-summary-buffer) (progn (set-buffer gnus-summary-buffer))) (symbol-value (car elem)))) (if (and (or (consp val) treated-type) (or (not gnus-inhibit-article-treatments) (eq gnus-treat-condition (quote head))) (gnus-treat-predicate val) (or (not (get ... ...)) highlightp)) (progn (save-restriction (funcall (cadr elem))))) (setq --dolist-tail-- (cdr --dolist-tail--)))))
  gnus-treat-article(head)
  (let* ((case-fold-search t) (start (progn (goto-char (point-min)) (if (and (re-search-forward "^date:[	\n ]+" nil t) (not (bolp))) (progn (match-end 0))))) (date (if (and start (re-search-forward "[	 ]*\n\\(?:[^	 ]\\|\\'\\)" nil t)) (progn (buffer-substring-no-properties start (match-beginning 0)))))) (goto-char (point-max)) (skip-chars-backward "\n") (put-text-property (point-min) (point) (quote original-date) date) (gnus-treat-article (quote head)) (goto-char (point-max)) (skip-chars-backward "\n") (put-text-property (point-min) (point) (quote original-date) date))
  (save-restriction (article-goto-body) (narrow-to-region (point-min) (point)) (let* ((case-fold-search t) (start (progn (goto-char (point-min)) (if (and (re-search-forward "^date:[	\n ]+" nil t) (not ...)) (progn (match-end 0))))) (date (if (and start (re-search-forward "[	 ]*\n\\(?:[^	 ]\\|\\'\\)" nil t)) (progn (buffer-substring-no-properties start (match-beginning 0)))))) (goto-char (point-max)) (skip-chars-backward "\n") (put-text-property (point-min) (point) (quote original-date) date) (gnus-treat-article (quote head)) (goto-char (point-max)) (skip-chars-backward "\n") (put-text-property (point-min) (point) (quote original-date) date)))
  (save-excursion (save-restriction (article-goto-body) (narrow-to-region (point-min) (point)) (let* ((case-fold-search t) (start (progn (goto-char (point-min)) (if (and ... ...) (progn ...)))) (date (if (and start (re-search-forward "[	 ]*\n\\(?:[^	 ]\\|\\'\\)" nil t)) (progn (buffer-substring-no-properties start ...))))) (goto-char (point-max)) (skip-chars-backward "\n") (put-text-property (point-min) (point) (quote original-date) date) (gnus-treat-article (quote head)) (goto-char (point-max)) (skip-chars-backward "\n") (put-text-property (point-min) (point) (quote original-date) date))))
  (if ihandles nil (save-excursion (save-restriction (article-goto-body) (narrow-to-region (point-min) (point)) (let* ((case-fold-search t) (start (progn (goto-char ...) (if ... ...))) (date (if (and start ...) (progn ...)))) (goto-char (point-max)) (skip-chars-backward "\n") (put-text-property (point-min) (point) (quote original-date) date) (gnus-treat-article (quote head)) (goto-char (point-max)) (skip-chars-backward "\n") (put-text-property (point-min) (point) (quote original-date) date)))))
  (let ((handles ihandles) (inhibit-read-only t) handle) (cond (handles) ((setq handles (mm-dissect-buffer nil gnus-article-loose-mime)) (if gnus-article-emulate-mime (progn (mm-uu-dissect-text-parts handles)))) (gnus-article-emulate-mime (setq handles (mm-uu-dissect)))) (if (and (not ihandles) (not gnus-displaying-mime)) (progn (if gnus-article-mime-handles (progn (mm-destroy-parts gnus-article-mime-handles) (setq gnus-article-mime-handle-alist nil))) (setq gnus-article-mime-handles handles) (if gnus-article-mime-part-function (progn (gnus-mime-part-function handles))))) (if (and handles (or (not (stringp (car handles))) (cdr handles))) (progn (if (and (not ihandles) (not gnus-displaying-mime)) (progn (article-goto-body) (delete-region (point) (point-max)))) (let ((gnus-displaying-mime t)) (gnus-mime-display-part handles))) (save-restriction (article-goto-body) (narrow-to-region (point) (point-max)) (gnus-treat-article nil 1 1 "text/plain") (widen))) (if ihandles nil (save-excursion (save-restriction (article-goto-body) (narrow-to-region (point-min) (point)) (let* ((case-fold-search t) (start (progn ... ...)) (date (if ... ...))) (goto-char (point-max)) (skip-chars-backward "\n") (put-text-property (point-min) (point) (quote original-date) date) (gnus-treat-article (quote head)) (goto-char (point-max)) (skip-chars-backward "\n") (put-text-property (point-min) (point) (quote original-date) date))))))
  (progn (let ((window (get-buffer-window gnus-article-buffer)) (point (point))) (if window (progn (select-window window) (set-window-point window point)))) (let ((handles ihandles) (inhibit-read-only t) handle) (cond (handles) ((setq handles (mm-dissect-buffer nil gnus-article-loose-mime)) (if gnus-article-emulate-mime (progn (mm-uu-dissect-text-parts handles)))) (gnus-article-emulate-mime (setq handles (mm-uu-dissect)))) (if (and (not ihandles) (not gnus-displaying-mime)) (progn (if gnus-article-mime-handles (progn (mm-destroy-parts gnus-article-mime-handles) (setq gnus-article-mime-handle-alist nil))) (setq gnus-article-mime-handles handles) (if gnus-article-mime-part-function (progn (gnus-mime-part-function handles))))) (if (and handles (or (not (stringp (car handles))) (cdr handles))) (progn (if (and (not ihandles) (not gnus-displaying-mime)) (progn (article-goto-body) (delete-region (point) (point-max)))) (let ((gnus-displaying-mime t)) (gnus-mime-display-part handles))) (save-restriction (article-goto-body) (narrow-to-region (point) (point-max)) (gnus-treat-article nil 1 1 "text/plain") (widen))) (if ihandles nil (save-excursion (save-restriction (article-goto-body) (narrow-to-region (point-min) (point)) (let* ((case-fold-search t) (start ...) (date ...)) (goto-char (point-max)) (skip-chars-backward "\n") (put-text-property (point-min) (point) (quote original-date) date) (gnus-treat-article (quote head)) (goto-char (point-max)) (skip-chars-backward "\n") (put-text-property (point-min) (point) (quote original-date) date)))))))
  (unwind-protect (progn (let ((window (get-buffer-window gnus-article-buffer)) (point (point))) (if window (progn (select-window window) (set-window-point window point)))) (let ((handles ihandles) (inhibit-read-only t) handle) (cond (handles) ((setq handles (mm-dissect-buffer nil gnus-article-loose-mime)) (if gnus-article-emulate-mime (progn (mm-uu-dissect-text-parts handles)))) (gnus-article-emulate-mime (setq handles (mm-uu-dissect)))) (if (and (not ihandles) (not gnus-displaying-mime)) (progn (if gnus-article-mime-handles (progn (mm-destroy-parts gnus-article-mime-handles) (setq gnus-article-mime-handle-alist nil))) (setq gnus-article-mime-handles handles) (if gnus-article-mime-part-function (progn (gnus-mime-part-function handles))))) (if (and handles (or (not (stringp ...)) (cdr handles))) (progn (if (and (not ihandles) (not gnus-displaying-mime)) (progn (article-goto-body) (delete-region ... ...))) (let ((gnus-displaying-mime t)) (gnus-mime-display-part handles))) (save-restriction (article-goto-body) (narrow-to-region (point) (point-max)) (gnus-treat-article nil 1 1 "text/plain") (widen))) (if ihandles nil (save-excursion (save-restriction (article-goto-body) (narrow-to-region (point-min) (point)) (let* (... ... ...) (goto-char ...) (skip-chars-backward "\n") (put-text-property ... ... ... date) (gnus-treat-article ...) (goto-char ...) (skip-chars-backward "\n") (put-text-property ... ... ... date))))))) (internal--after-save-selected-window save-selected-window--state))
  (save-current-buffer (unwind-protect (progn (let ((window (get-buffer-window gnus-article-buffer)) (point (point))) (if window (progn (select-window window) (set-window-point window point)))) (let ((handles ihandles) (inhibit-read-only t) handle) (cond (handles) ((setq handles (mm-dissect-buffer nil gnus-article-loose-mime)) (if gnus-article-emulate-mime (progn ...))) (gnus-article-emulate-mime (setq handles (mm-uu-dissect)))) (if (and (not ihandles) (not gnus-displaying-mime)) (progn (if gnus-article-mime-handles (progn ... ...)) (setq gnus-article-mime-handles handles) (if gnus-article-mime-part-function (progn ...)))) (if (and handles (or (not ...) (cdr handles))) (progn (if (and ... ...) (progn ... ...)) (let (...) (gnus-mime-display-part handles))) (save-restriction (article-goto-body) (narrow-to-region (point) (point-max)) (gnus-treat-article nil 1 1 "text/plain") (widen))) (if ihandles nil (save-excursion (save-restriction (article-goto-body) (narrow-to-region ... ...) (let* ... ... ... ... ... ... ... ...)))))) (internal--after-save-selected-window save-selected-window--state)))
  (let ((save-selected-window--state (internal--before-save-selected-window))) (save-current-buffer (unwind-protect (progn (let ((window (get-buffer-window gnus-article-buffer)) (point (point))) (if window (progn (select-window window) (set-window-point window point)))) (let ((handles ihandles) (inhibit-read-only t) handle) (cond (handles) ((setq handles ...) (if gnus-article-emulate-mime ...)) (gnus-article-emulate-mime (setq handles ...))) (if (and (not ihandles) (not gnus-displaying-mime)) (progn (if gnus-article-mime-handles ...) (setq gnus-article-mime-handles handles) (if gnus-article-mime-part-function ...))) (if (and handles (or ... ...)) (progn (if ... ...) (let ... ...)) (save-restriction (article-goto-body) (narrow-to-region ... ...) (gnus-treat-article nil 1 1 "text/plain") (widen))) (if ihandles nil (save-excursion (save-restriction ... ... ...))))) (internal--after-save-selected-window save-selected-window--state))))
  (save-excursion (let ((save-selected-window--state (internal--before-save-selected-window))) (save-current-buffer (unwind-protect (progn (let ((window ...) (point ...)) (if window (progn ... ...))) (let ((handles ihandles) (inhibit-read-only t) handle) (cond (handles) (... ...) (gnus-article-emulate-mime ...)) (if (and ... ...) (progn ... ... ...)) (if (and handles ...) (progn ... ...) (save-restriction ... ... ... ...)) (if ihandles nil (save-excursion ...)))) (internal--after-save-selected-window save-selected-window--state)))) (goto-char (point-max)) (if (bolp) nil (insert "\n")))
  gnus-display-mime()
  funcall(gnus-display-mime)
  (progn (funcall gnus-display-mime-function))
  (if gnus-display-mime-function (progn (funcall gnus-display-mime-function)))
  (let ((gnus-article-buffer (current-buffer)) buffer-read-only (inhibit-read-only t)) (if (derived-mode-p (quote gnus-article-mode)) nil (gnus-article-mode)) (setq buffer-read-only nil gnus-article-wash-types nil gnus-article-image-alist nil) (gnus-run-hooks (quote gnus-tmp-internal-hook)) (if gnus-display-mime-function (progn (funcall gnus-display-mime-function))))
  gnus-article-prepare-display()
  (progn (gnus-article-prepare-display) (goto-char (point-min)) (if gnus-break-pages (progn (gnus-narrow-to-page))))
  (if (or (numberp article) (stringp article)) (progn (gnus-article-prepare-display) (goto-char (point-min)) (if gnus-break-pages (progn (gnus-narrow-to-page)))))
  (if (or (eq result (quote pseudo)) (eq result (quote nneething))) (progn (save-current-buffer (set-buffer summary-buffer) (setq gnus-newsgroup-history (cons article gnus-newsgroup-history)) (setq gnus-last-article gnus-current-article gnus-current-article 0 gnus-current-headers nil gnus-article-current nil) (if (eq result (quote nneething)) (gnus-configure-windows (quote summary)) (gnus-configure-windows (quote article))) (gnus-set-global-variables)) (let ((gnus-article-mime-handle-alist-1 gnus-article-mime-handle-alist)) (gnus-set-mode-line (quote article)))) (if (and (numberp article) (not (eq article gnus-current-article))) (progn (save-current-buffer (set-buffer summary-buffer) (setq gnus-newsgroup-history (cons article gnus-newsgroup-history)) (setq gnus-last-article gnus-current-article gnus-current-article article gnus-current-headers (nth 3 (assq gnus-current-article gnus-newsgroup-data)) gnus-article-current (cons gnus-newsgroup-name gnus-current-article)) (if (vectorp gnus-current-headers) nil (setq gnus-current-headers nil)) (gnus-summary-goto-subject gnus-current-article) (if (gnus-summary-show-thread) (progn (gnus-summary-goto-subject gnus-current-article))) (gnus-run-hooks (quote gnus-mark-article-hook)) (gnus-set-mode-line (quote summary)) (if (gnus-visual-p (quote article-highlight) (quote highlight)) (progn (gnus-run-hooks (quote gnus-visual-mark-article-hook)))) (gnus-set-global-variables) (setq gnus-have-all-headers (or all-headers gnus-show-all-headers))))) (save-excursion (gnus-configure-windows (quote article))) (if (or (numberp article) (stringp article)) (progn (gnus-article-prepare-display) (goto-char (point-min)) (if gnus-break-pages (progn (gnus-narrow-to-page))))) (let ((gnus-article-mime-handle-alist-1 gnus-article-mime-handle-alist)) (gnus-set-mode-line (quote article))) (article-goto-body) (if (bobp) nil (forward-line -1)) (set-window-point (get-buffer-window (current-buffer)) (point)) (gnus-configure-windows (quote article)) (gnus-run-hooks (quote gnus-article-prepare-hook)) t)
  (if (not (setq result (let ((inhibit-read-only t)) (gnus-request-article-this-buffer article group)))) (save-excursion (if (and (numberp article) (not (memq article gnus-newsgroup-sparse))) (progn (setq gnus-article-current (cons gnus-newsgroup-name article)) (set-buffer gnus-summary-buffer) (setq gnus-current-article article) (if (and (memq article gnus-newsgroup-undownloaded) (not (gnus-online ...))) (progn (gnus-summary-set-agent-mark article) (message "Message marked for downloading")) (gnus-summary-mark-article article gnus-canceled-mark) (if (memq article gnus-newsgroup-sparse) nil (gnus-error 1 "No such article (may have expired or been canceled)")))))) (if (or (eq result (quote pseudo)) (eq result (quote nneething))) (progn (save-current-buffer (set-buffer summary-buffer) (setq gnus-newsgroup-history (cons article gnus-newsgroup-history)) (setq gnus-last-article gnus-current-article gnus-current-article 0 gnus-current-headers nil gnus-article-current nil) (if (eq result (quote nneething)) (gnus-configure-windows (quote summary)) (gnus-configure-windows (quote article))) (gnus-set-global-variables)) (let ((gnus-article-mime-handle-alist-1 gnus-article-mime-handle-alist)) (gnus-set-mode-line (quote article)))) (if (and (numberp article) (not (eq article gnus-current-article))) (progn (save-current-buffer (set-buffer summary-buffer) (setq gnus-newsgroup-history (cons article gnus-newsgroup-history)) (setq gnus-last-article gnus-current-article gnus-current-article article gnus-current-headers (nth 3 (assq gnus-current-article gnus-newsgroup-data)) gnus-article-current (cons gnus-newsgroup-name gnus-current-article)) (if (vectorp gnus-current-headers) nil (setq gnus-current-headers nil)) (gnus-summary-goto-subject gnus-current-article) (if (gnus-summary-show-thread) (progn (gnus-summary-goto-subject gnus-current-article))) (gnus-run-hooks (quote gnus-mark-article-hook)) (gnus-set-mode-line (quote summary)) (if (gnus-visual-p (quote article-highlight) (quote highlight)) (progn (gnus-run-hooks ...))) (gnus-set-global-variables) (setq gnus-have-all-headers (or all-headers gnus-show-all-headers))))) (save-excursion (gnus-configure-windows (quote article))) (if (or (numberp article) (stringp article)) (progn (gnus-article-prepare-display) (goto-char (point-min)) (if gnus-break-pages (progn (gnus-narrow-to-page))))) (let ((gnus-article-mime-handle-alist-1 gnus-article-mime-handle-alist)) (gnus-set-mode-line (quote article))) (article-goto-body) (if (bobp) nil (forward-line -1)) (set-window-point (get-buffer-window (current-buffer)) (point)) (gnus-configure-windows (quote article)) (gnus-run-hooks (quote gnus-article-prepare-hook)) t))
  (save-excursion (gnus-article-setup-buffer) (set-buffer gnus-article-buffer) (if (and (boundp (quote transient-mark-mode)) transient-mark-mode) (progn (setq mark-active nil))) (if (not (setq result (let ((inhibit-read-only t)) (gnus-request-article-this-buffer article group)))) (save-excursion (if (and (numberp article) (not (memq article gnus-newsgroup-sparse))) (progn (setq gnus-article-current (cons gnus-newsgroup-name article)) (set-buffer gnus-summary-buffer) (setq gnus-current-article article) (if (and (memq article gnus-newsgroup-undownloaded) (not ...)) (progn (gnus-summary-set-agent-mark article) (message "Message marked for downloading")) (gnus-summary-mark-article article gnus-canceled-mark) (if (memq article gnus-newsgroup-sparse) nil (gnus-error 1 "No such article (may have expired or been canceled)")))))) (if (or (eq result (quote pseudo)) (eq result (quote nneething))) (progn (save-current-buffer (set-buffer summary-buffer) (setq gnus-newsgroup-history (cons article gnus-newsgroup-history)) (setq gnus-last-article gnus-current-article gnus-current-article 0 gnus-current-headers nil gnus-article-current nil) (if (eq result (quote nneething)) (gnus-configure-windows (quote summary)) (gnus-configure-windows (quote article))) (gnus-set-global-variables)) (let ((gnus-article-mime-handle-alist-1 gnus-article-mime-handle-alist)) (gnus-set-mode-line (quote article)))) (if (and (numberp article) (not (eq article gnus-current-article))) (progn (save-current-buffer (set-buffer summary-buffer) (setq gnus-newsgroup-history (cons article gnus-newsgroup-history)) (setq gnus-last-article gnus-current-article gnus-current-article article gnus-current-headers (nth 3 ...) gnus-article-current (cons gnus-newsgroup-name gnus-current-article)) (if (vectorp gnus-current-headers) nil (setq gnus-current-headers nil)) (gnus-summary-goto-subject gnus-current-article) (if (gnus-summary-show-thread) (progn ...)) (gnus-run-hooks (quote gnus-mark-article-hook)) (gnus-set-mode-line (quote summary)) (if (gnus-visual-p ... ...) (progn ...)) (gnus-set-global-variables) (setq gnus-have-all-headers (or all-headers gnus-show-all-headers))))) (save-excursion (gnus-configure-windows (quote article))) (if (or (numberp article) (stringp article)) (progn (gnus-article-prepare-display) (goto-char (point-min)) (if gnus-break-pages (progn (gnus-narrow-to-page))))) (let ((gnus-article-mime-handle-alist-1 gnus-article-mime-handle-alist)) (gnus-set-mode-line (quote article))) (article-goto-body) (if (bobp) nil (forward-line -1)) (set-window-point (get-buffer-window (current-buffer)) (point)) (gnus-configure-windows (quote article)) (gnus-run-hooks (quote gnus-article-prepare-hook)) t)))
  (let* ((gnus-article (if header (aref header 0) article)) (summary-buffer (current-buffer)) (gnus-tmp-internal-hook gnus-article-internal-prepare-hook) (group gnus-newsgroup-name) result) (save-excursion (gnus-article-setup-buffer) (set-buffer gnus-article-buffer) (if (and (boundp (quote transient-mark-mode)) transient-mark-mode) (progn (setq mark-active nil))) (if (not (setq result (let ((inhibit-read-only t)) (gnus-request-article-this-buffer article group)))) (save-excursion (if (and (numberp article) (not (memq article gnus-newsgroup-sparse))) (progn (setq gnus-article-current (cons gnus-newsgroup-name article)) (set-buffer gnus-summary-buffer) (setq gnus-current-article article) (if (and ... ...) (progn ... ...) (gnus-summary-mark-article article gnus-canceled-mark) (if ... nil ...))))) (if (or (eq result (quote pseudo)) (eq result (quote nneething))) (progn (save-current-buffer (set-buffer summary-buffer) (setq gnus-newsgroup-history (cons article gnus-newsgroup-history)) (setq gnus-last-article gnus-current-article gnus-current-article 0 gnus-current-headers nil gnus-article-current nil) (if (eq result ...) (gnus-configure-windows ...) (gnus-configure-windows ...)) (gnus-set-global-variables)) (let ((gnus-article-mime-handle-alist-1 gnus-article-mime-handle-alist)) (gnus-set-mode-line (quote article)))) (if (and (numberp article) (not (eq article gnus-current-article))) (progn (save-current-buffer (set-buffer summary-buffer) (setq gnus-newsgroup-history ...) (setq gnus-last-article gnus-current-article gnus-current-article article gnus-current-headers ... gnus-article-current ...) (if ... nil ...) (gnus-summary-goto-subject gnus-current-article) (if ... ...) (gnus-run-hooks ...) (gnus-set-mode-line ...) (if ... ...) (gnus-set-global-variables) (setq gnus-have-all-headers ...)))) (save-excursion (gnus-configure-windows (quote article))) (if (or (numberp article) (stringp article)) (progn (gnus-article-prepare-display) (goto-char (point-min)) (if gnus-break-pages (progn ...)))) (let ((gnus-article-mime-handle-alist-1 gnus-article-mime-handle-alist)) (gnus-set-mode-line (quote article))) (article-goto-body) (if (bobp) nil (forward-line -1)) (set-window-point (get-buffer-window (current-buffer)) (point)) (gnus-configure-windows (quote article)) (gnus-run-hooks (quote gnus-article-prepare-hook)) t))))
  (save-excursion (if (derived-mode-p (quote gnus-summary-mode)) nil (set-buffer gnus-summary-buffer)) (setq gnus-summary-buffer (current-buffer)) (let* ((gnus-article (if header (aref header 0) article)) (summary-buffer (current-buffer)) (gnus-tmp-internal-hook gnus-article-internal-prepare-hook) (group gnus-newsgroup-name) result) (save-excursion (gnus-article-setup-buffer) (set-buffer gnus-article-buffer) (if (and (boundp (quote transient-mark-mode)) transient-mark-mode) (progn (setq mark-active nil))) (if (not (setq result (let (...) (gnus-request-article-this-buffer article group)))) (save-excursion (if (and (numberp article) (not ...)) (progn (setq gnus-article-current ...) (set-buffer gnus-summary-buffer) (setq gnus-current-article article) (if ... ... ... ...)))) (if (or (eq result (quote pseudo)) (eq result (quote nneething))) (progn (save-current-buffer (set-buffer summary-buffer) (setq gnus-newsgroup-history ...) (setq gnus-last-article gnus-current-article gnus-current-article 0 gnus-current-headers nil gnus-article-current nil) (if ... ... ...) (gnus-set-global-variables)) (let (...) (gnus-set-mode-line ...))) (if (and (numberp article) (not ...)) (progn (save-current-buffer ... ... ... ... ... ... ... ... ... ... ...))) (save-excursion (gnus-configure-windows (quote article))) (if (or (numberp article) (stringp article)) (progn (gnus-article-prepare-display) (goto-char ...) (if gnus-break-pages ...))) (let ((gnus-article-mime-handle-alist-1 gnus-article-mime-handle-alist)) (gnus-set-mode-line (quote article))) (article-goto-body) (if (bobp) nil (forward-line -1)) (set-window-point (get-buffer-window (current-buffer)) (point)) (gnus-configure-windows (quote article)) (gnus-run-hooks (quote gnus-article-prepare-hook)) t)))))
  gnus-article-prepare(9173 nil)
  (if gnus-summary-display-article-function (funcall gnus-summary-display-article-function article all-header) (gnus-article-prepare article all-header))
  (prog1 (if gnus-summary-display-article-function (funcall gnus-summary-display-article-function article all-header) (gnus-article-prepare article all-header)) (gnus-run-hooks (quote gnus-select-article-hook)) (if (and gnus-current-article (not (zerop gnus-current-article))) (progn (gnus-summary-goto-subject gnus-current-article))) (gnus-summary-recenter) (if (and gnus-use-trees gnus-show-threads) (progn (gnus-possibly-generate-tree article) (gnus-highlight-selected-tree article))) (gnus-article-set-window-start (cdr (assq article gnus-newsgroup-bookmarks))))
  (if (null article) nil (prog1 (if gnus-summary-display-article-function (funcall gnus-summary-display-article-function article all-header) (gnus-article-prepare article all-header)) (gnus-run-hooks (quote gnus-select-article-hook)) (if (and gnus-current-article (not (zerop gnus-current-article))) (progn (gnus-summary-goto-subject gnus-current-article))) (gnus-summary-recenter) (if (and gnus-use-trees gnus-show-threads) (progn (gnus-possibly-generate-tree article) (gnus-highlight-selected-tree article))) (gnus-article-set-window-start (cdr (assq article gnus-newsgroup-bookmarks)))))
  gnus-summary-display-article(9173)
  (or (gnus-summary-display-article (progn (let ((to (get-text-property (point) (quote gnus-intangible)))) (and to (gnus-summary-goto-subject to))) (or (get-text-property (point) (quote gnus-number)) (gnus-summary-last-subject)))) (eq (nth 1 (assq (progn (let ((to ...)) (and to (gnus-summary-goto-subject to))) (or (get-text-property (point) (quote gnus-number)) (gnus-summary-last-subject))) gnus-newsgroup-data)) gnus-canceled-mark))
  (and (gnus-summary-search-forward unread subject backward) (or (gnus-summary-display-article (progn (let ((to (get-text-property ... ...))) (and to (gnus-summary-goto-subject to))) (or (get-text-property (point) (quote gnus-number)) (gnus-summary-last-subject)))) (eq (nth 1 (assq (progn (let (...) (and to ...)) (or (get-text-property ... ...) (gnus-summary-last-subject))) gnus-newsgroup-data)) gnus-canceled-mark)))
  (cond ((and (gnus-summary-search-forward unread subject backward) (or (gnus-summary-display-article (progn (let (...) (and to ...)) (or (get-text-property ... ...) (gnus-summary-last-subject)))) (eq (nth 1 (assq (progn ... ...) gnus-newsgroup-data)) gnus-canceled-mark))) (gnus-summary-position-point)) ((and subject gnus-auto-select-same (gnus-summary-first-unread-article)) (gnus-summary-position-point) (gnus-message 6 "Wrapped")) ((and gnus-auto-extend-newsgroup (not unread) (not subject)) (gnus-summary-goto-article (if backward (1- gnus-newsgroup-begin) (1+ gnus-newsgroup-end)) nil (count-lines (point-min) (point)))) (t (if (gnus-ephemeral-group-p gnus-newsgroup-name) nil (gnus-summary-jump-to-group gnus-newsgroup-name)) (let ((cmd (if nil last-command-char last-command-event)) (point (save-current-buffer (set-buffer gnus-group-buffer) (point))) (current-summary (current-buffer)) (group (if (eq gnus-keep-same-level (quote best)) (gnus-summary-best-group gnus-newsgroup-name) (gnus-summary-search-group backward gnus-keep-same-level)))) (cond ((or (not gnus-auto-select-next) (not cmd)) (gnus-message 7 "No more%s articles" (if unread " unread" ""))) ((or (eq gnus-auto-select-next (quote quietly)) (and (eq gnus-auto-select-next ...) push) (and (eq gnus-auto-select-next ...) (gnus-summary-last-article-p))) (if (gnus-ephemeral-group-p gnus-newsgroup-name) (gnus-summary-exit) (gnus-message 7 "No more%s articles (%s)..." (if unread " unread" "") (if group ... "exiting")) (gnus-summary-next-group nil group backward))) (t (if (gnus-key-press-event-p last-input-event) (progn (if ... ...) (gnus-summary-walk-group-buffer gnus-newsgroup-name cmd unread backward point))))))))
  gnus-summary-next-article(nil)
  call-interactively(gnus-summary-next-article nil nil)
  command-execute(gnus-summary-next-article)