summaryrefslogtreecommitdiff
path: root/lisp/gnus
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/gnus')
-rw-r--r--lisp/gnus/gnus-agent.el21
-rw-r--r--lisp/gnus/gnus-art.el19
-rw-r--r--lisp/gnus/gnus-diary.el6
-rw-r--r--lisp/gnus/gnus-dired.el2
-rw-r--r--lisp/gnus/gnus-icalendar.el8
-rw-r--r--lisp/gnus/gnus-int.el3
-rw-r--r--lisp/gnus/gnus-ml.el2
-rw-r--r--lisp/gnus/gnus-mlspl.el2
-rw-r--r--lisp/gnus/gnus-msg.el2
-rw-r--r--lisp/gnus/gnus-registry.el4
-rw-r--r--lisp/gnus/gnus-salt.el2
-rw-r--r--lisp/gnus/gnus-score.el2
-rw-r--r--lisp/gnus/gnus-search.el26
-rw-r--r--lisp/gnus/gnus-sieve.el5
-rw-r--r--lisp/gnus/gnus-srvr.el2
-rw-r--r--lisp/gnus/gnus-start.el6
-rw-r--r--lisp/gnus/gnus-sum.el10
-rw-r--r--lisp/gnus/gnus-util.el8
-rw-r--r--lisp/gnus/gnus-uu.el38
-rw-r--r--lisp/gnus/gnus.el2
20 files changed, 80 insertions, 90 deletions
diff --git a/lisp/gnus/gnus-agent.el b/lisp/gnus/gnus-agent.el
index cbe3505cd10..961965d9284 100644
--- a/lisp/gnus/gnus-agent.el
+++ b/lisp/gnus/gnus-agent.el
@@ -161,7 +161,7 @@ enable expiration per categories, topics, and groups."
(defcustom gnus-agent-expire-unagentized-dirs t
"Whether expiration should expire in unagentized directories.
-Have gnus-agent-expire scan the directories under
+Have `gnus-agent-expire' scan the directories under
\(gnus-agent-directory) for groups that are no longer agentized.
When found, offer to remove them."
:version "22.1"
@@ -622,7 +622,7 @@ manipulated as follows:
The gnus-agentize function is now called internally by gnus when
gnus-agent is set. If you wish to avoid calling gnus-agentize,
-customize gnus-agent to nil.
+customize `gnus-agent' to nil.
This will modify the `gnus-setup-news-hook', and
`message-send-mail-real-function' variables, and install the Gnus agent
@@ -1703,8 +1703,8 @@ and that there are no duplicates."
(defun gnus-agent-flush-server (&optional server-or-method)
"Flush all agent index files for every subscribed group within
- the given SERVER-OR-METHOD. When called with nil, the current
- value of gnus-command-method identifies the server."
+the given SERVER-OR-METHOD. When called with nil, the current
+value of gnus-command-method identifies the server."
(let* ((gnus-command-method (if server-or-method
(gnus-server-to-method server-or-method)
gnus-command-method))
@@ -2153,8 +2153,9 @@ doesn't exist, to valid the overview buffer."
(defvar gnus-agent-file-loading-local nil)
(defun gnus-agent-load-local (&optional method)
- "Load the METHOD'S local file. The local file contains min/max
-article counts for each of the method's subscribed groups."
+ "Load the METHOD'S local file.
+The local file contains min/max article counts for each of the
+method's subscribed groups."
(let ((gnus-command-method (or method gnus-command-method)))
(when (or (null gnus-agent-article-local-times)
(zerop gnus-agent-article-local-times)
@@ -2171,9 +2172,9 @@ article counts for each of the method's subscribed groups."
gnus-agent-article-local))
(defun gnus-agent-read-and-cache-local (file)
- "Load and read FILE then bind its contents to
-gnus-agent-article-local. If that variable had `dirty' (also known as
-modified) original contents, they are first saved to their own file."
+ "Load and read FILE then bind its contents to `gnus-agent-article-local'.
+If that variable had `dirty' (also known as modified) original
+contents, they are first saved to their own file."
(if (and gnus-agent-article-local
(gethash "+dirty" gnus-agent-article-local))
(gnus-agent-save-local))
@@ -2224,7 +2225,7 @@ modified) original contents, they are first saved to their own file."
hashtb))
(defun gnus-agent-save-local (&optional force)
- "Save gnus-agent-article-local under it method's agent.lib directory."
+ "Save `gnus-agent-article-local' under it method's agent.lib directory."
(let ((hashtb gnus-agent-article-local))
(when (and hashtb
(or force (gethash "+dirty" hashtb)))
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index c4fa1e960b6..7076dbedf2e 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -610,17 +610,17 @@ The recommended coding systems are `utf-8', `iso-2022-7bit' and so on,
which can safely encode any characters in text. This is used by the
commands including:
-* gnus-summary-save-article-file
-* gnus-summary-save-article-body-file
-* gnus-summary-write-article-file
-* gnus-summary-write-article-body-file
+* `gnus-summary-save-article-file'
+* `gnus-summary-save-article-body-file'
+* `gnus-summary-write-article-file'
+* `gnus-summary-write-article-body-file'
and the functions to which you may set `gnus-default-article-saver':
-* gnus-summary-save-in-file
-* gnus-summary-save-body-in-file
-* gnus-summary-write-to-file
-* gnus-summary-write-body-to-file
+* `gnus-summary-save-in-file'
+* `gnus-summary-save-body-in-file'
+* `gnus-summary-write-to-file'
+* `gnus-summary-write-body-to-file'
Those commands and functions save just text displayed in the article
buffer to a file if the value of this variable is non-nil. Note that
@@ -8519,8 +8519,7 @@ whose names match REGEXP.
For example:
\((\"chinese\" . gnus-decode-encoded-word-region-by-guess)
mail-decode-encoded-word-region
- (\"chinese\" . rfc1843-decode-region))
-")
+ (\"chinese\" . rfc1843-decode-region))")
(defvar gnus-decode-header-methods-cache nil)
diff --git a/lisp/gnus/gnus-diary.el b/lisp/gnus/gnus-diary.el
index e2cbca9007d..7ecc97262a0 100644
--- a/lisp/gnus/gnus-diary.el
+++ b/lisp/gnus/gnus-diary.el
@@ -21,15 +21,11 @@
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
-
;;; Commentary:
;; Contents management by FCM version 0.1.
-;; Description:
-;; ===========
-
-;; gnus-diary is a utility toolkit used on top of the nndiary back end. It is
+;; gnus-diary is a utility toolkit used on top of the nndiary back end. It is
;; now fully documented in the Gnus manual.
;;; Code:
diff --git a/lisp/gnus/gnus-dired.el b/lisp/gnus/gnus-dired.el
index af0b782202a..e9eddae942f 100644
--- a/lisp/gnus/gnus-dired.el
+++ b/lisp/gnus/gnus-dired.el
@@ -92,7 +92,7 @@ See `mail-user-agent' for more information."
;;;###autoload
(defun turn-on-gnus-dired-mode ()
- "Convenience method to turn on gnus-dired-mode."
+ "Convenience method to turn on `gnus-dired-mode'."
(interactive)
(gnus-dired-mode 1))
diff --git a/lisp/gnus/gnus-icalendar.el b/lisp/gnus/gnus-icalendar.el
index 5294b83d9e9..b6e5e7f786a 100644
--- a/lisp/gnus/gnus-icalendar.el
+++ b/lisp/gnus/gnus-icalendar.el
@@ -107,19 +107,19 @@
:accessor gnus-icalendar-event:opt-participants
:initform nil
:type (or null t)))
- "generic iCalendar Event class")
+ "Generic iCalendar Event class.")
(defclass gnus-icalendar-event-request (gnus-icalendar-event)
nil
- "iCalendar class for REQUEST events")
+ "iCalendar class for REQUEST events.")
(defclass gnus-icalendar-event-cancel (gnus-icalendar-event)
nil
- "iCalendar class for CANCEL events")
+ "iCalendar class for CANCEL events.")
(defclass gnus-icalendar-event-reply (gnus-icalendar-event)
nil
- "iCalendar class for REPLY events")
+ "iCalendar class for REPLY events.")
(cl-defmethod gnus-icalendar-event:recurring-p ((event gnus-icalendar-event))
"Return t if EVENT is recurring."
diff --git a/lisp/gnus/gnus-int.el b/lisp/gnus/gnus-int.el
index 01053797b3a..255c11f137c 100644
--- a/lisp/gnus/gnus-int.el
+++ b/lisp/gnus/gnus-int.el
@@ -613,8 +613,7 @@ If BUFFER, insert the article in that group."
Returns the article number of the message.
If GROUP is not already selected, the message will be the only one in
-the group's summary.
-"
+the group's summary."
;; TODO: is there a way to know at this point whether the group will
;; be newly-selected? If so we could clean up the logic at the end
;;
diff --git a/lisp/gnus/gnus-ml.el b/lisp/gnus/gnus-ml.el
index 3b2b5a07c1d..ee3abf2f7be 100644
--- a/lisp/gnus/gnus-ml.el
+++ b/lisp/gnus/gnus-ml.el
@@ -127,7 +127,7 @@ If FORCE is non-nil, replace the old ones."
(t (gnus-message 1 "no list-unsubscribe in this group")))))
(defun gnus-mailing-list-post ()
- "Post message (really useful ?)"
+ "Post message (really useful ?)."
(interactive)
(let ((list-post
(with-current-buffer gnus-original-article-buffer
diff --git a/lisp/gnus/gnus-mlspl.el b/lisp/gnus/gnus-mlspl.el
index 6adda2ed147..878e879cd70 100644
--- a/lisp/gnus/gnus-mlspl.el
+++ b/lisp/gnus/gnus-mlspl.el
@@ -75,7 +75,7 @@ match any of the group-specified splitting rules. See
;;;###autoload
(defun gnus-group-split-update (&optional catch-all)
- "Computes nnmail-split-fancy from group params and CATCH-ALL.
+ "Computes `nnmail-split-fancy' from group params and CATCH-ALL.
It does this by calling (gnus-group-split-fancy nil nil CATCH-ALL).
If CATCH-ALL is nil, `gnus-group-split-default-catch-all-group' is used
diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el
index 863b6aa44e4..66501ef7d54 100644
--- a/lisp/gnus/gnus-msg.el
+++ b/lisp/gnus/gnus-msg.el
@@ -303,7 +303,7 @@ If nil, the address field will always be empty after invoking
(defcustom gnus-message-highlight-citation
t ;; gnus-treat-highlight-citation ;; gnus-cite dependency
- "Enable highlighting of different citation levels in message-mode."
+ "Enable highlighting of different citation levels in `message-mode'."
:version "23.1" ;; No Gnus
:group 'gnus-cite
:group 'gnus-message
diff --git a/lisp/gnus/gnus-registry.el b/lisp/gnus/gnus-registry.el
index 0468d72edd0..9b76f983227 100644
--- a/lisp/gnus/gnus-registry.el
+++ b/lisp/gnus/gnus-registry.el
@@ -772,7 +772,7 @@ possible. Uses `gnus-registry-split-strategy'."
nil))))
(defun gnus-registry-follow-group-p (group)
- "Determines if a group name should be followed.
+ "Determine if a group name should be followed.
Consults `gnus-registry-unfollowed-groups' and
`nnmail-split-fancy-with-parent-ignore-groups'."
(and group
@@ -789,7 +789,7 @@ Consults `gnus-registry-unfollowed-groups' and
;; we do special logic for ignoring to accept regular expressions and
;; nnmail-split-fancy-with-parent-ignore-groups as well
(defun gnus-registry-ignore-group-p (group)
- "Determines if a group name should be ignored.
+ "Determine if a group name should be ignored.
Consults `gnus-registry-ignored-groups' and
`nnmail-split-fancy-with-parent-ignore-groups'."
(and group
diff --git a/lisp/gnus/gnus-salt.el b/lisp/gnus/gnus-salt.el
index 5b746a8efa9..dc81dfc5f6c 100644
--- a/lisp/gnus/gnus-salt.el
+++ b/lisp/gnus/gnus-salt.el
@@ -51,7 +51,7 @@
(defcustom gnus-pick-elegant-flow t
"If non-nil, `gnus-pick-start-reading' runs
- `gnus-summary-next-group' when no articles have been picked."
+`gnus-summary-next-group' when no articles have been picked."
:type 'boolean
:group 'gnus-summary-pick)
diff --git a/lisp/gnus/gnus-score.el b/lisp/gnus/gnus-score.el
index f40da9e9c4c..0626e8bde5c 100644
--- a/lisp/gnus/gnus-score.el
+++ b/lisp/gnus/gnus-score.el
@@ -1093,7 +1093,7 @@ EXTRA is the possible non-standard header."
(defun gnus-summary-current-score (arg)
"Return the score of the current article.
- With prefix ARG, return the total score of the current (sub)thread."
+With prefix ARG, return the total score of the current (sub)thread."
(interactive "P" gnus-article-mode gnus-summary-mode)
(message "%s" (if arg
(gnus-thread-total-score
diff --git a/lisp/gnus/gnus-search.el b/lisp/gnus/gnus-search.el
index 2a8069d400c..9c83d5fa376 100644
--- a/lisp/gnus/gnus-search.el
+++ b/lisp/gnus/gnus-search.el
@@ -132,7 +132,7 @@ transformed."
(defcustom gnus-search-ignored-newsgroups ""
"A regexp to match newsgroups in the active file that should
- be skipped when searching."
+be skipped when searching."
:version "24.1"
:type 'regexp)
@@ -172,8 +172,7 @@ This variable can also be set per-server."
:type 'regexp)
(defcustom gnus-search-swish++-raw-queries-p nil
- "If t, all Swish++ engines will only accept raw search query
- strings."
+ "If t, all Swish++ engines will only accept raw search query strings."
:type 'boolean
:version "28.1")
@@ -217,8 +216,7 @@ This variable can also be set per-server."
:version "28.1")
(defcustom gnus-search-swish-e-raw-queries-p nil
- "If t, all Swish-e engines will only accept raw search query
- strings."
+ "If t, all Swish-e engines will only accept raw search query strings."
:type 'boolean
:version "28.1")
@@ -266,8 +264,7 @@ This variable can also be set per-server."
:version "28.1")
(defcustom gnus-search-namazu-raw-queries-p nil
- "If t, all Namazu engines will only accept raw search query
- strings."
+ "If t, all Namazu engines will only accept raw search query strings."
:type 'boolean
:version "28.1")
@@ -305,14 +302,12 @@ This variable can also be set per-server."
:version "28.1")
(defcustom gnus-search-notmuch-raw-queries-p nil
- "If t, all Notmuch engines will only accept raw search query
- strings."
+ "If t, all Notmuch engines will only accept raw search query strings."
:type 'boolean
:version "28.1")
(defcustom gnus-search-imap-raw-queries-p nil
- "If t, all IMAP engines will only accept raw search query
- strings."
+ "If t, all IMAP engines will only accept raw search query strings."
:version "28.1"
:type 'boolean)
@@ -350,8 +345,7 @@ This variable can also be set per-server."
:type 'regexp)
(defcustom gnus-search-mairix-raw-queries-p nil
- "If t, all Mairix engines will only accept raw search query
- strings."
+ "If t, all Mairix engines will only accept raw search query strings."
:version "28.1"
:type 'boolean)
@@ -403,7 +397,7 @@ expressions. Key is most often a mail header, but there are
other keys. Value is a string, quoted if it contains spaces.
Key and value are separated by a colon, no space. Expressions
are implicitly ANDed; the \"or\" keyword can be used to
-OR. \"not\" will negate the following expression, or keys can be
+OR. \"not\" will negate the following expression, or keys can be
prefixed with a \"-\". The \"near\" operator will work for
engines that understand it; other engines will convert it to
\"or\". Parenthetical groups work as expected.
@@ -413,7 +407,7 @@ header.
Search keys can be expanded with TAB during entry, or left
abbreviated so long as they remain unambiguous, ie \"f\" will
-search the \"from\" header. \"s\" will raise an error.
+search the \"from\" header. \"s\" will raise an error.
Other keys:
@@ -433,7 +427,7 @@ It's also possible to use Gnus' internal marks, ie \"mark:R\"
will be interpreted as mark:read.
\"tag\" will search tags -- right now that's translated to
-\"keyword\" in IMAP, and left as \"tag\" for notmuch. At some
+\"keyword\" in IMAP, and left as \"tag\" for notmuch. At some
point this should also be used to search marks in the Gnus
registry.
diff --git a/lisp/gnus/gnus-sieve.el b/lisp/gnus/gnus-sieve.el
index eeedf7ff35c..d173decbb6a 100644
--- a/lisp/gnus/gnus-sieve.el
+++ b/lisp/gnus/gnus-sieve.el
@@ -61,8 +61,9 @@ For example: \"nnimap:mailbox\""
:type 'boolean)
(defcustom gnus-sieve-update-shell-command "echo put %f | sieveshell %s"
- "Shell command to execute after updating your Sieve script. The following
-formatting characters are recognized:
+ "Shell command to execute after updating your Sieve script.
+
+The following formatting characters are recognized:
%f Script's file name (gnus-sieve-file)
%s Server name (from gnus-sieve-select-method)"
diff --git a/lisp/gnus/gnus-srvr.el b/lisp/gnus/gnus-srvr.el
index 1c75abb6f4b..115efa9805e 100644
--- a/lisp/gnus/gnus-srvr.el
+++ b/lisp/gnus/gnus-srvr.el
@@ -204,7 +204,7 @@ If nil, a faster, but more primitive, buffer is used instead."
'((((class color) (background light)) (:foreground "ForestGreen" :inverse-video t :italic t))
(((class color) (background dark)) (:foreground "PaleGreen" :inverse-video t :italic t))
(t (:inverse-video t :italic t)))
- "Face used for displaying the Cloud Host"
+ "Face used for displaying the Cloud Host."
:group 'gnus-server-visual)
(defface gnus-server-opened
diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el
index 4bbeb24dc39..1c2e9ebd919 100644
--- a/lisp/gnus/gnus-start.el
+++ b/lisp/gnus/gnus-start.el
@@ -2340,9 +2340,9 @@ If FORCE is non-nil, the .newsrc file is read."
(defun gnus-convert-mark-converter-prompt (converter no-prompt)
"Indicate whether CONVERTER requires `gnus-convert-old-newsrc' to
- display the conversion prompt. NO-PROMPT may be nil (prompt),
- t (no prompt), or any form that can be called as a function.
- The form should return either t or nil."
+display the conversion prompt. NO-PROMPT may be nil (prompt),
+t (no prompt), or any form that can be called as a function.
+The form should return either t or nil."
(put converter 'gnus-convert-no-prompt no-prompt))
(defun gnus-convert-converter-needs-prompt (converter)
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index c28e38e3156..f17bb11e6a9 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -1723,8 +1723,7 @@ For example:
\(setq gnus-newsgroup-variables
\\='(message-use-followup-to
(gnus-visible-headers .
- \"^From:\\\\|^Newsgroups:\\\\|^Subject:\\\\|^Date:\\\\|^To:\")))
-")
+ \"^From:\\\\|^Newsgroups:\\\\|^Subject:\\\\|^Date:\\\\|^To:\")))")
(eval-when-compile
;; Bind features so that require will believe that gnus-sum has
@@ -3146,8 +3145,9 @@ You can also post articles and send mail from this buffer. To
follow up an article, type `\\[gnus-summary-followup]'. To mail a reply to the author
of an article, type `\\[gnus-summary-reply]'.
-There are approx. one gazillion commands you can execute in this
-buffer; read the Info manual for more information (`\\[gnus-info-find-node]').
+There are approximately one gazillion commands you can execute in
+this buffer; read the Info manual for more
+information (`\\[gnus-info-find-node]').
The following commands are available:
@@ -6843,7 +6843,7 @@ Also do horizontal recentering."
(defun gnus-forward-line-ignore-invisible (n)
"Move N lines forward (backward if N is negative).
-Like forward-line, but skip over (and don't count) invisible lines."
+Like `forward-line', but skip over (and don't count) invisible lines."
(let (done)
(while (and (> n 0) (not done))
;; If the following character is currently invisible,
diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el
index 70ae81d95ea..fb285962d6f 100644
--- a/lisp/gnus/gnus-util.el
+++ b/lisp/gnus/gnus-util.el
@@ -533,7 +533,7 @@ ARGS are passed to `message'."
(defun gnus-extract-references (references)
"Return a list of Message-IDs in REFERENCES (in In-Reply-To
- format), trimmed to only contain the Message-IDs."
+format), trimmed to only contain the Message-IDs."
(let ((ids (gnus-split-references references))
refs)
(dolist (id ids)
@@ -1528,8 +1528,8 @@ sequence, this is like `mapcar'. With several, it is like the Common Lisp
(t emacs-version))))
(defun gnus-rename-file (old-path new-path &optional trim)
- "Rename OLD-PATH as NEW-PATH. If TRIM, recursively delete
-empty directories from OLD-PATH."
+ "Rename OLD-PATH as NEW-PATH.
+If TRIM, recursively delete empty directories from OLD-PATH."
(when (file-exists-p old-path)
(let* ((old-dir (file-name-directory old-path))
;; (old-name (file-name-nondirectory old-path))
@@ -1549,7 +1549,7 @@ empty directories from OLD-PATH."
(concat old-dir "..")))))))))
(defun gnus-set-file-modes (filename mode &optional flag)
- "Wrapper for set-file-modes."
+ "Wrapper for `set-file-modes'."
(ignore-errors
(set-file-modes filename mode flag)))
diff --git a/lisp/gnus/gnus-uu.el b/lisp/gnus/gnus-uu.el
index 6c926384c97..f7b761ee339 100644
--- a/lisp/gnus/gnus-uu.el
+++ b/lisp/gnus/gnus-uu.el
@@ -354,12 +354,12 @@ didn't work, and overwrite existing files. Otherwise, ask each time."
;; Commands.
(defun gnus-uu-decode-uu (&optional n)
- "Uudecodes the current article."
+ "Uudecode the current article."
(interactive "P" gnus-article-mode gnus-summary-mode)
(gnus-uu-decode-with-method #'gnus-uu-uustrip-article n))
(defun gnus-uu-decode-uu-and-save (n dir)
- "Decodes and saves the resulting file."
+ "Decode and save the resulting file."
(interactive
(list current-prefix-arg
(file-name-as-directory
@@ -370,12 +370,12 @@ didn't work, and overwrite existing files. Otherwise, ask each time."
(gnus-uu-decode-with-method #'gnus-uu-uustrip-article n dir nil nil t))
(defun gnus-uu-decode-unshar (&optional n)
- "Unshars the current article."
+ "Unshar the current article."
(interactive "P" gnus-article-mode gnus-summary-mode)
(gnus-uu-decode-with-method #'gnus-uu-unshar-article n nil nil 'scan t))
(defun gnus-uu-decode-unshar-and-save (n dir)
- "Unshars and saves the current article."
+ "Unshar and save the current article."
(interactive
(list current-prefix-arg
(file-name-as-directory
@@ -386,7 +386,7 @@ didn't work, and overwrite existing files. Otherwise, ask each time."
(gnus-uu-decode-with-method #'gnus-uu-unshar-article n dir nil 'scan t))
(defun gnus-uu-decode-save (n file)
- "Saves the current article."
+ "Save the current article."
(interactive
(list current-prefix-arg
(if gnus-uu-save-separate-articles
@@ -399,7 +399,7 @@ didn't work, and overwrite existing files. Otherwise, ask each time."
(gnus-uu-decode-with-method #'gnus-uu-save-article n nil t))
(defun gnus-uu-decode-binhex (n dir)
- "Unbinhexes the current article."
+ "Unbinhex the current article."
(interactive
(list current-prefix-arg
(file-name-as-directory
@@ -425,13 +425,13 @@ didn't work, and overwrite existing files. Otherwise, ask each time."
(gnus-uu-decode-with-method #'gnus-uu-yenc-article n dir nil t))
(defun gnus-uu-decode-uu-view (&optional n)
- "Uudecodes and views the current article."
+ "Uudecode and view the current article."
(interactive "P" gnus-article-mode gnus-summary-mode)
(let ((gnus-view-pseudos (or gnus-view-pseudos 'automatic)))
(gnus-uu-decode-uu n)))
(defun gnus-uu-decode-uu-and-save-view (n dir)
- "Decodes, views and saves the resulting file."
+ "Decode, view and save the resulting file."
(interactive
(list current-prefix-arg
(read-file-name "Uudecode, view and save in dir: "
@@ -442,13 +442,13 @@ didn't work, and overwrite existing files. Otherwise, ask each time."
(gnus-uu-decode-uu-and-save n dir)))
(defun gnus-uu-decode-unshar-view (&optional n)
- "Unshars and views the current article."
+ "Unshar and view the current article."
(interactive "P" gnus-article-mode gnus-summary-mode)
(let ((gnus-view-pseudos (or gnus-view-pseudos 'automatic)))
(gnus-uu-decode-unshar n)))
(defun gnus-uu-decode-unshar-and-save-view (n dir)
- "Unshars and saves the current article."
+ "Unshar and save the current article."
(interactive
(list current-prefix-arg
(read-file-name "Unshar, view and save in dir: "
@@ -459,7 +459,7 @@ didn't work, and overwrite existing files. Otherwise, ask each time."
(gnus-uu-decode-unshar-and-save n dir)))
(defun gnus-uu-decode-save-view (n file)
- "Saves and views the current article."
+ "Save and view the current article."
(interactive
(list current-prefix-arg
(if gnus-uu-save-separate-articles
@@ -472,7 +472,7 @@ didn't work, and overwrite existing files. Otherwise, ask each time."
(gnus-uu-decode-save n file)))
(defun gnus-uu-decode-binhex-view (n file)
- "Unbinhexes and views the current article."
+ "Unbinhex and view the current article."
(interactive
(list current-prefix-arg
(read-file-name "Unbinhex, view and save in dir: "
@@ -488,7 +488,7 @@ didn't work, and overwrite existing files. Otherwise, ask each time."
;; Digest and forward articles
(defun gnus-uu-digest-mail-forward (&optional n post)
- "Digests and forwards all articles in this series."
+ "Digest and forward all articles in this series."
(interactive "P" gnus-article-mode gnus-summary-mode)
(gnus-uu-initialize)
(let ((gnus-uu-save-in-digest t)
@@ -643,7 +643,7 @@ When called interactively, prompt for REGEXP."
(gnus-uu-mark-region (point-min) (point-max) t))
(defun gnus-uu-mark-thread ()
- "Marks all articles downwards in this thread."
+ "Mark all articles downwards in this thread."
(interactive nil gnus-article-mode gnus-summary-mode)
(gnus-save-hidden-threads
(let ((level (gnus-summary-thread-level)))
@@ -654,7 +654,7 @@ When called interactively, prompt for REGEXP."
(gnus-summary-position-point))
(defun gnus-uu-unmark-thread ()
- "Unmarks all articles downwards in this thread."
+ "Unmark all articles downwards in this thread."
(interactive nil gnus-article-mode gnus-summary-mode)
(let ((level (gnus-summary-thread-level)))
(while (and (gnus-summary-remove-process-mark
@@ -747,7 +747,7 @@ When called interactively, prompt for REGEXP."
(gnus-uu-decode-postscript n)))
(defun gnus-uu-decode-postscript-and-save (n dir)
- "Extracts PostScript and saves the current article."
+ "Extract PostScript and save the current article."
(interactive (list current-prefix-arg
(file-name-as-directory
(read-directory-name "Save in dir: "
@@ -758,7 +758,7 @@ When called interactively, prompt for REGEXP."
n dir nil nil t))
(defun gnus-uu-decode-postscript-and-save-view (n dir)
- "Decodes, views and saves the resulting file."
+ "Decode, view and save the resulting file."
(interactive (list current-prefix-arg
(read-file-name "Where do you want to save the file(s)? "
gnus-uu-default-dir
@@ -1606,7 +1606,7 @@ Gnus might fail to display all of it.")
gnus-uu-unshar-warning))
(goto-char (point-min))
(display-buffer buffer)
- (yes-or-no-p "This is a shell archive, unshar it? "))
+ (yes-or-no-p "This is a shell archive, unshar it?"))
(kill-buffer buffer))
(setq state (list 'error))))))
(unless (memq 'error state)
@@ -1925,7 +1925,7 @@ is t."
(gnus-uu-post-insert-binary)))))
(defun gnus-uu-post-insert-binary-in-article ()
- "Inserts an encoded file in the buffer.
+ "Insert an encoded file in the buffer.
The user will be asked for a file name."
(interactive)
(save-excursion
diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el
index 5009507208e..0505e33cb6e 100644
--- a/lisp/gnus/gnus.el
+++ b/lisp/gnus/gnus.el
@@ -2217,7 +2217,7 @@ covered by that variable."
(defcustom gnus-agent t
"Whether we want to use the Gnus agent or not.
-You may customize gnus-agent to disable its use. However, some
+You may customize `gnus-agent' to disable its use. However, some
back ends have started to use the agent as a client-side cache.
Disabling the agent may result in noticeable loss of performance."
:version "22.1"
View Lorry Controller Status