From 1250af7b900dd9ab6ec18113c62048e0ef416cd7 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Thu, 4 Dec 2008 10:53:18 +0000 Subject: [PATCH] * mm-view.el (mm-inline-text-html-render-with-w3m): Make it simple and fast. * gnus-art.el (gnus-article-wash-html-with-w3m): Ditto. --- lisp/gnus/ChangeLog | 7 ++++++ lisp/gnus/gnus-art.el | 46 ++++++++++++++++++-------------------- lisp/gnus/mm-view.el | 51 +++++++++++++++++++------------------------ 3 files changed, 51 insertions(+), 53 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 37a6355ce31..535cbd065f5 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,10 @@ +2008-12-04 Katsumi Yamaoka + + * mm-view.el (mm-inline-text-html-render-with-w3m): Make it simple and + fast. + + * gnus-art.el (gnus-article-wash-html-with-w3m): Ditto. + 2008-12-04 Naohiro Aota * mm-view.el (mm-inline-text-html-render-with-w3m): Put special keymap diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 7d96a347b0b..a5d09f466d6 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -2728,37 +2728,33 @@ charset defined in `gnus-summary-show-article-charset-alist' is used." (let ((w3m-safe-url-regexp mm-w3m-safe-url-regexp) w3m-force-redisplay) (w3m-region (point-min) (point-max))) + ;; Put the mark meaning this part was rendered by emacs-w3m. + (put-text-property (point-min) (point-max) 'mm-inline-text-html-with-w3m t) (when (and mm-inline-text-html-with-w3m-keymap (boundp 'w3m-minor-mode-map) w3m-minor-mode-map) (if (and (boundp 'w3m-link-map) w3m-link-map) - (let ((begin (point-min)) - (map (copy-keymap w3m-link-map)) - end) + (let* ((start (point-min)) + (end (point-max)) + (on (get-text-property start 'w3m-href-anchor)) + (map (copy-keymap w3m-link-map)) + next) (set-keymap-parent map w3m-minor-mode-map) - (while (setq end (next-single-property-change begin - 'w3m-href-anchor)) - (add-text-properties - begin end - (list 'keymap (if (get-text-property begin 'w3m-href-anchor) - map - w3m-minor-mode-map) - ;; Put the mark meaning this part was rendered by emacs-w3m. - 'mm-inline-text-html-with-w3m t)) - (setq begin end)) - (add-text-properties - begin (point-max) - (list 'keymap (if (get-text-property begin 'w3m-href-anchor) - map - w3m-minor-mode-map) - ;; Put the mark meaning this part was rendered by emacs-w3m. - 'mm-inline-text-html-with-w3m t))) - (add-text-properties - (point-min) (point-max) - (list 'keymap w3m-minor-mode-map - ;; Put the mark meaning this part was rendered by emacs-w3m. - 'mm-inline-text-html-with-w3m t))))) + (while (< start end) + (if on + (progn + (setq next (or (text-property-any start end + 'w3m-href-anchor nil) + end)) + (put-text-property start next 'keymap map)) + (setq next (or (text-property-not-all start end + 'w3m-href-anchor nil) + end)) + (put-text-property start next 'keymap w3m-minor-mode-map)) + (setq start next + on (not on)))) + (put-text-property (point-min) (point-max) 'keymap w3m-minor-mode-map)))) (defvar charset) ;; Bound by `article-wash-html'. diff --git a/lisp/gnus/mm-view.el b/lisp/gnus/mm-view.el index fd01a0132f6..3f86642b18b 100644 --- a/lisp/gnus/mm-view.el +++ b/lisp/gnus/mm-view.el @@ -258,40 +258,35 @@ (let ((w3m-safe-url-regexp mm-w3m-safe-url-regexp) w3m-force-redisplay) (w3m-region (point-min) (point-max) nil charset)) + ;; Put the mark meaning this part was rendered by emacs-w3m. + (put-text-property (point-min) (point-max) + 'mm-inline-text-html-with-w3m t) (when (and mm-inline-text-html-with-w3m-keymap (boundp 'w3m-minor-mode-map) w3m-minor-mode-map) (if (and (boundp 'w3m-link-map) w3m-link-map) - (let ((begin (point-min)) - (map (copy-keymap w3m-link-map)) - end) + (let* ((start (point-min)) + (end (point-max)) + (on (get-text-property start 'w3m-href-anchor)) + (map (copy-keymap w3m-link-map)) + next) (set-keymap-parent map w3m-minor-mode-map) - (while (setq end (next-single-property-change - begin 'w3m-href-anchor)) - (add-text-properties - begin end - (list 'keymap (if (get-text-property begin 'w3m-href-anchor) - map - w3m-minor-mode-map) - ;; Put the mark meaning this part was rendered - ;; by emacs-w3m. - 'mm-inline-text-html-with-w3m t)) - (setq begin end)) - (add-text-properties - begin (point-max) - (list 'keymap (if (get-text-property begin 'w3m-href-anchor) - map - w3m-minor-mode-map) - ;; Put the mark meaning this part was rendered - ;; by emacs-w3m. - 'mm-inline-text-html-with-w3m t))) - (add-text-properties - (point-min) (point-max) - (list 'keymap w3m-minor-mode-map - ;; Put the mark meaning this part was rendered - ;; by emacs-w3m. - 'mm-inline-text-html-with-w3m t)))) + (while (< start end) + (if on + (progn + (setq next (or (text-property-any start end + 'w3m-href-anchor nil) + end)) + (put-text-property start next 'keymap map)) + (setq next (or (text-property-not-all start end + 'w3m-href-anchor nil) + end)) + (put-text-property start next 'keymap w3m-minor-mode-map)) + (setq start next + on (not on)))) + (put-text-property (point-min) (point-max) + 'keymap w3m-minor-mode-map))) (mm-handle-set-undisplayer handle `(lambda () -- 2.39.2