Decode Cloud data

[gnus] / lisp / gnus-cloud.el

diff --git a/lisp/gnus-cloud.el b/lisp/gnus-cloud.el
index 2018dc2..9812d85 100644 (file)
--- a/lisp/gnus-cloud.el
+++ b/lisp/gnus-cloud.el
@@ -72,10 +72,20 @@
     (buffer-string)))
 
 (defun gnus-cloud-encode-data ()
-  (call-process-region (point-min) (point-max) "gzip" t (current-buffer) nil
+  (call-process-region (point-min) (point-max) "gzip"
+                      t (current-buffer) nil
                       "-c")
   (base64-encode-region (point-min) (point-max)))
 
+(defun gnus-cloud-decode-data ()
+  (base64-decode-region (point-min) (point-max))
+  (call-process-region (point-min) (point-max) "gunzip"
+                      t (current-buffer) nil
+                      "-c"))
+
+(defun gnus-cloud-parse-chunk ()
+  )
+
 (provide 'gnus-cloud)
 
 ;;; gnus-cloud.el ends here