From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/71059 Path: news.gmane.org!not-for-mail From: Julien Danjou Newsgroups: gmane.emacs.gnus.general Subject: [PATCH] (gnus-html-wash-tags): Fix tag case. Date: Sun, 19 Sep 2010 09:57:43 +0200 Message-ID: <1284883063-19163-1-git-send-email-julien@danjou.info> NNTP-Posting-Host: lo.gmane.org X-Trace: dough.gmane.org 1284883138 13726 80.91.229.12 (19 Sep 2010 07:58:58 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Sun, 19 Sep 2010 07:58:58 +0000 (UTC) Cc: Julien Danjou To: ding@gnus.org Original-X-From: ding-owner+M19432@lists.math.uh.edu Sun Sep 19 09:58:57 2010 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1OxEnW-0008KC-M9 for ding-account@gmane.org; Sun, 19 Sep 2010 09:58:55 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by util0.math.uh.edu with smtp (Exim 4.63) (envelope-from ) id 1OxEnB-00077Y-Pc; Sun, 19 Sep 2010 02:58:33 -0500 Original-Received: from mx1.math.uh.edu ([129.7.128.32]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1OxEnA-00077M-Ep for ding@lists.math.uh.edu; Sun, 19 Sep 2010 02:58:32 -0500 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx1.math.uh.edu with esmtp (Exim 4.72) (envelope-from ) id 1OxEn6-0005tR-8L for ding@lists.math.uh.edu; Sun, 19 Sep 2010 02:58:32 -0500 Original-Received: from prometheus.naquadah.org ([212.85.154.174] helo=mx1.naquadah.org) by quimby.gnus.org with esmtp (Exim 3.36 #1 (Debian)) id 1OxEn5-0006BU-00 for ; Sun, 19 Sep 2010 09:58:27 +0200 Original-Received: by mx1.naquadah.org (Postfix, from userid 8) id 4B99F5C155; Sun, 19 Sep 2010 09:57:57 +0200 (CEST) X-Spam-Checker-Version: SpamAssassin 3.3.1 (2010-03-16) on prometheus.naquadah.org X-Spam-Level: X-Spam-Status: No, score=-1.4 required=4.5 tests=ALL_TRUSTED,BAYES_00, URIBL_RHS_DOB autolearn=no version=3.3.1 Original-Received: from keller.adm.naquadah.org (unknown [IPv6:2a01:e35:2e39:e900:222:faff:fe9d:ce44]) (using TLSv1 with cipher AES256-SHA (256/256 bits)) (No client certificate requested) by mx1.naquadah.org (Postfix) with ESMTPSA id E2E115C114; Sun, 19 Sep 2010 09:57:52 +0200 (CEST) Original-Received: from jd by keller.adm.naquadah.org with local (Exim 4.72) (envelope-from ) id 1OxEmW-00050E-Bl; Sun, 19 Sep 2010 09:57:52 +0200 X-Mailer: git-send-email 1.7.1 X-Spam-Score: -0.4 (/) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:71059 Archived-At: Signed-off-by: Julien Danjou --- lisp/ChangeLog | 1 + lisp/gnus-html.el | 12 ++++++++---- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 09af7dd..50c0512 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -4,6 +4,7 @@ than curl. (gnus-html-image-fetched): Fix `gnus-html-put-image' call not setting the right URL and ALT text on images. + (gnus-html-wash-tags): Fix tag case. 2010-09-19 Lars Magne Ingebrigtsen diff --git a/lisp/gnus-html.el b/lisp/gnus-html.el index fd59ec1..497878f 100644 --- a/lisp/gnus-html.el +++ b/lisp/gnus-html.el @@ -253,13 +253,17 @@ fit these criteria." ;; should be deleted. ((equal tag "IMG_ALT") (delete-region start end)) - ;; Whatever. Just ignore the tag. - ((equal tag "b") + ;; w3m does not normalize the case + ((or (equal tag "b") + (equal tag "B")) (gnus-overlay-put (gnus-make-overlay start end) 'face 'bold)) - ((equal tag "U") + ((or (equal tag "u") + (equal tag "U")) (gnus-overlay-put (gnus-make-overlay start end) 'face 'underline)) - ((equal tag "i") + ((or (equal tag "i") + (equal tag "I")) (gnus-overlay-put (gnus-make-overlay start end) 'face 'italic)) + ;; Whatever. Just ignore the tag. (t )) (goto-char start)) -- 1.7.1