From: Dan Christensen <jdc@jhu.edu>
Subject: news server opened for ^ in mail group
Date: Fri, 14 Jan 2000 17:29:10 -0500 [thread overview]
Message-ID: <87embkuw21.fsf@chow.mat.jhu.edu> (raw)
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
reply other threads:[~2000-01-14 22:29 UTC|newest]
Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
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=87embkuw21.fsf@chow.mat.jhu.edu \
--to=jdc@jhu.edu \
/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).