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.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index fa22d1a5ea1473b8e59a0451b5e7e44af6ba32b4..3fdb759932f294539864853d39c484d4da316656 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,12 @@
+2011-09-18  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * mm-decode.el (mm-inline-media-tests): Fix typo in regexp.
+
+2011-09-19  Julien Danjou  <julien@danjou.info>
+
+       * 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  <larsi@gnus.org>
 
        * mm-decode.el (mm-inline-media-tests): Support imagemagick images.

diff --git a/lisp/gnus/auth-source.el b/lisp/gnus/auth-source.el
index 74d69d0820cc1c065db67ab0ee2fab34f5f51c2d..7a05edfabc23f732e71d53c83b68d3c12b520b22 100644 (file)
--- 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))

diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el
index 6e56213c327cbbc4b43fc63668c6b9eb1a11c996..37ee59e9b4bb48324c61feec1373926b7e0f57d9 100644 (file)
--- a/lisp/gnus/mm-decode.el
+++ b/lisp/gnus/mm-decode.el
@@ -265,7 +265,7 @@ before the external MIME handler is invoked."
     ("multipart/alternative" ignore identity)
     ("multipart/mixed" ignore identity)
     ("multipart/related" ignore identity)
-    ("image/*"
+    ("image/.*"
      mm-inline-image
      (lambda (handle)
        (and (mm-valid-image-format-p 'imagemagick)