foobared imap server...

foobared imap server...

[Jody Klymak]

[-- Attachment #1: Type: text/plain, Size: 846 bytes --]


Hello,

I just changed institutions and added the local imap server as a
secondary select method.  Things seemed OK until I tried to copy
items from my old imap server's INBOX to my new imap server's INBOX.
Now I can no longer enter the new server's INBOX.  I've attached the
*Backtrace* and *imap-log*.   This is No Gnus v0.2.

Unfortunately I do not have direct access to the server, or I'd wipe
my INBOX and try again.  Renaming .newsrc.eld, Mail, and News on my
client machine does not help matters.  

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)
* OK [PERMANENTFLAGS (\Answered \Flagged \Draft \Deleted \Seen  
jklymak	l \*)] 

Should I simply ask my admins to wipe my mail spool on the new machine
and start again?  


[-- Attachment #2: UCSDBackTrace.txt --]
[-- Type: text/plain, Size: 1307 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)
  imap-parse-flag-list()
  imap-parse-response()
  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* 1 EXISTS\r\n* 0 RECENT\r\n* OK [UNSEEN 1] \r\n* OK [UIDVALIDITY 1074021066] \r\n3 OK [READ-WRITE] Completed\r\n")
  accept-process-output(#<process imap<1>> 1 0)
  imap-wait-for-tag(3 nil)
  imap-send-command-wait("SELECT \"INBOX\"")
  imap-mailbox-select-1("INBOX" nil)
  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: UCSDImapLog.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 \*)] 
* 1 EXISTS
* 0 RECENT
* OK [UNSEEN 1] 
* OK [UIDVALIDITY 1074021066] 
3 OK [READ-WRITE] Completed

[-- Attachment #4: Type: text/plain, Size: 128 bytes --]


Thanks,  Jody

-- 
Jody Klymak      http://mixing.coas.oregonstate.edu/people/jklymak2/
mailto:jklymak@coas.oregonstate.edu   

Re: foobared imap server...

[Simon Josefsson]

Jody Klymak <jklymak@coas.oregonstate.edu> writes:

> Hello,
>
> I just changed institutions and added the local imap server as a
> secondary select method.  Things seemed OK until I tried to copy
> items from my old imap server's INBOX to my new imap server's INBOX.
> Now I can no longer enter the new server's INBOX.  I've attached the
> *Backtrace* and *imap-log*.   This is No Gnus v0.2.
>
> Unfortunately I do not have direct access to the server, or I'd wipe
> my INBOX and try again.  Renaming .newsrc.eld, Mail, and News on my
> client machine does not help matters.  
>
> 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?

> Should I simply ask my admins to wipe my mail spool on the new machine
> and start again?  

Let's try to debug it first.

Re: foobared imap server...

[Jody Klymak]

[-- 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   

Re: foobared imap server...

[Simon Josefsson]

Jody Klymak <jklymak@coas.oregonstate.edu> writes:

> I've attached a new backtrace (and the new imap log) with imap.el no
> longer byte compiled.  

Thanks.

> Thanks for any help you can give.  
>
> Cheers,  Jody
>
> 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()

This is weird, it works here.  Can you put the point at '(' in the
following lines and do M-: (imap-parse-flag-list) RET and tell if this
also generate the same backtrace?

* FLAGS (\Answered \Flagged \Draft \Deleted \Seen jklymak	l)
* OK [PERMANENTFLAGS (\Answered \Flagged \Draft \Deleted \Seen jklymak	l \*)]

It should, but it doesn't for me.  Perhaps there is some customization
that modify the behaviour.  If it does crash for you too, doing the
same with emacs -q might suggest if something in your environment is
causing this.  Of course, then imap.el should be fixed.