Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Ensure that encrypted strings are written with no conversion.

Thanks to Sakuma.

* twittering-mode.el: Ensure that encrypted strings are written
with no conversion. Thanks to Sakuma.
(twittering-write-and-encrypt): ensure that encrypted strings are
written with no conversion.
  • Loading branch information...
commit c519bad5a1e7ae60eabc5f0df4adcc0758366abf 1 parent b490a48
@cvmat cvmat authored
Showing with 11 additions and 2 deletions.
  1. +7 −0 ChangeLog
  2. +4 −2 twittering-mode.el
View
7 ChangeLog
@@ -1,3 +1,10 @@
+2011-01-09 Tadashi MATSUO <tad@mymail.twin.jp>
+
+ * twittering-mode.el: Ensure that encrypted strings are written
+ with no conversion. Thanks to Sakuma.
+ (twittering-write-and-encrypt): ensure that encrypted strings are
+ written with no conversion.
+
2010-12-17 Yuto HAYAMIZU <y.hayamizu@gmail.com>
* twittering-mode.el (twittering-organic-retweet): prohibit
View
6 twittering-mode.el
@@ -2659,7 +2659,8 @@ like following:
;; In order to prevent `epa-file' to encrypt the file double,
;; `epa-file-name-regexp' is temorarily changed into the null
;; regexp that never matches any string.
- (let ((epa-file-name-regexp "\\`\\'"))
+ (let ((epa-file-name-regexp "\\`\\'")
+ (coding-system-for-write 'binary))
(when (fboundp 'epa-file-name-regexp-update)
(epa-file-name-regexp-update))
(with-temp-file file
@@ -2678,7 +2679,8 @@ like following:
;; This is required because `alpaca-save-buffer' checks its timestamp.
(with-temp-file file)
(with-temp-buffer
- (let ((buffer-file-name file))
+ (let ((buffer-file-name file)
+ (coding-system-for-write 'binary))
(insert str)
(condition-case nil
(if (alpaca-save-buffer)
Please sign in to comment.
Something went wrong with that request. Please try again.