[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH] * auth-source.el (auth-source-netrc-parse-one): Allow empty stri
From: |
David Kastrup |
Subject: |
[PATCH] * 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. |
Date: |
Fri, 5 Jul 2013 12:18:51 +0200 |
---
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 2b1e1d8..c766488 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,9 @@
+2013-07-05 David Kastrup <address@hidden>
+
+ * 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 <address@hidden>
* 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 8cef741..54429b5 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)
--
1.8.1.2
- [PATCH] * 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.,
David Kastrup <=