(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 35a1b14..eecba37 100644 (file)
--- 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 77e39de..f048308 100644 (file)
--- 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))