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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8b30afe17cca99b1ac5ad28dedcec7729871593b..88df059d55ca6a3cf9dce54786ccbc3c3307fa71 100644 (file)
--- 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 5526dc10404900367eba301fbb434a4a8e45ea38..84ed13e58bb6484162442a4cd5c99734948b546c 100644 (file)
--- 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