From a00169d4ada3c141939c206f481855977f3e95b0 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 20 Feb 2003 02:29:06 +0000 Subject: [PATCH] Synch to Oort Gnus. --- lisp/ChangeLog | 12 ++++++++++++ lisp/gnus-sum.el | 19 ++++++++++--------- lisp/gnus.el | 8 ++++---- 3 files changed, 26 insertions(+), 13 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f9ecae3..ba65fd1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,17 @@ 2003-02-20 Jesper Harder + * gnus-sum.el (gnus-simplify-subject-fully, gnus-subject-equal) + (gnus-newsgroup-undownloaded) + (gnus-summary-save-parts-default-mime, gnus-auto-select-next): + Doc fixes. + +2003-02-17 John Paul Wallington + + * gnus.el (gnus-shell-command-separator, gnus-email-address) + (gnus-default-charset, gnus-other-frame-parameters): Doc fixes. + +2003-02-20 Jesper Harder + * gnus-spec.el (gnus-xmas-format): Use insert instead of insert-string which is obsolete in Emacs 21.4. diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 8261085..1f5a4e7 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -340,13 +340,13 @@ or not." (defcustom gnus-auto-select-next t "*If non-nil, offer to go to the next group from the end of the previous. If the value is t and the next newsgroup is empty, Gnus will exit -summary mode and go back to group mode. If the value is neither nil -nor t, Gnus will select the following unread newsgroup. In +summary mode and go back to group mode. If the value is neither nil +nor t, Gnus will select the following unread newsgroup. In particular, if the value is the symbol `quietly', the next unread newsgroup will be selected without any confirmation, and if it is `almost-quietly', the next group will be selected without any confirmation if you are located on the last article in the group. -Finally, if this variable is `slightly-quietly', the `Z n' command +Finally, if this variable is `slightly-quietly', the `\\\\[gnus-summary-catchup-and-goto-next-group]' command will go to the next group without confirmation." :group 'gnus-summary-maneuvering :type '(choice (const :tag "off" nil) @@ -1080,9 +1080,10 @@ For example: ((1 . cn-gb-2312) (2 . big5))." integer)) (defcustom gnus-summary-save-parts-default-mime "image/.*" - "*A regexp to match MIME parts when saving multiple parts of a message -with gnus-summary-save-parts (X m). This regexp will be used by default -when prompting the user for which type of files to save." + "*A regexp to match MIME parts when saving multiple parts of a +message with `gnus-summary-save-parts' (\\\\[gnus-summary-save-parts]). +This regexp will be used by default when prompting the user for which +type of files to save." :group 'gnus-summary :type 'regexp) @@ -1308,7 +1309,7 @@ end position and text.") "Sorted list of articles in the current newsgroup whose headers have not been fetched into the agent.") (defvar gnus-newsgroup-undownloaded nil - "List of articles in the current newsgroup that haven't been downloaded..") + "List of articles in the current newsgroup that haven't been downloaded.") (defvar gnus-newsgroup-unsendable nil "List of articles in the current newsgroup that won't be sent.") @@ -1523,7 +1524,7 @@ See `gnus-simplify-buffer-fuzzy' for details." (buffer-string)))) (defsubst gnus-simplify-subject-fully (subject) - "Simplify a subject string according to gnus-summary-gather-subject-limit." + "Simplify a subject string according to `gnus-summary-gather-subject-limit'." (cond (gnus-simplify-subject-functions (gnus-map-function gnus-simplify-subject-functions subject)) @@ -1539,7 +1540,7 @@ See `gnus-simplify-buffer-fuzzy' for details." (defsubst gnus-subject-equal (s1 s2 &optional simple-first) "Check whether two subjects are equal. -If optional argument simple-first is t, first argument is already +If optional argument SIMPLE-FIRST is t, first argument is already simplified." (cond ((null simple-first) diff --git a/lisp/gnus.el b/lisp/gnus.el index b7ac069..098634f 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -1523,7 +1523,7 @@ slower, and `std11-extract-address-components'." :type 'boolean) (defcustom gnus-shell-command-separator ";" - "String used to separate to shell commands." + "String used to separate shell commands." :group 'gnus-files :type 'string) @@ -1621,7 +1621,7 @@ to be desirable; see the manual for further details." ;; There should be special validation for this. (define-widget 'gnus-email-address 'string - "An email address") + "An email address.") (gnus-define-group-parameter to-address @@ -2112,7 +2112,7 @@ You also need to enable `gnus-agent'." (defcustom gnus-default-charset 'iso-8859-1 "Default charset assumed to be used when viewing non-ASCII characters. This variable is overridden on a group-to-group basis by the -gnus-group-charset-alist variable and is only used on groups not +`gnus-group-charset-alist' variable and is only used on groups not covered by that variable." :type 'symbol :group 'gnus-charset) @@ -2134,7 +2134,7 @@ Putting (gnus-agentize) in ~/.gnus is obsolete by (setq gnus-agent t)." (defcustom gnus-other-frame-parameters nil "Frame parameters used by `gnus-other-frame' to create a Gnus frame. -This should be an alist for FSF Emacs, or a plist for XEmacs." +This should be an alist for Emacs, or a plist for XEmacs." :group 'gnus-start :type (if (featurep 'xemacs) '(repeat (list :inline t :format "%v" -- 1.7.10.4