Re: mail-extract-address-components and silly address comments

[Kevin Rodgers]

Klaus Zeitler wrote:

> I keep getting an increasing number of silly comments in email addresses
> that cause mail-extract-address-components to return nonsense full names.
> e.g. for the following 2 addresses mail-extract-address-components returns
> these full names:
>  user@host (via the vacation program)  -> "via the vacation program"
>  "user via HyperNews" <HyperNews@host> -> "user via HyperNews"
>
> Had a glance at mail-extract-address-components, but this function
> looks way too complicated for me. Is there a hook or some other means to
> remove uninteresting parts of an email address?

advice.el is your friend.  Try this:

(defadvice mail-extract-address-components (after via activate)
  "If the name contains the word \"via\", return nil as the FULL-NAME instead."
  (let ((full-name (car ad-return-value)))
    (if (and full-name (string-match "\\<via\\>" full-name))
        (setcar ad-return-value nil))))

Or this:

(defadvice mail-extract-address-components (after via activate)
  "If the name contains the word \"via\", strip that phrase from FULL-NAME."
  (let ((full-name (car ad-return-value)))
    (if (and full-name (string-match "\\<via\\>" full-name))
        (if (zerop (match-beginning 0))
            (setcar ad-return-value nil)
          (setcar ad-return-value
                  (substring full-name 0 (1- (match-beginning 0))))))))

--
<a href="mailto:&lt;kevin.rodgers&#64;ihs.com&gt;";>Kevin Rodgers</a>