[prev in list] [next in list] [prev in thread] [next in thread] 

List:       exmh-workers
Subject:    x-url mime type
From:       Chris Garrigues <cwg () DeepEddy ! Com>
Date:       1996-11-06 18:49:40
[Download RAW message or body]

[Attachment #2 (multipart/mixed)]
This is a multipart MIME message.


Cyberdog users seem found of including URLs in their messages.  Here's support 
for the x-url mimetype that cyberdog uses.




*** app-defaults.old	Wed Nov  6 12:18:51 1996
--- app-defaults	Wed Nov  6 12:42:14 1996
***************
*** 484,490 ****
  	multipart/report message/delivery-status \
  	application/x-pgp-message \
  	multipart/fv-infohaus application/fv-infohaus \
! 	multipart/signed multipart/encrypted
  *mimeUTypes:
  !
  *mime_text/plain:		Mime_ShowText
--- 484,492 ----
  	multipart/report message/delivery-status \
  	application/x-pgp-message \
  	multipart/fv-infohaus application/fv-infohaus \
! 	multipart/signed multipart/encrypted \
! 	application/x-url
! =

  *mimeUTypes:
  !
  *mime_text/plain:		Mime_ShowText
***************
*** 514,520 ****
  *mime_image:			Mime_ShowImage
  *mime_application/fv-infohaus:	Mime_ShowText
  *mime_multipart/fv-infohaus:	Mime_ShowMultipart
! =

  !
  ! Signature message type handlers
  ! sigProts lists the known signature protocols
--- 516,522 ----
  *mime_image:			Mime_ShowImage
  *mime_application/fv-infohaus:	Mime_ShowText
  *mime_multipart/fv-infohaus:	Mime_ShowMultipart
! *mime_application/x-url:	Mime_ShowUri
  !
  ! Signature message type handlers
  ! sigProts lists the known signature protocols


*** uri.tcl.old	Wed Nov  6 12:41:38 1996
--- uri.tcl	Wed Nov  6 12:42:04 1996
***************
*** 353,355 ****
--- 353,372 ----
  =

       $w config -cursor $x
   }
+ =

+ proc Mime_ShowUri {tkw part} {
+     global mimeHdr mime miscRE
+ =

+     MimeWithDisplayHiding $tkw $part {
+ 	set subtype [file tail $mimeHdr($part,type)]
+ 	Mime_WithTextFile fileIO $tkw $part {
+ 	    set url [read $fileIO]
+ 	    set start [$tkw index insert]
+ 	    $tkw insert insert $url
+ 	    set end [$tkw index insert]
+ 	    $tkw insert insert \n
+ 	    URI_ActiveText $tkw $start $end $url
+ 	}
+     }
+     return 1
+ }


Chris Garrigues                    O-              cwg@DeepEddy.Com
  Deep Eddy Internet Consulting                     +1 512 432 4046
  609 Deep Eddy Avenue
  Austin, TX  78703-4513              http://www.DeepEddy.Com/~cwg/

[Attachment #8 (application/pgp-signature)]

[prev in list] [next in list] [prev in thread] [next in thread]