mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

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

Browse Source 
literally.  Reported by Sean Rima <sean@**Delete**.tcob1.net>.
This commit is contained in:
Gerd Moellmann 2001-07-30 11:00:46 +00:00
parent 6594ac22d4
commit 8744971146
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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.

4
lisp/mail/mail-utils.el
View File

@ -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