diff --git a/ChangeLog b/ChangeLog index 1c8a8e0..db9a719 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,12 @@ +2008-01-23 Naohiro Aota + + * navi2ch-article.el (navi2ch-article-get-last-read-number): + article そのものではなく、 article のコピーを + navi2ch-article-load-info() に渡すように。 + + * navi2ch-board.el (navi2ch-board-insert-subjects): Revert the + last change. + 2008-01-22 Naohiro Aota * navi2ch-vars.el (navi2ch-article-message-filter-list): diff --git a/navi2ch-article.el b/navi2ch-article.el index 5276e7f..ef1e06d 100644 --- a/navi2ch-article.el +++ b/navi2ch-article.el @@ -1389,7 +1389,7 @@ FIRST が nil ならば、ファイルが更新されてなければ何もしない。" navi2ch-article-important-mode) (cdr (assq 'number navi2ch-article-current-article)) (navi2ch-article-get-current-number)))) - (setq article (navi2ch-article-load-info board article)) + (setq article (navi2ch-article-load-info board (copy-alist article))) (setq hide (cdr (assq 'hide article)) num (cdr (assq 'number article)))) (when num diff --git a/navi2ch-board.el b/navi2ch-board.el index 5ab92b5..ec208ba 100644 --- a/navi2ch-board.el +++ b/navi2ch-board.el @@ -316,7 +316,7 @@ (read (and navi2ch-board-insert-subject-with-unread (navi2ch-article-get-last-read-number navi2ch-board-current-board - (copy-tree article))))) + article)))) (concat "(" (format "%4s" res) (and navi2ch-board-insert-subject-with-diff