From 8744971146533b8f1010b99cd8ada7dc813b6b4c Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 30 Jul 2001 11:00:46 +0000 Subject: [PATCH] (mail-strip-quoted-names): Replace text literally. Reported by Sean Rima . --- lisp/ChangeLog | 5 +++++ lisp/mail/mail-utils.el | 4 ++-- 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 + + * mail/mail-utils.el (mail-strip-quoted-names): Replace text + literally. Reported by Sean Rima . + 2001-07-27 Gerd Moellmann * 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 -- 2.39.2