   "insert the current time into the current buffer."
        (interactive)
        (insert (format-time-string tn-time-with-seconds-format (current-time))))
+
+(defun tn-copy-target-value-to-clipboard ()
+    (interactive)
+    (let ((g (current-target-value)))
+        (if g
+            (let ((buffer (get-buffer-create "*temp*")))
+                (with-current-buffer buffer
+                    (unwind-protect
+                         (insert g)
+                         (let ((beg 1) (end (+ (length g) 1)))
+                            (clipboard-kill-ring-save beg end))
+                        (kill-buffer buffer))))
+            (no-target))))
 
 (global-set-key (kbd "C-c a")           'tn-visit-url-at-point)
 (global-set-key (kbd "C-c d")           'tn-debug)

(global-set-key (kbd "C-c C-s C-] 2")   'tn-set-max-sharability-2)
(global-set-key (kbd "C-c C-s C-] 3")   'tn-set-max-sharability-3)
(global-set-key (kbd "C-c C-s C-] 4")   'tn-set-max-sharability-4)
(global-set-key (kbd "C-c C-s C-] g")   'tn-set-max-sharability-0)
(global-set-key (kbd "C-c C-s C-] a")   'tn-set-max-sharability-1)
(global-set-key (kbd "C-c C-s C-] s")   'tn-set-max-sharability-2)
(global-set-key (kbd "C-c C-s C-] d")   'tn-set-max-sharability-3)
(global-set-key (kbd "C-c C-s C-] f")   'tn-set-max-sharability-4)
(global-set-key (kbd "C-c C-t a")       'tn-browse-target-value-as-url)
(global-set-key (kbd "C-c C-t C-b a")   'tn-browse-target-value-in-amazon)
(global-set-key (kbd "C-c C-t C-b e")   'tn-browse-target-value-in-ebay)
(global-set-key (kbd "C-c C-t C-b d")   'tn-browse-target-value-in-delicious)

    (goto-address-at-point))  ;; defined in Emacs goto-addr.el

(defun browse-target-value (value-to-url)
    (let ((value (current-target-value)))
        (if value
            (browse-url (funcall value-to-url value))
            (no-target))))

(defun tn-browse-target-value-as-url ()
