(defun fortune-cookie ()
"fortune cookie"
(interactive)
(let ((in))
(with-open-stream (stream (connect "www.new-year.co.uk" 80))
(format stream "GET /chinese/cookie.cfm HTTP/1.1\nHost: www.new-year.co.uk:80\n\n")
(set-stream-encoding stream :binary)
(while (setq in (read-line stream nil))
(setq in (map-euc-to-sjis in))
(if (string-match "\<strong\>" in)
(progn
(setq in (read-line stream nil))
(setq in (map-euc-to-sjis in))
(setq in (substitute-string in "\t" ""))
(setq in (substitute-string in "\r" ""))
(message in)))))))