diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-07-30 11:00:46 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-07-30 11:00:46 +0000 |
| commit | 8744971146533b8f1010b99cd8ada7dc813b6b4c (patch) | |
| tree | 925c854c56cd5c18fcc65c4835c11a28dae526a1 /lisp/mail/mail-utils.el | |
| parent | 6594ac22d459f97ece708d4ee04b63d133d9a881 (diff) | |
| download | emacs-8744971146533b8f1010b99cd8ada7dc813b6b4c.tar.gz | |
(mail-strip-quoted-names): Replace text
literally. Reported by Sean Rima <sean@**Delete**.tcob1.net>.
Diffstat (limited to 'lisp/mail/mail-utils.el')
| -rw-r--r-- | lisp/mail/mail-utils.el | 4 |
1 files changed, 2 insertions, 2 deletions
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 |