diff options
| author | Ted Zlatanov <tzz@lifelogs.com> | 2016-07-25 22:07:35 -0400 |
|---|---|---|
| committer | Ted Zlatanov <tzz@lifelogs.com> | 2016-07-25 22:07:35 -0400 |
| commit | 9ad05bec03bef4022786c5c1c79b3bca96e9d502 (patch) | |
| tree | 3bb3a255d74368a3c0e9d29f8b4a4dbccf86fd88 /lisp/gnus/gnus-cloud.el | |
| parent | 113b3852d7a51e25ec765f80a265dac0bf8fe66e (diff) | |
| download | emacs-9ad05bec03bef4022786c5c1c79b3bca96e9d502.tar.gz | |
* gnus-cloud.el (gnus-cloud-encode-data): Fix 'base64-gzip encoding.
Diffstat (limited to 'lisp/gnus/gnus-cloud.el')
| -rw-r--r-- | lisp/gnus/gnus-cloud.el | 10 |
1 files 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) |