Quoting fixes

* gnus-agent.el (gnus-agent-possibly-synchronize-flags-server):
* gnus-art.el (gnus-article-browse-delete-temp-files):
* gnus-eform.el (gnus-edit-form):
* gnus-fun.el (gnus-display-x-face-in-from):
* gnus-group.el (gnus-group-edit-group, gnus-group-nnimap-edit-acl):
* gnus-topic.el (gnus-topic-edit-parameters):
* mail-source.el (mail-source-delete-old-incoming):
* message.el (message-strip-subject-encoded-words)
(message-check-recipients, message-send-form-letter):
* mm-decode.el (mm-display-part):
* mm-uu.el (mm-uu-pgp-signed-extract-1):
* mml-smime.el (mml-smime-get-dns-cert, mml-smime-get-ldap-cert):
* spam-report.el (spam-report-process-queue):
* tls.el (open-tls-stream):
Respect ‘text-quoting-style’ in diagnostics.
* gnus-art.el (article-display-face):
* gnus-fun.el (gnus-display-x-face-in-from):
Use straight quoting in email.
* rfc2231.el (rfc2231-decode-encoded-string):
Escape apostrophes in doc strings.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 66c9f9a..17d81a2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,26 @@
+2015-08-31  Paul Eggert  <eggert@cs.ucla.edu>
+
+       * gnus-agent.el (gnus-agent-possibly-synchronize-flags-server):
+       * gnus-art.el (gnus-article-browse-delete-temp-files):
+       * gnus-eform.el (gnus-edit-form):
+       * gnus-fun.el (gnus-display-x-face-in-from):
+       * gnus-group.el (gnus-group-edit-group, gnus-group-nnimap-edit-acl):
+       * gnus-topic.el (gnus-topic-edit-parameters):
+       * mail-source.el (mail-source-delete-old-incoming):
+       * message.el (message-strip-subject-encoded-words)
+       (message-check-recipients, message-send-form-letter):
+       * mm-decode.el (mm-display-part):
+       * mm-uu.el (mm-uu-pgp-signed-extract-1):
+       * mml-smime.el (mml-smime-get-dns-cert, mml-smime-get-ldap-cert):
+       * spam-report.el (spam-report-process-queue):
+       * tls.el (open-tls-stream):
+       Respect ‘text-quoting-style’ in diagnostics.
+       * gnus-art.el (article-display-face):
+       * gnus-fun.el (gnus-display-x-face-in-from):
+       Use straight quoting in email.
+       * rfc2231.el (rfc2231-decode-encoded-string):
+       Escape apostrophes in doc strings.
+
 2015-08-26  Paul Eggert  <eggert@cs.ucla.edu>
 
        Go back to grave quoting in Gnus

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 7b35de0..fc75586 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -868,8 +868,9 @@ be a select method."
                      (not (eq gnus-agent-synchronize-flags 'ask)))
                 (and (eq gnus-agent-synchronize-flags 'ask)
                      (gnus-y-or-n-p
-                      (format "Synchronize flags on server `%s'? "
-                              (cadr method))))))
+                      (gnus-format-message
+                       "Synchronize flags on server `%s'? "
+                       (cadr method))))))
     (gnus-agent-synchronize-flags-server method)))
 
 ;;;###autoload

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 1367440..c893544 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2429,7 +2429,7 @@ long lines if and only if arg is positive."
              (unless (setq from (gnus-article-goto-header "from"))
                (insert "From:")
                (setq from (point))
-               (insert " [no `from' set]\n"))
+               (insert " [no 'from' set]\n"))
              (while faces
                (when (setq png (gnus-convert-face-to-png (pop faces)))
                  (setq image
@@ -2771,7 +2771,7 @@ summary buffer."
       (cond ((file-directory-p file)
             (when (or (not (eq how 'file))
                       (gnus-y-or-n-p
-                       (format
+                       (gnus-format-message
                         "Delete temporary HTML file(s) in directory `%s'? "
                         (file-name-as-directory file))))
               (gnus-delete-directory file)))

diff --git a/lisp/gnus-eform.el b/lisp/gnus-eform.el
index 0b41b5e..c870385 100644 (file)
--- a/lisp/gnus-eform.el
+++ b/lisp/gnus-eform.el
@@ -96,7 +96,8 @@ The optional LAYOUT overrides the `edit-form' window layout."
     (while (not (eobp))
       (insert ";;; ")
       (forward-line 1))
-    (insert ";; Type `C-c C-c' after you've finished editing.\n")
+    (insert (substitute-command-keys
+            ";; Type `C-c C-c' after you've finished editing.\n"))
     (insert "\n")
     (let ((p (point)))
       (gnus-pp form)

diff --git a/lisp/gnus-fun.el b/lisp/gnus-fun.el
index ca14dd0..2a535cb 100644 (file)
--- a/lisp/gnus-fun.el
+++ b/lisp/gnus-fun.el
@@ -265,7 +265,7 @@ colors of the displayed X-Faces."
          (article-narrow-to-head)
          (gnus-article-goto-header "from")
          (when (bobp)
-           (insert "From: [no `from' set]\n")
+           (insert "From: [no 'from' set]\n")
            (forward-char -17))
          (gnus-add-image
           'xface

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index c6cc38f..ad49824 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -2950,7 +2950,7 @@ and NEW-NAME will be prompted for."
            (gnus-info-params info))
           (t info))
      ;; The proper documentation.
-     (format
+     (gnus-format-message
       "Editing the %s for `%s'."
       (cond
        ((eq part 'method) "select method")
@@ -3278,7 +3278,8 @@ mail messages or news articles in files that have numeric names."
       (error "%s is not an nnimap group" group))
     (unless (setq acl (nnimap-acl-get mailbox (cadr method)))
       (error "Server does not support ACL's"))
-    (gnus-edit-form acl (format "Editing the access control list for `%s'.
+    (gnus-edit-form acl (gnus-format-message "\
+Editing the access control list for `%s'.
 
    An access control list is a list of (identifier . rights) elements.
 

diff --git a/lisp/gnus-topic.el b/lisp/gnus-topic.el
index 9474ca0..7c6e109 100644 (file)
--- a/lisp/gnus-topic.el
+++ b/lisp/gnus-topic.el
@@ -1616,8 +1616,8 @@ If performed on a topic, edit the topic parameters instead."
       (let ((topic (gnus-group-topic-name)))
        (gnus-edit-form
         (gnus-topic-parameters topic)
-        (format "Editing the topic parameters for `%s'."
-                (or group topic))
+        (gnus-format-message "Editing the topic parameters for `%s'."
+                             (or group topic))
         `(lambda (form)
            (gnus-topic-set-parameters ,topic form)))))))
 

diff --git a/lisp/mail-source.el b/lisp/mail-source.el
index cb74228..ad135d4 100644 (file)
--- a/lisp/mail-source.el
+++ b/lisp/mail-source.el
@@ -612,7 +612,7 @@ If CONFIRM is non-nil, ask for confirmation before removing a file."
        (when (and (> (- currday fileday) diff)
                   (if confirm
                       (y-or-n-p
-                       (format "\
+                       (gnus-format-message "\
 Delete old (> %s day(s)) incoming mail file `%s'? " diff bfile))
                     (gnus-message 8 "\
 Deleting old (> %s day(s)) incoming mail file `%s'." diff bfile)

diff --git a/lisp/message.el b/lisp/message.el
index d780e86..7a20d11 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2279,7 +2279,7 @@ contains a valid encoded word.  Decode again? "
          (unless cs-coding
            (setq cs-coding
                  (mm-read-coding-system
-                  (format "\
+                  (gnus-format-message "\
 Decoded Subject \"%s\"
 contains an encoded word.  The charset `%s' is unknown or invalid.
 Hit RET to replace non-decodable characters with \"%s\" or enter replacement
@@ -4554,7 +4554,7 @@ This function could be useful in `message-setup-hook'."
          (dolist (bog (message-bogus-recipient-p addr))
            (and bog
                 (not (y-or-n-p
-                      (format
+                      (gnus-format-message
                        "Address `%s'%s might be bogus.  Continue? "
                        bog
                        ;; If the encoded version of the email address
@@ -8529,7 +8529,7 @@ Header and body are separated by `mail-header-separator'."
        (when force
          (sit-for message-send-form-letter-delay))
        (if (or force
-                 (y-or-n-p (format "Send message to `%s'? " to)))
+                 (y-or-n-p (gnus-format-message "Send message to `%s'? " to)))
            (progn
              (setq sent (1+ sent))
              (message-send-and-exit))

diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index b0ec16e..3d5a15a 100644 (file)
--- a/lisp/mm-decode.el
+++ b/lisp/mm-decode.el
@@ -855,7 +855,7 @@ external if displayed external."
                                      (concat
                                       "using external program \""
                                       (format method filename) "\"")
-                                   (format
+                                   (gnus-format-message
                                     "by calling `%s' on the contents)" method))
                                  "? "))))))
            (if external

diff --git a/lisp/mm-uu.el b/lisp/mm-uu.el
index fa48ee9..8304f6f 100644 (file)
--- a/lisp/mm-uu.el
+++ b/lisp/mm-uu.el
@@ -523,7 +523,8 @@ apply the face `mm-uu-extract'."
        (when (and mml2015-use (null (mml2015-clear-verify-function)))
          (mm-set-handle-multipart-parameter
           mm-security-handle 'gnus-details
-          (format "Clear verification not supported by `%s'.\n" mml2015-use)))
+          (gnus-format-message
+           "Clear verification not supported by `%s'.\n" mml2015-use)))
        (mml2015-extract-cleartext-signature))
       (list (mm-make-handle buf mm-uu-text-plain-type)))))
 

diff --git a/lisp/mml-smime.el b/lisp/mml-smime.el
index 3f0809e..0bcc9c5 100644 (file)
--- a/lisp/mml-smime.el
+++ b/lisp/mml-smime.el
@@ -202,7 +202,7 @@ Whether the passphrase is cached at all is controlled by
                                        "")))))
          (if (setq cert (smime-cert-by-dns who))
              (setq result (list 'certfile (buffer-name cert)))
-           (setq bad (format "`%s' not found. " who))))
+           (setq bad (gnus-format-message "`%s' not found. " who))))
       (quit))
     result))
 
@@ -221,7 +221,7 @@ Whether the passphrase is cached at all is controlled by
                                        "")))))
          (if (setq cert (smime-cert-by-ldap who))
              (setq result (list 'certfile (buffer-name cert)))
-           (setq bad (format "`%s' not found. " who))))
+           (setq bad (gnus-format-message "`%s' not found. " who))))
       (quit))
     result))
 

