08/09/29 23:11:33
正常な時だとこんな感じですが、
(cond ((or ... ... ...) (setq header ...)) ((string= status "200") (message ... ...) (setq cont ...) (when ... ... ...) (if ... ... ... ...)) ((and location ... ...) (setq url ... redo t) (message "%s: Redirecting..." ...))
((string= status "304") (setq header ...)) (t (setq header ...)))
(while redo (setq redo nil proc (navi2ch-net-download-file url time ... other-header) status (and proc ...) header (and proc ...)) (cond (... ...) (... ... ... ... ...) (... ... ...) (... ...) (t ...)))
(let ((coding-system-for-write ...) (coding-system-for-read ...) (redo t) proc status header cont) (while redo (setq redo nil proc ... status ... header ...) (cond ... ... ... ... ...)) header)
navi2ch-net-update-file("URLﾘﾝｸ(gimpo.2ch.net)" "/home/zaurus/.navi2ch/gimpo.2ch.net/ramen/subject.txt" "Mon, 29 Sep 2008 13:47:24 GMT" navi2ch-2ch-subject-callback)