From 9ad05bec03bef4022786c5c1c79b3bca96e9d502 Mon Sep 17 00:00:00 2001 From: Ted Zlatanov Date: Mon, 25 Jul 2016 22:07:35 -0400 Subject: [PATCH] * gnus-cloud.el (gnus-cloud-encode-data): Fix 'base64-gzip encoding. --- lisp/gnus/gnus-cloud.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/gnus/gnus-cloud.el b/lisp/gnus/gnus-cloud.el index 22086b1f36e..14af4b2a840 100644 --- a/lisp/gnus/gnus-cloud.el +++ b/lisp/gnus/gnus-cloud.el @@ -112,11 +112,13 @@ easy interactive way to set this from the Server buffer." (defun gnus-cloud-encode-data () (cond ((eq gnus-cloud-storage-method 'base64-gzip) - (call-process-region (point-min) (point-max) "gzip" - t (current-buffer) nil - "-c")) + (progn + (call-process-region (point-min) (point-max) "gzip" + t (current-buffer) nil + "-c") + (base64-encode-region (point-min) (point-max)))) - ((memq gnus-cloud-storage-method '(base64 base64-gzip)) + ((eq gnus-cloud-storage-method 'base64) (base64-encode-region (point-min) (point-max))) ((eq gnus-cloud-storage-method 'epg) -- 2.39.2