diff --git a/lisp/rfc2231.el b/lisp/rfc2231.el
index ef7187c..2bc2333 100644 (file)
--- a/lisp/rfc2231.el
+++ b/lisp/rfc2231.el
@@ -209,10 +209,10 @@ must never cause a Lisp error."
 (defun rfc2231-decode-encoded-string (string)
   "Decode an RFC2231-encoded string.
 These look like:
- \"us-ascii'en-us'This%20is%20%2A%2A%2Afun%2A%2A%2A\",
- \"us-ascii''This%20is%20%2A%2A%2Afun%2A%2A%2A\",
- \"'en-us'This%20is%20%2A%2A%2Afun%2A%2A%2A\",
- \"''This%20is%20%2A%2A%2Afun%2A%2A%2A\", or
+ \"us-ascii\\='en-us\\='This%20is%20%2A%2A%2Afun%2A%2A%2A\",
+ \"us-ascii\\='\\='This%20is%20%2A%2A%2Afun%2A%2A%2A\",
+ \"\\='en-us\\='This%20is%20%2A%2A%2Afun%2A%2A%2A\",
+ \"\\='\\='This%20is%20%2A%2A%2Afun%2A%2A%2A\", or
  \"This is ***fun***\"."
   (string-match "\\`\\(?:\\([^']+\\)?'\\([^']+\\)?'\\)?\\(.+\\)" string)
   (let ((coding-system (mm-charset-to-coding-system

diff --git a/lisp/spam-report.el b/lisp/spam-report.el
index 96d72de..de68079 100644 (file)
--- a/lisp/spam-report.el
+++ b/lisp/spam-report.el
@@ -307,7 +307,7 @@ symbol `ask', query before flushing the queue file."
     (if (or (eq keep nil)
            (and (eq keep 'ask)
                 (y-or-n-p
-                 (format
+                 (gnus-format-message
                   "Flush requests from `%s'? " (current-buffer)))))
        (progn
          (gnus-message 7 "Flushing request file `%s'"

diff --git a/lisp/tls.el b/lisp/tls.el
index 9e02945..1226916 100644 (file)
--- a/lisp/tls.el
+++ b/lisp/tls.el
@@ -275,7 +275,7 @@ Fourth arg PORT is an integer specifying a port to connect to."
                             (message "The certificate presented by `%s' is \
 NOT trusted." host))
                        (not (yes-or-no-p
-                             (format "The certificate presented by `%s' is \
+                             (format-message "The certificate presented by `%s' is \
 NOT trusted. Accept anyway? " host)))))
                  (and tls-hostmismatch
                       (save-excursion