(select-safe-coding-system): Improve help message.

1 files changed, 24 insertions, 21 deletions

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 42d4eebe2b3..980019fbc9c 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -603,27 +603,30 @@ and TO is ignored."
             (with-output-to-temp-buffer "*Warning*"
               (save-excursion
                 (set-buffer standard-output)
-                (insert "These default coding systems were tried")
-                (if (stringp from)
-                    (insert " to encode \""
-                            (if (> (length from) 10)
-                                (substring from 0 10)
-                              from)
-                            "...\""))
-                (insert ":\n")
-                (let ((pos (point))
-                      (fill-prefix "  "))
-                  (mapcar (function (lambda (x) (princ "  ") (princ (car x))))
-                          default-coding-system)
-                  (insert "\n")
-                  (fill-region-as-paragraph pos (point)))
-                (insert
-                 (if (consp coding-system)
-                     (concat (format "%s safely encodes the target text,\n"
-                                     (car coding-system))
-                             "but it is not recommended for encoding text in this context,\n"
-                             "e.g., for sending an email message.\n")
-                   "However, none of them safely encodes the target text.\n"))
+                (if (not default-coding-system)
+                    (insert "No default coding systems to try.")
+                  (insert "These default coding systems were tried")
+                  (if (stringp from)
+                      (insert " to encode \""
+                              (if (> (length from) 10)
+                                  (substring from 0 10)
+                                from)
+                              "...\""))
+                  (insert ":\n")
+                  (let ((pos (point))
+                        (fill-prefix "  "))
+                    (mapcar (function (lambda (x)
+                                        (princ "  ") (princ (car x))))
+                            default-coding-system)
+                    (insert "\n")
+                    (fill-region-as-paragraph pos (point)))
+                  (insert
+                   (if (consp coding-system)
+                       (concat (format "%s safely encodes the target text,\n"
+                                       (car coding-system))
+                               "but it is not recommended for encoding text in this context,\n"
+                               "e.g., for sending an email message.\n")
+                     "However, none of them safely encodes the target text.\n")))
                 (insert (if (consp coding-system)
                             "\nSelect the above, or "
                           "\nSelect ")