[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-art.el [gnus-5_10-branch]
From: |
Reiner Steib |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-art.el [gnus-5_10-branch] |
Date: |
Wed, 01 Sep 2004 07:08:55 -0400 |
Index: emacs/lisp/gnus/gnus-art.el
diff -c emacs/lisp/gnus/gnus-art.el:1.49.2.4
emacs/lisp/gnus/gnus-art.el:1.49.2.5
*** emacs/lisp/gnus/gnus-art.el:1.49.2.4 Tue Aug 31 14:47:59 2004
--- emacs/lisp/gnus/gnus-art.el Tue Aug 31 15:38:25 2004
***************
*** 2240,2254 ****
(inhibit-read-only t))
(article-narrow-to-head)
(goto-char (point-min))
! (while (re-search-forward "\\(xn--[-A-Za-z0-9.]*\\)[ \t\n\r,>]" nil t)
(let (ace unicode)
(when (save-match-data
(and (setq ace (match-string 1))
(save-excursion
(and (re-search-backward "^[^ \t]" nil t)
(looking-at "From\\|To\\|Cc")))
- (save-excursion (backward-char)
- (message-idna-inside-rhs-p))
(setq unicode (idna-to-unicode ace))))
(unless (string= ace unicode)
(replace-match unicode nil nil nil 1)))))))))
--- 2240,2252 ----
(inhibit-read-only t))
(article-narrow-to-head)
(goto-char (point-min))
! (while (re-search-forward "@.*\\(xn--[-A-Za-z0-9.]*\\)[ \t\n\r,>]" nil
t)
(let (ace unicode)
(when (save-match-data
(and (setq ace (match-string 1))
(save-excursion
(and (re-search-backward "^[^ \t]" nil t)
(looking-at "From\\|To\\|Cc")))
(setq unicode (idna-to-unicode ace))))
(unless (string= ace unicode)
(replace-match unicode nil nil nil 1)))))))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/gnus-art.el [gnus-5_10-branch],
Reiner Steib <=