やたがわです。
url-retrieve{,-synchronously}を呼び出している箇所で、
常に取得が成功することを期待した実装になっています。
response-codeを見るようにしたほうがよいのではないで
しょうか。
あと、search-forward-regexpの成否も見たほうがいいと
思います。私も以前同じ轍を踏みましたが…
自分で修正できるほどには体調がよくないので、指摘だけで
スミマセン。
> (defun twittering-tinyurl-get (longurl)
:
> (let ((buffer (url-retrieve-synchronously (concat api longurl))))
> (set-buffer buffer)
> (goto-char (point-min))
> (search-forward-regexp "\n\r?\n\\([^\n\r]*\\)")
> (prog1
> (match-string-no-properties 1)
> (kill-buffer buffer))))
> nil)))
------------------------------------------------------------------------------
This SF.Net email is sponsored by the Verizon Developer Community
Take advantage of Verizon's best-in-class app development support
A streamlined, 14 day to market process makes app distribution fast and easy
Join now and get one step closer to millions of Verizon customers
http://p.sf.net/sfu/verizon-dev2dev
_______________________________________________
twmode-users mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/twmode-users
