[gnus git] branch master updated: m0-13-54-g851278b =2= Quoting fixes ; Documentation fixes re quotes
Katsumi Yamaoka <[email protected]> Tue, 01 Sep 2015 00:30:15 +0200
| Newsgroups | gmane.emacs.gnus.cvs |
|---|---|
| Message-ID | <[email protected]> |
via 851278bf56a0156a4dd5896e9959f63e33d07ee2 (commit)
via e6107d4890e0671770a23ed880778579730850a2 (commit)
from 559e4108ff97c334f5affb3519657e73dfe3dad7 (commit)
- Log -----------------------------------------------------------------
commit 851278bf56a0156a4dd5896e9959f63e33d07ee2
Author: Paul Eggert <[email protected]>
Date: Mon Aug 31 22:28:22 2015 +0000
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
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,26 @@
+2015-08-31 Paul Eggert <[email protected]>
+
+ * 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 <[email protected]>
Go back to grave quoting in Gnus
diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 7b35de0..fc75586 100644
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -868,7 +868,8 @@ 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'? "
+ (gnus-format-message
+ "Synchronize flags on server `%s'? "
(cadr method))))))
(gnus-agent-synchronize-flags-server method)))
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 1367440..c893544 100644
--- 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
--- 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
--- 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
--- 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
--- a/lisp/gnus-topic.el
+++ b/lisp/gnus-topic.el
@@ -1616,7 +1616,7 @@ 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'."
+ (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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
commit e6107d4890e0671770a23ed880778579730850a2
Author: Paul Eggert <[email protected]>
Date: Mon Aug 31 22:15:30 2015 +0000
Documentation fixes re quotes
* gnus-faq.texi (FAQ 5-13, FAQ 6-2):
* gnus.texi (Score Decays, SpamAssassin):
Prefer curved quotes in examples if users will typically see curved
quotes when the examples run.
diff --git a/texi/ChangeLog b/texi/ChangeLog
index 163f834..c0a7b6b 100644
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,10 @@
+2015-08-31 Paul Eggert <[email protected]>
+
+ * gnus-faq.texi (FAQ 5-13, FAQ 6-2):
+ * gnus.texi (Score Decays, SpamAssassin):
+ Prefer curved quotes in examples if users will typically see curved
+ quotes when the examples run.
+
2015-07-09 Nikolaus Rath <[email protected]>
* gnus.texi (Customizing the IMAP Connection):
diff --git a/texi/gnus-faq.texi b/texi/gnus-faq.texi
index 76d1a52..0b856c7 100644
--- a/texi/gnus-faq.texi
+++ b/texi/gnus-faq.texi
@@ -1671,7 +1671,7 @@ instead (works for newer versions as well):
(setq message-user-fqdn fqdn)
(gnus-message 1 "Redefining `message-make-fqdn'.")
(defun message-make-fqdn ()
- "Return user's fully qualified domain name."
+ "Return user’s fully qualified domain name."
fqdn))))
@end example
@noindent
@@ -1765,9 +1765,9 @@ snippet by Frank Haun <pille3003@@fhaun.de> in
@example
(defun my-archive-article (&optional n)
- "Copies one or more article(s) to a corresponding `nnml:' group, e.g.,
-`gnus.ding' goes to `nnml:1.gnus.ding'. And `nnml:List-gnus.ding' goes
-to `nnml:1.List-gnus-ding'.
+ "Copies one or more article(s) to a corresponding ‘nnml:’ group, e.g.,
+‘gnus.ding’ goes to ‘nnml:1.gnus.ding’. And ‘nnml:List-gnus.ding’ goes
+to ‘nnml:1.List-gnus-ding’.
Use process marks or mark a region in the summary buffer to archive
more then one article."
diff --git a/texi/gnus.texi b/texi/gnus.texi
index 97673ea..1bc4279 100644
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -21033,8 +21033,8 @@ function:
@lisp
(defun gnus-decay-score (score)
- "Decay SCORE according to `gnus-score-decay-constant'
-and `gnus-score-decay-scale'."
+ "Decay SCORE according to ‘gnus-score-decay-constant’
+and ‘gnus-score-decay-scale’."
(let ((n (- score
(* (if (< score 0) -1 1)
(min (abs score)
@@ -24080,7 +24080,7 @@ spam. And here is the nifty function:
@lisp
(defun my-gnus-raze-spam ()
- "Submit SPAM to Vipul's Razor, then mark it as expirable."
+ "Submit SPAM to Vipul’s Razor, then mark it as expirable."
(interactive)
(gnus-summary-save-in-pipe "razor-report -f -d" t)
(gnus-summary-mark-as-expirable 1))
-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.
Summary of changes:
lisp/ChangeLog | 23 +++++++++++++++++++++++
lisp/gnus-agent.el | 5 +++--
lisp/gnus-art.el | 4 ++--
lisp/gnus-eform.el | 3 ++-
lisp/gnus-fun.el | 2 +-
lisp/gnus-group.el | 5 +++--
lisp/gnus-topic.el | 4 ++--
lisp/mail-source.el | 2 +-
lisp/message.el | 6 +++---
lisp/mm-decode.el | 2 +-
lisp/mm-uu.el | 3 ++-
lisp/mml-smime.el | 4 ++--
lisp/rfc2231.el | 8 ++++----
lisp/spam-report.el | 2 +-
lisp/tls.el | 2 +-
texi/ChangeLog | 7 +++++++
texi/gnus-faq.texi | 8 ++++----
texi/gnus.texi | 6 +++---
18 files changed, 65 insertions(+), 31 deletions(-)
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".
The branch, master has been updated
hooks/post-receive
--
Gnus Project