From: Ted Zlatanov <tzz@lifelogs.com>
Date: Tue, 26 Jul 2016 02:07:35 +0000 (-0400)
Subject: * gnus-cloud.el (gnus-cloud-encode-data): Fix 'base64-gzip encoding.
X-Git-Tag: emacs-26.0.90~1840^2~8
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9ad05bec03bef4022786c5c1c79b3bca96e9d502;p=emacs.git

* gnus-cloud.el (gnus-cloud-encode-data): Fix 'base64-gzip encoding.
---

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)