2240 |
(inhibit-read-only t)) |
(inhibit-read-only t)) |
2241 |
(article-narrow-to-head) |
(article-narrow-to-head) |
2242 |
(goto-char (point-min)) |
(goto-char (point-min)) |
2243 |
(while (re-search-forward "\\(xn--[-A-Za-z0-9.]*\\)[ \t\n\r,>]" nil t) |
(while (re-search-forward "@.*\\(xn--[-A-Za-z0-9.]*\\)[ \t\n\r,>]" nil t) |
2244 |
(let (ace unicode) |
(let (ace unicode) |
2245 |
(when (save-match-data |
(when (save-match-data |
2246 |
(and (setq ace (match-string 1)) |
(and (setq ace (match-string 1)) |
2247 |
(save-excursion |
(save-excursion |
2248 |
(and (re-search-backward "^[^ \t]" nil t) |
(and (re-search-backward "^[^ \t]" nil t) |
2249 |
(looking-at "From\\|To\\|Cc"))) |
(looking-at "From\\|To\\|Cc"))) |
|
(save-excursion (backward-char) |
|
|
(message-idna-inside-rhs-p)) |
|
2250 |
(setq unicode (idna-to-unicode ace)))) |
(setq unicode (idna-to-unicode ace)))) |
2251 |
(unless (string= ace unicode) |
(unless (string= ace unicode) |
2252 |
(replace-match unicode nil nil nil 1))))))))) |
(replace-match unicode nil nil nil 1))))))))) |