emacs-28 6a05715552: Update the Samaritan's contact details in M-x doctor

[Stefan Kangas]

branch: emacs-28
commit 6a057155521229ab4621a81180fa238e498d7cf8
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    Update the Samaritan's contact details in M-x doctor
    
    * lisp/play/doctor.el (doctor-death): Update the Samaritans's contact
    details; anon.twwells.com is no longer valid.  Add link to Wikipedia.
---
 lisp/play/doctor.el | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/lisp/play/doctor.el b/lisp/play/doctor.el
index a640f8ca66..607b0d5837 100644
--- a/lisp/play/doctor.el
+++ b/lisp/play/doctor.el
@@ -1579,13 +1579,14 @@ Hack on previous word, setting global variable 
DOCTOR-OWNER to correct result."
                       (equal doctor-found 'killing))
                   (memq 'yourself doctor-sent)))
         (setq doctor--suicide-flag t)
-        (doctor-type '(If you are really suicidal\, you might
-                          want to contact the Samaritans via
-                          E-mail: jo@samaritans.org or\, at your option\,
-                          anonymous E-mail: samaritans@anon.twwells.com\ \.
-                           or find a Befrienders crisis center at
-                           https://www.befrienders.org/\ \.
-                          (doc$ doctor--please) (doc$ doctor--continue) \.)))
+         (doctor-type '( If you are really suicidal\, you might
+                         want to contact the Samaritans via
+                         e-mail: jo@samaritans.org \.
+                         or find a Befrienders crisis center at
+                         https://www.befrienders.org/\ \.
+                         you can also find other suicide crisis lines at
+                         
https://en.wikipedia.org/wiki/List_of_suicide_crisis_lines \.
+                         (doc$ doctor--please) (doc$ doctor--continue) \.)))
        (t (doctor-type (doc$ doctor--deathlst)))))
 
 (defun doctor-foul ()