mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki 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
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)