From: yamaoka Date: Sat, 15 Jan 2005 23:39:54 +0000 (+0000) Subject: Synch to No Gnus 200501152113. X-Git-Tag: t-gnus-6_17_4-quimby-~593 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6bb44611c66c40ab22d82f4700e38bf5878d1a92;p=elisp%2Fgnus.git- Synch to No Gnus 200501152113. --- diff --git a/GNUS-NEWS b/GNUS-NEWS index 3d020cf..41677ff 100644 --- a/GNUS-NEWS +++ b/GNUS-NEWS @@ -47,6 +47,9 @@ inline PGP signed messages. ANSI sequences are used in some Chinese hierarchies for highlighting articles (`gnus-article-treat-ansi-sequences'). +** International host names (IDNA) can now be decoded inside article +bodies using `W i' (`gnus-summary-idna-message'). + ** Gnus includes an Emacs Lisp SASL library. This provide a clean API to SASL mechanisms from within Emacs. The diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7f86a09..dff0c5e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,13 @@ +2005-01-15 Simon Josefsson + + * message.el (message-idna-to-ascii-rhs): Decode Reply-To too. + Suggested by Raymond Scholz . + + * gnus-sum.el (gnus-summary-wash-map): Bind "W i" to + gnus-summary-idna-message. + (gnus-summary-make-menu-bar): Add De-IDNA menu entry. + (gnus-summary-idna-message): New function. + 2005-01-13 Reiner Steib * gnus-msg.el (gnus-confirm-mail-reply-to-news): Change default to diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 76ee009..4607132 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -1,5 +1,5 @@ -;;; gnus-sum.el --- summary mode commands for Semi-gnus -;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004 +;;; gnus-sum.el --- summary mode commands for gnus +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 ;; Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen @@ -1960,7 +1960,8 @@ increase the score of each group you read." "m" gnus-summary-toggle-mime "a" gnus-article-strip-headers-in-body ;; mnemonic: wash archive "p" gnus-article-verify-x-pgp-sig - "d" gnus-article-treat-dumbquotes) + "d" gnus-article-treat-dumbquotes + "i" gnus-summary-idna-message) (gnus-define-keys (gnus-summary-wash-deuglify-map "Y" gnus-summary-wash-map) ;; mnemonic: deuglif*Y* @@ -2250,6 +2251,7 @@ gnus-summary-show-article-from-menu-as-charset-%s" cs)))) ["Rot 13" gnus-summary-caesar-message ,@(if (featurep 'xemacs) '(t) '(:help "\"Caesar rotate\" article by 13"))] + ["De-IDNA" gnus-summary-idna-message t] ["Morse decode" gnus-summary-morse-message t] ["Unix pipe..." gnus-summary-pipe-message t] ["Add buttons" gnus-article-add-buttons t] @@ -9072,6 +9074,23 @@ forward." (message-caesar-buffer-body arg) (set-window-start (get-buffer-window (current-buffer)) start)))))) +(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 +remain unencoded after running this function, it is likely an +invalid IDNA string (`xn--bar' is invalid)." + (interactive "P") + (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)))))) + (autoload 'unmorse-region "morse" "Convert morse coded text in region to ordinary ASCII text." t) diff --git a/lisp/message.el b/lisp/message.el index 55d5f2d..3d1188d 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -1,5 +1,5 @@ ;;; message.el --- composing mail and news messages -;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004 +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 ;; Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen @@ -5610,6 +5610,7 @@ See `message-idna-encode'." (message-narrow-to-head) (message-idna-to-ascii-rhs-1 "From") (message-idna-to-ascii-rhs-1 "To") + (message-idna-to-ascii-rhs-1 "Reply-To") (message-idna-to-ascii-rhs-1 "Cc"))))) (defun message-generate-headers (headers) diff --git a/texi/ChangeLog b/texi/ChangeLog index ffe6a6e..33b26ca 100644 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -1,3 +1,13 @@ +2005-01-15 Lars Magne Ingebrigtsen + + * gnus.texi (Topic Commands): Fix next/previous. + +2005-01-15 Simon Josefsson + + * gnus.texi (Article Washing): Mention `W i'. + + * gnus-news.texi: Mention De-IDNA washing. + 2005-01-06 Katsumi Yamaoka * message.texi (Reply): `message-reply-to-function' should return diff --git a/texi/gnus-ja.texi b/texi/gnus-ja.texi index 072a363..6cd5da9 100644 --- a/texi/gnus-ja.texi +++ b/texi/gnus-ja.texi @@ -8,7 +8,7 @@ @copying Copyright \copyright{} 1995, 1996, 1997, 1998, 1999, 2000, 2001, -2002, 2003, 2004 +2002, 2003, 2004, 2005 Free Software Foundation, Inc. @quotation @@ -8151,6 +8151,14 @@ gnus が記事を表示する既定のやり方を変えたいとき @findex gnus-summary-morse-message 記事バッファをモールス復号します (@code{gnus-summary-morse-message})。 +@item W i +@kindex W i (概略) +@findex gnus-summary-idna-message +現在の記事にある IDNA エンコードされたドメイン名をデコードします。 +IDNA エンコードされたドメイン名は @samp{xn--bar} のように見えます。これ +を実行した後で文字列がデコードされないままだったら、おそらくそれは不正 +な IDNA 文字列でしょう (@samp{xn--bar} は不正です)。 + @item W t @item t @kindex W t (概略) diff --git a/texi/gnus-news.texi b/texi/gnus-news.texi index a5d072b..21f90df 100644 --- a/texi/gnus-news.texi +++ b/texi/gnus-news.texi @@ -60,6 +60,10 @@ using @kbd{W A}. @acronym{ANSI} sequences are used in some Chinese hierarchies for highlighting articles (@code{gnus-article-treat-ansi-sequences}). +@item International host names (@acronym{IDNA}) can now be decoded +inside article bodies using @kbd{W i} +(@code{gnus-summary-idna-message}). + @item Gnus includes an Emacs Lisp @acronym{SASL} library. This provide a clean @acronym{API} to @acronym{SASL} mechanisms from diff --git a/texi/gnus.texi b/texi/gnus.texi index dccb348..eac652c 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -10,7 +10,7 @@ @copying Copyright (c) 1995, 1996, 1997, 1998, 1999, 2000, 2001, -2002, 2003, 2004 +2002, 2003, 2004, 2005 Free Software Foundation, Inc. @quotation @@ -3807,7 +3807,7 @@ Go to the next topic (@code{gnus-topic-goto-next-topic}). @item T M-p @kindex T M-p (Topic) @findex gnus-topic-goto-previous-topic -Go to the next topic (@code{gnus-topic-goto-previous-topic}). +Go to the previous topic (@code{gnus-topic-goto-previous-topic}). @item G p @kindex G p (Topic) @@ -8458,6 +8458,14 @@ is rumored to have employed this form of, uh, somewhat weak encryption. @findex gnus-summary-morse-message Morse decode the article buffer (@code{gnus-summary-morse-message}). +@item W i +@kindex W i (Summary) +@findex gnus-summary-idna-message +Decode IDNA encoded domain names in the current articles. IDNA +encoded domain names looks like @samp{xn--bar}. If a string remain +unencoded after running invoking this, it is likely an invalid IDNA +string (@samp{xn--bar} is invalid). + @item W t @item t @kindex W t (Summary)