[gnus git] branch master updated: m0-11-152-g37645a2 =1= mm-decode.el: Fix previous commit

       via  37645a283b23df8169ab52431b0f0baa24a79533 (commit)
      from  288147a49ae038fcfd224f18d2bcb97d95648d8d (commit)


- Log -----------------------------------------------------------------
commit 37645a283b23df8169ab52431b0f0baa24a79533
Author: Katsumi Yamaoka <[email protected]>
Date:   Tue Feb 10 07:52:57 2015 +0000

    mm-decode.el: Fix previous commit

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 30c8180..9d01fa5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2015-02-10  Katsumi Yamaoka  <[email protected]>
+
+	* mm-decode.el (mm-convert-shr-links): Delete useless variable `face';
+	use gnus-overlays-at and gnus-overlay-put.
+
 2015-02-10  Lars Ingebrigtsen  <[email protected]>
 
 	* mm-decode.el (mm-shr): Only pass the fill column when not using
diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index 6c783bb..b2a0cad 100644
--- a/lisp/mm-decode.el
+++ b/lisp/mm-decode.el
@@ -30,6 +30,8 @@
 (autoload 'gnus-map-function "gnus-util")
 (autoload 'gnus-replace-in-string "gnus-util")
 (autoload 'gnus-read-shell-command "gnus-util")
+(autoload 'gnus-overlays-at "gnus-util")
+(autoload 'gnus-overlay-put "gnus-util")
 
 (autoload 'mm-inline-partial "mm-partial")
 (autoload 'mm-inline-external-body "mm-extern")
@@ -1894,15 +1896,14 @@ If RECURSIVE, search recursively."
 		(< start (point-max)))
       (when (setq start (text-property-not-all start (point-max) 'shr-url nil))
 	(setq end (next-single-property-change start 'shr-url nil (point-max)))
-	(setq face (get-text-property start 'face))
 	(widget-convert-button
 	 'url-link start end
 	 :help-echo (get-text-property start 'help-echo)
 	 :keymap shr-map
 	 (get-text-property start 'shr-url))
 	(put-text-property start end 'local-map nil)
-	(dolist (overlay (overlays-at start))
-	  (overlay-put overlay 'face nil))
+	(dolist (overlay (gnus-overlays-at start))
+	  (gnus-overlay-put overlay 'face nil))
 	(setq start end)))))
 
 (defun mm-handle-filename (handle)

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog    |    5 +++++
 lisp/mm-decode.el |    7 ++++---
 2 files changed, 9 insertions(+), 3 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project