レス数が1000を超えています。残念ながら全部は表示しません。

Navi2ch for Emacs (part 6)

166 ：名無しさん＠Ｍｅａｄｏｗ ：02/06/28 09:47

前スレ http://pc.2ch.net/test/read.cgi/unix/1013457056/
の >>864
> そのあとMeadowだとapplying board change...でだんまりを決め込むようになっ
> てしまい、しょうがないんで
>
> (setq navi2ch-list-sync-update-on-boot nil)
>
> してます。

うちは WinMe + Meadow-1.14.2pre3 + Navi2ch-1.5.2 で同じ症状でした.
(Navi2ch のしばらく前の snapshot から同じです). どうやら navi2ch.el の
navi2ch-change-log-directory の中の
(rename-file new-dir tmp-dir)
(rename-file old-dir new-dir)
で, new-dir が '/' で終わる directory　名だとそこで固まるみたいです.

それで, うちでは .emacs に

(eval-after-load "navi2ch"
'(progn
(defun my-navi2ch-chop-/ (dirname)
(save-match-data
(if (string-match "^\\(.*\\)/$" dirname)
(match-string 1 dirname)
dirname)))
(defun my-navi2ch-change-log-directory (changed-list)
"変更された板のログを保存するディレクトリを修正する。
CHANGED-LIST については `navi2ch-list-get-changed-status' を参照。"
(dolist (node changed-list)
(let ((old-dir (navi2ch-board-get-file-name (cadr node) ""))
(new-dir (navi2ch-board-get-file-name (caddr node) ""))
tmp-dir)
(when (file-exists-p old-dir)
(when (file-exists-p new-dir)
(catch 'loop
(while t
(setq tmp-dir (expand-file-name
(make-temp-name (concat "navi2ch-"
(car node)))
(navi2ch-temp-directory)))
(unless (file-exists-p tmp-dir)
(throw 'loop nil))))
(rename-file (my-navi2ch-chop-/ new-dir)
(my-navi2ch-chop-/ tmp-dir)))
(make-directory (expand-file-name ".." new-dir) t)
(rename-file (my-navi2ch-chop-/ old-dir)
(my-navi2ch-chop-/ new-dir))))))

(fset 'navi2ch-change-log-directory
'my-navi2ch-change-log-directory)))

と書いているのですが, これだと ver.up に耐えられないので,
できたら元で対処してもらえないでしょうか.

read.cgi ver5.26+ (01/10/21-)