Re: Gnus: UTF-8 and compatibility with other MUAs

[Oliver Scholz <alkibiades@gmx.de>]

Ivan Boldyrev <boldyrev+nospam@cgitftp.uiggm.nsc.ru> writes:

> On 8472 day of my life Oliver Scholz wrote:
>>> Perhaps some day we can try ASCII first, then fall back to UTF-8.  But
>>> that will take a long time.  Even moving to ISO-8859-1 in northern
>>> Europe took a long time, and still isn't finished.  I still use IBMPC2
>>> (CP437?) in some regional communication channels.
>> [...]
>>
>> I think it is in general a good idea to choose the encoding according
>> to the audience. Fortunately this is not hard with Gnus. There are
>> some people to which I send my mail in Latin-1.
>
> Do you use special group for them or do something more tricky?

I started to use the BBDB recently and I added a special property for
people that should receive mail in an encoding other than UTF-8, like:

egoge-encoding: latin-1

Before that I kept their Email-addresses in a list, the mechanics are
similar then.

But I am not sure whether a defadvice around `message-send-and-exit'
is the best way to do this.

(defadvice message-send-and-exit (around
				  egoge-latin-1-friendly
				  activate)
  "Query the BBDB for a preferred encoding for this message."
  (let* ((address (message-fetch-field "to"))
	 (encoding (and address
			(egoge-bbdb-get-prop
			 (cadr (gnus-extract-address-components
				address))
			 'egoge-encoding))))
    (if (not encoding)
	ad-do-it
      (let ((mm-coding-system-priorities
	     (cons (intern encoding) mm-coding-system-priorities)))
	ad-do-it))))

(defun egoge-bbdb-get-prop (address property)
  (let ((record (car (egoge-bbdb-find-address address))))
    (and record
	 (bbdb-record-getprop record property))))

(defun egoge-bbdb-find-address (address)
  "Return BBDB records which contain ADDRESS as net-address.
Return nil if there is no such record."
  (bbdb-search (bbdb-records t) nil nil address))


    Oliver
-- 
30 Thermidor an 211 de la Révolution
Liberté, Egalité, Fraternité!