From: morioka <morioka>
Date: Fri, 3 Apr 1998 06:32:56 +0000 (+0000)
Subject: (mime-text-add-url-buttons): Use `widget-convert-text' instead of
X-Git-Tag: semi-1_2_0^6
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8ae55288366067d371944828fe4c53f688f45504;p=elisp%2Fsemi.git

(mime-text-add-url-buttons): Use `widget-convert-text' instead of
`mime-add-button'.
---

diff --git a/mime-text.el b/mime-text.el
index 6a22fbd..933c935 100644
--- a/mime-text.el
+++ b/mime-text.el
@@ -5,7 +5,7 @@
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Keywords: text, MIME, multimedia, mail, news
 
-;; This file is part of SEMI (Suite of Emacs MIME Interfaces).
+;; This file is part of WEMI (Widget based Emacs MIME Interfaces).
 
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License as
@@ -25,6 +25,7 @@
 ;;; Code:
 
 (require 'mime-view)
+(autoload 'widget-convert-text "wid-edit")
 
 
 ;;; @ buffer local variables in raw-buffer
@@ -118,8 +119,7 @@ local variable `mime-text-decoder' and variable
   (while (re-search-forward mime-text-url-regexp nil t)
     (let ((beg (match-beginning 0))
 	  (end (match-end 0)))
-      (mime-add-button beg end #'mime-text-browse-url
-		       (list (buffer-substring beg end)))
+      (widget-convert-text 'url-link beg end)
       )))
 
 (defun mime-text-add-url-buttons-maybe ()