+2015-08-26 Paul Eggert <eggert@cs.ucla.edu>
+
+ Go back to grave quoting in Gnus
+
+ * auth-source.el (auth-source-netrc-parse-entries):
+ * gnus-agent.el (gnus-agent-check-overview-buffer)
+ (gnus-agent-fetch-headers):
+ * gnus-int.el (gnus-start-news-server):
+ * gnus-registry.el (gnus-registry--split-fancy-with-parent-internal)
+ (gnus-registry-post-process-groups):
+ * gnus-score.el (gnus-summary-increase-score):
+ * gnus-start.el (gnus-convert-old-newsrc):
+ * gnus-topic.el (gnus-topic-rename):
+ * legacy-gnus-agent.el (gnus-agent-unlist-expire-days):
+ * spam.el (spam-check-blackholes):
+ Stick with grave quoting in diagnostics strings. This is more
+ portable to older Emacs, desirable for Gnus.
+
2015-08-25 Paul Eggert <eggert@cs.ucla.edu>
Prefer directed to neutral quotes in docstings and diagnostics.
(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))
(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)
(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
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"
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
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)))
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)))))
((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))))
(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)))
(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))
(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)
(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")
(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")
(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)))