procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use puny.el instead of idna.el functions in Gnus

Browse source 
* lisp/gnus/gnus-art.el (gnus-use-idna): Default to t (since
Emacs comes with IDNA support built in).
(article-decode-idna-rhs): Use `puny-decode-domain' instead of
`idna-to-unicode'.

* lisp/gnus/gnus-sum.el (gnus-summary-idna-message): Ditto.
This commit is contained in:
Lars Magne Ingebrigtsen 2016-04-17 19:29:58 +02:00
parent c5dfaae30f
commit 50b93f40d0
2 changed files with 14 additions and 36 deletions
Download patch file Download diff file Expand all files Collapse all files

31
lisp/gnus/gnus-sum.el
View file

@ -9807,8 +9807,6 @@ prefix specifies how many places to rotate each letter forward."
;; Create buttons and stuff...
(gnus-treat-article nil))
(declare-function idna-to-unicode "ext:idna" (str))
(defun gnus-summary-idna-message (&optional arg)
"Decode IDNA encoded domain names in the current articles.
IDNA encoded domain names looks like `xn--bar'. If a string
@ -9818,25 +9816,16 @@ invalid IDNA string (`xn--bar' is invalid).
You must have GNU Libidn (URL `http://www.gnu.org/software/libidn/')
installed for this command to work."
(interactive "P")
(if (not (and (mm-coding-system-p 'utf-8)
(condition-case nil
(require 'idna)
(file-error)
(invalid-operation))
(symbol-value 'idna-program)
(executable-find (symbol-value 'idna-program))))
(gnus-message
5 "GNU Libidn not installed properly (`idn' or `idna.el' missing)")
(gnus-summary-select-article)
(let ((mail-header-separator ""))
(gnus-eval-in-buffer-window gnus-article-buffer
(save-restriction
(widen)
(let ((start (window-start))
buffer-read-only)
(while (re-search-forward "\\(xn--[-0-9a-z]+\\)" nil t)
(replace-match (idna-to-unicode (match-string 1))))
(set-window-start (get-buffer-window (current-buffer)) start)))))))
(gnus-summary-select-article)
(let ((mail-header-separator ""))
(gnus-eval-in-buffer-window gnus-article-buffer
(save-restriction
(widen)
(let ((start (window-start))
buffer-read-only)
(while (re-search-forward "\\(xn--[-0-9a-z]+\\)" nil t)
(replace-match (puny-decode-domain (match-string 1))))
(set-window-start (get-buffer-window (current-buffer)) start))))))
(defun gnus-summary-morse-message (&optional arg)
"Morse decode the current article."