Quote tokens that start with "#" to ~/.authinfo

* auth-source.el (auth-source-netrc-create): Quote tokens that contain
"#" to avoid having them interpreted as comments.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d2a2590..d795909 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-03-22  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * auth-source.el (auth-source-netrc-create): Quote tokens that contain
+       "#" to avoid having them interpreted as comments.
+
 2012-03-19  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * shr.el (shr-insert): Update the text state properly to avoid

diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index 3ddbb56..f4aa1db 100644 (file)
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -1303,7 +1303,7 @@ See `auth-source-search' for details on SPEC."
                                      (secret "password")
                                      (port   "port") ; redundant but clearer
                                      (t (symbol-name r)))
-                                   (if (string-match "[\" ]" data)
+                                   (if (string-match "[\"# ]" data)
                                        (format "%S" data)
                                      data)))))
             (setq add (concat add (funcall printer)))))))