Comprobación de email con expresiones regulares

Esta función utiliza una expresión regular para comprobar si una cadena es un email válido. La expresión regular no la he construido yo, pero no puedo citar la fuente porque...