* Error on 'g'
@ 2010-10-13 17:21 Julien Danjou
2010-10-13 18:28 ` Julien Danjou
2010-10-13 18:28 ` Lars Magne Ingebrigtsen
0 siblings, 2 replies; 6+ messages in thread
From: Julien Danjou @ 2010-10-13 17:21 UTC (permalink / raw)
To: ding
It seems to be the new QRESYNC doing that:
Debugger entered--Lisp error: (wrong-type-argument listp completed\.)
memq(UID completed\.)
(cadr (memq (quote UID) elems))
(cons (cadr (memq (quote UID) elems)) (cadr (memq (quote FLAGS) elems)))
(cons (cons (cadr (memq (quote UID) elems)) (cadr (memq (quote FLAGS) elems))) articles)
(setq articles (cons (cons (cadr (memq (quote UID) elems)) (cadr (memq (quote FLAGS) elems))) articles))
(push (cons (cadr (memq (quote UID) elems)) (cadr (memq (quote FLAGS) elems))) articles)
(while (search-forward " FETCH " start t) (setq elems (read (current-buffer))) (push (cons (cadr (memq (quote UID) elems)) (cadr (memq (quote FLAGS) elems))) articles))
(progn (if (eq flag-sequence (quote qresync)) (progn (goto-char start) (setq start end)) (setq start (point)) (goto-char end)) (while (search-forward " FETCH " start t) (setq elems (read (current-buffer))) (push (cons (cadr (memq (quote UID) elems)) (cadr (memq (quote FLAGS) elems))) articles)) (push (nconc (list group uidnext totalp permanent-flags uidvalidity vanished highestmodseq) articles) groups) (goto-char end) (setq articles nil))
(if (and (search-forward (format "\n%d OK " group-sequence) nil t) (progn (forward-line 1) (setq end (point)) (goto-char start) (setq permanent-flags (if (equal command "SELECT") (and (search-forward "PERMANENTFLAGS " (or end ...) t) (read (current-buffer))) (quote not-scanned))) (goto-char start) (setq uidnext (and (search-forward "UIDNEXT " (or end (point-min)) t) (read (current-buffer)))) (goto-char start) (setq uidvalidity (and (re-search-forward "UIDVALIDITY \\([0-9]+\\)" (or end (point-min)) t) (match-string 1))) (goto-char start) (setq vanished (and (eq flag-sequence (quote qresync)) (re-search-forward "VANISHED.* \\([0-9:,]+\\)" (or end (point-min)) t) (match-string 1))) (goto-char start) (setq highestmodseq (and (search-forward "HIGHESTMODSEQ " (or end (point-min)) t) (read (current-buffer)))) (goto-char end) (forward-line -1)) (or (eq flag-sequence (quote qresync)) (search-forward (format "\n%d OK " flag-sequence) nil t))) (progn (if (eq flag-sequence (quote qresync)) (progn (goto-char start) (setq start end)) (setq start (point)) (goto-char end)) (while (search-forward " FETCH " start t) (setq elems (read (current-buffer))) (push (cons (cadr (memq (quote UID) elems)) (cadr (memq (quote FLAGS) elems))) articles)) (push (nconc (list group uidnext totalp permanent-flags uidvalidity vanished highestmodseq) articles) groups) (goto-char end) (setq articles nil)))
(when (and (search-forward (format "\n%d OK " group-sequence) nil t) (progn (forward-line 1) (setq end (point)) (goto-char start) (setq permanent-flags (if (equal command "SELECT") (and (search-forward "PERMANENTFLAGS " (or end ...) t) (read (current-buffer))) (quote not-scanned))) (goto-char start) (setq uidnext (and (search-forward "UIDNEXT " (or end (point-min)) t) (read (current-buffer)))) (goto-char start) (setq uidvalidity (and (re-search-forward "UIDVALIDITY \\([0-9]+\\)" (or end (point-min)) t) (match-string 1))) (goto-char start) (setq vanished (and (eq flag-sequence (quote qresync)) (re-search-forward "VANISHED.* \\([0-9:,]+\\)" (or end (point-min)) t) (match-string 1))) (goto-char start) (setq highestmodseq (and (search-forward "HIGHESTMODSEQ " (or end (point-min)) t) (read (current-buffer)))) (goto-char end) (forward-line -1)) (or (eq flag-sequence (quote qresync)) (search-forward (format "\n%d OK " flag-sequence) nil t))) (if (eq flag-sequence (quote qresync)) (progn (goto-char start) (setq start end)) (setq start (point)) (goto-char end)) (while (search-forward " FETCH " start t) (setq elems (read (current-buffer))) (push (cons (cadr (memq (quote UID) elems)) (cadr (memq (quote FLAGS) elems))) articles)) (push (nconc (list group uidnext totalp permanent-flags uidvalidity vanished highestmodseq) articles) groups) (goto-char end) (setq articles nil))
(let* ((--cl-rest-- elem) (group-sequence (if (= (length --cl-rest--) 5) (pop --cl-rest--) (signal (quote wrong-number-of-arguments) (list nil (length --cl-rest--))))) (flag-sequence (pop --cl-rest--)) (totalp (pop --cl-rest--)) (group (pop --cl-rest--)) (command (car --cl-rest--))) (setq start (point)) (when (and (search-forward (format "\n%d OK " group-sequence) nil t) (progn (forward-line 1) (setq end (point)) (goto-char start) (setq permanent-flags (if (equal command "SELECT") (and (search-forward "PERMANENTFLAGS " ... t) (read ...)) (quote not-scanned))) (goto-char start) (setq uidnext (and (search-forward "UIDNEXT " (or end ...) t) (read (current-buffer)))) (goto-char start) (setq uidvalidity (and (re-search-forward "UIDVALIDITY \\([0-9]+\\)" (or end ...) t) (match-string 1))) (goto-char start) (setq vanished (and (eq flag-sequence (quote qresync)) (re-search-forward "VANISHED.* \\([0-9:,]+\\)" (or end ...) t) (match-string 1))) (goto-char start) (setq highestmodseq (and (search-forward "HIGHESTMODSEQ " (or end ...) t) (read (current-buffer)))) (goto-char end) (forward-line -1)) (or (eq flag-sequence (quote qresync)) (search-forward (format "\n%d OK " flag-sequence) nil t))) (if (eq flag-sequence (quote qresync)) (progn (goto-char start) (setq start end)) (setq start (point)) (goto-char end)) (while (search-forward " FETCH " start t) (setq elems (read (current-buffer))) (push (cons (cadr (memq (quote UID) elems)) (cadr (memq (quote FLAGS) elems))) articles)) (push (nconc (list group uidnext totalp permanent-flags uidvalidity vanished highestmodseq) articles) groups) (goto-char end) (setq articles nil)))
(progn (let* ((--cl-rest-- elem) (group-sequence (if (= (length --cl-rest--) 5) (pop --cl-rest--) (signal (quote wrong-number-of-arguments) (list nil (length --cl-rest--))))) (flag-sequence (pop --cl-rest--)) (totalp (pop --cl-rest--)) (group (pop --cl-rest--)) (command (car --cl-rest--))) (setq start (point)) (when (and (search-forward (format "\n%d OK " group-sequence) nil t) (progn (forward-line 1) (setq end (point)) (goto-char start) (setq permanent-flags (if (equal command "SELECT") (and ... ...) (quote not-scanned))) (goto-char start) (setq uidnext (and (search-forward "UIDNEXT " ... t) (read ...))) (goto-char start) (setq uidvalidity (and (re-search-forward "UIDVALIDITY \\([0-9]+\\)" ... t) (match-string 1))) (goto-char start) (setq vanished (and (eq flag-sequence ...) (re-search-forward "VANISHED.* \\([0-9:,]+\\)" ... t) (match-string 1))) (goto-char start) (setq highestmodseq (and (search-forward "HIGHESTMODSEQ " ... t) (read ...))) (goto-char end) (forward-line -1)) (or (eq flag-sequence (quote qresync)) (search-forward (format "\n%d OK " flag-sequence) nil t))) (if (eq flag-sequence (quote qresync)) (progn (goto-char start) (setq start end)) (setq start (point)) (goto-char end)) (while (search-forward " FETCH " start t) (setq elems (read (current-buffer))) (push (cons (cadr (memq ... elems)) (cadr (memq ... elems))) articles)) (push (nconc (list group uidnext totalp permanent-flags uidvalidity vanished highestmodseq) articles) groups) (goto-char end) (setq articles nil))))
(destructuring-bind (group-sequence flag-sequence totalp group command) elem (setq start (point)) (when (and (search-forward (format "\n%d OK " group-sequence) nil t) (progn (forward-line 1) (setq end (point)) (goto-char start) (setq permanent-flags (if (equal command "SELECT") (and (search-forward "PERMANENTFLAGS " ... t) (read ...)) (quote not-scanned))) (goto-char start) (setq uidnext (and (search-forward "UIDNEXT " (or end ...) t) (read (current-buffer)))) (goto-char start) (setq uidvalidity (and (re-search-forward "UIDVALIDITY \\([0-9]+\\)" (or end ...) t) (match-string 1))) (goto-char start) (setq vanished (and (eq flag-sequence (quote qresync)) (re-search-forward "VANISHED.* \\([0-9:,]+\\)" (or end ...) t) (match-string 1))) (goto-char start) (setq highestmodseq (and (search-forward "HIGHESTMODSEQ " (or end ...) t) (read (current-buffer)))) (goto-char end) (forward-line -1)) (or (eq flag-sequence (quote qresync)) (search-forward (format "\n%d OK " flag-sequence) nil t))) (if (eq flag-sequence (quote qresync)) (progn (goto-char start) (setq start end)) (setq start (point)) (goto-char end)) (while (search-forward " FETCH " start t) (setq elems (read (current-buffer))) (push (cons (cadr (memq (quote UID) elems)) (cadr (memq (quote FLAGS) elems))) articles)) (push (nconc (list group uidnext totalp permanent-flags uidvalidity vanished highestmodseq) articles) groups) (goto-char end) (setq articles nil)))
(while --cl-dolist-temp-- (setq elem (car --cl-dolist-temp--)) (destructuring-bind (group-sequence flag-sequence totalp group command) elem (setq start (point)) (when (and (search-forward (format "\n%d OK " group-sequence) nil t) (progn (forward-line 1) (setq end (point)) (goto-char start) (setq permanent-flags (if (equal command "SELECT") (and ... ...) (quote not-scanned))) (goto-char start) (setq uidnext (and (search-forward "UIDNEXT " ... t) (read ...))) (goto-char start) (setq uidvalidity (and (re-search-forward "UIDVALIDITY \\([0-9]+\\)" ... t) (match-string 1))) (goto-char start) (setq vanished (and (eq flag-sequence ...) (re-search-forward "VANISHED.* \\([0-9:,]+\\)" ... t) (match-string 1))) (goto-char start) (setq highestmodseq (and (search-forward "HIGHESTMODSEQ " ... t) (read ...))) (goto-char end) (forward-line -1)) (or (eq flag-sequence (quote qresync)) (search-forward (format "\n%d OK " flag-sequence) nil t))) (if (eq flag-sequence (quote qresync)) (progn (goto-char start) (setq start end)) (setq start (point)) (goto-char end)) (while (search-forward " FETCH " start t) (setq elems (read (current-buffer))) (push (cons (cadr (memq ... elems)) (cadr (memq ... elems))) articles)) (push (nconc (list group uidnext totalp permanent-flags uidvalidity vanished highestmodseq) articles) groups) (goto-char end) (setq articles nil))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))
(let ((--cl-dolist-temp-- sequences) elem) (while --cl-dolist-temp-- (setq elem (car --cl-dolist-temp--)) (destructuring-bind (group-sequence flag-sequence totalp group command) elem (setq start (point)) (when (and (search-forward (format "\n%d OK " group-sequence) nil t) (progn (forward-line 1) (setq end (point)) (goto-char start) (setq permanent-flags (if ... ... ...)) (goto-char start) (setq uidnext (and ... ...)) (goto-char start) (setq uidvalidity (and ... ...)) (goto-char start) (setq vanished (and ... ... ...)) (goto-char start) (setq highestmodseq (and ... ...)) (goto-char end) (forward-line -1)) (or (eq flag-sequence (quote qresync)) (search-forward (format "\n%d OK " flag-sequence) nil t))) (if (eq flag-sequence (quote qresync)) (progn (goto-char start) (setq start end)) (setq start (point)) (goto-char end)) (while (search-forward " FETCH " start t) (setq elems (read (current-buffer))) (push (cons (cadr ...) (cadr ...)) articles)) (push (nconc (list group uidnext totalp permanent-flags uidvalidity vanished highestmodseq) articles) groups) (goto-char end) (setq articles nil))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--))) nil)
(catch (quote --cl-block-nil--) (let ((--cl-dolist-temp-- sequences) elem) (while --cl-dolist-temp-- (setq elem (car --cl-dolist-temp--)) (destructuring-bind (group-sequence flag-sequence totalp group command) elem (setq start (point)) (when (and (search-forward (format "\n%d OK " group-sequence) nil t) (progn (forward-line 1) (setq end ...) (goto-char start) (setq permanent-flags ...) (goto-char start) (setq uidnext ...) (goto-char start) (setq uidvalidity ...) (goto-char start) (setq vanished ...) (goto-char start) (setq highestmodseq ...) (goto-char end) (forward-line -1)) (or (eq flag-sequence ...) (search-forward ... nil t))) (if (eq flag-sequence (quote qresync)) (progn (goto-char start) (setq start end)) (setq start (point)) (goto-char end)) (while (search-forward " FETCH " start t) (setq elems (read ...)) (push (cons ... ...) articles)) (push (nconc (list group uidnext totalp permanent-flags uidvalidity vanished highestmodseq) articles) groups) (goto-char end) (setq articles nil))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--))) nil))
(cl-block-wrapper (catch (quote --cl-block-nil--) (let ((--cl-dolist-temp-- sequences) elem) (while --cl-dolist-temp-- (setq elem (car --cl-dolist-temp--)) (destructuring-bind (group-sequence flag-sequence totalp group command) elem (setq start (point)) (when (and (search-forward ... nil t) (progn ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (or ... ...)) (if (eq flag-sequence ...) (progn ... ...) (setq start ...) (goto-char end)) (while (search-forward " FETCH " start t) (setq elems ...) (push ... articles)) (push (nconc ... articles) groups) (goto-char end) (setq articles nil))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--))) nil)))
(block nil (let ((--cl-dolist-temp-- sequences) elem) (while --cl-dolist-temp-- (setq elem (car --cl-dolist-temp--)) (destructuring-bind (group-sequence flag-sequence totalp group command) elem (setq start (point)) (when (and (search-forward (format "\n%d OK " group-sequence) nil t) (progn (forward-line 1) (setq end ...) (goto-char start) (setq permanent-flags ...) (goto-char start) (setq uidnext ...) (goto-char start) (setq uidvalidity ...) (goto-char start) (setq vanished ...) (goto-char start) (setq highestmodseq ...) (goto-char end) (forward-line -1)) (or (eq flag-sequence ...) (search-forward ... nil t))) (if (eq flag-sequence (quote qresync)) (progn (goto-char start) (setq start end)) (setq start (point)) (goto-char end)) (while (search-forward " FETCH " start t) (setq elems (read ...)) (push (cons ... ...) articles)) (push (nconc (list group uidnext totalp permanent-flags uidvalidity vanished highestmodseq) articles) groups) (goto-char end) (setq articles nil))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--))) nil))
(dolist (elem sequences) (destructuring-bind (group-sequence flag-sequence totalp group command) elem (setq start (point)) (when (and (search-forward (format "\n%d OK " group-sequence) nil t) (progn (forward-line 1) (setq end (point)) (goto-char start) (setq permanent-flags (if (equal command "SELECT") (and ... ...) (quote not-scanned))) (goto-char start) (setq uidnext (and (search-forward "UIDNEXT " ... t) (read ...))) (goto-char start) (setq uidvalidity (and (re-search-forward "UIDVALIDITY \\([0-9]+\\)" ... t) (match-string 1))) (goto-char start) (setq vanished (and (eq flag-sequence ...) (re-search-forward "VANISHED.* \\([0-9:,]+\\)" ... t) (match-string 1))) (goto-char start) (setq highestmodseq (and (search-forward "HIGHESTMODSEQ " ... t) (read ...))) (goto-char end) (forward-line -1)) (or (eq flag-sequence (quote qresync)) (search-forward (format "\n%d OK " flag-sequence) nil t))) (if (eq flag-sequence (quote qresync)) (progn (goto-char start) (setq start end)) (setq start (point)) (goto-char end)) (while (search-forward " FETCH " start t) (setq elems (read (current-buffer))) (push (cons (cadr (memq ... elems)) (cadr (memq ... elems))) articles)) (push (nconc (list group uidnext totalp permanent-flags uidvalidity vanished highestmodseq) articles) groups) (goto-char end) (setq articles nil))))
(let (start end articles groups uidnext elems permanent-flags uidvalidity vanished highestmodseq) (dolist (elem sequences) (destructuring-bind (group-sequence flag-sequence totalp group command) elem (setq start (point)) (when (and (search-forward (format "\n%d OK " group-sequence) nil t) (progn (forward-line 1) (setq end (point)) (goto-char start) (setq permanent-flags (if ... ... ...)) (goto-char start) (setq uidnext (and ... ...)) (goto-char start) (setq uidvalidity (and ... ...)) (goto-char start) (setq vanished (and ... ... ...)) (goto-char start) (setq highestmodseq (and ... ...)) (goto-char end) (forward-line -1)) (or (eq flag-sequence (quote qresync)) (search-forward (format "\n%d OK " flag-sequence) nil t))) (if (eq flag-sequence (quote qresync)) (progn (goto-char start) (setq start end)) (setq start (point)) (goto-char end)) (while (search-forward " FETCH " start t) (setq elems (read (current-buffer))) (push (cons (cadr ...) (cadr ...)) articles)) (push (nconc (list group uidnext totalp permanent-flags uidvalidity vanished highestmodseq) articles) groups) (goto-char end) (setq articles nil)))) groups)
nnimap-parse-flags(((808 809 1 "lists.gnu.guile-devel" "SELECT") (810 811 1 "lists.gnu.emacs-orgmode" "SELECT") (812 qresync nil "lists.debian.private" qresync) (813 814 1 "lists.debian.devel" "SELECT") (815 816 1 "lists.wm-spec-list" "SELECT") (817 818 1 "lists.village-assoces" "SELECT") (819 820 1 "lists.spi-general" "SELECT") (821 qresync nil "lists.spi-announce" qresync) (822 823 1 "lists.ornix.ornix" "SELECT") (824 825 1 "lists.ornix.membres" "SELECT") (826 827 1 "lists.neustrix" "SELECT") (828 829 1 "lists.muse-el-discuss" "SELECT") (830 831 1 "lists.gnu.emacs-devel" "SELECT") (832 833 1 "lists.freedesktop.xdg" "SELECT") (834 835 1 "lists.freedesktop.xcb-commit" "SELECT") (836 837 1 "lists.freedesktop.xcb" "SELECT") (838 839 1 "lists.freedesktop.dbus" "SELECT") (840 841 1 "lists.el-get" "SELECT") (842 843 1 "lists.ding-cvslog" "SELECT") (844 845 1 "lists.ding" "SELECT") (846 847 1 "lists.debian.security-announce" "SELECT") (848 849 1 "lists.debian.project" "SELECT") (850 qresync nil "lists.debian.news" qresync) (851 852 1 "lists.debian.infrastructure-announce" "SELECT") (853 854 1 "lists.debian.france-asso" "SELECT") (855 856 1 "lists.debian.devel-french" "SELECT") (857 858 1 "lists.debian.devel-announce" "SELECT") (859 860 1 "lists.debian.announce" "SELECT") (861 862 1 "lists.debconf-announce" "SELECT") (863 864 1 "lists.awesome-devel" "SELECT") (865 866 1 "lists.awesome" "SELECT") (867 868 1 "lists.antidesktop.general" "SELECT") (869 870 1 "lists.feedrss" "SELECT") (871 872 1 "INBOX.unsorted" "SELECT") (873 874 1 "INBOX.sncf" "SELECT") (875 876 1 "INBOX.poudreverte" "SELECT") (877 878 1 "INBOX.ornix" "SELECT") (879 880 1 "INBOX.nous" "SELECT") (881 882 1 "INBOX.naquadah.adm" "SELECT") (883 884 1 "INBOX.naquadah" "SELECT") (885 886 1 "INBOX.ebay" "SELECT") (887 888 1 "INBOX.debian" "SELECT") (889 890 1 "INBOX" "SELECT")))
(nnimap-flags-to-marks (nnimap-parse-flags (nreverse sequences)))
(nnimap-update-infos (nnimap-flags-to-marks (nnimap-parse-flags (nreverse sequences))) infos)
(progn (nnimap-update-infos (nnimap-flags-to-marks (nnimap-parse-flags (nreverse sequences))) infos) (with-current-buffer nntp-server-buffer (erase-buffer) (dolist (info infos) (let* ((group (gnus-info-group info)) (active (gnus-active group))) (when active (insert (format "%S %d %d y\n" (gnus-group-real-name group) (cdr active) (car active))))))))
(if (nnimap-wait-for-response (if (eq (cadar sequences) (quote qresync)) (caar sequences) (cadar sequences)) t) (progn (nnimap-update-infos (nnimap-flags-to-marks (nnimap-parse-flags (nreverse sequences))) infos) (with-current-buffer nntp-server-buffer (erase-buffer) (dolist (info infos) (let* ((group (gnus-info-group info)) (active (gnus-active group))) (when active (insert (format "%S %d %d y\n" ... ... ...))))))))
(when (nnimap-wait-for-response (if (eq (cadar sequences) (quote qresync)) (caar sequences) (cadar sequences)) t) (nnimap-update-infos (nnimap-flags-to-marks (nnimap-parse-flags (nreverse sequences))) infos) (with-current-buffer nntp-server-buffer (erase-buffer) (dolist (info infos) (let* ((group (gnus-info-group info)) (active (gnus-active group))) (when active (insert (format "%S %d %d y\n" (gnus-group-real-name group) (cdr active) (car active))))))))
(save-current-buffer (set-buffer (nnimap-buffer)) (when (nnimap-wait-for-response (if (eq (cadar sequences) (quote qresync)) (caar sequences) (cadar sequences)) t) (nnimap-update-infos (nnimap-flags-to-marks (nnimap-parse-flags (nreverse sequences))) infos) (with-current-buffer nntp-server-buffer (erase-buffer) (dolist (info infos) (let* ((group (gnus-info-group info)) (active (gnus-active group))) (when active (insert (format "%S %d %d y\n" ... ... ...))))))))
(with-current-buffer (nnimap-buffer) (when (nnimap-wait-for-response (if (eq (cadar sequences) (quote qresync)) (caar sequences) (cadar sequences)) t) (nnimap-update-infos (nnimap-flags-to-marks (nnimap-parse-flags (nreverse sequences))) infos) (with-current-buffer nntp-server-buffer (erase-buffer) (dolist (info infos) (let* ((group (gnus-info-group info)) (active (gnus-active group))) (when active (insert (format "%S %d %d y\n" ... ... ...))))))))
(progn (with-current-buffer (nnimap-buffer) (when (nnimap-wait-for-response (if (eq (cadar sequences) (quote qresync)) (caar sequences) (cadar sequences)) t) (nnimap-update-infos (nnimap-flags-to-marks (nnimap-parse-flags (nreverse sequences))) infos) (with-current-buffer nntp-server-buffer (erase-buffer) (dolist (info infos) (let* ((group ...) (active ...)) (when active (insert ...))))))))
(if (and sequences (nnimap-possibly-change-group nil server)) (progn (with-current-buffer (nnimap-buffer) (when (nnimap-wait-for-response (if (eq (cadar sequences) (quote qresync)) (caar sequences) (cadar sequences)) t) (nnimap-update-infos (nnimap-flags-to-marks (nnimap-parse-flags (nreverse sequences))) infos) (with-current-buffer nntp-server-buffer (erase-buffer) (dolist (info infos) (let* (... ...) (when active ...))))))))
(when (and sequences (nnimap-possibly-change-group nil server)) (with-current-buffer (nnimap-buffer) (when (nnimap-wait-for-response (if (eq (cadar sequences) (quote qresync)) (caar sequences) (cadar sequences)) t) (nnimap-update-infos (nnimap-flags-to-marks (nnimap-parse-flags (nreverse sequences))) infos) (with-current-buffer nntp-server-buffer (erase-buffer) (dolist (info infos) (let* ((group ...) (active ...)) (when active (insert ...))))))))
nnimap-finish-retrieve-group-infos("Naquadah" (("lists.gnu.guile-devel" 5 nil) ("lists.gnu.emacs-orgmode" 5 nil) ("lists.debian.private" 5 ((1 . 1040)) nil nil ((modseq . 1041) (uidvalidity . "1286955144") (active 1 . 1040) (permanent-flags . t))) ("lists.debian.devel" 5 nil) ("lists.wm-spec-list" 3 nil) ("lists.village-assoces" 3 nil) ("lists.spi-general" 3 nil) ("lists.spi-announce" 3 ((1 . 15)) nil nil ((modseq . 16) (uidvalidity . "1286955162") (active 1 . 15) (permanent-flags . t))) ("lists.ornix.ornix" 3 nil) ("lists.ornix.membres" 3 nil) ("lists.neustrix" 3 nil) ("lists.muse-el-discuss" 3 nil) ("lists.gnu.emacs-devel" 3 nil) ("lists.freedesktop.xdg" 3 nil) ("lists.freedesktop.xcb-commit" 3 nil) ("lists.freedesktop.xcb" 3 nil) ("lists.freedesktop.dbus" 3 nil) ("lists.el-get" 3 nil) ("lists.ding-cvslog" 3 nil) ("lists.ding" 3 nil) ("lists.debian.security-announce" 3 nil) ("lists.debian.project" 3 nil) ("lists.debian.news" 3 ((1 . 17)) nil nil ((modseq . 18) (uidvalidity . "1286955139") (active 1 . 17) (permanent-flags . t))) ("lists.debian.infrastructure-announce" 3 nil) ("lists.debian.france-asso" 3 nil) ("lists.debian.devel-french" 3 nil) ("lists.debian.devel-announce" 3 nil) ("lists.debian.announce" 3 nil) ("lists.debconf-announce" 3 nil) ("lists.awesome-devel" 3 nil) ("lists.awesome" 3 nil) ("lists.antidesktop.general" 3 nil) ("lists.feedrss" 2 nil) ("INBOX.unsorted" 2 nil) ("INBOX.sncf" 1 nil) ("INBOX.poudreverte" 1 nil) ("INBOX.ornix" 1 nil) ("INBOX.nous" 1 nil) ("INBOX.naquadah.adm" 1 nil) ("INBOX.naquadah" 1 nil) ("INBOX.ebay" 1 nil) ("INBOX.debian" 1 nil) ("INBOX" 1 nil)) ((889 890 1 "INBOX" "SELECT")))
gnus-finish-retrieve-group-infos((nnimap "Naquadah" (nnimap-stream shell) (nnimap-shell-program "MAIL=maildir:$HOME/Mail /usr/lib/dovecot/imap")) (("lists.gnu.guile-devel" 5 nil) ("lists.gnu.emacs-orgmode" 5 nil) ("lists.debian.private" 5 ((1 . 1040)) nil nil ((modseq . 1041) (uidvalidity . "1286955144") (active 1 . 1040) (permanent-flags . t))) ("lists.debian.devel" 5 nil) ("lists.wm-spec-list" 3 nil) ("lists.village-assoces" 3 nil) ("lists.spi-general" 3 nil) ("lists.spi-announce" 3 ((1 . 15)) nil nil ((modseq . 16) (uidvalidity . "1286955162") (active 1 . 15) (permanent-flags . t))) ("lists.ornix.ornix" 3 nil) ("lists.ornix.membres" 3 nil) ("lists.neustrix" 3 nil) ("lists.muse-el-discuss" 3 nil) ("lists.gnu.emacs-devel" 3 nil) ("lists.freedesktop.xdg" 3 nil) ("lists.freedesktop.xcb-commit" 3 nil) ("lists.freedesktop.xcb" 3 nil) ("lists.freedesktop.dbus" 3 nil) ("lists.el-get" 3 nil) ("lists.ding-cvslog" 3 nil) ("lists.ding" 3 nil) ("lists.debian.security-announce" 3 nil) ("lists.debian.project" 3 nil) ("lists.debian.news" 3 ((1 . 17)) nil nil ((modseq . 18) (uidvalidity . "1286955139") (active 1 . 17) (permanent-flags . t))) ("lists.debian.infrastructure-announce" 3 nil) ("lists.debian.france-asso" 3 nil) ("lists.debian.devel-french" 3 nil) ("lists.debian.devel-announce" 3 nil) ("lists.debian.announce" 3 nil) ("lists.debconf-announce" 3 nil) ("lists.awesome-devel" 3 nil) ("lists.awesome" 3 nil) ("lists.antidesktop.general" 3 nil) ("lists.feedrss" 2 nil) ("INBOX.unsorted" 2 nil) ("INBOX.sncf" 1 nil) ("INBOX.poudreverte" 1 nil) ("INBOX.ornix" 1 nil) ("INBOX.nous" 1 nil) ("INBOX.naquadah.adm" 1 nil) ("INBOX.naquadah" 1 nil) ("INBOX.ebay" 1 nil) ("INBOX.debian" 1 nil) ("INBOX" 1 nil)) ((889 890 1 "INBOX" "SELECT")))
gnus-read-active-for-groups((nnimap "Naquadah" (nnimap-stream shell) (nnimap-shell-program "MAIL=maildir:$HOME/Mail /usr/lib/dovecot/imap")) (("lists.gnu.guile-devel" 5 nil) ("lists.gnu.emacs-orgmode" 5 nil) ("lists.debian.private" 5 ((1 . 1040)) nil nil ((modseq . 1041) (uidvalidity . "1286955144") (active 1 . 1040) (permanent-flags . t))) ("lists.debian.devel" 5 nil) ("lists.wm-spec-list" 3 nil) ("lists.village-assoces" 3 nil) ("lists.spi-general" 3 nil) ("lists.spi-announce" 3 ((1 . 15)) nil nil ((modseq . 16) (uidvalidity . "1286955162") (active 1 . 15) (permanent-flags . t))) ("lists.ornix.ornix" 3 nil) ("lists.ornix.membres" 3 nil) ("lists.neustrix" 3 nil) ("lists.muse-el-discuss" 3 nil) ("lists.gnu.emacs-devel" 3 nil) ("lists.freedesktop.xdg" 3 nil) ("lists.freedesktop.xcb-commit" 3 nil) ("lists.freedesktop.xcb" 3 nil) ("lists.freedesktop.dbus" 3 nil) ("lists.el-get" 3 nil) ("lists.ding-cvslog" 3 nil) ("lists.ding" 3 nil) ("lists.debian.security-announce" 3 nil) ("lists.debian.project" 3 nil) ("lists.debian.news" 3 ((1 . 17)) nil nil ((modseq . 18) (uidvalidity . "1286955139") (active 1 . 17) (permanent-flags . t))) ("lists.debian.infrastructure-announce" 3 nil) ("lists.debian.france-asso" 3 nil) ("lists.debian.devel-french" 3 nil) ("lists.debian.devel-announce" 3 nil) ("lists.debian.announce" 3 nil) ("lists.debconf-announce" 3 nil) ("lists.awesome-devel" 3 nil) ("lists.awesome" 3 nil) ("lists.antidesktop.general" 3 nil) ("lists.feedrss" 2 nil) ("INBOX.unsorted" 2 nil) ("INBOX.sncf" 1 nil) ("INBOX.poudreverte" 1 nil) ("INBOX.ornix" 1 nil) ("INBOX.nous" 1 nil) ("INBOX.naquadah.adm" 1 nil) ("INBOX.naquadah" 1 nil) ("INBOX.ebay" 1 nil) ("INBOX.debian" 1 nil) ("INBOX" 1 nil)) ((889 890 1 "INBOX" "SELECT")))
gnus-get-unread-articles(nil)
gnus-group-get-new-news(nil)
call-interactively(gnus-group-get-new-news nil nil)
--
Julien Danjou
// ᐰ <julien@danjou.info> http://julien.danjou.info
^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: Error on 'g'
2010-10-13 17:21 Error on 'g' Julien Danjou
@ 2010-10-13 18:28 ` Julien Danjou
2010-10-13 18:30 ` Lars Magne Ingebrigtsen
2010-10-13 21:10 ` Andreas Schwab
2010-10-13 18:28 ` Lars Magne Ingebrigtsen
1 sibling, 2 replies; 6+ messages in thread
From: Julien Danjou @ 2010-10-13 18:28 UTC (permalink / raw)
To: ding
On Wed, Oct 13 2010, Julien Danjou wrote:
> It seems to be the new QRESYNC doing that:
The following seems to fix it:
diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index c6c8787..5dfda91 100644
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -1303,7 +1303,7 @@ textual parts.")
(setq start end))
(setq start (point))
(goto-char end))
- (while (search-forward " FETCH " start t)
+ (while (re-search-forward "\n* [0-9]+ FETCH " start t)
(setq elems (read (current-buffer)))
(push (cons (cadr (memq 'UID elems))
(cadr (memq 'FLAGS elems)))
Since my IMAP server (Dovecot 1.2) answers:
3435 OK Fetch completed.
It matches and set elems to `completed.'.
Lars, does it seems ok to install this fix?
--
Julien Danjou
// ᐰ <julien@danjou.info> http://julien.danjou.info
^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: Error on 'g'
2010-10-13 17:21 Error on 'g' Julien Danjou
2010-10-13 18:28 ` Julien Danjou
@ 2010-10-13 18:28 ` Lars Magne Ingebrigtsen
1 sibling, 0 replies; 6+ messages in thread
From: Lars Magne Ingebrigtsen @ 2010-10-13 18:28 UTC (permalink / raw)
To: ding
Julien Danjou <julien@danjou.info> writes:
> It seems to be the new QRESYNC doing that:
>
> Debugger entered--Lisp error: (wrong-type-argument listp completed\.)
> memq(UID completed\.)
What's in the *nnimap <server> ...* buffer at this point?
--
(domestic pets only, the antidote for overdose, milk.)
larsi@gnus.org * Lars Magne Ingebrigtsen
^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: Error on 'g'
2010-10-13 18:28 ` Julien Danjou
@ 2010-10-13 18:30 ` Lars Magne Ingebrigtsen
2010-10-13 21:10 ` Andreas Schwab
1 sibling, 0 replies; 6+ messages in thread
From: Lars Magne Ingebrigtsen @ 2010-10-13 18:30 UTC (permalink / raw)
To: ding
Julien Danjou <julien@danjou.info> writes:
> Lars, does it seems ok to install this fix?
Yup; looks good.
--
(domestic pets only, the antidote for overdose, milk.)
larsi@gnus.org * Lars Magne Ingebrigtsen
^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: Error on 'g'
2010-10-13 18:28 ` Julien Danjou
2010-10-13 18:30 ` Lars Magne Ingebrigtsen
@ 2010-10-13 21:10 ` Andreas Schwab
2010-10-13 21:14 ` Lars Magne Ingebrigtsen
1 sibling, 1 reply; 6+ messages in thread
From: Andreas Schwab @ 2010-10-13 21:10 UTC (permalink / raw)
To: ding
Julien Danjou <julien@danjou.info> writes:
> - (while (search-forward " FETCH " start t)
> + (while (re-search-forward "\n* [0-9]+ FETCH " start t)
Since "\n*" matches the null string this is the same as " [0-9]+ FETCH "
which is more friendly to the regexp matcher.
Andreas.
--
Andreas Schwab, schwab@linux-m68k.org
GPG Key fingerprint = 58CA 54C7 6D53 942B 1756 01D3 44D5 214B 8276 4ED5
"And now for something completely different."
^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: Error on 'g'
2010-10-13 21:10 ` Andreas Schwab
@ 2010-10-13 21:14 ` Lars Magne Ingebrigtsen
0 siblings, 0 replies; 6+ messages in thread
From: Lars Magne Ingebrigtsen @ 2010-10-13 21:14 UTC (permalink / raw)
To: ding
Andreas Schwab <schwab@linux-m68k.org> writes:
>> + (while (re-search-forward "\n* [0-9]+ FETCH " start t)
>
> Since "\n*" matches the null string this is the same as " [0-9]+ FETCH "
> which is more friendly to the regexp matcher.
It's missing a \\ before the *. I've now added it.
--
(domestic pets only, the antidote for overdose, milk.)
larsi@gnus.org * Lars Magne Ingebrigtsen
^ permalink raw reply [flat|nested] 6+ messages in thread
end of thread, other threads:[~2010-10-13 21:14 UTC | newest]
Thread overview: 6+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2010-10-13 17:21 Error on 'g' Julien Danjou
2010-10-13 18:28 ` Julien Danjou
2010-10-13 18:30 ` Lars Magne Ingebrigtsen
2010-10-13 21:10 ` Andreas Schwab
2010-10-13 21:14 ` Lars Magne Ingebrigtsen
2010-10-13 18:28 ` Lars Magne Ingebrigtsen
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).