(mail-strip-quoted-names): Replace text

literally.  Reported by Sean Rima <sean@**Delete**.tcob1.net>.

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8b30afe17cc..88df059d55c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -5,6 +5,11 @@
         * desktop.el (desktop-save): Add `-*- coding: emacs-mule -*-' to
         the desktop file.
 
+2001-07-30  Simon Josefsson  <jas@extundo.com>
+
+        * mail/mail-utils.el (mail-strip-quoted-names): Replace text
+        literally.  Reported by Sean Rima <sean@**Delete**.tcob1.net>.
+
 2001-07-27  Gerd Moellmann  <gerd@gnu.org>
 
         * emacs-lisp/lisp-mode.el (last-sexp-setup-props): New function.
diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el
index 5526dc10404..84ed13e58bb 100644
--- a/lisp/mail/mail-utils.el
+++ b/lisp/mail/mail-utils.el
@@ -1,6 +1,6 @@
 ;;; mail-utils.el --- utility functions used both by rmail and rnews
 
-;; Copyright (C) 1985 Free Software Foundation, Inc.
+;; Copyright (C) 1985, 2001 Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 ;; Keywords: mail, news
@@ -194,7 +194,7 @@ Return a modified address list."
        (while (setq pos (string-match "\\(,\\s-*\\|\\`\\)\\([^,]*<\\([^>,:]*\\)>[^,]*\\)\\(\\s-*,\\|\\'\\)"
                                       address))
          (setq address (replace-match (match-string 3 address)
-                                      nil nil address 2)))
+                                      nil 'literal address 2)))
        address))))
 
 ; rmail-dont-reply-to-names is defined in loaddefs