From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/71061 Path: news.gmane.org!not-for-mail From: Julien Danjou Newsgroups: gmane.emacs.gnus.general Subject: [PATCH] Add support for s and ins HTML tags Date: Sun, 19 Sep 2010 10:10:39 +0200 Message-ID: <1284883839-20474-1-git-send-email-julien@danjou.info> NNTP-Posting-Host: lo.gmane.org X-Trace: dough.gmane.org 1284883892 16236 80.91.229.12 (19 Sep 2010 08:11:32 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Sun, 19 Sep 2010 08:11:32 +0000 (UTC) Cc: Julien Danjou To: ding@gnus.org Original-X-From: ding-owner+M19434@lists.math.uh.edu Sun Sep 19 10:11:30 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 1OxEzf-0003u3-FO for ding-account@gmane.org; Sun, 19 Sep 2010 10:11:27 +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 1OxEzZ-0007EY-QC; Sun, 19 Sep 2010 03:11:21 -0500 Original-Received: from mx2.math.uh.edu ([129.7.128.33]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1OxEzY-0007EI-6z for ding@lists.math.uh.edu; Sun, 19 Sep 2010 03:11:20 -0500 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx2.math.uh.edu with esmtp (Exim 4.72) (envelope-from ) id 1OxEzU-0000xG-0L for ding@lists.math.uh.edu; Sun, 19 Sep 2010 03:11:20 -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 1OxEzT-0006LG-00 for ; Sun, 19 Sep 2010 10:11:15 +0200 Original-Received: by mx1.naquadah.org (Postfix, from userid 8) id C535F5C155; Sun, 19 Sep 2010 10:10:44 +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 5FE9D5C122; Sun, 19 Sep 2010 10:10:40 +0200 (CEST) Original-Received: from jd by keller.adm.naquadah.org with local (Exim 4.72) (envelope-from ) id 1OxEyt-0005Ki-KP; Sun, 19 Sep 2010 10:10:39 +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:71061 Archived-At: Signed-off-by: Julien Danjou --- lisp/ChangeLog | 2 ++ lisp/gnus-html.el | 13 ++++++++++--- 2 files changed, 12 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 50c0512..565706c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -5,6 +5,8 @@ (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. + Add support for `s' and `ins' tags. Use gnus-emphasis-* faces. + (gnus-article-html): Add -o display_ins_del=2 option. 2010-09-19 Lars Magne Ingebrigtsen diff --git a/lisp/gnus-html.el b/lisp/gnus-html.el index 497878f..ba4a020 100644 --- a/lisp/gnus-html.el +++ b/lisp/gnus-html.el @@ -114,6 +114,7 @@ fit these criteria." "-I" "UTF-8" "-O" "UTF-8" "-o" "ext_halfdump=1" + "-o" "display_ins_del=2" "-o" "pre_conv=1" "-t" (format "%s" tab-width) "-cols" (format "%s" gnus-html-frame-width) @@ -256,13 +257,19 @@ fit these criteria." ;; w3m does not normalize the case ((or (equal tag "b") (equal tag "B")) - (gnus-overlay-put (gnus-make-overlay start end) 'face 'bold)) + (gnus-overlay-put (gnus-make-overlay start end) 'face 'gnus-emphasis-bold)) ((or (equal tag "u") (equal tag "U")) - (gnus-overlay-put (gnus-make-overlay start end) 'face 'underline)) + (gnus-overlay-put (gnus-make-overlay start end) 'face 'gnus-emphasis-underline)) ((or (equal tag "i") (equal tag "I")) - (gnus-overlay-put (gnus-make-overlay start end) 'face 'italic)) + (gnus-overlay-put (gnus-make-overlay start end) 'face 'gnus-emphasis-italic)) + ((or (equal tag "s") + (equal tag "S")) + (gnus-overlay-put (gnus-make-overlay start end) 'face 'gnus-emphasis-strikethru)) + ((or (equal tag "ins") + (equal tag "INS")) + (gnus-overlay-put (gnus-make-overlay start end) 'face 'gnus-emphasis-underline)) ;; Whatever. Just ignore the tag. (t )) -- 1.7.1