Re: Woe is me and maildirs

[jam@jamux.com (John A. Martin)]

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

>>>>> "Paul" == Paul Jarc
>>>>> "Re: Woe is me and maildirs"
>>>>>  Wed, 08 Jan 2003 15:56:40 -0500

    Paul> jam@jamux.com (John A. Martin) wrote:
    >> In Group mode g (get) gives the following backtrace.
    >>
    >> ,----[ backtrace on Group mode g (get) ] | Signaling:
    >> (wrong-type-argument number-char-or-marker-p nil) |
    >> nnmaildir--grp-add-art([cl-struct-nnmaildir--srv ""
    Paul> ...
    >> | byte-code("..." [cl-struct-nnmaildir--grp-tags

    Paul> You can get a more informative backtrace by: M-x
    Paul> load-library RET nnmaildir.el RET Then trigger the error
    Paul> again.

Signaling: (wrong-type-argument number-char-or-marker-p nil)
  <(1 nil)
  (while (< num (caar nlist-cdr)) (setq nlist nlist-cdr nlist-cdr (cdr nlist)))
  (if (or (null nlist) (> num ...)) (setq nlist (cons ... nlist)) (setq insert-nlist t nlist-cdr (cdr nlist)) (while (< num ...) (setq nlist nlist-cdr nlist-cdr ...)))
  (progn (setq count (1+ ...) num (nnmaildir--art-num article) min (if ... num ...) nlist (nnmaildir--grp-nlist group)) (if (or ... ...) (setq nlist ...) (setq insert-nlist t nlist-cdr ...) (while ... ...)) (let (...) (setf ... count) (setf ... min) (if insert-nlist ... ...) (set ... article) (set ... article) (set ... group)) (nnmaildir--cache-nov group article nov) t)
  (if nov (progn (setq count ... num ... min ... nlist ...) (if ... ... ... ...) (let ... ... ... ... ... ... ...) (nnmaildir--cache-nov group article nov) t))
  (when nov (setq count (1+ ...) num (nnmaildir--art-num article) min (if ... num ...) nlist (nnmaildir--grp-nlist group)) (if (or ... ...) (setq nlist ...) (setq insert-nlist t nlist-cdr ...) (while ... ...)) (let (...) (setf ... count) (setf ... min) (if insert-nlist ... ...) (set ... article) (set ... article) (set ... group)) (nnmaildir--cache-nov group article nov) t)
  (let ((nov ...) count num min nlist nlist-cdr insert-nlist) (when nov (setq count ... num ... min ... nlist ...) (if ... ... ... ...) (let ... ... ... ... ... ... ...) (nnmaildir--cache-nov group article nov) t))
  nnmaildir--grp-add-art([cl-struct-nnmaildir--srv "" (nnmaildir "" (directory "~/mail-groups") (create-directory "../maildirs") (directory-files nnheader-directory-files-safe) (get-new-mail nil)) "nnmaildir:" "/home/jam/mail-groups/" nnheader-directory-files-safe [gnupg-commits 0 root 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 apl-l 0 0 0 0 0 0 0 0 0 0 0 0 0 inbox 0 0 0 u91718 0 0 0 0 0 0 rfci 0 0 0 0 ...] [cl-struct-nnmaildir--grp "inbox" (15900 38920) (15900 38920) 1 12 (... ... ... ... ... ... ... ... ... ... ... ...) [1042041055\.25162_0\.athene 1042048528\.28009_0\.athene 1042047939\.27826_0\.athene 0 0 1042049502\.28619_0\.athene 1042047940\.27828_0\.athene 0 1042059405\.32326_0\.athene 1042050936\.29017_0\.athene 1042043704\.26233_0\.athene 1042045831\.27188_0\.athene 0 1042050935\.29016_0\.athene 0] [0 0 0 <155\.19f97fa6\.2b4d9d6f@aol\.com> <1ba\.c061723\.2b4d9493@aol\.com> 0 <20030109030854\.XxyNG0160408091@empal\.com> <mailman\.23\.1042047864\.405\.foo@lists\.jamux\.org> 0 0 0 0 0 0 <m3adibicm9\.fsf@multivac\.cwru\.edu>] [... ... ... ... ... ... ... ... ... ... ... ... nil nil nil nil nil nil nil] 12 [0 read 0]] "No such group: yonathanh" (15889 5612) nil "../maildirs"] [cl-struct-nnmaildir--grp "secedu" (15899 2894) (15900 20293) 1 1 ((1 . ...)) [1042042164\.25791_0\.athene] [<3E1BDC1B\.18983\.55550B@localhost>] [[cl-struct-nnmaildir--art "1042042164.25791_0.athene" ":2," 1 "<3E1BDC1B.18983.55550B@localhost>" ...] nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil] 1 [0]] [cl-struct-nnmaildir--art "1037918717.3053.athene.jamux.com" ":2," 1 "<200201061629.g06GTOg16795@red.all.net>" nil])
  (lambda (file) (setq file (if ... file ...) x (make-nnmaildir--art :prefix ... :suffix ...)) (nnmaildir--grp-add-art nnmaildir--cur-server group x))([103791 8717 3053 -1 ".athene.jamux.com" ("1037918717.3053.athene.jamux.com" . ":2,")])
  mapcar((lambda (file) (setq file (if ... file ...) x (make-nnmaildir--art :prefix ... :suffix ...)) (nnmaildir--grp-add-art nnmaildir--cur-server group x)) ([103791 8717 3053 -1 ".athene.jamux.com" ("1037918717.3053.athene.jamux.com" . ":2,")] [103791 8717 3053 1 ".athene.jamux.com" ("1037918717.3053_1.athene.jamux.com" . ":2,")] [103791 8717 3053 2 ".athene.jamux.com" ("1037918717.3053_2.athene.jamux.com" . ":2,")] [103791 8717 3053 3 ".athene.jamux.com" ("1037918717.3053_3.athene.jamux.com" . ":2,")] [103791 8717 3053 4 ".athene.jamux.com" ("1037918717.3053_4.athene.jamux.com" . ":2,")] [103791 8717 3053 5 ".athene.jamux.com" ("1037918717.3053_5.athene.jamux.com" . ":2,")] [103791 8717 3053 6 ".athene.jamux.com" ("1037918717.3053_6.athene.jamux.com" . ":2,")] [103791 8718 3053 -1 ".athene.jamux.com" ("1037918718.3053.athene.jamux.com" . ":2,")] [103791 8718 3053 1 ".athene.jamux.com" ("1037918718.3053_1.athene.jamux.com" . ":2,")] [103791 8718 3053 2 ".athene.jamux.com" ("1037918718.3053_2.athene.jamux.com" . ":2,")] [103791 8718 3053 3 ".athene.jamux.com" ("1037918718.3053_3.athene.jamux.com" . ":2,")] [103791 8718 3053 4 ".athene.jamux.com" ("1037918718.3053_4.athene.jamux.com" . ":2,")] [103791 8718 3053 5 ".athene.jamux.com" ("1037918718.3053_5.athene.jamux.com" . ":2,")] [103791 8718 3053 6 ".athene.jamux.com" ("1037918718.3053_6.athene.jamux.com" . ":2,")] [103791 8718 3053 7 ".athene.jamux.com" ("1037918718.3053_7.athene.jamux.com" . ":2,")] [103791 8719 3053 -1 ".athene.jamux.com" ("1037918719.3053.athene.jamux.com" . ":2,")] [103791 8719 3053 1 ".athene.jamux.com" ("1037918719.3053_1.athene.jamux.com" . ":2,")] [103791 8719 3053 2 ".athene.jamux.com" ("1037918719.3053_2.athene.jamux.com" . ":2,")] [103791 8719 3053 3 ".athene.jamux.com" ("1037918719.3053_3.athene.jamux.com" . ":2,")] [103791 8719 3053 4 ".athene.jamux.com" ("1037918719.3053_4.athene.jamux.com" . ":2,")] [103791 8719 3053 5 ".athene.jamux.com" ("1037918719.3053_5.athene.jamux.com" . ":2,")] [103791 8720 3053 -1 ".athene.jamux.com" ("1037918720.3053.athene.jamux.com" . ":2,")] [103791 8720 3053 1 ".athene.jamux.com" ("1037918720.3053_1.athene.jamux.com" . ":2,")] [103791 8720 3053 2 ".athene.jamux.com" ("1037918720.3053_2.athene.jamux.com" . ":2,")] [103791 8720 3053 3 ".athene.jamux.com" ("1037918720.3053_3.athene.jamux.com" . ":2,")] [103791 8720 3053 4 ".athene.jamux.com" ("1037918720.3053_4.athene.jamux.com" . ":2,")] [103791 8720 3053 5 ".athene.jamux.com" ("1037918720.3053_5.athene.jamux.com" . ":2,")] [103791 8720 3053 6 ".athene.jamux.com" ("1037918720.3053_6.athene.jamux.com" . ":2,")] [103791 8720 3053 7 ".athene.jamux.com" ("1037918720.3053_7.athene.jamux.com" . ":2,")] [103791 8720 3053 8 ".athene.jamux.com" ("1037918720.3053_8.athene.jamux.com" . ":2,")] [103791 8720 3053 9 ".athene.jamux.com" ("1037918720.3053_9.athene.jamux.com" . ":2,")] [103791 8720 3053 10 ".athene.jamux.com" ("1037918720.3053_10.athene.jamux.com" . ":2,")] [103791 8721 3053 -1 ".athene.jamux.com" ("1037918721.3053.athene.jamux.com" . ":2,")] [103791 8721 3053 1 ".athene.jamux.com" ("1037918721.3053_1.athene.jamux.com" . ":2,")] [103791 8721 3053 2 ".athene.jamux.com" ("1037918721.3053_2.athene.jamux.com" . ":2,")] [103791 8722 3053 -1 ".athene.jamux.com" ("1037918722.3053.athene.jamux.com" . ":2,")] [103791 8722 3053 1 ".athene.jamux.com" ("1037918722.3053_1.athene.jamux.com" . ":2,")] [103791 8722 3053 2 ".athene.jamux.com" ("1037918722.3053_2.athene.jamux.com" . ":2,")] [103791 8722 3053 3 ".athene.jamux.com" ("1037918722.3053_3.athene.jamux.com" . ":2,")] [103791 8722 3053 4 ".athene.jamux.com" ("1037918722.3053_4.athene.jamux.com" . ":2,")] [103791 8722 3053 5 ".athene.jamux.com" ("1037918722.3053_5.athene.jamux.com" . ":2,")] [103791 8722 3053 6 ".athene.jamux.com" ("1037918722.3053_6.athene.jamux.com" . ":2,")] [103791 8722 3053 7 ".athene.jamux.com" ("1037918722.3053_7.athene.jamux.com" . ":2,")] [103791 8722 3053 8 ".athene.jamux.com" ("1037918722.3053_8.athene.jamux.com" . ":2,")] [103791 8722 3053 9 ".athene.jamux.com" ("1037918722.3053_9.athene.jamux.com" . ":2,")] [103791 8722 3053 10 ".athene.jamux.com" ("1037918722.3053_10.athene.jamux.com" . ":2,")] [103791 8722 3053 11 ".athene.jamux.com" ("1037918722.3053_11.athene.jamux.com" . ":2,")] [103791 8722 3053 12 ".athene.jamux.com" ("1037918722.3053_12.athene.jamux.com" . ":2,")] [103791 8723 3053 -1 ".athene.jamux.com" ("1037918723.3053.athene.jamux.com" . ":2,")] [103791 8723 3053 1 ".athene.jamux.com" ("1037918723.3053_1.athene.jamux.com" . ":2,")] [103791 8724 3053 -1 ".athene.jamux.com" ("1037918724.3053.athene.jamux.com" . ":2,")] ...))
  (let ((36h-ago ...) absdir nndir tdir ndir cdir nattr cattr isnew pgname read-only ls files num dir flist group x) (setq absdir (nnmaildir--srvgrp-dir srv-dir gname) nndir (nnmaildir--nndir absdir)) (unless (file-exists-p absdir) (setf ... ...) (throw ... nil)) (setq tdir (nnmaildir--tmp absdir) ndir (nnmaildir--new absdir) cdir (nnmaildir--cur absdir) nattr (file-attributes ndir) cattr (file-attributes cdir)) (unless (and ... nattr cattr) (setf ... ...) (throw ... nil)) (setq group (nnmaildir--prepare nil gname) pgname (nnmaildir--pgname nnmaildir--cur-server gname)) (if group (setq isnew nil) (setq isnew t group ...) (nnmaildir--mkdir nndir) (nnmaildir--mkdir ...) (nnmaildir--mkdir ...) (write-region "" nil ... nil ...)) (setq read-only (nnmaildir--param pgname ...) ls (or ... srv-ls)) (unless read-only (setq x ...) (unless ... ... ...) (mapcar ... ...)) (or scan-msgs isnew (throw ... t)) (setq nattr (nth 5 nattr)) (if (equal nattr ...) (setq nattr nil)) (if read-only (setq dir ...) (when ... ... ...) (setq cattr ...) (if ... ...) (setq dir ...)) (unless dir (throw ... t)) (setq files (funcall ls dir nil "\\`[^.]" ...) files (save-match-data ...)) (when isnew (setq num ...) (setf ... ...) (setf ... ...) (setf ... ...) (setq num ...) (if ... ... ... ...) (setf ... ...) (let ... ...) (or scan-msgs ...)) (setq flist (nnmaildir--grp-flist group) files (mapcar ... files) files (delq nil files) files (mapcar ... files) files (sort files ...)) (mapcar (lambda ... ... ...) files) (if read-only (setf ... nattr) (setf ... cattr)))
  (catch (quote return) (let (... absdir nndir tdir ndir cdir nattr cattr isnew pgname read-only ls files num dir flist group x) (setq absdir ... nndir ...) (unless ... ... ...) (setq tdir ... ndir ... cdir ... nattr ... cattr ...) (unless ... ... ...) (setq group ... pgname ...) (if group ... ... ... ... ... ...) (setq read-only ... ls ...) (unless read-only ... ... ...) (or scan-msgs isnew ...) (setq nattr ...) (if ... ...) (if read-only ... ... ... ... ...) (unless dir ...) (setq files ... files ...) (when isnew ... ... ... ... ... ... ... ... ...) (setq flist ... files ... files ... files ... files ...) (mapcar ... files) (if read-only ... ...)) t)
  nnmaildir--scan("secedu" t [gnupg-commits 0 root 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 apl-l 0 0 0 0 0 0 0 0 0 0 0 0 0 inbox 0 0 0 u91718 0 0 0 0 0 0 rfci 0 0 0 0 ...] (nnmaildir "" (directory "~/mail-groups") (create-directory "../maildirs") (directory-files nnheader-directory-files-safe) (get-new-mail nil)) "/home/jam/mail-groups/" nnheader-directory-files-safe)
  (lambda (sym) (nnmaildir--scan (symbol-name sym) t groups method srv-dir srv-ls))(secedu)
  mapatoms((lambda (sym) (nnmaildir--scan (symbol-name sym) t groups method srv-dir srv-ls)) [gnupg-commits 0 root 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 apl-l 0 0 0 0 0 0 0 0 0 0 0 0 0 inbox 0 0 0 u91718 0 0 0 0 0 0 rfci 0 0 0 0 ...])
  (if scan-group (mapatoms (lambda ... ...) groups))
  (if (equal x (nnmaildir--srv-mtime nnmaildir--cur-server)) (if scan-group (mapatoms ... groups)) (setq dirs (funcall srv-ls srv-dir nil "\\`[^.]" ...) seen (nnmaildir--up2-1 ...) seen (make-vector seen 0)) (mapcar (lambda ... ...) dirs) (setq x nil) (mapatoms (lambda ... ... ...) groups) (mapcar (lambda ... ...) x) (setf (nnmaildir--srv-mtime nnmaildir--cur-server) (nth 5 ...)))
  (if (stringp scan-group) (if (nnmaildir--scan scan-group t groups method srv-dir srv-ls) (if ... ...) (unintern scan-group groups)) (setq x (nth 5 ...) scan-group (null scan-group)) (if (equal x ...) (if scan-group ...) (setq dirs ... seen ... seen ...) (mapcar ... dirs) (setq x nil) (mapatoms ... groups) (mapcar ... x) (setf ... ...)) (and scan-group (nnmaildir--srv-gnm nnmaildir--cur-server) (nnmail-get-new-mail ... nil nil)))
  (progn (if (stringp scan-group) (if ... ... ...) (setq x ... scan-group ...) (if ... ... ... ... ... ... ... ...) (and scan-group ... ...)))
  (unwind-protect (progn (if ... ... ... ... ...)) (store-match-data match-data))
  (let ((match-data ...)) (unwind-protect (progn ...) (store-match-data match-data)))
  (save-match-data (if (stringp scan-group) (if ... ... ...) (setq x ... scan-group ...) (if ... ... ... ... ... ... ... ...) (and scan-group ... ...)))
  (save-excursion (set-buffer (get-buffer-create " *nnmaildir work*")) (save-match-data (if ... ... ... ... ...)))
  (nnmaildir--with-work-buffer (save-match-data (if ... ... ... ... ...)))
  (let ((coding-system-for-write nnheader-file-coding-system) (buffer-file-coding-system nil) (file-coding-system-alist nil) (nnmaildir-get-new-mail t) (nnmaildir-group-alist nil) (nnmaildir-active-file nil) x srv-ls srv-dir method groups group dirs grp-dir seen deactivate-mark) (nnmaildir--prepare server nil) (setq srv-ls (nnmaildir--srv-ls nnmaildir--cur-server) srv-dir (nnmaildir--srv-dir nnmaildir--cur-server) method (nnmaildir--srv-method nnmaildir--cur-server) groups (nnmaildir--srv-groups nnmaildir--cur-server)) (nnmaildir--with-work-buffer (save-match-data ...)))
  nnmaildir-request-scan(nil "")
  gnus-request-scan(nil (nnmaildir "" (directory "~/mail-groups") (create-directory "../maildirs") (directory-files nnheader-directory-files-safe) (get-new-mail nil)))
  gnus-read-active-file-1((nnmaildir "" (directory "~/mail-groups") (create-directory "../maildirs") (directory-files nnheader-directory-files-safe) (get-new-mail nil)) nil)
  gnus-read-active-file()
  gnus-group-get-new-news(nil)
  call-interactively(gnus-group-get-new-news)
  read-minibuffer-internal("Insert file: ")
  byte-code("..." [standard-output standard-input prompt recursion-depth minibuffer-depth t read-minibuffer-internal] 2)
  read-from-minibuffer("Insert file: " "/slash/var/" #<keymap read-file-name-map size 2 0xdab> nil file-name-history nil nil)
  read-file-name-2(file-name-history "Insert file: " nil nil 0 nil read-file-name-internal)
  read-file-name-1(file file-name-history "Insert file: " nil nil 0 nil read-file-name-internal)
  read-file-name("Insert file: " nil nil 0)
  call-interactively(crypt-insert-file)


        jam


[-- Attachment #2: Type: application/pgp-signature, Size: 154 bytes --]