From: Bill Wohler <wohler@newt.com>
Date: Sat, 11 Mar 2006 01:34:45 +0000 (+0000)
Subject: (mh-replace-regexp-in-string): Pass the literal flag to
X-Git-Tag: emacs-pretest-22.0.90~3712
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4a732ae9652dfdbb83530b1bb6221de06b4b0e61;p=emacs.git

(mh-replace-regexp-in-string): Pass the literal flag to
replace-in-string. This was badly needed by mh-quote-pick-expr in
order to properly quote subjects when using / s on XEmacs (closes SF
#1447598).
---

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index 35a1b1495f1..eecba3767f4 100644
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -1,5 +1,10 @@
 2006-03-10  Bill Wohler  <wohler@newt.com>
 
+	* mh-compat.el (mh-replace-regexp-in-string): Pass the literal
+	flag to replace-in-string. This was badly needed by
+	mh-quote-pick-expr in order to properly quote subjects when using
+	/ s on XEmacs (closes SF #1447598).
+
 	* mh-e.el (mh-profile-component): Drop `s' from mhparam
 	-components for Mailutils compatibility (closes SF #1446985).
 
diff --git a/lisp/mh-e/mh-compat.el b/lisp/mh-e/mh-compat.el
index 77e39de35f5..f048308ae30 100644
--- a/lisp/mh-e/mh-compat.el
+++ b/lisp/mh-e/mh-compat.el
@@ -232,8 +232,9 @@ The argument STRING is ignored."
   "Replace REGEXP with REP everywhere in STRING and return result.
 This function is used by XEmacs that lacks `replace-regexp-in-string'.
 The function `replace-in-string' is used instead.
-The arguments FIXEDCASE, LITERAL, SUBEXP, and START are ignored."
-  (replace-in-string string regexp rep))
+The arguments FIXEDCASE, SUBEXP, and START, used by
+`replace-in-string' are ignored."
+  (replace-in-string string regexp rep literal))
 
 ;; Copy of constant from url-util.el in Emacs 22; needed by Emacs 21.
 (if (not (boundp 'url-unreserved-chars))