(marcpa . "http://www.positron911.com/products/power.htm")
(ograf . "http://www.fga.de/~ograf/")
(pez . "http://cbs.sportsline.com/")
- (piper . "http://www.xemacs.freeserve.co.uk/")
+ (piper . "http://www.andypiper.com/")
(rossini . "http://faculty.washington.edu/rossini/")
(stigb . "http://www.tihlde.hist.no/~stigb/")
(vin . "http://www.upa.org/")
:tag (or text-to-insert url)
url))
-;; Insert a mailto: link in the buffer.
+;; Insert a mail link in the buffer.
(defun about-mailto-link (address)
- (about-url-link
- (concat "mailto:" address) address
- (concat "Send mail to " address)
- ))
+ (lexical-let ((address address))
+ (widget-create 'link
+ :tag address
+ :button-prefix ""
+ :button-suffix ""
+ :action (lambda (widget &optional event)
+ (compose-mail address))
+ :help-echo (format "Send mail to %s" address))))
;; Attach a face to a string, in order to be inserted into the buffer.
;; Make sure that the extent is duplicable, but unique. Returns the
(pelegri
(widget-insert
"\
-I did my my PhD at UCB and a postdoc at CSL/PARC. I joined Sun in 1990,
+I did my PhD at UCB and a postdoc at CSL/PARC. I joined Sun in 1990,
spent some time in DevPro (that is when I made my contribution to
XEmacs) and joined JavaSoft in fall '95, where I've been the lead for
several JSP-related specifications and JAX-RPC. I'm currently the Web
My home page is here:\n")
(about-url-link 'piper nil "Visit andy's home page")
(widget-insert "\n
-Andy has recently rejoined the XEmacs team to help port XEmacs to
-MS Windows operating systems.\n"))
+ Andy has been active in the XEmacs team for a number of years,
+helping port XEmacs to MS Windows operating systems. He is also the
+current MS Windows release manager and maintains the MS Windows
+netinstaller.\n"))
(pittman
(widget-insert
"\