Re: Help on mail-abbrev-insert-alias and quotation marks

[Kevin Rodgers]

On 9/14/12 12:24 PM, Harri Kiiskinen wrote:
> I'm using Mew mail on Emacs, with BBDB to manage addresses. The Mew
> support for BBDB is not complete, for example there is no way the
> mail-alias can be used in address completion.
>
> To circumvent this limitation, it is possible to call directly
> 'mail-abbrev-insert-alias' on the "To: " header line and have the
> mailabbrev fill the addresses that it automagically gets from BBDB
> (i.e. I have no idea how it gets them).
>
> The only problem is that if the name of an adressee contains non-ascii
> characters, the name is wrapped in quotation marks, which then means
> that the message can not be sent, as Mew complains about these
> quotation marks

Then that is a bug in Mew.

> – it is perfectly able to handle those non-ascii
> characters. I.e., what comes out is:
>
> To: "Jani Jämsä"<jjamsa@email.addr>, Lari Laine<llaine@email.addr>
>
> when what should come out is
>
> To: Jani Jämsä<jjamsa@email.addr>, Lari Laine<llainen@email.addr>
>
> Now, my question is, is there any way the 'mail-abbrev-insert-alias'
> can be made to return the list of addresses matching the alias without
> any of the names wrapped in quotation marks?

It is not customizable, you need to remove this part of define-mail-abbrev
in mailabbrev.el:

        ;; If the full name contains a problem character, quote it.
        (and (string-match "\\(.+?\\)[ \t]*\\(<.*>\\)" this-entry)
             (string-match "[^- !#$%&'*+/0-9=?A-Za-z^_`{|}~]"
                           (match-string 1 this-entry))
             (setq this-entry (replace-regexp-in-string
                               "\\(.+?\\)[ \t]*\\(<.*>\\)" "\"\\1\" \\2"
                               this-entry)))

--
Kevin Rodgers
Denver, Colorado, USA