diff options
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 <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 |