[gnus git] branch no-gnus updated: m0-1-91-g1df7a96 =1= Quote tokens that start with "#" to ~/.authinfo

       via  1df7a9600ae470e640c6a5aa9ee0d425a0dffb3c (commit)
      from  f20c9a4321b8dc50c8d4149fbc24cc2cf396322d (commit)


- Log -----------------------------------------------------------------
commit 1df7a9600ae470e640c6a5aa9ee0d425a0dffb3c
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Thu Mar 22 20:28:17 2012 +0100

    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
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-03-22  Lars Magne Ingebrigtsen  <[email protected]>
+
+	* auth-source.el (auth-source-netrc-create): Quote tokens that contain
+	"#" to avoid having them interpreted as comments.
+
 2012-03-19  Lars Magne Ingebrigtsen  <[email protected]>
 
 	* 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
--- 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)))))))

-----------------------------------------------------------------------
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 |    2 +-
 2 files changed, 6 insertions(+), 1 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, no-gnus has been updated


hooks/post-receive
-- 
Gnus Project