From: Gabor Vida <gabor.v.vida@ericsson.com>
Date: Thu, 7 Feb 2013 01:53:26 +0000 (-0500)
Subject: * auth-source.el (auth-source-format-prompt): Don't get confused by any "\"
X-Git-Tag: emacs-24.2.93~5
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=17d14f7e299c440ba171626ae52b2f11d85c68f1;p=emacs.git

* auth-source.el (auth-source-format-prompt): Don't get confused by any "\"
in replacement text.

Fixes: debbugs:13637
---

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 0bf13ae4eb9..760a5b15eea 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2013-02-07  Gábor Vida  <gabor.v.vida@ericsson.com>  (tiny change)
+
+	* auth-source.el (auth-source-format-prompt): Don't get confused by
+	any "\" in replacement text.  (Bug#13637)
+
 2012-12-27  Lars Ingebrigtsen  <larsi@gnus.org>
 
 	* gnus-msg.el (gnus-summary-resend-message): Don't bug out on
diff --git a/lisp/gnus/auth-source.el b/lisp/gnus/auth-source.el
index 6e6c74509f0..ffc6a4b78af 100644
--- a/lisp/gnus/auth-source.el
+++ b/lisp/gnus/auth-source.el
@@ -913,7 +913,7 @@ while \(:host t) would find all host entries."
       (when (and c v)
         (setq prompt (replace-regexp-in-string (format "%%%c" c)
                                                (format "%s" v)
-                                               prompt)))))
+                                               prompt nil t)))))
   prompt)
 
 (defun auth-source-ensure-strings (values)