From: Jody Klymak <jklymak@coas.oregonstate.edu>
Subject: Re: foobared imap server...
Date: Thu, 15 Jan 2004 07:33:10 -0800 [thread overview]
Message-ID: <uu12xdy6h.fsf@coas.oregonstate.edu> (raw)
In-Reply-To: <ilubrp56i0d.fsf@latte.josefsson.org>
[-- Attachment #1: Type: text/plain, Size: 680 bytes --]
Hello Simon,
Simon Josefsson <jas@extundo.com> writes:
>> What seems to have happened is that my flags now have a "\njklymak 1"
>> entry that gnus doesn't like:
>> * FLAGS (\Answered \Flagged \Draft \Deleted \Seen jklymak l)
>
> I can't reproduce this. Evaluting (imap-parse-flag-list) when the
> point is on the leading ( works here, on both emacsen. The flag look
> odd, it contains a TAB, but I can't see anything wrong with the code.
> Can you M-x load-file RET /path/to/gnus/lisp/imap.el RET to get a
> better backtrace?
I've attached a new backtrace (and the new imap log) with imap.el no
longer byte compiled.
Thanks for any help you can give.
Cheers, Jody
[-- Attachment #2: UCSDBackTrace2.txt --]
[-- Type: text/plain, Size: 6463 bytes --]
Debugger entered--Lisp error: (error "In imap-parse-flag-list")
signal(error ("In imap-parse-flag-list"))
error("In imap-parse-flag-list" 10)
(or (eq (char-after) 41) (error "In imap-parse-flag-list" (char-after)))
(progn (or (eq ... 41) (error "In imap-parse-flag-list" ...)) nil)
(assert (eq (char-after) 41) t "In imap-parse-flag-list")
(let (flag-list start) (assert (eq ... 40) t "In imap-parse-flag-list") (while (and ... ... ...) (push ... flag-list)) (assert (eq ... 41) t "In imap-parse-flag-list") (imap-forward) (nreverse flag-list))
imap-parse-flag-list()
(imap-mailbox-put (quote flags) (imap-parse-flag-list))
(cond ((eql G54988 ...) (imap-parse-resp-text)) ((eql G54988 ...) (imap-parse-resp-text)) ((eql G54988 ...) (imap-parse-resp-text)) ((eql G54988 ...) (imap-parse-resp-text)) ((eql G54988 ...) (imap-mailbox-put ... ...)) ((eql G54988 ...) (imap-parse-data-list ...)) ((eql G54988 ...) (imap-parse-data-list ...)) ((eql G54988 ...) (imap-mailbox-put ... ...)) ((eql G54988 ...) (imap-parse-status)) ((eql G54988 ...) (setq imap-capability ...)) ((eql G54988 ...) (setq imap-id ...)) ((eql G54988 ...) (imap-parse-acl)) (t (case ... ... ... ... ... ...)))
(let ((G54988 ...)) (cond (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (t ...)))
(case (prog1 (setq token ...) (imap-forward)) (OK (imap-parse-resp-text)) (NO (imap-parse-resp-text)) (BAD (imap-parse-resp-text)) (BYE (imap-parse-resp-text)) (FLAGS (imap-mailbox-put ... ...)) (LIST (imap-parse-data-list ...)) (LSUB (imap-parse-data-list ...)) (SEARCH (imap-mailbox-put ... ...)) (STATUS (imap-parse-status)) (CAPABILITY (setq imap-capability ...)) (ID (setq imap-id ...)) (ACL (imap-parse-acl)) (t (case ... ... ... ... ... ...)))
(cond ((eql G54987 ...) (setq imap-continuation ...)) ((eql G54987 ...) (case ... ... ... ... ... ... ... ... ... ... ... ... ... ...)) (t (let ... ...)))
(let ((G54987 ...)) (cond (... ...) (... ...) (t ...)))
(case (setq token (read ...)) (+ (setq imap-continuation ...)) (* (case ... ... ... ... ... ... ... ... ... ... ... ... ... ...)) (t (let ... ...)))
(let (token) (case (setq token ...) (+ ...) (* ...) (t ...)))
imap-parse-response()
(cond ((eq imap-state ...) (imap-parse-greeting)) ((or ... ... ... ...) (imap-parse-response)) (t (message "Unknown state %s in arrival filter" imap-state)))
(unwind-protect (cond (... ...) (... ...) (t ...)) (delete-region (point-min) (point-max)))
(save-restriction (narrow-to-region (point-min) end) (delete-backward-char (length imap-server-eol)) (goto-char (point-min)) (unwind-protect (cond ... ... ...) (delete-region ... ...)))
(while (setq end (imap-find-next-line)) (save-restriction (narrow-to-region ... end) (delete-backward-char ...) (goto-char ...) (unwind-protect ... ...)))
(let (end) (goto-char (point-min)) (while (setq end ...) (save-restriction ... ... ... ...)))
(save-current-buffer (set-buffer (process-buffer proc)) (goto-char (point-max)) (insert string) (and imap-log (with-current-buffer ... ... ... ... ...)) (let (end) (goto-char ...) (while ... ...)))
(with-current-buffer (process-buffer proc) (goto-char (point-max)) (insert string) (and imap-log (with-current-buffer ... ... ... ... ...)) (let (end) (goto-char ...) (while ... ...)))
(progn (with-current-buffer (process-buffer proc) (goto-char ...) (insert string) (and imap-log ...) (let ... ... ...)))
(if (buffer-name (process-buffer proc)) (progn (with-current-buffer ... ... ... ... ...)))
(when (buffer-name (process-buffer proc)) (with-current-buffer (process-buffer proc) (goto-char ...) (insert string) (and imap-log ...) (let ... ... ...)))
imap-arrival-filter(#<process imap<1>> "* FLAGS (\\Answered \\Flagged \\Draft \\Deleted \\Seen \njklymak l)\r\n* OK [PERMANENTFLAGS (\\Answered \\Flagged \\Draft \\Deleted \\Seen \njklymak l \\*)] \r\n* 4 EXISTS\r\n* 0 RECENT\r\n* OK [UNSEEN 3] \r\n* OK [UIDVALIDITY 1074021066] \r\n3 OK [READ-WRITE] Completed\r\n")
accept-process-output(#<process imap<1>> 1 0)
(let ((len ...) message-log-max) (unless (< len 10) (setq imap-have-messaged t) (message "imap read: %dk" len)) (accept-process-output imap-process (truncate imap-read-timeout) (truncate ...)))
(while (and (null imap-continuation) (memq ... ...) (< imap-reached-tag tag)) (let (... message-log-max) (unless ... ... ...) (accept-process-output imap-process ... ...)))
(let (imap-have-messaged) (while (and ... ... ...) (let ... ... ...)) (when (and ... ...) (accept-process-output imap-process 0 0)) (when imap-have-messaged (message "")) (and (memq ... ...) (or ... ...)))
(save-current-buffer (set-buffer (or buffer ...)) (let (imap-have-messaged) (while ... ...) (when ... ...) (when imap-have-messaged ...) (and ... ...)))
(with-current-buffer (or buffer (current-buffer)) (let (imap-have-messaged) (while ... ...) (when ... ...) (when imap-have-messaged ...) (and ... ...)))
imap-wait-for-tag(3 nil)
imap-send-command-wait("SELECT \"INBOX\"")
(imap-ok-p (imap-send-command-wait (concat ... " \"" mailbox "\"")))
(if (imap-ok-p (imap-send-command-wait ...)) (progn (setq imap-message-data ... imap-state ...) imap-current-mailbox) (setq imap-current-mailbox nil))
(if (imap-current-mailbox-p-1 mailbox examine) imap-current-mailbox (setq imap-current-mailbox mailbox) (if (imap-ok-p ...) (progn ... imap-current-mailbox) (setq imap-current-mailbox nil)))
imap-mailbox-select-1("INBOX" nil)
(imap-utf7-decode (imap-mailbox-select-1 (imap-utf7-encode mailbox) examine))
(save-current-buffer (set-buffer (or buffer ...)) (imap-utf7-decode (imap-mailbox-select-1 ... examine)))
(with-current-buffer (or buffer (current-buffer)) (imap-utf7-decode (imap-mailbox-select-1 ... examine)))
imap-mailbox-select("INBOX")
nnimap-possibly-change-group("INBOX")
nnimap-split-articles(nil "imap.ucsd.edu")
nnimap-request-scan(nil "imap.ucsd.edu")
gnus-request-scan(nil (nnimap "imap.ucsd.edu" (nnimap-list-pattern ("INBOX" "mail/*")) (nnimap-stream network)))
gnus-read-active-file-1((nnimap "imap.ucsd.edu" (nnimap-list-pattern ("INBOX" "mail/*")) (nnimap-stream network)) nil)
gnus-read-active-file(nil nil)
gnus-setup-news(nil nil nil)
byte-code("\b„\x0e
gnus-1(nil nil nil)
gnus(nil)
* call-interactively(gnus)
execute-extended-command(nil)
call-interactively(execute-extended-command)
[-- Attachment #3: UCSDImapLog2.txt --]
[-- Type: text/plain, Size: 440 bytes --]
* OK popmail Cyrus IMAP4 v1.5 server ready
1 CAPABILITY
* CAPABILITY IMAP4 IMAP4rev1 ACL QUOTA LITERAL+ CRAM-MD5 LOGIN-REFERRALS
1 OK Completed
2 LOGIN "jklymak" "*******"
2 OK OK
3 SELECT "INBOX"
* FLAGS (\Answered \Flagged \Draft \Deleted \Seen
jklymak l)
* OK [PERMANENTFLAGS (\Answered \Flagged \Draft \Deleted \Seen
jklymak l \*)]
* 4 EXISTS
* 0 RECENT
* OK [UNSEEN 3]
* OK [UIDVALIDITY 1074021066]
3 OK [READ-WRITE] Completed
[-- Attachment #4: Type: text/plain, Size: 114 bytes --]
--
Jody Klymak http://mixing.coas.oregonstate.edu/people/jklymak2/
mailto:jklymak@coas.oregonstate.edu
next prev parent reply other threads:[~2004-01-15 15:33 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
2004-01-14 15:31 Jody Klymak
2004-01-15 2:52 ` Simon Josefsson
2004-01-15 15:33 ` Jody Klymak [this message]
2004-01-16 6:27 ` Simon Josefsson
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=uu12xdy6h.fsf@coas.oregonstate.edu \
--to=jklymak@coas.oregonstate.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).