即効修正

うぉー！みすった。タイトルが渡されて無いじゃん！
修正しなおし。

--- ht.l	Thu Apr 23 16:40:42 2009
+++ ht.l.0423	Thu Apr 23 16:40:16 2009
@@ -154,15 +154,15 @@
 (defun hateda-post ()
   (interactive "p")
   (load-config)
-  (let* ((title (read-string "Entry Title: "))
-	 (data (list
-		(list
-		 "entry"
-		 '(("xmlns" . "http://purl.org/atom/ns#"))
-		 (cons "title" (cons nil (cons title nil)))
-		 (cons "content" (cons nil (cons (buffer-substring (point-min) (point-max)) nil)))
-		 ))))
-    ;(msgbox "~S" data)
+  (let ((title (read-string "Entry Title: "))
+	(data (list
+	       (list
+		"entry"
+		'(("xmlns" . "http://purl.org/atom/ns#"))
+		(cons "title" (cons nil (cons title nil)))
+		(cons "content" (cons nil (cons (buffer-substring (point-min) (point-max)) nil)))
+		))))
+    (msgbox "~S" data)
     (hateda-post-new data *hateda-user-url*)
     ))