Add function weibo-url-shorten-at-point in weibo.el.