]> code.delx.au - gnu-emacs/commitdiff
Quoting fixes in Gnus
authorPaul Eggert <eggert@cs.ucla.edu>
Mon, 31 Aug 2015 20:05:16 +0000 (13:05 -0700)
committerPaul Eggert <eggert@cs.ucla.edu>
Mon, 31 Aug 2015 20:07:00 +0000 (13:07 -0700)
* lisp/gnus/gnus-agent.el:
(gnus-agent-possibly-synchronize-flags-server):
* lisp/gnus/gnus-art.el (gnus-article-browse-delete-temp-files):
* lisp/gnus/gnus-eform.el (gnus-edit-form):
* lisp/gnus/gnus-group.el (gnus-group-edit-group)
(gnus-group-nnimap-edit-acl):
* lisp/gnus/gnus-topic.el (gnus-topic-edit-parameters):
* lisp/gnus/mail-source.el (mail-source-delete-old-incoming):
* lisp/gnus/message.el (message-strip-subject-encoded-words)
(message-check-recipients, message-send-form-letter):
* lisp/gnus/mm-decode.el (mm-display-part):
* lisp/gnus/mm-uu.el (mm-uu-pgp-signed-extract-1):
* lisp/gnus/mml-smime.el (mml-smime-get-dns-cert)
(mml-smime-get-ldap-cert):
* lisp/gnus/spam-report.el (spam-report-process-queue):
Respect ‘text-quoting-style’ in diagnostics.
* lisp/gnus/gnus-art.el (article-display-face)
* lisp/gnus/gnus-fun.el (gnus-display-x-face-in-from):
Use straight quoting in email.
* lisp/gnus/rfc2231.el (rfc2231-decode-encoded-string):
Escape apostrophes in doc strings.

13 files changed:
lisp/gnus/gnus-agent.el
lisp/gnus/gnus-art.el
lisp/gnus/gnus-eform.el
lisp/gnus/gnus-fun.el
lisp/gnus/gnus-group.el
lisp/gnus/gnus-topic.el
lisp/gnus/mail-source.el
lisp/gnus/message.el
lisp/gnus/mm-decode.el
lisp/gnus/mm-uu.el
lisp/gnus/mml-smime.el
lisp/gnus/rfc2231.el
lisp/gnus/spam-report.el

index 7b35de076d2945592a8c5a101c0b9e68cd8edbbc..fc75586ccd80d0a17fea48e0f6ef5b1087b61c11 100644 (file)
@@ -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
index 1a439ec9940c72211e902c2b006e79177db2628e..b4a2f6a17731d7c1ad77f0fa4035286f236c68dc 100644 (file)
@@ -2428,7 +2428,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
@@ -2770,7 +2770,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)))
index 0b41b5e8891c22ccb36be48691fd5f0f5cfb237b..c870385840c52069432a24008e6abc4948ce18e8 100644 (file)
@@ -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)
index ca14dd0b6db5a1467c6d75dd1c79f72f4db3496e..2a535cb71ddef3ec9cf133b511f37d66de3997e0 100644 (file)
@@ -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
index c6cc38fc461b57ac4adc031ca19ca6adf9543ff9..ad49824f028613d276385b32562955d57d8fca62 100644 (file)
@@ -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.
 
index 9474ca03069078e112c82ea640a841d7c74f1b15..7c6e109810019b7651b66f6fd9fd5b1facefe643 100644 (file)
@@ -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)))))))
 
index cb74228fdf91e07c5f5bfe23fcda0e0eebc0a63d..ad135d4c2ed45f830cef9e092d33c01683c059b7 100644 (file)
@@ -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)
index d74ce43e5ed4832ff08c7929c1f57e454f062413..0f6f63ea37dcd0593e859521f2fa6a40e68f039a 100644 (file)
@@ -2235,7 +2235,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
@@ -4510,7 +4510,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
@@ -8484,7 +8484,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))
index b0ec16ee03ce38b629359a88ec90d602e3e1a8fd..3d5a15afedb97c00a7c6e665ca403f660343409d 100644 (file)
@@ -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
index fa48ee97bcd247e6d20e166321a411bd0c78931c..8304f6f6a38e797f67393b4ae85d1225e2a0048a 100644 (file)
@@ -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)))))
 
index 3f0809edbe8ffee4eac529f6e3ce00fb8911f473..0bcc9c53c48f037b196b072a5ef49025148bea2b 100644 (file)
@@ -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))
 
index ef7187cbd96754bf949c6d90ef6575b2271b253b..2bc23334199f0b5e4deb1c8738a5ab2a334b46b6 100644 (file)
@@ -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
index 96d72de91c503edce7db1fbb54be6f9719679f7b..de680795a1095604d3a21114a4c42315b2a2ca0f 100644 (file)
@@ -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'"