From 175f0a983bef22515bceb95a643bd7369c3ec64c Mon Sep 17 00:00:00 2001 From: bg66 Date: Tue, 26 Dec 2006 07:53:58 +0000 Subject: [PATCH] Fix the last change. --- mixi.el | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/mixi.el b/mixi.el index e5af222..3278bbf 100644 --- a/mixi.el +++ b/mixi.el @@ -41,6 +41,10 @@ ;; * mixi-get-new-comments ;; * mixi-get-messages ;; * mixi-get-introductions +;; +;; API for posting: +;; +;; * mixi-post-diary ;; ;; Utilities: ;; @@ -272,7 +276,7 @@ Increase this value when unexpected error frequently occurs." ;; FIXME: Support file, checkbox and so on. (defun mixi-make-form-data (fields) - "Make form data and eturn (CONTENT-TYPE . FORM-DATA)." + "Make form data and return (CONTENT-TYPE . FORM-DATA)." (let* ((boundary (apply 'format "--_%d_%d_%d" (current-time))) (content-type (concat "multipart/form-data; boundary=" boundary)) (form-data @@ -1281,13 +1285,13 @@ Increase this value when unexpected error frequently occurs." (mixi-post-error 'cannot-find-key)) (if (string-match mixi-post-diary-id-regexp buffer) (setq id (match-string 1 buffer)) - (mixi-error 'cannot-find-id)) + (mixi-post-error 'cannot-find-id)) (if (string-match mixi-post-diary-title-regexp buffer) (setq diary-title (match-string 1 buffer)) - (mixi-error 'cannot-find-title)) + (mixi-post-error 'cannot-find-title)) (if (string-match mixi-post-diary-body-regexp buffer) (setq diary-body (match-string 1 buffer)) - (mixi-error 'cannot-find-body))) + (mixi-post-error 'cannot-find-body))) (setq fields `(("post_key" . ,post-key) ("id" . ,id) ("diary_title" . ,diary-title) @@ -1295,7 +1299,7 @@ Increase this value when unexpected error frequently occurs." ("submit" . "confirm"))) (with-mixi-post-form "/add_diary.pl" fields (unless (string-match mixi-post-diary-succeed-regexp buffer) - (mixi-error 'cannot-find-succeed))))) + (mixi-post-error 'cannot-find-succeed))))) ;; Community object. (defvar mixi-community-cache (make-hash-table :test 'equal)) -- 1.7.10.4