* oort 0.02 and nnmaildir
@ 2001-04-22 18:22 Jost Krieger
2001-04-22 21:21 ` Paul Jarc
0 siblings, 1 reply; 3+ messages in thread
From: Jost Krieger @ 2001-04-22 18:22 UTC (permalink / raw)
Are there any known problems with nnmaildir and Oort 0.02 ?
I just started with both of them and can't get nnmaildir
running:-)
Just checking for any known stuff, if it isn't known, I'll
provide lots of detaal ...
Jost
--
| 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) |
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: oort 0.02 and nnmaildir
2001-04-22 18:22 oort 0.02 and nnmaildir Jost Krieger
@ 2001-04-22 21:21 ` Paul Jarc
2001-04-23 16:02 ` Jost Krieger
0 siblings, 1 reply; 3+ messages in thread
From: Paul Jarc @ 2001-04-22 21:21 UTC (permalink / raw)
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.
paul
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: oort 0.02 and nnmaildir
2001-04-22 21:21 ` Paul Jarc
@ 2001-04-23 16:02 ` Jost Krieger
0 siblings, 0 replies; 3+ messages in thread
From: Jost Krieger @ 2001-04-23 16:02 UTC (permalink / raw)
>>>>> "Paul" == 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) field (car field) pos 0) (while (string-match " " field pos) (aset field ... 32) (setq pos ...)) (setq pos 0) (while (string-match " " val pos) (aset val ... 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-match " " field pos) (aset field ... 32) (setq pos ...)) (setq nov-beg field field (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 pos ...)) (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 ... nov-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-data save-match-data-internal))
(let ((save-match-data-internal ...)) (unwind-protect (progn ... ... ... ... ... ... ... ... ... ... ... ...) (set-match-data save-match-data-internal)))
(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 ... field ... pos 0) (while ... ... ...) (setq pos 0) (while ... ... ...) (setq nov-end ...)) (setq nov-end (if ... "" ...) field (or ... "") pos 0) (while (string-match " " field pos) (aset field ... 32) (setq pos ...)) (setq nov-beg field field (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 pos ...)) (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))
(save-excursion (set-buffer (get-buffer-create " *nnmaildir nov*")) (when (file-exists-p novfile) (erase-buffer) (nnheader-insert-file-contents novfile) (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) (nnheader-fold-continuation-lines) (setq nov (nnheader-parse-head ...) field (or ... 0)) (if (or ... ...) nil (setq nov-mid field)) (setq nov-mid (number-to-string nov-mid) nov-mid (concat ... " " nov-mid) field (or ... "") pos 0) (save-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 ... ... ...) (setq nov-beg ... field ... pos 0) (while ... ... ...) (setq nov-beg ... field ... pos 0) (while ... ... ...) (setq msgid field)) (if (or ... ...) (setq msgid ...)) (erase-buffer) (setq nov (nnmaildir--nov-new)) (nnmaildir--nov-set-beg nov nov-beg) (nnmaildir--nov-set-mid nov nov-mid) (nnmaildir--nov-set-end nov nov-end) (nnmaildir--nov-set-mtime nov mtime) (prin1 (list msgid nov) (current-buffer)) (setq file (concat novdir ":")) (nnmaildir--unlink file) (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-pname group) dir (nnmaildir--srv-grp-dir srv-dir gname) msgdir (if ... ... ...) prefix (nnmaildir--art-get-prefix article) file (concat msgdir prefix suffix) attr (file-attributes file)) (if attr nil (nnmaildir--art-set-suffix article ...) (nnmaildir--art-set-nov article nil) (throw ... nil)) (setq mtime (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)) (save-excursion (set-buffer ...) (when ... ... ... ... ... ... ...) (erase-buffer) (nnheader-insert-file-contents file) (insert "\n") (goto-char ...) (if ... ... ...) (goto-char ...) (delete-char 1) (nnheader-fold-continuation-lines) (setq nov ... field ...) (if ... nil ...) (setq nov-mid ... nov-mid ... field ... pos 0) (save-match-data ... ... ... ... ... ... ... ... ... ... ... ...) (if ... ...) (erase-buffer) (setq nov ...) (nnmaildir--nov-set-beg 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 file ...) (nnmaildir--unlink file) (write-region ... ... file nil ...)) (rename-file file novfile (quote replace)) (nnmaildir--art-set-msgid article msgid) nov)
(let (dir gname pgname msgdir prefix suffix file attr mtime novdir novfile nov msgid nov-beg nov-mid nov-end field pos extra val deactivate-mark) (catch (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 ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (rename-file file novfile ...) (nnmaildir--art-set-msgid article msgid) nov))
nnmaildir--update-nov("/home/kriegjcb/Maildirs/" ["Maildir-attack" "Maildir-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-lists ...) (nnmaildir--lists-set-nlist new-lists ...) (nnmaildir--lists-set-flist new-lists ...) (nnmaildir--lists-set-mlist new-lists ...) (nnmaildir--lists-set-tmpart new-lists article) (nnmaildir--grp-set-lists group new-lists) (nnmaildir--lists-fix new-lists) (nnmaildir--cache-nov group article nov) t))
nnmaildir--grp-add-art("/home/kriegjcb/Maildirs/" ["Maildir-attack" "Maildir-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])
(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-art srv-dir group x) (setq num ...)))
(catch (quote return) (setq absdir (file-name-as-directory ...) nndir (nnmaildir--nndir absdir)) (if (file-attributes absdir) nil (nnmaildir--srv-set-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 cattr) nil (nnmaildir--srv-set-error nnmaildir--cur-server ...) (throw ... nil)) (setq group (nnmaildir--prepare nil gname)) (if group (setq isnew nil pgname ...) (setq isnew t group ... pgname ...) (nnmaildir--grp-set-name group gname) (nnmaildir--grp-set-pname group pgname) (nnmaildir--grp-set-lists group ...) (nnmaildir--grp-set-index group 0) (nnmaildir--mkdir nndir) (nnmaildir--mkdir ...) (nnmaildir--mkdir ...) (write-region "" nil ... nil ...)) (setq read-only (nnmaildir--param pgname ...) ls (or ... srv-ls)) (if read-only nil (setq x ...) (if ... nil ... ...) (setq files ...) (while files ... ...)) (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 ... cattr ...) (if ... ...) (setq dir ...)) (if dir nil (throw ... t)) (setq files (funcall ls dir nil "\\`[^.]" ...)) (when isnew (setq x ... num 1) (while ... ...) (if ... ...) (setq x ...) (nnmaildir--lists-set-flist x ...) (nnmaildir--lists-set-mlist x ...) (nnmaildir--grp-set-mmth group ...) (setq num ...) (if ... ... ... ...) (nnmaildir--grp-set-cache group ...) (nnmaildir--srv-set-tmpgrp nnmaildir--cur-server group) (set ... group) (nnmaildir--srv-set-tmpgrp nnmaildir--cur-server nil) (or scan-msgs ...)) (setq flist (nnmaildir--grp-get-lists group) num (nnmaildir--lists-get-nlist flist) flist (nnmaildir--lists-get-flist flist) num (nnmaildir--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 ... flist ... num ... x files files nil) (while x ... ... ... ...) (setq files ... files ...) (while files ... ... ... ... ...) (if read-only ... ...) t))("Maildir-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 read-only ... ... ... ... ...) (if dir nil ...) (setq files ...) (when isnew ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (setq flist ... num ... flist ... num ... x files files nil) (while x ... ... ... ...) (setq files ... 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 scan-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-data-internal))
(let ((save-match-data-internal ...)) (unwind-protect (progn ...) (set-match-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*")) (save-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 srv-dir method groups scan absdir nndir tdir ndir cdir nattr cattr group isnew 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-server) method (nnmaildir--srv-get-method nnmaildir--cur-server) groups (nnmaildir--srv-get-groups nnmaildir--cur-server) scan (function ...)) (save-excursion (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
--
| 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) |
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~2001-04-23 16:02 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2001-04-22 18:22 oort 0.02 and nnmaildir Jost Krieger
2001-04-22 21:21 ` Paul Jarc
2001-04-23 16:02 ` Jost Krieger
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).