>>351
--- navi2ch-article.el 18 Mar 2004 22:39:48 -0000 1.234
+++ navi2ch-article.el 23 Mar 2004 00:50:41 -0000
@@ -821,7 +821,7 @@
(defun navi2ch-article-message-filter-subr (rules string)
(let (score)
(catch 'loop
- (dolist (rule rules)
+ (dolist (rule (copy-sequence rules))
(let* ((char (and (listp (car rule))
(string-to-char (symbol-name (cadar rule)))))
(case-fold-search (and char
これで直る?