From fa7f427c322d256409104e808036ed21159cc27a Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Sat, 6 Jul 2013 12:49:38 +0000 Subject: [PATCH] lisp/gnus/auth-source.el (auth-source-netrc-parse-one): Allow empty strings in authinfo file again (important for blank passwords). This had been broken with 2013-06-15 change --- lisp/gnus/ChangeLog | 6 ++++++ lisp/gnus/auth-source.el | 4 ++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 63c63af3399..34eb28f0965 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,9 @@ +2013-07-05 David Kastrup + + * auth-source.el (auth-source-netrc-parse-one): Allow empty strings in + authinfo file again (important for blank passwords). This had been + broken with 2013-06-15 change. + 2013-07-03 Katsumi Yamaoka * gnus-sum.el (gnus-summary-from-or-to-or-newsgroups): diff --git a/lisp/gnus/auth-source.el b/lisp/gnus/auth-source.el index 8cef741cda2..54429b5cfda 100644 --- a/lisp/gnus/auth-source.el +++ b/lisp/gnus/auth-source.el @@ -1048,8 +1048,8 @@ Note that the MAX parameter is used so we can exit the parse early." "Read one thing from the current buffer." (auth-source-netrc-parse-next-interesting) - (when (or (looking-at "'\\([^']+\\)'") - (looking-at "\"\\([^\"]+\\)\"") + (when (or (looking-at "'\\([^']*\\)'") + (looking-at "\"\\([^\"]*\\)\"") (looking-at "\\([^ \t\n]+\\)")) (forward-char (length (match-string 0))) (auth-source-netrc-parse-next-interesting) -- 2.39.2