;; Keywords: text, MIME, multimedia, mail, news
;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
;; Keywords: text, MIME, multimedia, mail, news
;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
(defvar mime-text-url-regexp
"\\(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/plain body.")
(defvar mime-text-url-regexp
"\\(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/plain body.")
(if (fboundp browse-url-browser-function)
(if url
(funcall browse-url-browser-function url)
(call-interactively browse-url-browser-function))
(if (fboundp browse-url-browser-function)
(if url
(funcall browse-url-browser-function url)
(call-interactively browse-url-browser-function))
- (tm:add-button beg end
- (function tm:browse-url)
- (list (buffer-substring beg end))))
+ (mime-add-button beg end
+ (function mime-text-browse-url)
+ (list (buffer-substring beg end))))