tm 7.37.

[elisp/tm.git] / tm-view.el

diff --git a/tm-view.el b/tm-view.el
index 5c27012..7acb55a 100644 (file)
--- a/tm-view.el
+++ b/tm-view.el
@@ -8,7 +8,7 @@
 ;;; modified by Steven L. Baur <steve@miranova.com>
 ;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Created: 1994/7/13 (1994/8/31 obsolete tm-body.el)
-;;; Version: $Revision: 7.36 $
+;;; Version: $Revision: 7.37 $
 ;;; Keywords: mail, news, MIME, multimedia
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -44,7 +44,7 @@
 ;;;
 
 (defconst mime-viewer/RCS-ID
-  "$Id: tm-view.el,v 7.36 1995/12/18 10:45:02 morioka Exp $")
+  "$Id: tm-view.el,v 7.37 1995/12/19 15:40:46 morioka Exp $")
 
 (defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID))
 (defconst mime/viewer-version mime-viewer/version)
@@ -122,7 +122,7 @@
 (defvar mime-viewer/ignored-field-list
   '(".*Received" ".*Path" ".*Id"
     "Replied" "Errors-To"
-    "Lines" "Sender" "Nntp-Posting-Host"
+    "Lines" "Sender" "Nntp-Posting-Host" "Xref"
     "Content-Type" "Precedence" "X-Face"
     "Status" "X-VM-.*")
   "All fields that match this list will be hidden in MIME preview buffer.
@@ -687,8 +687,11 @@ The compressed face will be piped to this command.")
       (progn
        (goto-char (point-min))
        (while (re-search-forward tm:URL-regexp nil t)
-         (tm:add-button (match-beginning 0)(match-end 0)
-                        (function tm:browse-url))
+         (let ((beg (match-beginning 0))
+               (end (match-end 0)))
+           (tm:add-button beg end
+                          (function tm:browse-url)
+                          (list (buffer-substring beg end))))
          )))
   (run-hooks 'mime-viewer/plain-text-preview-hook)
   )