1 files changed, 33 insertions, 0 deletions

diff --git a/mail/tkrat2/files/patch-clipboard b/mail/tkrat2/files/patch-clipboard
new file mode 100644
index 000000000000..104d321123e1
--- /dev/null
+++ b/mail/tkrat2/files/patch-clipboard
@@ -0,0 +1,33 @@
+Add the ability to paste an entire message to clipboard -- raw,
+without any decodings...
+
+	-mi
+
+--- tkrat/folder.tcl	Mon Feb 12 11:41:02 2001
++++ tkrat/folder.tcl	Mon May 14 20:13:21 2001
+@@ -165,2 +165,7 @@
+     menu $m.move -postcommand "PostMove $handler current $m.move"
++    $m add command -label $t(copy_all) \
++	    -command "CopyToClipboard $handler"
++    set fh(copy_menu) [list $m [$m index end]]
++    lappend fh(menu_nokeep) [list $m [$m index end]]
++    set b($m,[$m index end]) copy
+     $m add command -label $t(delete) \
+@@ -2082,2 +2088,17 @@
+     }
++}
++
++proc CopyToClipboard handler {
++	set msg [GetMsgSet $handler current]
++	selection clear
++	selection own .
++	selection handle . "DoPasting $msg"
++}
++
++proc DoPasting {msg offset maxChars} {
++	if {[catch {$msg rawText} rawText]} {
++		return ""
++	}
++	regsub -all \r\n $rawText \n rawText
++	return [string range $rawText $offset [expr $offset+$maxChars]]
+ }