Mercurial > emacs
comparison lisp/mail/mail-utils.el @ 112095:96d88ed18438
* 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) |