Browse files

mimizun url change

  • Loading branch information...
1 parent 19ec0cb commit c124aad5541fdecfe382decd3f4bbc24da710652 MIZUNUMA Yuto committed with Jan 24, 2011
Showing with 6 additions and 5 deletions.
  1. +4 −0 ChangeLog
  2. +2 −5 navi2ch-multibbs.el
View
4 ChangeLog
@@ -1,3 +1,7 @@
+2011-01-17 MIZUNUMA Yuto <mizmiz@sf.net>
+
+ * navi2ch-multibbs.el: ??????????????????????????????????????????
+
2011-01-16 MIZUNUMA Yuto <mizmiz@sf.net>
* navi2ch-p2.el (navi2ch-p2-make-deny-list): ?????????????????????????????????
View
7 navi2ch-multibbs.el
@@ -371,11 +371,8 @@ START $B$,(B non-nil $B$J$i$P%l%9HV9f(B START $B$+$i$N:9J,$r<hF@$9$k!#(B
navi2ch-2ch-mimizun
(y-or-n-p "$B$_$_$:$s$+$i(Bdat$B$r<hF@$7$^$9$+!)(B"))
(let* ((boardid (cdr (assq 'id board)))
- (artid (cdr (assq 'artid article)))
- (server (cdr (assq 'uri board)))
- (id4 (substring artid 0 4))
- (id5 (substring artid 0 5)))
- (setq url (concat "http://mimizun.com/log/2ch/" boardid "/" (substring server 7) "kako/" id4 "/" id5 "/" artid ".dat"))
+ (artid (cdr (assq 'artid article))))
+ (setq url (concat "http://mimizun.com/log/2ch/" boardid "/" artid ".dat"))
(message "mimizun url:%s" url)
(setq header (navi2ch-net-update-file url file))
(if (navi2ch-net-get-state 'error header)

0 comments on commit c124aad

Please sign in to comment.