From 051d74319415a8e395c9985eb8cac587a1c709df Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Tue, 25 Aug 2015 09:14:34 +0000 Subject: [PATCH] Prefer directed to neutral quotes Prefer directed to neutral quotes in docstings and diagnostics. In docstrings, escape apostrophes that would otherwise be translated to curved quotes using the newer, simpler rules. * 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-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): * nnmairix.el (nnmairix-widget-create-query): * spam.el (spam-check-blackholes): Use directed rather than neutral quotes in diagnostics. --- lisp/ChangeLog | 19 ++++++++++++ lisp/auth-source.el | 64 +++++++++++++++++++-------------------- lisp/gnus-agent.el | 4 +-- lisp/gnus-art.el | 2 +- lisp/gnus-int.el | 8 ++--- lisp/gnus-registry.el | 12 ++++---- lisp/gnus-score.el | 2 +- lisp/gnus-sieve.el | 12 ++++---- lisp/gnus-start.el | 6 ++-- lisp/gnus-sum.el | 2 +- lisp/gnus-topic.el | 2 +- lisp/gnus-uu.el | 6 ++-- lisp/gnus.el | 6 ++-- lisp/legacy-gnus-agent.el | 11 +++++-- lisp/mail-source.el | 2 +- lisp/message.el | 6 ++-- lisp/nnheader.el | 2 +- lisp/nnmail.el | 10 +++--- lisp/nnmairix.el | 6 ++-- lisp/nntp.el | 2 +- lisp/registry.el | 4 +-- lisp/spam.el | 2 +- 22 files changed, 107 insertions(+), 83 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f2279f158..7ff19db4b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,22 @@ +2015-08-25 Paul Eggert + + Prefer directed to neutral quotes in docstings and diagnostics. + In docstrings, escape apostrophes that would otherwise be translated + to curved quotes using the newer, simpler rules. + + * 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-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): + * nnmairix.el (nnmairix-widget-create-query): + * spam.el (spam-check-blackholes): + Use directed rather than neutral quotes in diagnostics. + 2015-08-21 Paul Eggert * auth-source.el (auth-sources): diff --git a/lisp/auth-source.el b/lisp/auth-source.el index 518e9e51c..78eeb9fc6 100644 --- a/lisp/auth-source.el +++ b/lisp/auth-source.el @@ -587,25 +587,25 @@ port keys. Here's an example: -\(let ((auth-source-creation-defaults '((user . \"defaultUser\") +\(let ((auth-source-creation-defaults \\='((user . \"defaultUser\") (A . \"default A\")))) - (auth-source-search :host \"mine\" :type 'netrc :max 1 + (auth-source-search :host \"mine\" :type \\='netrc :max 1 :P \"pppp\" :Q \"qqqq\" :create t)) which says: -\"Search for any entry matching host 'mine' in backends of type - 'netrc', maximum one result. +\"Search for any entry matching host `mine' in backends of type + `netrc', maximum one result. Create a new entry if you found none. The netrc backend will automatically require host, user, and port. The host will be - 'mine'. We prompt for the user with default 'defaultUser' and + `mine'. We prompt for the user with default `defaultUser' and for the port without a default. We will not prompt for A, Q, or P. The resulting token will only have keys user, host, and port.\" -:create '(A B C) also means to create a token if possible. +:create \\='(A B C) also means to create a token if possible. The behavior is like :create t but if the list contains any parameter, that parameter will be required in the resulting @@ -614,32 +614,32 @@ search parameters or from user input. If any queries are needed, the alist `auth-source-creation-defaults' will be checked for the default value. If the user, host, or port are missing, the alist `auth-source-creation-prompts' will be used to look up the -prompts IN THAT ORDER (so the 'user prompt will be queried first, -then 'host, then 'port, and finally 'secret). Each prompt string +prompts IN THAT ORDER (so the `user' prompt will be queried first, +then `host', then `port', and finally `secret'). Each prompt string can use %u, %h, and %p to show the user, host, and port. Here's an example: -\(let ((auth-source-creation-defaults '((user . \"defaultUser\") +\(let ((auth-source-creation-defaults \\='((user . \"defaultUser\") (A . \"default A\"))) (auth-source-creation-prompts - '((password . \"Enter IMAP password for %h:%p: \")))) - (auth-source-search :host '(\"nonesuch\" \"twosuch\") :type 'netrc :max 1 + \\='((password . \"Enter IMAP password for %h:%p: \")))) + (auth-source-search :host \\='(\"nonesuch\" \"twosuch\") :type \\='netrc :max 1 :P \"pppp\" :Q \"qqqq\" - :create '(A B Q))) + :create \\='(A B Q))) which says: -\"Search for any entry matching host 'nonesuch' - or 'twosuch' in backends of type 'netrc', maximum one result. +\"Search for any entry matching host `nonesuch' + or `twosuch' in backends of type `netrc', maximum one result. Create a new entry if you found none. The netrc backend will automatically require host, user, and port. The host will be - 'nonesuch' and Q will be 'qqqq'. We prompt for the password + `nonesuch' and Q will be `qqqq'. We prompt for the password with the shown prompt. We will not prompt for Q. The resulting token will have keys user, host, port, A, B, and Q. It will not have P with any value, even though P is used in the search to - find only entries that have P set to 'pppp'.\" + find only entries that have P set to `pppp'.\" When multiple values are specified in the search parameter, the user is prompted for which one. So :host (X Y Z) would ask the @@ -660,8 +660,8 @@ property. Use `auth-source-delete' in ELisp code instead of calling `auth-source-search' directly with this parameter. -:type (X Y Z) will check only those backend types. 'netrc and -'secrets are the only ones supported right now. +:type (X Y Z) will check only those backend types. `netrc' and +`secrets' are the only ones supported right now. :max N means to try to return at most N items (defaults to 1). More than N items may be returned, depending on the search and @@ -1107,7 +1107,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)) @@ -1564,23 +1564,23 @@ matching, do a wider search and narrow it down yourself. You'll get back all the properties of the token as a plist. -Here's an example that looks for the first item in the 'Login' +Here's an example that looks for the first item in the `Login' Secrets collection: - \(let ((auth-sources '(\"secrets:Login\"))) + \(let ((auth-sources \\='(\"secrets:Login\"))) (auth-source-search :max 1) -Here's another that looks for the first item in the 'Login' -Secrets collection whose label contains 'gnus': +Here's another that looks for the first item in the `Login' +Secrets collection whose label contains `gnus': - \(let ((auth-sources '(\"secrets:Login\"))) + \(let ((auth-sources \\='(\"secrets:Login\"))) (auth-source-search :max 1 :label \"gnus\") -And this one looks for the first item in the 'Login' Secrets +And this one looks for the first item in the `Login' Secrets collection that's a Google Chrome entry for the git.gnus.org site authentication tokens: - \(let ((auth-sources '(\"secrets:Login\"))) + \(let ((auth-sources \\='(\"secrets:Login\"))) (auth-source-search :max 1 :signon_realm \"https://git.gnus.org/Git\")) " @@ -1684,8 +1684,8 @@ matching, do a wider search and narrow it down yourself. You'll get back all the properties of the token as a plist. -The :type key is either 'macos-keychain-internet or -'macos-keychain-generic. +The :type key is either `macos-keychain-internet' or +`macos-keychain-generic'. For the internet keychain type, the :label key searches the item's labels (\"-l LABEL\" passed to \"/usr/bin/security\"). @@ -1701,19 +1701,19 @@ field), :user maps to \"-a USER\", and :port maps to \"-s PORT\". Here's an example that looks for the first item in the default generic MacOS Keychain: - \(let ((auth-sources '(macos-keychain-generic))) + \(let ((auth-sources \\='(macos-keychain-generic))) (auth-source-search :max 1) Here's another that looks for the first item in the internet -MacOS Keychain collection whose label is 'gnus': +MacOS Keychain collection whose label is `gnus': - \(let ((auth-sources '(macos-keychain-internet))) + \(let ((auth-sources \\='(macos-keychain-internet))) (auth-source-search :max 1 :label \"gnus\") And this one looks for the first item in the internet keychain entries for git.gnus.org: - \(let ((auth-sources '(macos-keychain-internet\"))) + \(let ((auth-sources \\='(macos-keychain-internet\"))) (auth-source-search :max 1 :host \"git.gnus.org\")) " ;; TODO diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el index f779f3c74..5f1ffe7a3 100644 --- a/lisp/gnus-agent.el +++ b/lisp/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-art.el b/lisp/gnus-art.el index 12b0c464d..1367440f7 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -400,7 +400,7 @@ advertisements. For example: "*Alist that says how to fontify certain phrases. Each item looks like this: - (\"_\\\\(\\\\w+\\\\)_\" 0 1 'underline) + (\"_\\\\(\\\\w+\\\\)_\" 0 1 \\='underline) The first element is a regular expression to be matched. The second is a number that says what regular expression grouping used to find diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el index 4e870bb84..1c098fa87 100644 --- a/lisp/gnus-int.el +++ b/lisp/gnus-int.el @@ -164,8 +164,8 @@ If CONFIRM is non-nil, the user will be asked for an NNTP server." (gnus-open-server gnus-select-method) gnus-batch-mode (gnus-y-or-n-p - (format - "%s (%s) open error: '%s'. Continue? " + (gnus-format-message + "%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" @@ -555,7 +555,7 @@ the group's summary. (let ((saved-display (gnus-group-get-parameter group 'display :allow-list))) - ;; Tell gnus we really don't want any articles + ;; Tell gnus we really don't want any articles (gnus-group-set-parameter group 'display 0) (unwind-protect @@ -573,7 +573,7 @@ the group's summary. ;; Create it now and insert the message (let ((group-is-new (gnus-summary-setup-buffer group))) (condition-case err - (let ((article-number + (let ((article-number (gnus-summary-insert-subject message-id))) (unless article-number (signal 'error "message-id not in group")) diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el index 50443973a..e91dd980b 100644 --- a/lisp/gnus-registry.el +++ b/lisp/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))))) @@ -630,7 +630,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details." (defun gnus-registry-post-process-groups (mode key groups) "Inspects GROUPS found by MODE for KEY to determine which ones to follow. -MODE can be 'subject' or 'sender' for example. The KEY is the +MODE can be `subject' or `sender' for example. The KEY is the value by which MODE was searched. Transforms each group name to the equivalent short name. @@ -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-score.el b/lisp/gnus-score.el index 7f3ab5e27..ffd86964f 100644 --- a/lisp/gnus-score.el +++ b/lisp/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-sieve.el b/lisp/gnus-sieve.el index 5f8cb327c..cde93764c 100644 --- a/lisp/gnus-sieve.el +++ b/lisp/gnus-sieve.el @@ -139,7 +139,7 @@ Return nil if no rule could be guessed." "Convert an elisp string list to a Sieve string list. For example: -\(gnus-sieve-string-list '(\"to\" \"cc\")) +\(gnus-sieve-string-list \\='(\"to\" \"cc\")) => \"[\\\"to\\\", \\\"cc\\\"]\" " (concat "[\"" (mapconcat 'identity list "\", \"") "\"]")) @@ -148,7 +148,7 @@ For example: "Convert an elisp test list to a Sieve test list. For example: -\(gnus-sieve-test-list '((address \"sender\" \"boss@company.com\") (size :over 4K))) +\(gnus-sieve-test-list \\='((address \"sender\" \"boss@company.com\") (size :over 4K))) => \"(address \\\"sender\\\" \\\"boss@company.com\\\", size :over 4K)\"" (concat "(" (mapconcat 'gnus-sieve-test list ", ") ")")) @@ -157,13 +157,13 @@ For example: "Convert an elisp test token to a Sieve test token. For example: -\(gnus-sieve-test-token 'address) +\(gnus-sieve-test-token \\='address) => \"address\" \(gnus-sieve-test-token \"sender\") => \"\\\"sender\\\"\" -\(gnus-sieve-test-token '(\"to\" \"cc\")) +\(gnus-sieve-test-token \\='(\"to\" \"cc\")) => \"[\\\"to\\\", \\\"cc\\\"]\"" (cond ((symbolp token) ;; Keyword @@ -184,10 +184,10 @@ For example: "Convert an elisp test to a Sieve test. For example: -\(gnus-sieve-test '(address \"sender\" \"sieve-admin@extundo.com\")) +\(gnus-sieve-test \\='(address \"sender\" \"sieve-admin@extundo.com\")) => \"address \\\"sender\\\" \\\"sieve-admin@extundo.com\\\"\" -\(gnus-sieve-test '(anyof ((header :contains (\"to\" \"cc\") \"my@address.com\") +\(gnus-sieve-test \\='(anyof ((header :contains (\"to\" \"cc\") \"my@address.com\") (size :over 100K)))) => \"anyof (header :contains [\\\"to\\\", \\\"cc\\\"] \\\"my@address.com\\\", size :over 100K)\"" diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el index 0c0246a4e..4f26db457 100644 --- a/lisp/gnus-start.el +++ b/lisp/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,8 +2390,8 @@ If FORCE is non-nil, the .newsrc file is read." (funcall func convert-to))) (gnus-dribble-enter - (format ";Converted gnus from version '%s' to '%s'." - gnus-newsrc-file-version gnus-version))))))) + (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) "Indicate whether CONVERTER requires gnus-convert-old-newsrc to diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index f98f48519..e4c144b92 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -8429,7 +8429,7 @@ articles that are younger than AGE days." (gnus-summary-position-point))) (defun gnus-summary-limit-to-extra (header regexp &optional not-matching) - "Limit the summary buffer to articles that match an 'extra' header." + "Limit the summary buffer to articles that match an `extra' header." (interactive (let ((header (intern diff --git a/lisp/gnus-topic.el b/lisp/gnus-topic.el index 656ef80cc..cde1d976b 100644 --- a/lisp/gnus-topic.el +++ b/lisp/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-uu.el b/lisp/gnus-uu.el index 94f01c615..881ff4ee1 100644 --- a/lisp/gnus-uu.el +++ b/lisp/gnus-uu.el @@ -79,10 +79,10 @@ To change the behavior, you can either edit this variable or set For example: -To make gnus-uu use 'xli' to display JPEG and GIF files, put the +To make gnus-uu use `xli' to display JPEG and GIF files, put the following in your .emacs file: - (setq gnus-uu-user-view-rules '((\"jpg$\\\\|gif$\" \"xli\"))) + (setq gnus-uu-user-view-rules \\='((\"jpg$\\\\|gif$\" \"xli\"))) Both these variables are lists of lists with two string elements. The first string is a regular expression. If the file name matches this @@ -140,7 +140,7 @@ details." (defcustom gnus-uu-user-archive-rules nil "A list that can be set to override the default archive unpacking commands. -To use, for instance, 'untar' to unpack tar files and 'zip -x' to +To use, for instance, `untar' to unpack tar files and `zip -x' to unpack zip files, say the following: (setq gnus-uu-user-archive-rules '((\"\\\\.tar$\" \"untar\") diff --git a/lisp/gnus.el b/lisp/gnus.el index a182c7198..5df7e5d31 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -1308,11 +1308,11 @@ news is to be fetched, the second is the address. For instance, if you want to get your news via \"flab.flab.edu\" using NNTP, you could say: -\(setq gnus-select-method '(nntp \"flab.flab.edu\")) +\(setq gnus-select-method \\='(nntp \"flab.flab.edu\")) If you want to use your local spool, say: -\(setq gnus-select-method (list 'nnspool (system-name))) +\(setq gnus-select-method (list \\='nnspool (system-name))) If you use this variable, you must set `gnus-nntp-server' to nil. @@ -1397,7 +1397,7 @@ This is a list where each element is a complete select method (see If, for instance, you want to read your mail with the nnml back end, you could set this variable: -\(setq gnus-secondary-select-methods '((nnml \"\")))" +\(setq gnus-secondary-select-methods \\='((nnml \"\")))" :group 'gnus-server :type '(repeat gnus-select-method)) diff --git a/lisp/legacy-gnus-agent.el b/lisp/legacy-gnus-agent.el index bd69087af..83310774d 100644 --- a/lisp/legacy-gnus-agent.el +++ b/lisp/legacy-gnus-agent.el @@ -147,14 +147,19 @@ converted to the compressed format." (insert "The definition of gnus-agent-expire-days has been changed.\nYou currently have it set to the list:\n ") (gnus-pp gnus-agent-expire-days) - (insert "\nIn order to use version '" converting-to "' of gnus, you will need to set\n") + (insert + (gnus-format-message + "\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 "'agent-days-until-old group and/or topic parameter.\n") + (insert (gnus-format-message + "‘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 finds a match, it will update that group's 'agent-days-until-old group\n") + (insert (gnus-format-message + "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/mail-source.el b/lisp/mail-source.el index 94c895098..cb74228fd 100644 --- a/lisp/mail-source.el +++ b/lisp/mail-source.el @@ -934,7 +934,7 @@ authentication. To do that, you need to set the `message-send-mail-function' variable as `message-smtpmail-send-it' and put the following line in your ~/.gnus.el file: -\(add-hook 'message-send-mail-hook 'mail-source-touch-pop) +\(add-hook \\='message-send-mail-hook \\='mail-source-touch-pop) See the Gnus manual for details." (let ((sources (if mail-source-primary-source diff --git a/lisp/message.el b/lisp/message.el index 49059add5..d780e865d 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -549,7 +549,7 @@ The provided functions are: newsgroup), in brackets followed by the subject * `message-forward-subject-name-subject' Source of article (name of author or newsgroup), in brackets followed by the subject -* `message-forward-subject-fwd' Subject of article with 'Fwd:' prepended +* `message-forward-subject-fwd' Subject of article with `Fwd:' prepended to it." :group 'message-forwarding :link '(custom-manual "(message)Forwarding") @@ -7254,7 +7254,7 @@ want to get rid of this query permanently.")) (defun message-is-yours-p () "Non-nil means current article is yours. -If you have added 'cancel-messages to `message-shoot-gnksa-feet', all articles +If you have added `cancel-messages' to `message-shoot-gnksa-feet', all articles are yours except those that have Cancel-Lock header not belonging to you. Instead of shooting GNKSA feet, you should modify `message-alternative-emails' regexp to match all of yours addresses." @@ -8221,7 +8221,7 @@ The following arguments may contain lists of values." (defun message-flatten-list (list) "Return a new, flat list that contains all elements of LIST. -\(message-flatten-list '(1 (2 3 (4 5 (6))) 7)) +\(message-flatten-list \\='(1 (2 3 (4 5 (6))) 7)) => (1 2 3 4 5 6 7)" (cond ((consp list) (apply 'append (mapcar 'message-flatten-list list))) diff --git a/lisp/nnheader.el b/lisp/nnheader.el index 2ce5cb8af..c88f4afa7 100644 --- a/lisp/nnheader.el +++ b/lisp/nnheader.el @@ -114,7 +114,7 @@ Shorter values mean quicker response, but are more CPU intensive.") For instance, if \":\" is invalid as a file character in file names on your system, you could say something like: -\(setq nnheader-file-name-translation-alist '((?: . ?_)))") +\(setq nnheader-file-name-translation-alist \\='((?: . ?_)))") (defvar nnheader-directory-separator-character (string-to-char (substring (file-name-as-directory ".") -1)) diff --git a/lisp/nnmail.el b/lisp/nnmail.el index 71bc916a9..2292849cc 100644 --- a/lisp/nnmail.el +++ b/lisp/nnmail.el @@ -288,7 +288,7 @@ running (\"xwatch\", etc.) E.g.: -\(add-hook 'nnmail-read-incoming-hook +\(add-hook \\='nnmail-read-incoming-hook (lambda () (call-process \"/local/bin/mailsend\" nil nil nil \"read\" @@ -301,11 +301,11 @@ read. If you use `display-time', you could use something like this: -\(add-hook 'nnmail-read-incoming-hook +\(add-hook \\='nnmail-read-incoming-hook (lambda () ;; Update the displayed time, since that will clear out ;; the flag that says you have mail. - (when (eq (process-status \"display-time\") 'run) + (when (eq (process-status \"display-time\") \\='run) (display-time-filter display-time-process \"\"))))" :group 'nnmail-prepare :type 'hook) @@ -480,12 +480,12 @@ GROUP can contain \\& and \\N which will substitute from matching Example: -\(setq nnmail-split-methods 'nnmail-split-fancy +\(setq nnmail-split-methods \\='nnmail-split-fancy nnmail-split-fancy ;; Messages from the mailer daemon are not crossposted to any of ;; the ordinary groups. Warnings are put in a separate group ;; from real errors. - '(| (\"from\" mail (| (\"subject\" \"warn.*\" \"mail.warning\") + \\='(| (\"from\" mail (| (\"subject\" \"warn.*\" \"mail.warning\") \"mail.misc\")) ;; Non-error messages are crossposted to all relevant ;; groups, but we don't crosspost between the group for the diff --git a/lisp/nnmairix.el b/lisp/nnmairix.el index 0a4dbff9f..e34b708a2 100644 --- a/lisp/nnmairix.el +++ b/lisp/nnmairix.el @@ -243,7 +243,7 @@ unused nnmairix groups on the back end using (defcustom nnmairix-mairix-update-options '("-F" "-Q") "Options when calling mairix for updating the database. -The default is '-F' and '-Q' for making updates faster. You +The default is \"-F\" and \"-Q\" for making updates faster. You should call mairix without these options from time to time (e.g. via cron job)." :version "23.1" @@ -252,7 +252,7 @@ time (e.g. via cron job)." (defcustom nnmairix-mairix-search-options '("-Q") "Options when calling mairix for searching. -The default is '-Q' for making searching faster." +The default is \"-Q\" for making searching faster." :version "23.1" :type '(repeat string) :group 'nnmairix) @@ -1943,7 +1943,7 @@ Fill in VALUES if based on an article." (kill-all-local-variables) (erase-buffer) (widget-insert "Specify your query for Mairix (check boxes for activating fields):\n\n") - (widget-insert "(Whitespaces will be converted to ',' (i.e. AND). Use '/' for OR.)\n\n") + (widget-insert "(Whitespaces will be converted to ‘,’ (i.e. AND). Use ‘/’ for OR.)\n\n") ; (make-local-variable 'nnmairix-widgets) (setq nnmairix-widgets (nnmairix-widget-build-editable-fields values)) (when (member 'flags nnmairix-widget-other) diff --git a/lisp/nntp.el b/lisp/nntp.el index b617a1bee..8d09781cd 100644 --- a/lisp/nntp.el +++ b/lisp/nntp.el @@ -291,7 +291,7 @@ update their active files often, this can help.") (defvar nntp-async-process-list nil) (defvar nntp-authinfo-rejected nil -"A custom error condition used to report 'Authentication Rejected' errors. +"A custom error condition used to report `Authentication Rejected' errors. Condition handlers that match just this condition ensure that the nntp backend doesn't catch this error.") (put 'nntp-authinfo-rejected 'error-conditions '(error nntp-authinfo-rejected)) diff --git a/lisp/registry.el b/lisp/registry.el index 13c167185..5a35e1f0e 100644 --- a/lisp/registry.el +++ b/lisp/registry.el @@ -242,9 +242,9 @@ When SET is not nil, set it for VAL (use t for an empty list)." (defmethod registry-search ((db registry-db) &rest spec) "Search for SPEC across the registry-db THIS. -For example calling with :member '(a 1 2) will match entry '((a 3 1)). +For example calling with :member \\='(a 1 2) will match entry \\='((a 3 1)). Calling with :all t (any non-nil value) will match all. -Calling with :regex '\(a \"h.llo\") will match entry '((a \"hullo\" \"bye\"). +Calling with :regex \\='\(a \"h.llo\") will match entry \\='((a \"hullo\" \"bye\"). The test order is to check :all first, then :member, then :regex." (when db (let ((all (plist-get spec :all)) diff --git a/lisp/spam.el b/lisp/spam.el index 02ec69516..93613a84a 100644 --- a/lisp/spam.el +++ b/lisp/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))) -- 2.25.1