/****************************************************************************/
/* Mailto XSpO customized to my name.                                       */
/* Duplicate this file and change the name for other purposes               */
/* Or generate a dialog box and query the user for a name                   */
/****************************************************************************/
arg object

/****************************************************************************/
/* This XSpO can be dropped on a linkable object of the Workarea, in        */
/* which case it returns "LINK" and generates a Mailto URL link, or it      */
/* can be dropped on the Link Manager Window, in which case it adds a       */
/* Mailto URL to the List for future reference.                             */
/****************************************************************************/
if wordpos(object, "NEW_LINKS WORKAREA")=0 then return

/****************************************************************************/
/* Put on the stack a URL and a "title"                                     */
/****************************************************************************/
queue "mailto:Howard.Gilbert@yale.edu" "Howard Gilbert's Email Address"

  if object="WORKAREA" then return "LINK"
  return "ADD"