(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).

2 files changed, 8 insertions, 2 deletions

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))