/[emacs]/emacs/lisp/gnus/gnus-art.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-art.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.49.2.4 by rsteib, Tue Aug 31 14:47:59 2004 UTC revision 1.49.2.5 by rsteib, Tue Aug 31 15:38:25 2004 UTC
# Line 2240  If PROMPT (the prefix), prompt for a cod Line 2240  If PROMPT (the prefix), prompt for a cod
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)))))))))

Legend:
Removed from v.1.49.2.4  
changed lines
  Added in v.1.49.2.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26