# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1167225559 0
# Node ID b9d3d3b69df9e7b7bb4a1374ebfaa7e82cdf7f31
# Parent  93d9c528bdc484a89b7a73f313a485884979da53
(select-safe-coding-system-interactively): Improve the message in the
*Warning* buffer.

diff -r 93d9c528bdc4 -r b9d3d3b69df9 lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Wed Dec 27 12:49:36 2006 +0000
+++ b/lisp/international/mule-cmds.el	Wed Dec 27 13:19:19 2006 +0000
@@ -737,18 +737,18 @@
 	      (insert "\n")
 	      (fill-region-as-paragraph pos (point)))
 	    (when rejected
-	      (insert "These safely encodes the target text,
-but it is not recommended for encoding text in this context,
+	      (insert "These safely encode the text in the buffer,
+but are not recommended for encoding text in this context,
 e.g., for sending an email message.\n ")
 	      (dolist (x rejected)
 		(princ " ") (princ x))
 	      (insert "\n"))
 	    (when unsafe
-	      (insert (if rejected "And the others"
+	      (insert (if rejected "The other coding systems"
 			"However, each of them")
-		      " encountered these problematic characters:\n")
+		      " encountered characters it couldn't encode:\n")
 	      (dolist (coding unsafe)
-		(insert (format "  %s:" (car coding)))
+		(insert (format "  %s cannot encode these:" (car coding)))
 		(let ((i 0)
 		      (func1
 		       #'(lambda (bufname pos)
@@ -790,14 +790,15 @@
 		(insert "\n"))
 	      (insert "\
 
-Click those characters to jump to the place they appear,\n"
+Click a character to jump to the place it appears,\n"
 		      (substitute-command-keys "\
-and there \\[universal-argument] \\[what-cursor-position] will give information about it.\n"))))
+where `\\[universal-argument] \\[what-cursor-position]' will give information about it.\n"))))
 	  (insert (substitute-command-keys "\nSelect \
-one of the following safe coding systems,\n\
-or cancel the writing by \\[keyboard-quit] and edit the buffer,\n\
-or specify any other coding system at the risk of
-losing the problematic characters.\n"))
+one of the safe coding systems listed below,\n\
+or cancel the writing with \\[keyboard-quit] and edit the buffer\n\
+   to remove or modify the problematic characters,\n\
+or specify any other coding system (and risk losing\n\
+   the problematic characters).\n\n"))
 	  (let ((pos (point))
 		(fill-prefix "  "))
 	    (dolist (x codings)