(concat (substring string 0 start)
(substring string end nil))))
+(defvar mail-rewrite-address-function nil
+ "Function called at the end of `mail-strip-quoted-names' if defined.
+May be used for X.400 rewriting, etc.")
(defun mail-strip-quoted-names (address)
"Delete comments and quoted strings in an address list ADDRESS.
Also delete leading/trailing whitespace and replace FOO <BAR> with just BAR.
(setq address (mail-string-delete address (1- close) close))
(setq address (mail-string-delete address junk-beg junk-end))))
+ (if (fboundp mail-rewrite-address-function)
+ (funcall mail-rewrite-address-function address)
(or (and (boundp 'rmail-default-dont-reply-to-names)
(not (null rmail-default-dont-reply-to-names)))