[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 9ad05be: * gnus-cloud.el (gnus-cloud-encode-data):
From: |
Teodor Zlatanov |
Subject: |
[Emacs-diffs] master 9ad05be: * gnus-cloud.el (gnus-cloud-encode-data): Fix 'base64-gzip encoding. |
Date: |
Tue, 26 Jul 2016 02:08:12 +0000 (UTC) |
branch: master
commit 9ad05bec03bef4022786c5c1c79b3bca96e9d502
Author: Ted Zlatanov <address@hidden>
Commit: Ted Zlatanov <address@hidden>
* 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 22086b1..14af4b2 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 9ad05be: * gnus-cloud.el (gnus-cloud-encode-data): Fix 'base64-gzip encoding.,
Teodor Zlatanov <=