diff options
| author | Gnus developers <ding@gnus.org> | 2011-09-19 22:06:57 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2011-09-19 22:06:57 +0000 |
| commit | a3ddc4d9c617348a315f2d12d9ec651599efe6bd (patch) | |
| tree | 14f703a7b3ed60c150073ec99abcfcc300f1c767 /lisp/gnus/auth-source.el | |
| parent | e24e27be18156e7af5e8ec15a723225dfc7e22da (diff) | |
| download | emacs-a3ddc4d9c617348a315f2d12d9ec651599efe6bd.tar.gz | |
Merge changes made in Gnus trunk.
mm-decode.el (mm-inline-media-tests): Fix typo in regexp.
auth-source.el (auth-source-netrc-parse): Use an obfuscation method which work with things that are not ASCII.
Diffstat (limited to 'lisp/gnus/auth-source.el')
| -rw-r--r-- | lisp/gnus/auth-source.el | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/lisp/gnus/auth-source.el b/lisp/gnus/auth-source.el index 74d69d0820c..7a05edfabc2 100644 --- a/lisp/gnus/auth-source.el +++ b/lisp/gnus/auth-source.el @@ -886,11 +886,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)) |