function! s:HatenaUpdate(...)
if !exists('b:hatena_login_info')
|| !exists('b:year')
|| !exists('b:month')
|| !exists('b:day')
|| !exists('b:day_title')
|| !exists('b:rkm')
echoerr ':HatanaEdit してから :HatenaUpdate して下さい'
return
endif
if !exists('b:hatena_login_info')
let b:hatena_login_info = s:HatenaLogin()
if !len(b:hatena_login_info)
return
endif
endif
let [base_url, user, cookie_file] = b:hatena_login_info
if a:0 > 0
let b:day_title = a:1
endif
if &modified
write
endif
let body_file = expand('%')
let diary={'timestamp':b:timestamp,
'rkm':b:rkm,
'year':b:year,
'month':b:month,
'day':b:day,
'day_title':b:day_title}
let result=HatenaPost(
base_url,user,cookie_file,diary,body_file)
echo '更新しました'
endfunction