X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fabout.el;h=a0f5714e7a8295685f07d69f014712da47c132d9;hb=3ca93f4c76fca3afcbe47893ef6ac97b12a9c30b;hp=f24468b43d933b8a4935e6dea737a8a12c82793a;hpb=3f6ecf401c01c83743af2c1e068f57e8d2e2e410;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/about.el b/lisp/about.el
index f24468b..a0f5714 100644
--- a/lisp/about.el
+++ b/lisp/about.el
@@ -210,7 +210,7 @@
     (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/")
@@ -243,12 +243,16 @@
 		 :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
@@ -1220,7 +1224,7 @@ xxML and hairy script languages !)  and the Scheme language.\n"))
     (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
@@ -1240,8 +1244,10 @@ for CBS SportsLine.  See ")
 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
       "\