Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Code clean up.

  • Loading branch information...
commit 906e6b9f40c4ccd9ad596f274873500f7d234c0c 1 parent 57f54b2
@naota authored
Showing with 8 additions and 7 deletions.
  1. +8 −7 navi2ch-article.el
View
15 navi2ch-article.el
@@ -1430,7 +1430,7 @@ FIRST $B$,(B nil $B$J$i$P!"%U%!%$%k$,99?7$5$l$F$J$1$l$P2?$b$7$J$$!#(B"
navi2ch-article-view-range))))
(navi2ch-article-load-number)
(navi2ch-article-save-info board article first)
- (navi2ch-article-thread-stop-p)
+ (navi2ch-article-thread-stop-p)
(navi2ch-article-set-mode-line)
(run-hooks 'navi2ch-article-after-sync-hook)
list)
@@ -1629,8 +1629,8 @@ FIRST $B$,(B nil $B$J$i$P!"%U%!%$%k$,99?7$5$l$F$J$1$l$P2?$b$7$J$$!#(B"
(cond
((eq char ?s)
(if (cdr (assq 'stop article))
- "$B%9%l%9%H(B"
- ""))
+ "$B%9%l%9%H(B"
+ ""))
((eq char ?a)
(or (cdr (assq 'subject article))
navi2ch-bm-empty-subject))
@@ -1651,11 +1651,12 @@ FIRST $B$,(B nil $B$J$i$P!"%U%!%$%k$,99?7$5$l$F$J$1$l$P2?$b$7$J$$!#(B"
(defun navi2ch-article-thread-stop-p ()
(if (cdr (assq 'stop navi2ch-article-current-article))
t
- ;;$B%9%l%9%H$5$l$F$$$k%9%l(B($BF|IUMs(B=$BDd;_$GH=CG(B)
+ ;; $B%9%l%9%H$5$l$F$$$k%9%l(B($BF|IUMs(B=$BDd;_$GH=CG(B)
(when (string-match "^$BDd;_(B" (cdr (assq 'date (navi2ch-article-get-message (length navi2ch-article-message-list)))))
(setq navi2ch-article-current-article
- (navi2ch-put-alist 'stop t navi2ch-article-current-article))
- (navi2ch-article-save-info navi2ch-article-current-board navi2ch-article-current-article))))
+ (navi2ch-put-alist 'stop t navi2ch-article-current-article))
+ (navi2ch-article-save-info
+ navi2ch-article-current-board navi2ch-article-current-article))))
(defun navi2ch-article-sync-disable-diff (&optional force)
(interactive "P")
@@ -1782,7 +1783,7 @@ FIRST $B$,(B nil $B$J$i$P!"%U%!%$%k$,99?7$5$l$F$J$1$l$P2?$b$7$J$$!#(B"
(navi2ch-article-save-number)
(navi2ch-message-write-message navi2ch-article-current-board
navi2ch-article-current-article
- nil sage cite)))
+ nil sage cite)))
(defun navi2ch-article-write-sage-message ()
(interactive)
Please sign in to comment.
Something went wrong with that request. Please try again.