From: shuhei-k <shuhei-k>
Date: Wed, 24 Jun 1998 12:32:18 +0000 (+0000)
Subject: (mime-browse-url-regexp): Renamed from `mime-text-url-regexp'.
X-Git-Tag: remi-1_8_0~13
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a556556dca719fd3efa456c120cdd9001b7ab049;p=elisp%2Fsemi.git

(mime-browse-url-regexp): Renamed from `mime-text-url-regexp'.
(mime-browse-url): Renamed from `mime-text-browse-url'.
(mime-browse-add-url-buttons): Renamed from `mime-text-add-url-buttons'.
(mime-browse-add-url-buttons-maybe): Renamed from
`mime-text-add-url-buttons-maybe'.
---

diff --git a/semi-def.el b/semi-def.el
index c260a41..3580c5e 100644
--- a/semi-def.el
+++ b/semi-def.el
@@ -99,8 +99,45 @@
 	  (apply func data)
 	(if (fboundp mime-button-mother-dispatcher)
 	    (funcall mime-button-mother-dispatcher event)
-	  )
-	))))
+	  )))))
+
+
+;;; @ for URL
+;;;
+
+(require 'browse-url)
+
+(defcustom mime-browse-url-regexp
+  (concat "\\(http\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\):"
+	  "\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?"
+	  "[-a-zA-Z0-9_=?#$@~`%&*+|\\/.,]*[-a-zA-Z0-9_=#$@~`%&*+|\\/]")
+  "*Regexp to match URL in text body."
+  :group 'mime
+  :type 'regexp)
+
+(defun mime-browse-url (&optional url)
+  (if (fboundp browse-url-browser-function)
+      (if url 
+	  (funcall browse-url-browser-function url)
+	(call-interactively browse-url-browser-function))
+    (if (fboundp mime-button-mother-dispatcher)
+	(call-interactively mime-button-mother-dispatcher)
+      )))
+
+(defsubst mime-browse-add-url-buttons ()
+  "Add URL-buttons for text body."
+  (goto-char (point-min))
+  (while (re-search-forward mime-browse-url-regexp nil t)
+    (let ((beg (match-beginning 0))
+	  (end (match-end 0)))
+      (mime-add-button beg end (function mime-browse-url)
+		       (list (buffer-substring beg end))))))
+
+(defun mime-browse-add-url-buttons-maybe ()
+  "Add URL-buttons if 'browse-url-browser-function is non-nil."
+  (if browse-url-browser-function
+      (mime-browse-add-url-buttons)
+    ))
 
 
 ;;; @ menu