Mercurial > emacs

comparison lisp/mail/mail-utils.el @ 112095:96d88ed18438

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* lisp/mail/mail-utils.el (mail-strip-quoted-names): Don't modify the " *temp*" buffer.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sat, 01 Jan 2011 22:16:03 -0500
parents f8b430cb91a7
children 40af77a50adc
comparison
equal deleted inserted replaced
112094:794f724ca655 112095:96d88ed18438
235 address)) 235 address))
236 (setq address (replace-match (match-string 3 address) 236 (setq address (replace-match (match-string 3 address)
237 nil 'literal address 2))) 237 nil 'literal address 2)))
238 address)))) 238 address))))
239 239
240 ;;; The following piece of ugliness is legacy code. The name was an 240 ;; The following piece of ugliness is legacy code. The name was an
241 ;;; unfortunate choice --- a flagrant violation of the Emacs Lisp 241 ;; unfortunate choice --- a flagrant violation of the Emacs Lisp
242 ;;; coding conventions. `mail-dont-reply-to' would have been 242 ;; coding conventions. `mail-dont-reply-to' would have been
243 ;;; infinitely better. Also, `rmail-dont-reply-to-names' might have 243 ;; infinitely better. Also, `rmail-dont-reply-to-names' might have
244 ;;; been better named `mail-dont-reply-to-names' and sourced from this 244 ;; been better named `mail-dont-reply-to-names' and sourced from this
245 ;;; file instead of in rmail.el. Yuck. -pmr 245 ;; file instead of in rmail.el. Yuck. -pmr
246 (defun rmail-dont-reply-to (destinations) 246 (defun rmail-dont-reply-to (destinations)
247 "Prune addresses from DESTINATIONS, a list of recipient addresses. 247 "Prune addresses from DESTINATIONS, a list of recipient addresses.
248 All addresses matching `rmail-dont-reply-to-names' are removed from 248 All addresses matching `rmail-dont-reply-to-names' are removed from
249 the comma-separated list. The pruned list is returned." 249 the comma-separated list. The pruned list is returned."
250 ;; FIXME this (setting a user option the first time a command is used) 250 ;; FIXME this (setting a user option the first time a command is used)