Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

sync to bzr

  • Loading branch information...
commit abf518e73a350fc62df55f26c90382700ba5769b 1 parent b08d090
nawota authored
Showing with 6 additions and 2 deletions.
  1. +3 −0  ChangeLog
  2. +1 −1  navi2ch-board-misc.el
  3. +2 −1  navi2ch-board.el
View
3  ChangeLog
@@ -1,5 +1,8 @@
2010-01-10 Naohiro Aota <naota@elisp.net>
+ * navi2ch-board.el (navi2ch-board-get-matched-article): compressed
+ も nil にする。
+
* navi2ch-board-misc.el (navi2ch-bm-down-article-p): down 属性が不
明な時だけ、 article を読みこむように。
View
2  navi2ch-board-misc.el
@@ -239,7 +239,7 @@
(let ((item (assq 'down article)))
(if item
(cdr item)
- (cdr (navi2ch-article-load-info board article)))))
+ (cdr (assq 'down (navi2ch-article-load-info board article))))))
(defun navi2ch-bm-get-state-from-article (board article)
(cond ((navi2ch-board-from-file-p board)
View
3  navi2ch-board.el
@@ -202,7 +202,8 @@
(list (cons 'subject str)
(cons 'response num)
(cons 'artid id)
- (cons 'down nil))))
+ (cons 'down nil)
+ (cons 'compressed nil))))
(defun navi2ch-board-url-to-board (url)
"URL $B$+$i(B board $B$rF@$k!#(B"
Please sign in to comment.
Something went wrong with that request. Please try again.