Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

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.