[gnus git] branch master updated: n0-17-301-g3192fb6 =1= auth-source: switch obfuscation method so it works with non-ASCII data

       via  3192fb6a275b062a2cb55a72997e704eb4805da7 (commit)
      from  32bca861ee9fe356a5c380b6b5e09ccdc88edead (commit)


- Log -----------------------------------------------------------------
commit 3192fb6a275b062a2cb55a72997e704eb4805da7
Author: Julien Danjou <[email protected]>
Date:   Mon Sep 19 18:36:41 2011 +0200

    auth-source: switch obfuscation method so it works with non-ASCII data
    
    Signed-off-by: Julien Danjou <[email protected]>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2e1fc59..77cbdc0 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-09-19  Julien Danjou  <[email protected]>
+
+	* auth-source.el (auth-source-netrc-parse): Use an obfuscation method
+	which work with things that are not ASCII.
+
 2011-09-17  Lars Magne Ingebrigtsen  <[email protected]>
 
 	* mm-decode.el (mm-inline-media-tests): Support imagemagick images.
diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index e3a8bb2..39bf32f 100644
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -896,11 +896,8 @@ Note that the MAX parameter is used so we can exit the parse early."
             ;; (note for the irony-impaired: they are just obfuscated)
             (aput 'auth-source-netrc-cache file
                   (list :mtime (nth 5 (file-attributes file))
-                        :secret (lexical-let ((v (rot13-string
-                                                  (base64-encode-string
-                                                   (buffer-string)))))
-                                  (lambda () (base64-decode-string
-                                              (rot13-string v)))))))
+                        :secret (lexical-let ((v (mapcar '1+ (buffer-string))))
+                                  (lambda () (apply 'string (mapcar '1- v)))))))
           (goto-char (point-min))
           ;; Go through the file, line by line.
           (while (and (not (eobp))

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog      |    5 +++++
 lisp/auth-source.el |    7 ++-----
 2 files changed, 7 insertions(+), 5 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project