Re: [UTF8 problems]

[Eric Abrahamsen <eric@ericabrahamsen.net>]

Uwe Brauer <oub@mat.ucm.es> writes:

>>>> "EA" == Eric Abrahamsen <eric@ericabrahamsen.net> writes:
>
>> Uwe Brauer <oub@mat.ucm.es> writes:
>>>>>> "EA" == Eric Abrahamsen <eric@ericabrahamsen.net> writes:
>>> 
>>>> Uwe Brauer <oub@mat.ucm.es> writes:
>>>> Hi
>>>> 
>>>> I know that  'mail-header-from extract information from the from field,
>>>> but is there something similar for the CC field. I cannot not find
>>>> anything similar.
>>> 
>>>> In general you can use `gnus-fetch-original-field' to get any header you
>>>> want, specified as a string. So;
>>> 
>>>> (gnus-fetch-original-field "cc")
>>> 
>>> That works fine for ascii, but I just got that result
>>> 
>>> =?UTF-8?Q?Marta_Gonz=C3=A1lez?= <user@ucm.es>
>>> 
>>> That does not happen for org-capture with %:fromname
>>> 
>>> Any ideas?
>
>> (mail-decode-encoded-address-string
>>   (gnus-fetch-original-field "cc"))
>
>> There are some other `mail-decode-encoded-*' functions for other uses.
>
>
> Thanks but it does not work 
>
> Here it is what I did 
>
>
> (defun my-extract-cc ()
>   (interactive)
>   (mail-decode-encoded-address-string
>    (gnus-fetch-original-field "cc")))
>         ("mg" "Annu:Grupos:Ejercicios"
>          table-line (file+headline "~/ALLES/HGs/tex/vorlesungen/HGAnnu/Ejercios-Alumnos-Grupos/2021/Ejercios-Teoria21.org" "Exercicios Annu21")
>          "| | | | | %:fromname|%:fromaddress | %:subject| %(my-extract-cc)  |%^{Hoja|1|2|3|4|5|6|7}|%^{Exercicio|1|} |  %a|%:date | "  :prepend t :empty-lines 1 :unnarrowed t
>          )
>
>
> But then I obtained.
>
>
> | | | | |  %![Error: (wrong-type-argument stringp nil)]  |1|2 |  
>
>
> I tried to debug the function but nothing strange happened. I am really
> puzzled.

Looks like the %(expr) escapes are evaluated in the *Capture* buffer,
not the buffer where you started the capture. You might have to do:

(defun my-extract-cc ()
  (interactive)
  (with-current-buffer (org-capture-get :original-buffer)
    (mail-decode-encoded-address-string
     (gnus-fetch-original-field "cc"))))