From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 30 Jul 2001 11:00:46 +0000 (+0000)
Subject: (mail-strip-quoted-names): Replace text
X-Git-Tag: emacs-pretest-21.0.105~360
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8744971146533b8f1010b99cd8ada7dc813b6b4c;p=emacs.git

(mail-strip-quoted-names): Replace text
literally.  Reported by Sean Rima <sean@**Delete**.tcob1.net>.
---

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