mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-05 20:43:08 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Ted Zlatanov 2016-07-25 22:07:35 -04:00
parent 113b3852d7
commit 9ad05bec03
No known key found for this signature in database
GPG Key ID: 11F23D0A4E4B9DEE
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/gnus/gnus-cloud.el
View File

@ -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)