From: bg66 <bg66>
Date: Wed, 14 Mar 2007 08:10:56 +0000 (+0000)
Subject: * mixi-atom.el (mixi-make-atom): Use `concat' instead of `insert'.
X-Git-Tag: mixi-el-1_0_0~54
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=cb2d9ecc1352901421d0d85430bc3582038ba1cd;p=elisp%2Fmixi.git

* mixi-atom.el (mixi-make-atom): Use `concat' instead of `insert'.
(mixi-atom-cgi): New function.
(mixi-atom-file): Rename from `mixi-make-atom-file'.
---

diff --git a/ChangeLog b/ChangeLog
index 400231b..4b13e9e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2007-03-14  OHASHI Akira  <bg66@koka-in.org>
+
+	* mixi-atom.el (mixi-make-atom): Use `concat' instead of `insert'.
+	(mixi-atom-cgi): New function.
+	(mixi-atom-file): Rename from `mixi-make-atom-file'.
+
 2007-03-12  OHASHI Akira  <bg66@koka-in.org>
 
 	* mixi-atom.el (mixi-atom-file): New user option.
diff --git a/mixi-atom.el b/mixi-atom.el
index 2ac5e12..3c955e9 100644
--- a/mixi-atom.el
+++ b/mixi-atom.el
@@ -116,10 +116,9 @@ RANGE is the range for getting articles.  If RANGE is nil, get all articles."
 	    objects)
     entries))
 
-;;;###autoload
 (defun mixi-make-atom ()
   "Make Atom Syndication Format"
-  (insert "<?xml version=\"1.0\" encoding=\""
+  (concat "<?xml version=\"1.0\" encoding=\""
 	  (symbol-name mixi-atom-coding-system) "\"?>\n"
 	  "<feed xmlns=\"" mixi-atom-namespace "\">\n"
 	  "\n"
@@ -146,9 +145,17 @@ RANGE is the range for getting articles.  If RANGE is nil, get all articles."
 	  "</feed>\n"))
 
 ;;;###autoload
-(defun mixi-make-atom-file ()
+(defun mixi-atom-cgi ()
+  (princ (concat "Content-Type: application/atom+xml; charset="
+		 (symbol-name mixi-atom-coding-system) "\n"
+		 "\n"
+		 (encode-coding-string (mixi-make-atom)
+				       mixi-atom-coding-system))))
+
+;;;###autoload
+(defun mixi-atom-file ()
   (with-temp-buffer
-    (mixi-make-atom)
+    (insert (mixi-make-atom))
     (let ((coding-system-for-write mixi-atom-coding-system)
 	  (file (expand-file-name mixi-atom-file)))
       (write-region (point-min) (point-max) file))))