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)
\n* OK [PERMANENTFLAGS (\\Answered \\Flagged \\Draft \\Deleted \\Seen  \njklymak	l \\*)] 
\n* 4 EXISTS
\n* 0 RECENT
\n* OK [UNSEEN 3] 
\n* OK [UIDVALIDITY 1074021066] 
\n3 OK [READ-WRITE] Completed
\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("„
  gnus-1(nil nil nil)
  gnus(nil)
* call-interactively(gnus)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)