From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/35994
Path: main.gmane.org!not-for-mail
From: Jost Krieger <Jost.Krieger@ruhr-uni-bochum.de>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: oort 0.02 and nnmaildir
Date: 23 Apr 2001 18:02:56 +0200
Message-ID: <s5keluj1u4v.fsf@sunu991.rz.ruhr-uni-bochum.de>
References: <20010422202224.A5014@ruhr-uni-bochum.de>
	<m3itjwpr4n.fsf@multivac.cwru.edu>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: quoted-printable
X-Trace: main.gmane.org 1035171656 6221 80.91.224.250 (21 Oct 2002 03:40:56 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 21 Oct 2002 03:40:56 +0000 (UTC)
Return-Path: <owner-ding@gnus.org>
Original-Received: (qmail 404 invoked by alias); 23 Apr 2001 16:02:58 -0000
Original-Received: (qmail 399 invoked from network); 23 Apr 2001 16:02:57 -0000
Original-Received: from sunu422.rz.ruhr-uni-bochum.de (134.147.64.14)
  by gnus.org with SMTP; 23 Apr 2001 16:02:57 -0000
Original-Received: (qmail 18202 invoked from network); 23 Apr 2001 16:02:56 -0000
Original-Received: from sunu991.rz.ruhr-uni-bochum.de (134.147.128.177)
  by mailhost.rz.ruhr-uni-bochum.de with SMTP; 23 Apr 2001 16:02:56 -0000
Original-Received: (qmail 16148 invoked by uid 10167); 23 Apr 2001 16:02:56 -0000
X-Draft-From: ("nnml:ding" 27976)
Original-To: ding@gnus.org
X-Face: 65qRY/FsOCSuW-eP=(J[ehnYdz(}jSEWo\qYO9PV/uu+yv~3GyRcltrT7!W!$#<D0vZQ+OM
 Rpvc6;j>$jED`,/xW{7%e=JF>Xmn=HPn}~Io'4NL7rt6/Kjo$_Cq+tRHg{->R}lU%XdDK,JF>avMDY
 Kj4fE'yJ19Kgij|V$MXIE-R.72td$C2#z4.tQ&J?)
In-Reply-To: <m3itjwpr4n.fsf@multivac.cwru.edu> (prj@po.cwru.edu's message of "22 Apr 2001 17:21:22 -0400")
User-Agent: Gnus/5.090002 (Oort Gnus v0.02) Emacs/20.7
Original-Lines: 64
Xref: main.gmane.org gmane.emacs.gnus.general:35994
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:35994

>>>>> "Paul" =3D=3D Paul Jarc <prj@po.cwru.edu> writes:

 > Jost Krieger <Jost.Krieger+gnus@ruhr-uni-bochum.de> writes:
 >> Are there any known problems with nnmaildir and Oort 0.02 ?
 >> I just started with both of them and can't get nnmaildir
 >> running:-)

 > I just upgraded from 0.01 to current (0.03) and nothing seems to have
 > broken.  Let's see your select method and the output of "ls -l" and
 > "ls -lL" in your server directory.  Also, if something is signaling an
 > error, first do M-x set-variable RET debug-on-error RET t RET and send
 > the backtrace when you reach the error.

*This* error simnply went away in a clean Emacs:-)

Now I have my 85 Maildirs and try to activate them.

Another problem, this time I have an idea:
It seems nnmaildir runs into problems with 'gnus-extra-headers.

Here's the backtrace (I've loaded the .el):

Signaling: (wrong-type-argument stringp To)
  string-match("	" To 0)
  (while (string-match "	" field pos) (aset field (match-beginning 0) 32) (=
setq pos (match-end 0)))
  (while extra (setq field (car extra) extra (cdr extra) val (cdr field) fi=
eld (car field) pos 0) (while (string-match "	" field pos) (aset field ... =
32) (setq pos ...)) (setq pos 0) (while (string-match "	" val pos) (aset va=
l ... 32) (setq pos ...)) (setq nov-end (concat nov-end "	" field ": " val)=
))
  (progn (while (string-match "	" field pos) (aset field ... 32) (setq pos =
...)) (setq nov-mid (concat field "	" nov-mid) extra (mail-header-extra nov=
) nov-end "") (while extra (setq field ... extra ... val ... field ... pos =
0) (while ... ... ...) (setq pos 0) (while ... ... ...) (setq nov-end ...))=
 (setq nov-end (if ... "" ...) field (or ... "") pos 0) (while (string-matc=
h "	" field pos) (aset field ... 32) (setq pos ...)) (setq nov-beg field fi=
eld (or ... "") pos 0) (while (string-match "	" field pos) (aset field ... =
32) (setq pos ...)) (setq nov-beg (concat nov-beg "	" field) field (or ... =
"") pos 0) (while (string-match "	" field pos) (aset field ... 32) (setq po=
s ...)) (setq nov-beg (concat nov-beg "	" field) field (mail-header-id nov)=
 pos 0) (while (string-match "	" field pos) (aset field ... 32) (setq pos .=
..)) (setq msgid field))
  (unwind-protect (progn (while ... ... ...) (setq nov-mid ... extra ... no=
v-end "") (while extra ... ... ... ... ...) (setq nov-end ... field ... pos=
 0) (while ... ... ...) (setq nov-beg field field ... pos 0) (while ... ...=
 ...) (setq nov-beg ... field ... pos 0) (while ... ... ...) (setq nov-beg =
... field ... pos 0) (while ... ... ...) (setq msgid field)) (set-match-dat=
a save-match-data-internal))
  (let ((save-match-data-internal ...)) (unwind-protect (progn ... ... ... =
... ... ... ... ... ... ... ... ...) (set-match-data save-match-data-intern=
al)))
  (save-match-data (while (string-match "	" field pos) (aset field ... 32) =
(setq pos ...)) (setq nov-mid (concat field "	" nov-mid) extra (mail-header=
-extra nov) nov-end "") (while extra (setq field ... extra ... val ... fiel=
d ... pos 0) (while ... ... ...) (setq pos 0) (while ... ... ...) (setq nov=
-end ...)) (setq nov-end (if ... "" ...) field (or ... "") pos 0) (while (s=
tring-match "	" field pos) (aset field ... 32) (setq pos ...)) (setq nov-be=
g field field (or ... "") pos 0) (while (string-match "	" field pos) (aset =
field ... 32) (setq pos ...)) (setq nov-beg (concat nov-beg "	" field) fiel=
d (or ... "") pos 0) (while (string-match "	" field pos) (aset field ... 32=
) (setq pos ...)) (setq nov-beg (concat nov-beg "	" field) field (mail-head=
er-id nov) pos 0) (while (string-match "	" field pos) (aset field ... 32) (=
setq pos ...)) (setq msgid field))
  (save-excursion (set-buffer (get-buffer-create " *nnmaildir nov*")) (when=
 (file-exists-p novfile) (erase-buffer) (nnheader-insert-file-contents novf=
ile) (setq nov ...) (nnmaildir--art-set-msgid article ...) (setq nov ...) (=
and ... ...)) (erase-buffer) (nnheader-insert-file-contents file) (insert "=
\n") (goto-char (point-min)) (if (search-forward "\n\n" nil ...) (setq nov-=
mid ...) (setq nov-mid 0)) (goto-char (point-min)) (delete-char 1) (nnheade=
r-fold-continuation-lines) (setq nov (nnheader-parse-head ...) field (or ..=
. 0)) (if (or ... ...) nil (setq nov-mid field)) (setq nov-mid (number-to-s=
tring nov-mid) nov-mid (concat ... "	" nov-mid) field (or ... "") pos 0) (s=
ave-match-data (while ... ... ...) (setq nov-mid ... extra ... nov-end "") =
(while extra ... ... ... ... ...) (setq nov-end ... field ... pos 0) (while=
 ... ... ...) (setq nov-beg field field ... pos 0) (while ... ... ...) (set=
q nov-beg ... field ... pos 0) (while ... ... ...) (setq nov-beg ... field =
... pos 0) (while ... ... ...) (setq msgid field)) (if (or ... ...) (setq m=
sgid ...)) (erase-buffer) (setq nov (nnmaildir--nov-new)) (nnmaildir--nov-s=
et-beg nov nov-beg) (nnmaildir--nov-set-mid nov nov-mid) (nnmaildir--nov-se=
t-end nov nov-end) (nnmaildir--nov-set-mtime nov mtime) (prin1 (list msgid =
nov) (current-buffer)) (setq file (concat novdir ":")) (nnmaildir--unlink f=
ile) (write-region (point-min) (point-max) file nil (quote no-message)))
  (catch (quote return) (setq suffix (nnmaildir--art-get-suffix article)) (=
if (stringp suffix) nil (nnmaildir--art-set-nov article nil) (throw ... nil=
)) (setq gname (nnmaildir--grp-get-name group) pgname (nnmaildir--grp-get-p=
name group) dir (nnmaildir--srv-grp-dir srv-dir gname) msgdir (if ... ... .=
..) prefix (nnmaildir--art-get-prefix article) file (concat msgdir prefix s=
uffix) attr (file-attributes file)) (if attr nil (nnmaildir--art-set-suffix=
 article ...) (nnmaildir--art-set-nov article nil) (throw ... nil)) (setq m=
time (nth 5 attr) attr (nth 7 attr) nov (nnmaildir--art-get-nov article)) (=
and nov (equal mtime ...) (throw ... nov)) (setq novdir (concat ... "nov") =
novdir (file-name-as-directory novdir) novfile (concat novdir prefix)) (sav=
e-excursion (set-buffer ...) (when ... ... ... ... ... ... ...) (erase-buff=
er) (nnheader-insert-file-contents file) (insert "\n") (goto-char ...) (if =
... ... ...) (goto-char ...) (delete-char 1) (nnheader-fold-continuation-li=
nes) (setq nov ... field ...) (if ... nil ...) (setq nov-mid ... nov-mid ..=
. field ... pos 0) (save-match-data ... ... ... ... ... ... ... ... ... ...=
 ... ...) (if ... ...) (erase-buffer) (setq nov ...) (nnmaildir--nov-set-be=
g nov nov-beg) (nnmaildir--nov-set-mid nov nov-mid) (nnmaildir--nov-set-end=
 nov nov-end) (nnmaildir--nov-set-mtime nov mtime) (prin1 ... ...) (setq fi=
le ...) (nnmaildir--unlink file) (write-region ... ... file nil ...)) (rena=
me-file file novfile (quote replace)) (nnmaildir--art-set-msgid article msg=
id) nov)
  (let (dir gname pgname msgdir prefix suffix file attr mtime novdir novfil=
e nov msgid nov-beg nov-mid nov-end field pos extra val deactivate-mark) (c=
atch (quote return) (setq suffix ...) (if ... nil ... ...) (setq gname ... =
pgname ... dir ... msgdir ... prefix ... file ... attr ...) (if attr nil ..=
. ... ...) (setq mtime ... attr ... nov ...) (and nov ... ...) (setq novdir=
 ... novdir ... novfile ...) (save-excursion ... ... ... ... ... ... ... ..=
. ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (ren=
ame-file file novfile ...) (nnmaildir--art-set-msgid article msgid) nov))
  nnmaildir--update-nov("/home/kriegjcb/Maildirs/" ["Maildir-attack" "Maild=
ir-attack" (14942 56991) nil [nil [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 =
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0] [0 0 0 0 0 0 0=
 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 =
0 0 0 0 0 0] nil] [nil nil nil nil nil nil nil nil nil nil nil nil nil nil =
nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil=
 nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil] 0 [0]=
] ["975626311.7770.sunu450" "" 1 nil nil])
  (let ((nov ...) old-lists new-lists) (when nov (setq old-lists ... new-li=
sts ...) (nnmaildir--lists-set-nlist new-lists ...) (nnmaildir--lists-set-f=
list new-lists ...) (nnmaildir--lists-set-mlist new-lists ...) (nnmaildir--=
lists-set-tmpart new-lists article) (nnmaildir--grp-set-lists group new-lis=
ts) (nnmaildir--lists-fix new-lists) (nnmaildir--cache-nov group article no=
v) t))
  nnmaildir--grp-add-art("/home/kriegjcb/Maildirs/" ["Maildir-attack" "Mail=
dir-attack" (14942 56991) nil [nil [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0=
 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0] [0 0 0 0 0 0 =
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0=
 0 0 0 0 0 0] nil] [nil nil nil nil nil nil nil nil nil nil nil nil nil nil=
 nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil ni=
l nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil] 0 [0=
]] ["975626311.7770.sunu450" "" 1 nil nil])
  (if (nnmaildir--grp-add-art srv-dir group x) (setq num (1+ num)))
  (while files (setq file (caar files) files (cdr files) x (nnmaildir--art-=
new)) (nnmaildir--art-set-prefix x (car file)) (nnmaildir--art-set-suffix x=
 (cdr file)) (nnmaildir--art-set-num x (1+ num)) (if (nnmaildir--grp-add-ar=
t srv-dir group x) (setq num ...)))
  (catch (quote return) (setq absdir (file-name-as-directory ...) nndir (nn=
maildir--nndir absdir)) (if (file-attributes absdir) nil (nnmaildir--srv-se=
t-error nnmaildir--cur-server ...) (throw ... nil)) (setq tdir (nnmaildir--=
tmp absdir) ndir (nnmaildir--new absdir) cdir (nnmaildir--cur absdir) nattr=
 (file-attributes ndir) cattr (file-attributes cdir)) (if (and ... nattr ca=
ttr) nil (nnmaildir--srv-set-error nnmaildir--cur-server ...) (throw ... ni=
l)) (setq group (nnmaildir--prepare nil gname)) (if group (setq isnew nil p=
gname ...) (setq isnew t group ... pgname ...) (nnmaildir--grp-set-name gro=
up gname) (nnmaildir--grp-set-pname group pgname) (nnmaildir--grp-set-lists=
 group ...) (nnmaildir--grp-set-index group 0) (nnmaildir--mkdir nndir) (nn=
maildir--mkdir ...) (nnmaildir--mkdir ...) (write-region "" nil ... nil ...=
)) (setq read-only (nnmaildir--param pgname ...) ls (or ... srv-ls)) (if re=
ad-only nil (setq x ...) (if ... nil ... ...) (setq files ...) (while files=
 ... ...)) (or scan-msgs isnew (throw ... t)) (setq nattr (nth 5 nattr)) (i=
f (equal nattr ...) (setq nattr nil)) (if read-only (setq dir ...) (when ..=
. ... ... ...) (setq cattr ... cattr ...) (if ... ...) (setq dir ...)) (if =
dir nil (throw ... t)) (setq files (funcall ls dir nil "\\`[^.]" ...)) (whe=
n isnew (setq x ... num 1) (while ... ...) (if ... ...) (setq x ...) (nnmai=
ldir--lists-set-flist x ...) (nnmaildir--lists-set-mlist x ...) (nnmaildir-=
-grp-set-mmth group ...) (setq num ...) (if ... ... ... ...) (nnmaildir--gr=
p-set-cache group ...) (nnmaildir--srv-set-tmpgrp nnmaildir--cur-server gro=
up) (set ... group) (nnmaildir--srv-set-tmpgrp nnmaildir--cur-server nil) (=
or scan-msgs ...)) (setq flist (nnmaildir--grp-get-lists group) num (nnmail=
dir--lists-get-nlist flist) flist (nnmaildir--lists-get-flist flist) num (n=
nmaildir--nlist-last-num num) x files files nil) (while x (setq file ... x =
...) (string-match "\\`\\([^:]*\\)\\(\\(:.*\\)?\\)\\'" file) (setq file ...=
) (if ... nil ...)) (setq files (mapcar ... files) files (sort files ...)) =
(while files (setq file ... files ... x ...) (nnmaildir--art-set-prefix x .=
..) (nnmaildir--art-set-suffix x ...) (nnmaildir--art-set-num x ...) (if ..=
. ...)) (if read-only (nnmaildir--grp-set-new group nattr) (nnmaildir--grp-=
set-cur group cattr)) t)
  (lambda (gname scan-msgs) (catch (quote return) (setq absdir ... nndir ..=
.) (if ... nil ... ...) (setq tdir ... ndir ... cdir ... nattr ... cattr ..=
.) (if ... nil ... ...) (setq group ...) (if group ... ... ... ... ... ... =
... ... ... ...) (setq read-only ... ls ...) (if read-only nil ... ... ... =
...) (or scan-msgs isnew ...) (setq nattr ...) (if ... ...) (if read-only .=
.. ... ... ... ...) (if dir nil ...) (setq files ...) (when isnew ... ... .=
.. ... ... ... ... ... ... ... ... ... ... ...) (setq flist ... num ... fli=
st ... num ... x files files nil) (while x ... ... ... ...) (setq files ...=
 files ...) (while files ... ... ... ... ...) (if read-only ... ...) t))("M=
aildir-attack" t)
  funcall((lambda (gname scan-msgs) (catch (quote return) (setq absdir ... =
nndir ...) (if ... nil ... ...) (setq tdir ... ndir ... cdir ... nattr ... =
cattr ...) (if ... nil ... ...) (setq group ...) (if group ... ... ... ... =
... ... ... ... ... ...) (setq read-only ... ls ...) (if read-only nil ... =
... ... ...) (or scan-msgs isnew ...) (setq nattr ...) (if ... ...) (if rea=
d-only ... ... ... ... ...) (if dir nil ...) (setq files ...) (when isnew .=
.. ... ... ... ... ... ... ... ... ... ... ... ... ...) (setq flist ... num=
 ... flist ... num ... x files files nil) (while x ... ... ... ...) (setq f=
iles ... files ...) (while files ... ... ... ... ...) (if read-only ... ...=
) t)) "Maildir-attack" t)
  (if (funcall scan scan-group t) nil (unintern scan-group groups))
  (if (stringp scan-group) (if (funcall scan scan-group t) nil (unintern sc=
an-group groups)) (setq x (nth 5 ...)) (if (equal x ...) (if scan-group nil=
 ...) (setq dirs ... x ... seen 1) (while ... ...) (if ... ...) (setq seen =
... scan-group ...) (while dirs ... ...) (setq x nil) (mapatoms ... groups)=
 (while x ... ...) (nnmaildir--srv-set-mtime nnmaildir--cur-server ...)))
  (progn (if (stringp scan-group) (if ... nil ...) (setq x ...) (if ... ...=
 ... ... ... ... ... ... ... ... ...)))
  (unwind-protect (progn (if ... ... ... ...)) (set-match-data save-match-d=
ata-internal))
  (let ((save-match-data-internal ...)) (unwind-protect (progn ...) (set-ma=
tch-data save-match-data-internal)))
  (save-match-data (if (stringp scan-group) (if ... nil ...) (setq x ...) (=
if ... ... ... ... ... ... ... ... ... ... ...)))
  (save-excursion (set-buffer (get-buffer-create " *nnmaildir work*")) (sav=
e-match-data (if ... ... ... ...)))
  (let ((36h-ago ...) (coding-system-for-write nnheader-file-coding-system)=
 (buffer-file-coding-system nil) (file-coding-system-alist nil) x srv-ls sr=
v-dir method groups scan absdir nndir tdir ndir cdir nattr cattr group isne=
w pgname read-only ls files file num dirs grp-dir dir flist seen deactivate=
-mark) (nnmaildir--prepare server nil) (setq srv-ls (nnmaildir--srv-get-ls =
nnmaildir--cur-server) srv-dir (nnmaildir--srv-get-dir nnmaildir--cur-serve=
r) method (nnmaildir--srv-get-method nnmaildir--cur-server) groups (nnmaild=
ir--srv-get-groups nnmaildir--cur-server) scan (function ...)) (save-excurs=
ion (set-buffer ...) (save-match-data ...)))
  nnmaildir-request-scan("Maildir-attack" "")
  gnus-request-scan("nnmaildir:Maildir-attack" (nnmaildir "" (directory "~/=
Maildirs")))
  gnus-activate-group("nnmaildir:Maildir-attack" scan)
  gnus-group-get-new-news-this-group(nil)
  gnus-topic-get-new-news-this-topic(nil)
* call-interactively(gnus-topic-get-new-news-this-topic)

Now I'll try and find out how to deactivate this for the nnmaildir server .=
..

Jost
--=20
| Jost.Krieger@ruhr-uni-bochum.de      Please help stamp out spam! |
| Postmaster, JAPH, resident answer machine          am RZ der RUB |
| Pluralitas non est ponenda sine necessitate                      |
|                                 William of Ockham (1285-1347/49) |