[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 27b2cff 3/4: Go back to grave quoting in Gnus
From: |
Paul Eggert |
Subject: |
[Emacs-diffs] master 27b2cff 3/4: Go back to grave quoting in Gnus |
Date: |
Wed, 26 Aug 2015 02:00:28 +0000 |
branch: master
commit 27b2cff245fb1c22f831b63810d1266c92b31ba6
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>
Go back to grave quoting in Gnus
* lisp/gnus/auth-source.el (auth-source-netrc-parse-entries):
* lisp/gnus/gnus-agent.el (gnus-agent-check-overview-buffer)
(gnus-agent-fetch-headers):
* lisp/gnus/gnus-int.el (gnus-start-news-server):
* lisp/gnus/gnus-registry.el:
(gnus-registry--split-fancy-with-parent-internal)
(gnus-registry-post-process-groups):
* lisp/gnus/gnus-score.el (gnus-summary-increase-score):
* lisp/gnus/gnus-start.el (gnus-convert-old-newsrc):
* lisp/gnus/gnus-topic.el (gnus-topic-rename):
* lisp/gnus/legacy-gnus-agent.el (gnus-agent-unlist-expire-days):
* lisp/gnus/spam.el (spam-check-blackholes):
Stick with grave quoting in diagnostics strings. This is more
portable to older Emacs, desirable for Gnus.
---
lisp/gnus/auth-source.el | 2 +-
lisp/gnus/gnus-agent.el | 4 ++--
lisp/gnus/gnus-int.el | 2 +-
lisp/gnus/gnus-registry.el | 10 +++++-----
lisp/gnus/gnus-score.el | 2 +-
lisp/gnus/gnus-start.el | 4 ++--
lisp/gnus/gnus-topic.el | 2 +-
lisp/gnus/legacy-gnus-agent.el | 6 +++---
lisp/gnus/spam.el | 2 +-
9 files changed, 17 insertions(+), 17 deletions(-)
diff --git a/lisp/gnus/auth-source.el b/lisp/gnus/auth-source.el
index 367ef6a..3f426bf 100644
--- a/lisp/gnus/auth-source.el
+++ b/lisp/gnus/auth-source.el
@@ -1097,7 +1097,7 @@ Note that the MAX parameter is used so we can exit the
parse early."
(if (equal item2 "machine")
(progn
(gnus-error 1
- "%s: Unexpected ‘machine’ token at line %d"
+ "%s: Unexpected `machine' token at line %d"
"auth-source-netrc-parse-entries"
(auth-source-current-line))
(forward-line 1))
diff --git a/lisp/gnus/gnus-agent.el b/lisp/gnus/gnus-agent.el
index 5f1ffe7..7b35de0 100644
--- a/lisp/gnus/gnus-agent.el
+++ b/lisp/gnus/gnus-agent.el
@@ -1721,7 +1721,7 @@ and that there are no duplicates."
(or backed-up
(setq backed-up (gnus-agent-backup-overview-buffer)))
(gnus-message 1
- "Overview buffer contains garbage ‘%s’."
+ "Overview buffer contains garbage `%s'."
(buffer-substring
p (point-at-eol))))
((= cur prev-num)
@@ -1901,7 +1901,7 @@ article numbers will be returned."
(when articles
(gnus-message
- 10 "gnus-agent-fetch-headers: undownloaded articles are ‘%s’"
+ 10 "gnus-agent-fetch-headers: undownloaded articles are `%s'"
(gnus-compress-sequence articles t)))
(with-current-buffer nntp-server-buffer
diff --git a/lisp/gnus/gnus-int.el b/lisp/gnus/gnus-int.el
index 1c098fa..4f8f17f 100644
--- a/lisp/gnus/gnus-int.el
+++ b/lisp/gnus/gnus-int.el
@@ -165,7 +165,7 @@ If CONFIRM is non-nil, the user will be asked for an NNTP
server."
gnus-batch-mode
(gnus-y-or-n-p
(gnus-format-message
- "%s (%s) open error: ‘%s’. Continue? "
+ "%s (%s) open error: `%s'. Continue? "
(car gnus-select-method) (cadr gnus-select-method)
(gnus-status-message gnus-select-method)))
(gnus-error 1 "Couldn't open server on %s"
diff --git a/lisp/gnus/gnus-registry.el b/lisp/gnus/gnus-registry.el
index e91dd98..b233ad7 100644
--- a/lisp/gnus/gnus-registry.el
+++ b/lisp/gnus/gnus-registry.el
@@ -558,7 +558,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more
details."
do (gnus-message
;; warn more if gnus-registry-track-extra
(if gnus-registry-track-extra 7 9)
- "%s (extra tracking) traced subject ‘%s’ to %s"
+ "%s (extra tracking) traced subject `%s' to %s"
log-agent subject group)
and collect group))
;; filter the found groups and return them
@@ -585,7 +585,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more
details."
do (gnus-message
;; warn more if gnus-registry-track-extra
(if gnus-registry-track-extra 7 9)
- "%s (extra tracking) traced sender ‘%s’ to %s"
+ "%s (extra tracking) traced sender `%s' to %s"
log-agent sender group)
and collect group)))
@@ -615,7 +615,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more
details."
do (gnus-message
;; warn more if gnus-registry-track-extra
(if gnus-registry-track-extra 7 9)
- "%s (extra tracking) traced recipient ‘%s’ to %s"
+ "%s (extra tracking) traced recipient `%s' to %s"
log-agent recp group)
and collect group)))))
@@ -712,12 +712,12 @@ possible. Uses `gnus-registry-split-strategy'."
((null out)
(gnus-message
5
- "%s: no matches for %s ‘%s’."
+ "%s: no matches for %s `%s'."
log-agent mode key)
nil)
(t (gnus-message
5
- "%s: too many extra matches (%s) for %s ‘%s’. Returning none."
+ "%s: too many extra matches (%s) for %s `%s'. Returning none."
log-agent out mode key)
nil))))
diff --git a/lisp/gnus/gnus-score.el b/lisp/gnus/gnus-score.el
index ffd8696..4840af1 100644
--- a/lisp/gnus/gnus-score.el
+++ b/lisp/gnus/gnus-score.el
@@ -626,7 +626,7 @@ current score file."
(if mimic
(progn
(sit-for 1) (message "%c %c-" prefix hchar))
- (message "%s header ‘%s’ with match type (%s?): "
+ (message "%s header `%s' with match type (%s?): "
(if increase "Increase" "Lower")
(nth 1 entry)
(mapconcat (lambda (s) (char-to-string (car s)))
diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el
index 4f26db4..82a2c98 100644
--- a/lisp/gnus/gnus-start.el
+++ b/lisp/gnus/gnus-start.el
@@ -2369,7 +2369,7 @@ If FORCE is non-nil, the .newsrc file is read."
(while (let (c
(cursor-in-echo-area t)
(echo-keystrokes 0))
- (message "Convert gnus from version ‘%s’ to ‘%s’?
(n/y/?)"
+ (message "Convert gnus from version `%s' to `%s'?
(n/y/?)"
gnus-newsrc-file-version gnus-version)
(setq c (read-char-exclusive))
@@ -2390,7 +2390,7 @@ If FORCE is non-nil, the .newsrc file is read."
(funcall func convert-to)))
(gnus-dribble-enter
- (gnus-format-message ";Converted gnus from version ‘%s’ to ‘%s’."
+ (gnus-format-message ";Converted gnus from version `%s' to `%s'."
gnus-newsrc-file-version gnus-version)))))))
(defun gnus-convert-mark-converter-prompt (converter no-prompt)
diff --git a/lisp/gnus/gnus-topic.el b/lisp/gnus/gnus-topic.el
index cde1d97..9474ca0 100644
--- a/lisp/gnus/gnus-topic.el
+++ b/lisp/gnus/gnus-topic.el
@@ -1525,7 +1525,7 @@ If NON-RECURSIVE (which is the prefix) is t, don't unmark
its subtopics."
(read-string (format "Rename %s to: " topic) topic))))
;; Check whether the new name exists.
(when (gnus-topic-find-topology new-name)
- (error "Topic ‘%s’ already exists" new-name))
+ (error "Topic `%s' already exists" new-name))
;; "nil" is an invalid name, for reasons I'd rather not go
;; into here. Trust me.
(when (equal new-name "nil")
diff --git a/lisp/gnus/legacy-gnus-agent.el b/lisp/gnus/legacy-gnus-agent.el
index 8331077..ed66fec 100644
--- a/lisp/gnus/legacy-gnus-agent.el
+++ b/lisp/gnus/legacy-gnus-agent.el
@@ -149,17 +149,17 @@ converted to the compressed format."
(insert
(gnus-format-message
- "\nIn order to use version ‘%s’ of gnus, you will need to set\n"
+ "\nIn order to use version `%s' of gnus, you will need to set\n"
converting-to))
(insert "gnus-agent-expire-days to an integer. If you still wish
to set different\n")
(insert "expiration days to individual groups, you must instead
set the\n")
(insert (gnus-format-message
- "‘agent-days-until-old’ group and/or topic parameter.\n"))
+ "`agent-days-until-old' group and/or topic parameter.\n"))
(insert "\n")
(insert "If you would like, gnus can iterate over every group
comparing its name to the\n")
(insert "regular expressions that you currently have in
gnus-agent-expire-days. When\n")
(insert (gnus-format-message
- "gnus finds a match, it will update that group's
‘agent-days-until-old’ group\n"))
+ "gnus finds a match, it will update that group's
`agent-days-until-old' group\n"))
(insert "parameter to the value associated with the regular
expression.\n")
(insert "\n")
(insert "Whether gnus assigns group parameters, or not, gnus will
terminate with an\n")
diff --git a/lisp/gnus/spam.el b/lisp/gnus/spam.el
index 93613a8..4ebd8a9 100644
--- a/lisp/gnus/spam.el
+++ b/lisp/gnus/spam.el
@@ -2054,7 +2054,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more
details."
(if spam-use-dig
(let ((query-result (query-dig query-string)))
(when query-result
- (gnus-message 6 "(DIG): positive blackhole check ‘%s’"
+ (gnus-message 6 "(DIG): positive blackhole check `%s'"
query-result)
(push (list ip server query-result)
matches)))