add missing extension method for HyperKitty URLs

complements b9bcae3
hpi-swa-lab · Jun 4, 2023 · 74f3b67 · 74f3b67
1 parent 9eac07e
commit 74f3b67
Show file tree

Hide file tree

Showing 5 changed files with 17 additions and 2 deletions.
diff --git a/packages/SqueakInboxTalk.package/Integer.extension/instance/talkAsByteArray.st b/packages/SqueakInboxTalk.package/Integer.extension/instance/talkAsByteArray.st
@@ -0,0 +1,8 @@
+*SqueakInboxTalk-Core-converting
+talkAsByteArray
+	"copied from Pharo 5"
+	| stream |
+	stream := ByteArray new writeStream.
+	self digitLength to: 1 by: -1 do: [:digitIndex |
+		stream nextPut: (self digitAt: digitIndex)].
+	^ stream contents
diff --git a/packages/SqueakInboxTalk.package/Integer.extension/methodProperties.json b/packages/SqueakInboxTalk.package/Integer.extension/methodProperties.json
@@ -0,0 +1,5 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"talkAsByteArray" : "ct 6/5/2023 00:09" } }
diff --git a/packages/SqueakInboxTalk.package/Integer.extension/properties.json b/packages/SqueakInboxTalk.package/Integer.extension/properties.json
@@ -0,0 +1,2 @@
+{
+	"name" : "Integer" }
diff --git a/...ges/SqueakInboxTalk.package/TalkInbox.class/instance/hyperkittyUrlForMessageId.thread..st b/...ges/SqueakInboxTalk.package/TalkInbox.class/instance/hyperkittyUrlForMessageId.thread..st
@@ -8,6 +8,6 @@ hyperkittyUrlForMessageId: messageId thread: thread
 		id := id allButFirst allButLast].
 	id := id take: 255.
 	hash := (Base32MimeConverter mimeEncode:
-		(SecureHashAlgorithm new hashMessage: id) asByteArray readStream)
+		(SecureHashAlgorithm new hashMessage: id) talkAsByteArray readStream)
 			contents.
 	^ 'https://lists.squeakfoundation.org/archives/list/{1}@lists.squeakfoundation.org/{2}/{3}/' format: {self name. thread ifTrue: ['thread'] ifFalse: ['message']. hash}
diff --git a/packages/SqueakInboxTalk.package/TalkInbox.class/methodProperties.json b/packages/SqueakInboxTalk.package/TalkInbox.class/methodProperties.json
@@ -29,7 +29,7 @@
 		"downloadRange:" : "ct 5/25/2021 18:32",
 		"hyperkittyThreadUrlForMessageId:" : "ct 6/1/2023 18:27",
 		"hyperkittyUrlForMessageId:" : "ct 6/1/2023 18:25",
-		"hyperkittyUrlForMessageId:thread:" : "ct 6/1/2023 18:25",
+		"hyperkittyUrlForMessageId:thread:" : "ct 6/5/2023 00:10",
 		"initialize" : "ct 12/2/2022 00:10",
 		"lastRefreshed" : "ct 7/8/2021 13:11",
 		"mailAddress" : "ct 5/26/2021 16:43",