news server opened for ^ in mail group

news server opened for ^ in mail group

[Dan Christensen]

I've started gnus with gnus-no-server, but when I hit `^' in a mail
group I sometimes get an attempt to open a connection to my news
server.  Here's the backtrace after I hit `C-g'.  I think this
only happens when the parent doesn't exist in the mail group.
This is an nnfolder group, btw.

Signaling: (quit)
  accept-process-output(#<process nntpd<3>> 1)
  nntp-accept-process-output(#<process nntpd<3>>)
  nntp-open-connection(#<buffer  *nntpd*>)
  nntp-open-server("news" nil)
  gnus-open-server((nntp "news"))
  gnus-check-server((nntp "news"))
  (while --dolist-temp--62406 (setq gnus-override-method (car --dolist-temp--62406)) (gnus-check-server gnus-override-method) (when (setq number ...) (gnus-summary-select-article nil nil nil number) (throw ... t)) (setq --dolist-temp--62406 (cdr --dolist-temp--62406)))
  (let ((--dolist-temp--62406 ...) gnus-override-method) (while --dolist-temp--62406 (setq gnus-override-method ...) (gnus-check-server gnus-override-method) (when ... ... ...) (setq --dolist-temp--62406 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... gnus-override-method) (while --dolist-temp--62406 ... ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... gnus-override-method) (while --dolist-temp--62406 ... ... ... ...) 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("<20000114031502.A14646@debian.org>")
  (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)

Dan

-- 
Dan Christensen
jdc@math.jhu.edu