diff options
| author | David Kastrup <dak@gnu.org> | 2013-07-06 12:49:38 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2013-07-06 12:49:38 +0000 |
| commit | fa7f427c322d256409104e808036ed21159cc27a (patch) | |
| tree | 9086923b51a1f2cda6f77afd36314310e79e214c /lisp/gnus/auth-source.el | |
| parent | 3504a4beb8a2ca478edf1e007976abf85c7dc91f (diff) | |
| download | emacs-fa7f427c322d256409104e808036ed21159cc27a.tar.gz | |
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
Diffstat (limited to 'lisp/gnus/auth-source.el')
| -rw-r--r-- | lisp/gnus/auth-source.el | 4 |
1 files changed, 2 insertions, 2 deletions
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) |