From 6881984b54f99d443d7a8f1a13bae5b3a7f4f84b Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sat, 1 Feb 2014 20:54:36 -0800 Subject: [PATCH] Decode Cloud data --- lisp/gnus-cloud.el | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/lisp/gnus-cloud.el b/lisp/gnus-cloud.el index 2018dc2bc..9812d85d3 100644 --- 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 -- 2.25.1