From: David Kastrup Date: Sat, 6 Jul 2013 12:49:38 +0000 (+0000) Subject: lisp/gnus/auth-source.el (auth-source-netrc-parse-one): Allow empty strings in authin... X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1909 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fa7f427c322d256409104e808036ed21159cc27a;p=emacs.git 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 --- 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)