From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/56035 Path: main.gmane.org!not-for-mail From: Jody Klymak Newsgroups: gmane.emacs.gnus.general Subject: Re: foobared imap server... Date: Thu, 15 Jan 2004 07:33:10 -0800 Organization: Ocean Mixing Group, Oregon State U. Sender: ding-owner@lists.math.uh.edu Message-ID: References: NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: sea.gmane.org 1074180836 3298 80.91.224.253 (15 Jan 2004 15:33:56 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Thu, 15 Jan 2004 15:33:56 +0000 (UTC) Original-X-From: ding-owner+M4575@lists.math.uh.edu Thu Jan 15 16:33:51 2004 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1Ah9VH-0000b2-00 for ; Thu, 15 Jan 2004 16:33:51 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1Ah9Up-000315-00; Thu, 15 Jan 2004 09:33:23 -0600 Original-Received: from justine.libertine.org ([66.139.78.221] ident=postfix) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1Ah9Uf-00030x-00 for ding@lists.math.uh.edu; Thu, 15 Jan 2004 09:33:13 -0600 Original-Received: from main.gmane.org (main.gmane.org [80.91.224.249]) by justine.libertine.org (Postfix) with ESMTP id 2B7233A0040 for ; Thu, 15 Jan 2004 09:33:12 -0600 (CST) Original-Received: from list by main.gmane.org with local (Exim 3.35 #1 (Debian)) id 1Ah9Ud-0007FD-00 for ; Thu, 15 Jan 2004 16:33:11 +0100 X-Injected-Via-Gmane: http://gmane.org/ Original-To: ding@gnus.org Original-Received: from sea.gmane.org ([80.91.224.252]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1Ah9Ub-0007F5-00 for ; Thu, 15 Jan 2004 16:33:09 +0100 Original-Received: from news by sea.gmane.org with local (Exim 3.35 #1 (Debian)) id 1Ah9Ub-0000pZ-00 for ; Thu, 15 Jan 2004 16:33:09 +0100 Original-Lines: 116 Original-X-Complaints-To: usenet@sea.gmane.org X-Face: )UPEGs@hZ!Z_j0LNZv0Uu\k 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 --=-=-= Content-Type: text/plain; charset=utf-8 Content-Disposition: inline; filename=UCSDBackTrace2.txt Content-Transfer-Encoding: quoted-printable 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 ima= p-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-p= arse-resp-text)) ((eql G54988 ...) (imap-parse-resp-text)) ((eql G54988 ...= ) (imap-parse-resp-text)) ((eql G54988 ...) (imap-mailbox-put ... ...)) ((e= ql G54988 ...) (imap-parse-data-list ...)) ((eql G54988 ...) (imap-parse-da= ta-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 (ca= se ... ... ... ... ... ...))) (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-cha= r (length imap-server-eol)) (goto-char (point-min)) (unwind-protect (cond .= .. ... ...) (delete-region ... ...))) (while (setq end (imap-find-next-line)) (save-restriction (narrow-to-regi= on ... end) (delete-backward-char ...) (goto-char ...) (unwind-protect ... = ...))) (let (end) (goto-char (point-min)) (while (setq end ...) (save-restrictio= n ... ... ... ...))) (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)) (inser= t string) (and imap-log (with-current-buffer ... ... ... ... ...)) (let (en= d) (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-b= uffer proc) (goto-char ...) (insert string) (and imap-log ...) (let ... ...= ...))) imap-arrival-filter(#> "* FLAGS (\\Answered \\Flagged \\D= raft \\Deleted \\Seen \njklymak l)=0D\n* OK [PERMANENTFLAGS (\\Answered \\= Flagged \\Draft \\Deleted \\Seen \njklymak l \\*)] =0D\n* 4 EXISTS=0D\n* 0= RECENT=0D\n* OK [UNSEEN 3] =0D\n* OK [UIDVALIDITY 1074021066] =0D\n3 OK [R= EAD-WRITE] Completed=0D\n") accept-process-output(#> 1 0) (let ((len ...) message-log-max) (unless (< len 10) (setq imap-have-messa= ged 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 t= ag)) (let (... message-log-max) (unless ... ... ...) (accept-process-output= imap-process ... ...))) (let (imap-have-messaged) (while (and ... ... ...) (let ... ... ...)) (wh= en (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-message= d) (while ... ...) (when ... ...) (when imap-have-messaged ...) (and ... ..= .))) (with-current-buffer (or buffer (current-buffer)) (let (imap-have-message= d) (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-da= ta ... 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) exami= ne)) (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 ("INBO= X" "mail/*")) (nnimap-stream network))) gnus-read-active-file-1((nnimap "imap.ucsd.edu" (nnimap-list-pattern ("IN= BOX" "mail/*")) (nnimap-stream network)) nil) gnus-read-active-file(nil nil) gnus-setup-news(nil nil nil) byte-code("=08=C2=84=0E gnus-1(nil nil nil) gnus(nil) * call-interactively(gnus) execute-extended-command(nil) call-interactively(execute-extended-command) --=-=-= Content-Disposition: inline; filename=UCSDImapLog2.txt * 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 --=-=-= -- Jody Klymak http://mixing.coas.oregonstate.edu/people/jklymak2/ mailto:jklymak@coas.oregonstate.edu --=-=-=--