XEmacs 21.4.9 "Informed Management".

[chise/xemacs-chise.git.1] / lisp / about.el

diff --git a/lisp/about.el b/lisp/about.el
index f24468b..a0f5714 100644 (file)
--- 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
       "\