From: Chong Yidong <cyd@gnu.org>
Date: Sat, 15 Oct 2011 16:35:19 +0000 (-0400)
Subject: * lisp/mail/sendmail.el (sendmail-query-once): Tweak prompt message
X-Git-Tag: emacs-pretest-24.0.91~117
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6bbfa6e17d61b9725bf7240f86cbb802eee669f5;p=emacs.git

* lisp/mail/sendmail.el (sendmail-query-once): Tweak prompt message
putting the argument choices in front and in bold.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7f4462179ec..63f199304a6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-10-15  Chong Yidong  <cyd@stupidchicken.com>
+
+	* mail/sendmail.el (sendmail-query-once): Tweak prompt message,
+	putting the input text in front and in bold.
+
 2011-10-14  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* pcmpl-unix.el (pcomplete/ssh): SSH does allow ganging.
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index d685b8b3e70..6044392d4e0 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -513,34 +513,40 @@ This also saves the value of `send-mail-function' via Customize."
   ;; a second time, probably because someone's using an old value
   ;; of send-mail-function.
   (when (eq send-mail-function 'sendmail-query-once)
-    (let* ((options `(("Mail client" . mailclient-send-it)
+    (let* ((options `(("mail client" . mailclient-send-it)
                       ,@(when (and sendmail-program
                                    (executable-find sendmail-program))
-                          '(("Mail transport agent" . sendmail-send-it)))
-                      ("SMTP server" . smtpmail-send-it)))
+                          '(("transport" . sendmail-send-it)))
+                      ("smtp" . smtpmail-send-it)))
            (choice
             ;; Query the user.
             (with-temp-buffer
               (rename-buffer "*Emacs Mail Setup Help*" t)
               (insert "\
- Emacs is about to send an email message.  However, it was not configured
- for sending email.  You can instruct Emacs to send email in one of the
- following ways:
-
- - Start your default mail client and pass to it the message text.
-   Type \"Mail client\" at the prompt below to select this option.\n\n")
-	      (if (and sendmail-program
-		       (executable-find sendmail-program))
-		  (insert "\
- - Invoke the system's mail transport agent (\"sendmail\").
-   Type \"Mail transport agent\" at the prompt below to select this option.\n\n"))
+ Emacs is about to send an email message, but it has not been
+ configured for sending email.  To tell Emacs how to send email:
+
+ - Type `"
+		      (propertize "mail client" 'face 'bold)
+		      "' to start your default email client and
+   pass it the message text.\n\n")
+	      (and sendmail-program
+		   (executable-find sendmail-program)
+		   (insert "\
+ - Type `"
+			   (propertize "transport" 'face 'bold)
+			   "' to invoke the system's mail transport agent
+   (the `"
+			   sendmail-program
+			   "' program).\n\n"))
 	      (insert "\
- - Send mail directly by communicating with your mail server
-   (this requires setting up SMTP parameters).
-   Type \"SMTP server\" at the prompt below to select this option.
+ - Type `"
+		      (propertize "smtp" 'face 'bold)
+		      "' to send mail directly to an \"outgoing mail\" server.
+   (Emacs may prompt you for SMTP settings).
 
- Emacs will record your selection and will use it thereafter.  To change
- your selection later, customize the option `send-mail-function'.\n")
+ Emacs will record your selection and will use it thereafter.
+ To change it later, customize the option `send-mail-function'.\n")
               (goto-char (point-min))
               (display-buffer (current-buffer))
               (let ((completion-ignore-case t))