Mercurial > emacs
changeset 10073:71b3508d5418
Many doc fixes. Fix progress message formats.
(gnus-article-prev-digest): Rename arg to n.
(gnus-summary-next-digest, gnus-summary-prev-digest): Likewise.
(file-newer-than-file-p): Definition deleted.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 28 Nov 1994 13:54:27 +0000 |
| parents | a7b70665c937 |
| children | 309352e06d3a |
| files | lisp/=gnus.el |
| diffstat | 1 files changed, 207 insertions(+), 228 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/=gnus.el Thu Nov 24 11:26:41 1994 +0000 +++ b/lisp/=gnus.el Mon Nov 28 13:54:27 1994 +0000 @@ -98,13 +98,14 @@ (defvar gnus-default-nntp-server nil "*Specify default NNTP server. -This variable should be defined in paths.el.") +This variable should be defined in `site-init.el'.") (defvar gnus-nntp-server (or (getenv "NNTPSERVER") gnus-default-nntp-server) "*The name of the host running NNTP server. -If it is a string such as `:DIRECTORY', the user's private DIRECTORY -is used as a news spool. -Initialized from the NNTPSERVER environment variable.") +If it is a string starting with a colon, as in as `:DIRECTORY', then the +directory ~/DIRECTORY is used as the news spool. +This variable is initialized from the NNTPSERVER environment variable +or from `gnus-default-nntp-server'.") (defvar gnus-nntp-service "nntp" "*NNTP service name (\"nntp\" or 119). @@ -124,7 +125,7 @@ (defvar gnus-use-followup-to t "*Specifies what to do with Followup-To: field. -If nil, ignore followup-to: field. If t, use its value except for +If nil, ignore `Followup-to:' field. If t, use its value except for `poster'. Otherwise, if not nil nor t, always use its value.") (defvar gnus-large-newsgroup 50 @@ -139,23 +140,23 @@ Articles are saved using a function specified by the the variable `gnus-author-copy-saver' (`rmail-output' is default) if a file name is given. Instead, if the first character of the name is `|', the -contents of the article is piped out to the named program. It is +contents of the article is piped out to the named program. It is possible to save an article in an MH folder as follows: \(setq gnus-author-copy \"|/usr/local/lib/mh/rcvstore +Article\")") (defvar gnus-author-copy-saver (function rmail-output) "*A function called with a file name to save an author copy to. -The default function is `rmail-output' which saves in Unix mailbox format.") +The default function is `rmail-output' which saves in inbox format.") (defvar gnus-use-long-file-name (not (memq system-type '(usg-unix-v xenix))) "*Non-nil means that a newsgroup name is used as a default file name -to save articles to. If it's nil, the directory form of a newsgroup is +to save articles to. If it's nil, the directory form of a newsgroup is used instead.") (defvar gnus-article-save-directory (getenv "SAVEDIR") - "*A directory name to save articles to (default to ~/News). + "*A directory name to save articles to (default is `~/News'). Initialized from the SAVEDIR environment variable.") (defvar gnus-kill-files-directory (getenv "SAVEDIR") @@ -246,15 +247,17 @@ (defvar gnus-ignored-headers "^Path:\\|^Posting-Version:\\|^Article-I.D.:\\|^Expires:\\|^Date-Received:\\|^References:\\|^Control:\\|^Xref:\\|^Lines:\\|^Posted:\\|^Relay-Version:\\|^Message-ID:\\|^Nf-ID:\\|^Nf-From:\\|^Approved:\\|^Sender:" - "*All random fields within the header of a message.") + "*Header fields not worth displaying. +Ordinarily GNUS excludes these when displaying an article. +If you want to see them, ask to see the message with \"the full header\" +\(also known as \"the original header\").") (defvar gnus-required-headers '(From Date Newsgroups Subject Message-ID Path Organization Distribution) "*All required fields for articles you post. RFC977 and RFC1036 require From, Date, Newsgroups, Subject, Message-ID and Path fields. Organization, Distribution and Lines are optional. -If you want GNUS not to insert some field, remove it from the -variable.") +If you want GNUS not to insert some field, remove it from this list.") (defvar gnus-show-all-headers nil "*Show all headers of an article if non-nil.") @@ -264,7 +267,7 @@ (defvar gnus-optional-headers (function gnus-optional-lines-and-from) "*A function generating a optional string displayed in GNUS Summary -mode buffer. The function is called with an article HEADER. The +mode buffer. The function is called with an article HEADER. The result must be a string excluding `[' and `]'.") (defvar gnus-auto-extend-newsgroup t @@ -375,7 +378,7 @@ (defvar gnus-startup-hook nil "*A hook called at start up time. -This hook is called after GNUS is connected to the NNTP server. So, it +This hook is called after GNUS is connected to the NNTP server. So, it is possible to change the behavior of GNUS according to the selected NNTP server.") @@ -396,8 +399,7 @@ If you want to sort Summary buffer by date and then by subject, you can use the following hook: -\(setq gnus-select-group-hook - (list +\(add-hook 'gnus-select-group-hook (function (lambda () ;; First of all, sort by date. @@ -415,14 +417,13 @@ (if case-fold-search (downcase (gnus-simplify-subject (gnus-header-subject a) t)) (gnus-simplify-subject (gnus-header-subject a) t))))) - )))) + ))) If you'd like to simplify subjects like the `gnus-summary-next-same-subject' command does, you can use the following hook: -\(setq gnus-select-group-hook - (list +\(add-hook 'gnus-select-group-hook (function (lambda () (mapcar (function @@ -431,13 +432,12 @@ header (gnus-simplify-subject (gnus-header-subject header) 're-only)))) - gnus-newsgroup-headers))))) - -In some newsgroups author name is meaningless. It is possible to + gnus-newsgroup-headers)))) + +In some newsgroups author name is meaningless. It is possible to prevent listing author names in GNUS Summary buffer as follows: -\(setq gnus-select-group-hook - (list +\(add-hook 'gnus-select-group-hook (function (lambda () (cond ((string-equal \"comp.sources.unix\" gnus-newsgroup-name) @@ -445,7 +445,7 @@ (function gnus-optional-lines))) (t (setq gnus-optional-headers - (function gnus-optional-lines-and-from))))))))") + (function gnus-optional-lines-and-from)))))))") (defvar gnus-select-article-hook '(gnus-summary-show-thread) @@ -453,21 +453,20 @@ The default hook shows conversation thread subtrees of the selected article automatically using `gnus-summary-show-thread'. -If you'd like to run RMAIL on a digest article automagically, you can +If you'd like to run Rmail on a digest article automagically, you can use the following hook: -\(setq gnus-select-article-hook - (list +\(add-hook 'gnus-select-article-hook (function (lambda () - (gnus-summary-show-thread) (cond ((string-equal \"comp.sys.sun\" gnus-newsgroup-name) (gnus-summary-rmail-digest)) ((and (string-equal \"comp.text\" gnus-newsgroup-name) (string-match \"^TeXhax Digest\" (gnus-header-subject gnus-current-headers))) (gnus-summary-rmail-digest) - ))))))") + )))) + t)") (defvar gnus-select-digest-hook (list @@ -482,15 +481,14 @@ This hook can be used to modify incomplete digest articles as follows \(this is the default): -\(setq gnus-select-digest-hook - (list +\(add-hook 'gnus-select-digest-hook (function (lambda () ;; Reply-To: is required by `undigestify-rmail-message'. (or (mail-position-on-field \"Reply-to\" t) (progn (mail-position-on-field \"Reply-to\") - (insert (gnus-fetch-field \"From\"))))))))") + (insert (gnus-fetch-field \"From\")))))))") (defvar gnus-rmail-digest-hook nil "*A hook called when reading digest messages using Rmail. @@ -502,7 +500,7 @@ The function `gnus-apply-kill-file' is called by default. Since a general KILL file is too heavy to use only for a few -newsgroups, I recommend you to use a lighter hook function. For +newsgroups, I recommend you to use a lighter hook function. For example, if you'd like to apply a KILL file to articles which contains a string `rmgroup' in subject in newsgroup `control', you can use the following hook: @@ -548,7 +546,7 @@ (defvar gnus-exit-group-hook nil "*A hook called when exiting (not quitting) Summary mode. If your machine is so slow that exiting from Summary mode takes very -long time, set the variable `gnus-use-cross-reference' to nil. This +long time, set the variable `gnus-use-cross-reference' to nil. This inhibits marking articles as read using cross-reference information.") (defvar gnus-suspend-gnus-hook nil @@ -562,7 +560,7 @@ This hook is called before saving the `.newsrc' file.") -;; Site dependent variables. You have to define these variables in +;; Site dependent variables. You have to define these variables in ;; site-init.el, default.el or your .emacs. (defvar gnus-local-timezone nil @@ -592,7 +590,7 @@ (defvar gnus-use-generic-from nil "*If nil, prepend local host name to the defined domain in the From: -field; if stringp, use this; if non-nil, strip of the local host name.") +field; if a string, use this; if non-nil, strip of the local host name.") (defvar gnus-use-generic-path nil "*If nil, use the NNTP server name in the Path: field; if stringp, @@ -684,7 +682,7 @@ (defvar gnus-distribution-list nil) (defvar gnus-newsrc-options nil - "Options line in the .newsrc file.") + "Options line in the `.newsrc' file.") (defvar gnus-newsrc-options-n-yes nil "Regexp representing subscribed newsgroups.") @@ -694,24 +692,24 @@ (defvar gnus-newsrc-assoc nil "Assoc list of read articles. -gnus-newsrc-hashtb should be kept so that both hold the same information.") +`gnus-newsrc-hashtb' should be kept so that both hold the same information.") (defvar gnus-newsrc-hashtb nil - "Hashtable of gnus-newsrc-assoc.") + "Hashtable of `gnus-newsrc-assoc'.") (defvar gnus-killed-assoc nil - "Assoc list of newsgroups removed from gnus-newsrc-assoc. -gnus-killed-hashtb should be kept so that both hold the same information.") + "Assoc list of newsgroups removed from `gnus-newsrc-assoc'. +`gnus-killed-hashtb' should be kept so that both hold the same information.") (defvar gnus-killed-hashtb nil - "Hashtable of gnus-killed-assoc.") + "Hashtable of `gnus-killed-assoc'.") (defvar gnus-marked-assoc nil "Assoc list of articles marked as unread. -gnus-marked-hashtb should be kept so that both hold the same information.") +`gnus-marked-hashtb' should be kept so that both hold the same information.") (defvar gnus-marked-hashtb nil - "Hashtable of gnus-marked-assoc.") + "Hashtable of `gnus-marked-assoc'.") (defvar gnus-unread-hashtb nil "Hashtable of unread articles.") @@ -752,9 +750,8 @@ (defvar gnus-newsgroup-headers nil "List of article headers in the current newsgroup. -If the variable is modified (added or deleted), the function -gnus-clear-hashtables-for-newsgroup-headers must be called to clear -the hash tables.") +If you modify the variable, you must call the function +`gnus-clear-hashtables-for-newsgroup-headers' to clear the hash tables.") (defvar gnus-newsgroup-headers-hashtb-by-id nil) (defvar gnus-newsgroup-headers-hashtb-by-number nil) @@ -811,7 +808,7 @@ "Rewrite Date field in GMT to local in current buffer.") (autoload 'metamail-buffer "metamail" - "Process current buffer through 'metamail'." t) + "Process current buffer through `metamail'." t) (autoload 'rmail-output "rmailout" "Append this message to Unix mail file named FILE-NAME." t) @@ -849,13 +846,13 @@ (` (symbol-value (intern-soft (, string) (, hashtable))))) (defmacro gnus-sethash (string value hashtable) - "Set hash value. Arguments are STRING, VALUE, and HASHTABLE." + "Set hash value. Arguments are STRING, VALUE, and HASHTABLE." ;; We cannot use define-abbrev since it only accepts string as value. (` (set (intern (, string) (, hashtable)) (, value)))) -;; Note: Macros defined here are also defined in nntp.el. I don't like +;; Note: Macros defined here are also defined in nntp.el. I don't like ;; to put them here, but many users got troubled with the old -;; definitions in nntp.elc. These codes are NNTP 3.10 version. +;; definitions in nntp.elc. These codes are NNTP 3.10 version. (defmacro nntp-header-number (header) "Return article number in HEADER." @@ -1063,15 +1060,15 @@ C-c C-i Read Info about Group Mode. The name of the host running NNTP server is asked for if no default -host is specified. It is also possible to choose another NNTP server +host is specified. It is also possible to choose another NNTP server even when the default server is defined by giving a prefix argument to the command `\\[gnus]'. - If an NNTP server is preceded by a colon such as `:Mail', the user's -private directory `~/Mail' is used as a news spool. This makes it + If the NNTP server name starts with a colon, as in `:Mail', the user's +own directory `~/Mail' is used as a news spool. This makes it possible to read mail stored in MH folders or articles saved by GNUS. File names of mail or articles must consist of only numeric -characters. Otherwise, they are ignored. +characters. Otherwise, they are ignored. If there is a file named `~/.newsrc-SERVER', it is used as the startup file instead of standard one when talking to SERVER. It is @@ -1079,7 +1076,7 @@ each. Option `-n' of the options line in the startup file is recognized -properly the same as the Bnews system. For example, if the options +properly the same as the Bnews system. For example, if the options line is `options -n !talk talk.rumors', newsgroups under the `talk' hierarchy except for `talk.rumors' are ignored while checking new newsgroups. @@ -1098,7 +1095,7 @@ User customizable variables: gnus-nntp-server - Specifies the name of the host running the NNTP server. If its + Specifies the name of the host running the NNTP server. If its value is a string such as `:DIRECTORY', the user's private DIRECTORY is used as a news spool. The variable is initialized from the NNTPSERVER environment variable. @@ -1179,12 +1176,12 @@ Various hooks for customization: gnus-group-mode-hook Entry to this mode calls the value with no arguments, if that - value is non-nil. This hook is called before GNUS is connected to - the NNTP server. So, you can change or define the NNTP server in + value is non-nil. This hook is called before GNUS is connected to + the NNTP server. So, you can change or define the NNTP server in this hook. gnus-startup-hook - Called with no arguments after the NNTP server is selected. It is + Called with no arguments after the NNTP server is selected. It is possible to change the behavior of GNUS or initialize the variables according to the selected NNTP server. @@ -1275,7 +1272,7 @@ If you have any trouble with this software, please let me -know. I will fix your problems in the next release. +know. I will fix your problems in the next release. Comments, suggestions, and bug fixes are welcome. @@ -1368,7 +1365,7 @@ (defun gnus-group-prepare-line (info) "Return a string for the Newsgroup buffer from INFO. -INFO is an element of gnus-newsrc-assoc or gnus-killed-assoc." +INFO is an element of `gnus-newsrc-assoc' or `gnus-killed-assoc'." (let* ((group-name (car info)) (unread-count (or (nth 1 (gnus-gethash group-name gnus-unread-hashtb)) @@ -1421,7 +1418,7 @@ ((progn (goto-char (point-max)) (re-search-backward regexp nil t)))) - ;; GROUP is listed in current buffer. So, delete old line. + ;; GROUP is listed in current buffer. So, delete old line. (progn (setq visible t) (beginning-of-line) @@ -1521,7 +1518,7 @@ )) (defun gnus-group-next-group (n) - "Go to next N'th newsgroup." + "Go to Nth following newsgroup." (interactive "p") (while (and (> n 1) (gnus-group-search-forward nil t)) @@ -1530,7 +1527,7 @@ (message "No more newsgroups"))) (defun gnus-group-next-unread-group (n) - "Go to next N'th unread newsgroup." + "Go to Nth following unread newsgroup." (interactive "p") (while (and (> n 1) (gnus-group-search-forward nil nil)) @@ -1539,7 +1536,7 @@ (message "No more unread newsgroups"))) (defun gnus-group-prev-group (n) - "Go to previous N'th newsgroup." + "Go to Nth previous newsgroup." (interactive "p") (while (and (> n 1) (gnus-group-search-forward t t)) @@ -1548,7 +1545,7 @@ (message "No more newsgroups"))) (defun gnus-group-prev-unread-group (n) - "Go to previous N'th unread newsgroup." + "Go to Nth previous unread newsgroup." (interactive "p") (while (and (> n 1) (gnus-group-search-forward t nil)) @@ -1596,7 +1593,7 @@ (defun gnus-group-unsubscribe-group (group) "Toggle subscribe from/to unsubscribe GROUP. -New newsgroup is added to .newsrc automatically." +\(If GROUP is new, it is added to `.newsrc' automatically.)" (interactive (list (completing-read "Newsgroup: " gnus-active-hashtb nil 'require-match))) @@ -1628,7 +1625,7 @@ (message "Listing all groups...done")) (defun gnus-group-get-new-news () - "Get newly arrived articles. In fact, read the active file again." + "Get newly arrived articles. In fact, read the active file again." (interactive) (gnus-setup-news) (gnus-group-list-groups gnus-have-all-newsgroups)) @@ -1687,7 +1684,7 @@ (defun gnus-group-suspend () "Suspend the current GNUS session. In fact, cleanup buffers except for Group Mode buffer. -The hook gnus-suspend-gnus-hook is called before actually suspending." +The hook `gnus-suspend-gnus-hook' is called before actually suspending." (interactive) (run-hooks 'gnus-suspend-gnus-hook) ;; Kill GNUS buffers except for Group Mode buffer. @@ -1703,8 +1700,8 @@ (delete-windows-on group-buf t))) (defun gnus-group-exit () - "Quit reading news after updating .newsrc. -The hook gnus-exit-gnus-hook is called before actually quitting." + "Quit reading news after updating `.newsrc'. +The hook `gnus-exit-gnus-hook' is called before actually quitting." (interactive) (if (or noninteractive ;For gnus-batch-kill (zerop (buffer-size)) ;No news is good news. @@ -1720,8 +1717,8 @@ )) (defun gnus-group-quit () - "Quit reading news without updating .newsrc. -The hook gnus-exit-gnus-hook is called before actually quitting." + "Quit reading news without updating `.newsrc'. +The hook `gnus-exit-gnus-hook' is called before actually quitting." (interactive) (if (or noninteractive ;For gnus-batch-kill (zerop (buffer-size)) @@ -2061,7 +2058,7 @@ C-c C-s C-s Sort subjects alphabetically. C-c C-s C-d Sort subjects by date. = Expand Summary window to show headers full window. -C-x C-s Reselect the current newsgroup. Prefix argument means to select all. +C-x C-s Reselect the current newsgroup. Prefix argument means to select all. w Stop page breaking by linefeed. C-c C-r Caesar rotates letters by 13/47 places. g Force to show the current article. @@ -2089,21 +2086,21 @@ User customizable variables: gnus-large-newsgroup - The number of articles which indicates a large newsgroup. If the + The number of articles which indicates a large newsgroup. If the number of articles in a newsgroup is greater than the value, the - number of articles to be selected is asked for. If the given value - N is positive, the last N articles is selected. If N is negative, - the first N articles are selected. An empty string means to select + number of articles to be selected is asked for. If the given value + N is positive, the last N articles is selected. If N is negative, + the first N articles are selected. An empty string means to select all articles. gnus-use-long-file-name Non-nil means that a newsgroup name is used as a default file name - to save articles to. If it's nil, the directory form of a + to save articles to. If it's nil, the directory form of a newsgroup is used instead. gnus-default-article-saver Specifies your favorite article saver which is interactively - funcallable. Following functions are available: + funcallable. Following functions are available: gnus-summary-save-in-rmail (in Rmail format) gnus-summary-save-in-mail (in Unix mail format) @@ -2117,18 +2114,18 @@ Specifies a function generating a file name to save articles in specified format. The function is called with NEWSGROUP, HEADERS, and optional LAST-FILE. Access macros to the headers are defined - as nntp-header-FIELD, and functions are defined as - gnus-header-FIELD. + as `nntp-header-FIELD', and functions are defined as + `gnus-header-FIELD'. gnus-article-save-directory Specifies a directory name to save articles to using the commands - gnus-summary-save-in-rmail, gnus-summary-save-in-mail and - gnus-summary-save-in-file. The variable is initialized from the + `gnus-summary-save-in-rmail', `gnus-summary-save-in-mail' and + `gnus-summary-save-in-file'. The variable is initialized from the SAVEDIR environment variable. gnus-kill-files-directory Specifies a directory name to save KILL files to using the commands - gnus-edit-global-kill, and gnus-edit-local-kill. The variable is + `gnus-edit-global-kill', and `gnus-edit-local-kill'. The variable is initialized from the SAVEDIR environment variable. gnus-show-all-headers @@ -2161,7 +2158,7 @@ gnus-optional-headers Specifies a function which generates an optional string displayed - in the Summary buffer. The function is called with an article + in the Summary buffer. The function is called with an article HEADERS. The result must be a string excluding `[' and `]'. The default function returns a string like NNN:AUTHOR, where NNN is the number of lines in an article and AUTHOR is the name of the @@ -2173,16 +2170,16 @@ gnus-auto-select-first Non-nil means the first unread article is selected automagically - when a newsgroup is selected normally (by gnus-group-read-group). + when a newsgroup is selected normally (by `gnus-group-read-group'). If you'd like to prevent automatic selection of the first unread article in some newsgroups, set the variable to nil in - gnus-select-group-hook or gnus-apply-kill-hook. + `gnus-select-group-hook' or `gnus-apply-kill-hook'. gnus-auto-select-next Non-nil means the next newsgroup is selected automagically at the - end of the newsgroup. If the value is t and the next newsgroup is + end of the newsgroup. If the value is t and the next newsgroup is empty (no unread articles), GNUS will exit Summary mode and go - back to Group mode. If the value is neither nil nor t, GNUS won't + back to Group mode. If the value is neither nil nor t, GNUS won't exit Summary mode but select the following unread newsgroup. Especially, if the value is the symbol `quietly', the next unread newsgroup will be selected without any confirmations. @@ -2204,9 +2201,6 @@ Specifies a regexp describing line-beginnings that separate pages of news article. - [gnus-more-message is obsolete. overlay-arrow-string interfares - with other subsystems, such as dbx mode.] - gnus-digest-show-summary Non-nil means that a summary of digest messages is shown when reading a digest article using `gnus-summary-rmail-digest' @@ -2218,17 +2212,17 @@ gnus-mail-reply-method gnus-mail-other-window-method Specifies a function to begin composing mail message using - commands gnus-summary-reply and gnus-summary-mail-other-window. - Functions gnus-mail-reply-using-mail and gnus-mail-reply-using-mhe - are available for the value of gnus-mail-reply-method. And - functions gnus-mail-other-window-using-mail and - gnus-mail-other-window-using-mhe are available for the value of - gnus-mail-other-window-method. + commands `gnus-summary-reply' and `gnus-summary-mail-other-window'. + Functions `gnus-mail-reply-using-mail' and `gnus-mail-reply-using-mhe' + are available for the value of `gnus-mail-reply-method'. And + functions `gnus-mail-other-window-using-mail' and + `gnus-mail-other-window-using-mhe' are available for the value of + `gnus-mail-other-window-method'. gnus-mail-send-method Specifies a function to mail a message too which is being posted as an article. The message must have To: or Cc: field. The value - of the variable send-mail-function is the default function which + of the variable `send-mail-function' is the default function, which uses sendmail mail program. Various hooks for customization: @@ -2238,47 +2232,47 @@ gnus-select-group-hook Called with no arguments when newsgroup is selected, if that value - is non-nil. It is possible to sort subjects in this hook. See the + is non-nil. It is possible to sort subjects in this hook. See the documentation of this variable for more information. gnus-summary-prepare-hook Called with no arguments after a summary list is created in the - Summary buffer, if that value is non-nil. If you'd like to modify + Summary buffer, if that value is non-nil. If you'd like to modify the buffer, you can use this hook. gnus-select-article-hook Called with no arguments when an article is selected, if that - value is non-nil. See the documentation of this variable for more + value is non-nil. See the documentation of this variable for more information. gnus-select-digest-hook Called with no arguments when reading digest messages using Rmail, - if that value is non-nil. This hook can be used to modify an - article so that Rmail can work with it. See the documentation of + if that value is non-nil. This hook can be used to modify an + article so that Rmail can work with it. See the documentation of the variable for more information. gnus-rmail-digest-hook Called with no arguments when reading digest messages using Rmail, - if that value is non-nil. This hook is intended to customize Rmail + if that value is non-nil. This hook is intended to customize Rmail mode. gnus-apply-kill-hook Called with no arguments when a newsgroup is selected and the - Summary buffer is prepared. This hook is intended to apply a KILL - file to the selected newsgroup. The format of KILL file is - completely different from that of version 3.8. You have to rewrite - them in the new format. See the documentation of Kill file mode + Summary buffer is prepared. This hook is intended to apply a KILL + file to the selected newsgroup. The format of KILL file is + completely different from that of version 3.8. You have to rewrite + them in the new format. See the documentation of Kill file mode for more information. gnus-mark-article-hook Called with no arguments when an article is selected at the first - time. The hook is intended to mark an article as read (or unread) + time. The hook is intended to mark an article as read (or unread) automatically when it is selected. See the documentation of the variable for more information. gnus-exit-group-hook Called with no arguments when exiting the current newsgroup, if - that value is non-nil. If your machine is so slow that exiting + that value is non-nil. If your machine is so slow that exiting from Summary mode takes very long time, inhibit marking articles as read using cross-references by setting the variable gnus-use-cross-reference to nil in this hook." @@ -2496,7 +2490,7 @@ (defun gnus-summary-set-mode-line () "Set Summary mode line string. -If you don't like it, define your own gnus-summary-set-mode-line." +If you don't like it, define your own `gnus-summary-set-mode-line'." (let ((unmarked (- (length gnus-newsgroup-unreads) (length (gnus-intersection @@ -2586,7 +2580,8 @@ (gnus-summary-search-subject t unread subject)) (defun gnus-summary-article-number () - "Article number around point. If nothing, return current number." + "Return the Article number around point. +If none, return current article number." (save-excursion (beginning-of-line) (if (looking-at ".[ \t]+\\([0-9]+\\):") @@ -2680,8 +2675,8 @@ (get-buffer gnus-summary-buffer)) (eq gnus-auto-select-next t) ;; Expected newsgroup has nothing to read since the articles - ;; are marked as read by cross-referencing. So, try next - ;; newsgroup. (Make sure we are in Group mode buffer now.) + ;; are marked as read by cross-referencing. So, try next + ;; newsgroup. (Make sure we are in Group mode buffer now.) (and (eq (current-buffer) (get-buffer gnus-group-buffer)) (gnus-group-group-name) @@ -2713,8 +2708,8 @@ (get-buffer gnus-summary-buffer)) (eq gnus-auto-select-next t) ;; Expected newsgroup has nothing to read since the articles - ;; are marked as read by cross-referencing. So, try next - ;; newsgroup. (Make sure we are in Group mode buffer now.) + ;; are marked as read by cross-referencing. So, try next + ;; newsgroup. (Make sure we are in Group mode buffer now.) (and (eq (current-buffer) (get-buffer gnus-group-buffer)) (gnus-summary-search-group t) @@ -2726,7 +2721,7 @@ ;; Walking around summary lines. (defun gnus-summary-next-subject (n &optional unread) - "Go to next N'th summary line. + "Go to Nth following summary line. If optional argument UNREAD is non-nil, only unread article is selected." (interactive "p") (while (and (> n 1) @@ -2741,12 +2736,12 @@ )) (defun gnus-summary-next-unread-subject (n) - "Go to next N'th unread summary line." + "Go to Nth following unread summary line." (interactive "p") (gnus-summary-next-subject n t)) (defun gnus-summary-prev-subject (n &optional unread) - "Go to previous N'th summary line. + "Go to Nth previous summary line. If optional argument UNREAD is non-nil, only unread article is selected." (interactive "p") (while (and (> n 1) @@ -2761,7 +2756,7 @@ )) (defun gnus-summary-prev-unread-subject (n) - "Go to previous N'th unread summary line." + "Go to Nth previous unread summary line." (interactive "p") (gnus-summary-prev-subject n t)) @@ -2980,7 +2975,7 @@ ))) (defun gnus-summary-prev-unread-article () - "Select unred article before current one." + "Select unread article before current one." (interactive) (gnus-summary-prev-article t (and gnus-auto-select-same (gnus-summary-subject-string)))) @@ -3058,7 +3053,7 @@ "Refer parent article of current article. If a prefix argument CHILD is non-nil, go back to the child article using internally maintained articles history. -NOTE: This command may not work with nnspool.el." +NOTE: This command may not work with `nnspool.el'." (interactive "P") (gnus-summary-select-article t t) ;Request all headers. (let ((referenced-id nil)) ;Message-id of parent or child article. @@ -3086,7 +3081,7 @@ "Refer article specified by MESSAGE-ID. If the MESSAGE-ID is nil or an empty string, Message-ID is poped from internally maintained articles history. -NOTE: This command may not work with nnspool.el nor mhspool.el." +NOTE: This command may not work with `nnspool.el' nor `mhspool.el'." (interactive "sMessage-ID: ") ;; Make sure that this command depends on the fact that article ;; related information is not updated when an article is retrieved @@ -3121,24 +3116,23 @@ (error "No such references")) ) -(defun gnus-summary-next-digest (nth) - "Move to head of NTH next digested message." +(defun gnus-summary-next-digest (n) + "Move to head of Nth next digested message." (interactive "p") (gnus-summary-select-article) (gnus-eval-in-buffer-window gnus-article-buffer - (gnus-article-next-digest (or nth 1)) + (gnus-article-next-digest (or n 1)) )) -(defun gnus-summary-prev-digest (nth) - "Move to head of NTH previous digested message." +(defun gnus-summary-prev-digest (n) + "Move to head of Nth previous digested message." (interactive "p") (gnus-summary-select-article) (gnus-eval-in-buffer-window gnus-article-buffer - (gnus-article-prev-digest (or nth 1)) - )) + (gnus-article-prev-digest (or n 1)))) (defun gnus-summary-first-unread-article () - "Select first unread article. Return non-nil if successfully selected." + "Select first unread article. Return non-nil if successfully selected." (interactive) (let ((begin (point))) (goto-char (point-min)) @@ -3161,7 +3155,8 @@ (defun gnus-summary-search-article-forward (regexp) "Search for an article containing REGEXP forward. -gnus-select-article-hook is not called during the search." +`gnus-select-article-hook' is not called for articles examined +by searching search." (interactive (list (read-string (concat "Search forward (regexp): " @@ -3180,7 +3175,8 @@ (defun gnus-summary-search-article-backward (regexp) "Search for an article containing REGEXP backward. -gnus-select-article-hook is not called during the search." +`gnus-select-article-hook' is not called for articles examined +by searching search." (interactive (list (read-string (concat "Search backward (regexp): " @@ -3200,7 +3196,8 @@ (defun gnus-summary-search-article (regexp &optional backward) "Search for an article containing REGEXP. Optional argument BACKWARD means do search for backward. -gnus-select-article-hook is not called during the search." +`gnus-select-article-hook' is not called for articles examined +by searching search." (let ((gnus-select-article-hook nil) ;Disable hook. (gnus-mark-article-hook nil) ;Inhibit marking as read. (re-search @@ -3265,10 +3262,10 @@ (` (lambda () (call-interactively '(, (key-binding command))))) backward) - (message "Executing %s... done" (key-description command))))) + (message "Executing %s...done" (key-description command))))) (defun gnus-summary-beginning-of-article () - "Go to beginning of article body" + "Go to beginning of article body." (interactive) (gnus-summary-select-article) (gnus-eval-in-buffer-window gnus-article-buffer @@ -3279,7 +3276,7 @@ )) (defun gnus-summary-end-of-article () - "Go to end of article body" + "Go to end of article body." (interactive) (gnus-summary-select-article) (gnus-eval-in-buffer-window gnus-article-buffer @@ -3290,8 +3287,8 @@ )) (defun gnus-summary-goto-article (article &optional all-headers) - "Read ARTICLE if exists. -Optional argument ALL-HEADERS means all headers are shown." + "Read article number ARTICLE if it exists. +Optional argument ALL-HEADERS means show the full header." (interactive (list (string-to-int @@ -3347,7 +3344,7 @@ (gnus-summary-select-article (not gnus-have-all-headers) t)) (defun gnus-summary-stop-page-breaking () - "Stop page breaking by linefeed temporary (Widen article buffer)." + "Stop page breaking by linefeed temporary (widen article buffer)." (interactive) (gnus-summary-select-article) (gnus-eval-in-buffer-window gnus-article-buffer @@ -3364,7 +3361,7 @@ (let ((count (gnus-summary-mark-same-subject (gnus-summary-subject-string) unmark))) - ;; Select next unread article. If auto-select-same mode, should + ;; Select next unread article. If auto-select-same mode, should ;; select the first unread article. (gnus-summary-next-article t (and gnus-auto-select-same (gnus-summary-subject-string))) @@ -3460,7 +3457,7 @@ (defun gnus-summary-mark-as-read-forward (count) "Mark current article as read, and then go forward. -Argument COUNT specifies number of articles marked as read" +Argument COUNT specifies number of articles marked as read." (interactive "p") (while (> count 0) (gnus-summary-mark-as-read) @@ -3469,7 +3466,7 @@ (defun gnus-summary-mark-as-read-backward (count) "Mark current article as read, and then go backward. -Argument COUNT specifies number of articles marked as read" +Argument COUNT specifies number of articles marked as read." (interactive "p") (while (> count 0) (gnus-summary-mark-as-read) @@ -3500,7 +3497,7 @@ (defun gnus-summary-clear-mark-forward (count) "Remove current article's mark, and go forward. -Argument COUNT specifies number of articles unmarked" +Argument COUNT specifies number of articles unmarked." (interactive "p") (while (> count 0) (gnus-summary-mark-as-unread nil t) @@ -3509,7 +3506,7 @@ (defun gnus-summary-clear-mark-backward (count) "Remove current article's mark, and go backward. -Argument COUNT specifies number of articles unmarked" +Argument COUNT specifies number of articles unmarked." (interactive "p") (while (> count 0) (gnus-summary-mark-as-unread nil t) @@ -3517,7 +3514,7 @@ (setq count (1- count)))) (defun gnus-summary-delete-marked-as-read () - "Delete lines which is marked as read." + "Delete summary lines for articles that are marked as read." (interactive) (if gnus-newsgroup-unreads (let ((buffer-read-only nil)) @@ -3795,7 +3792,7 @@ )) (defun gnus-summary-sort-by-subject (reverse) - "Sort Summary buffer by subject alphabetically. `Re:'s are ignored. + "Sort Summary buffer by subject alphabetically. `Re:'s are ignored. If case-fold-search is non-nil, case of letters is ignored. Argument REVERSE means reverse order." (interactive "P") @@ -3875,11 +3872,11 @@ (defun gnus-summary-rmail-digest () "Run RMAIL on current digest article. -gnus-select-digest-hook will be called with no arguments, if that -value is non-nil. It is possible to modify the article so that Rmail +`gnus-select-digest-hook' will be called with no arguments, if that +value is non-nil. It is possible to modify the article so that Rmail can work with it. -gnus-rmail-digest-hook will be called with no arguments, if that value -is non-nil. The hook is intended to customize Rmail mode." +`gnus-rmail-digest-hook' will be called with no arguments, if that value +is non-nil. The hook is intended to customize Rmail mode." (interactive) (gnus-summary-select-article) (require 'rmail) @@ -4216,7 +4213,7 @@ (defun gnus-summary-exit (&optional temporary) "Exit reading current newsgroup, and then return to group selection mode. -gnus-exit-group-hook is called with no arguments if that value is non-nil." +`gnus-exit-group-hook' is called with no arguments if that value is non-nil." (interactive) (let ((updated nil) (gnus-newsgroup-headers gnus-newsgroup-headers) @@ -4360,7 +4357,8 @@ (defun gnus-article-prepare (article &optional all-headers) "Prepare ARTICLE in Article mode buffer. ARTICLE can be either a article number or Message-ID. -If optional argument ALL-HEADERS is non-nil, all headers are inserted." +If optional argument ALL-HEADERS is non-nil, +include the article's whole original header." ;; Make sure a connection to NNTP server is alive. (if (not (gnus-server-opened)) (progn @@ -4478,7 +4476,7 @@ (defun gnus-article-set-mode-line () "Set Article mode line string. -If you don't like it, define your own gnus-article-set-mode-line." +If you don't like it, define your own `gnus-article-set-mode-line'." (let ((maxlen 15) ;Maximum subject length (subject (if gnus-current-headers @@ -4516,7 +4514,7 @@ (defun gnus-article-next-page (lines) "Show next page of current article. -If end of article, return non-nil. Otherwise return nil. +If end of article, return non-nil. Otherwise return nil. Argument LINES specifies lines to be scrolled up." (interactive "P") (move-to-window-line -1) @@ -4587,18 +4585,18 @@ (message "End of message") )) -(defun gnus-article-prev-digest (nth) - "Move to head of NTH previous digested message." +(defun gnus-article-prev-digest (n) + "Move to head of Nth previous digested message." ;; Stop page breaking in digest mode. (widen) (beginning-of-line) - ;; Skip NTH - 1 digest. + ;; Skip N - 1 digest. ;; Suggested by Khalid Sattar <admin@cs.exeter.ac.uk>. ;; Digest separator is customizable. ;; Suggested by Skip Montanaro <montanaro@sprite.crd.ge.com>. - (while (and (> nth 1) + (while (and (> n 1) (re-search-backward gnus-digest-separator nil 'move)) - (setq nth (1- nth))) + (setq n (1- n))) (if (re-search-backward gnus-digest-separator nil t) (let ((begin (point))) ;; Search for end of this message. @@ -4697,13 +4695,13 @@ does this easily for non-Lisp programmers. The `gnus-kill' function executes commands available in Summary Mode -by their key sequences. `gnus-kill' should be called with FIELD, +by their key sequences. `gnus-kill' should be called with FIELD, REGEXP and optional COMMAND and ALL. FIELD is a string representing the header field or an empty string. If FIELD is an empty string, the entire article body is searched for. REGEXP is a string which is -compared with FIELD value. COMMAND is a string representing a valid -key sequence in Summary mode or Lisp expression. COMMAND defaults to -'(gnus-summary-mark-as-read nil \"X\"). Make sure that COMMAND is +compared with FIELD value. COMMAND is a string representing a valid +key sequence in Summary mode or Lisp expression. COMMAND defaults to +\(gnus-summary-mark-as-read nil \"X\"). Make sure that COMMAND is executed in the Summary buffer. If the second optional argument ALL is non-nil, the COMMAND is applied to articles which are already marked as read or unread. Articles which are marked are skipped over @@ -4719,8 +4717,8 @@ (gnus-kill \"Subject\" \"AI\" \"d\") -In this example it is assumed that the command -`gnus-summary-mark-as-read-forward' is assigned to `d' in Summary Mode. +\(Here we assume the command `gnus-summary-mark-as-read-forward' is +assigned to `d' in Summary Mode.) It is possible to delete unnecessary headers which are marked with `X' in a KILL file as follows: @@ -4733,8 +4731,8 @@ which are marked as read in the previous GNUS sessions. Marks other than `D' should be used for articles which should really be deleted. -Entry to this mode calls emacs-lisp-mode-hook and -gnus-kill-file-mode-hook with no arguments, if that value is non-nil." +Entry to this mode calls `emacs-lisp-mode-hook' and +`gnus-kill-file-mode-hook' with no arguments, if that value is non-nil." (interactive) (kill-all-local-variables) (use-local-map gnus-kill-file-mode-map) @@ -5127,7 +5125,7 @@ )) (defun gnus-capitalize-newsgroup (newsgroup) - "Capitalize NEWSGROUP name with treating '.' and '-' as part of words." + "Capitalize NEWSGROUP name with treating `.' and `-' as part of words." ;; Suggested by "Jonathan I. Kamens" <jik@pit-manager.MIT.EDU>. (let ((current-syntax-table (syntax-table))) (unwind-protect @@ -5213,7 +5211,7 @@ (defun gnus-string-lessp (a b) "Return T if first arg string is less than second in lexicographic order. -If case-fold-search is non-nil, case of letters is ignored." +If `case-fold-search' is non-nil, case of letters is ignored." (if case-fold-search (string-lessp (downcase a) (downcase b)) (string-lessp a b))) @@ -5224,7 +5222,7 @@ (gnus-sortable-date date2))) (defun gnus-sortable-date (date) - "Make sortable string by string-lessp from DATE. + "Convert DATE into a string that can be sorted with `string-lessp'. Timezone package is used." (let* ((date (timezone-fix-time date nil nil)) ;[Y M D H M S] (year (aref date 0)) @@ -5283,12 +5281,12 @@ (gnus-summary-mark-as-read nil \"X\"). If optional 2nd argument ALL is non-nil, articles marked are also applied to. If FIELD is an empty string (or nil), entire article body is searched for. -COMMAND must be a lisp expression or a string representing a key sequence." +COMMAND must be a Lisp expression or a string representing a key sequence." ;; We don't want to change current point nor window configuration. (save-excursion (save-window-excursion ;; Selected window must be Summary buffer to execute keyboard - ;; macros correctly. See command_loop_1. + ;; macros correctly. See command_loop_1. (switch-to-buffer gnus-summary-buffer 'norecord) (goto-char (point-min)) ;From the beginning. (if (null command) @@ -5300,8 +5298,8 @@ "If FIELD of article header matches REGEXP, execute lisp FORM (or a string). If FIELD is an empty string (or nil), entire article body is searched for. If optional 1st argument BACKWARD is non-nil, do backward instead. -If optional 2nd argument IGNORE-MARKED is non-nil, articles which are -marked as read or unread are ignored." +If optional 2nd argument IGNORE-MARKED is non-nil, ignore articles +marked as read or unread." (let ((function nil) (header nil) (article nil)) @@ -5410,7 +5408,7 @@ (if (<= v t1) (if (< v t2) v (+ v 47)) (if (<= v t3) (- v 47) v)))) (setq i (1+ i)))) - (message "Building caesar-translate-table... done"))) + (message "Building caesar-translate-table...done"))) (let ((from (region-beginning)) (to (region-end)) (i 0) str len) @@ -5573,7 +5571,7 @@ "Open network stream to remote NNTP server. If optional argument CONFIRM is non-nil, ask you host that NNTP server is running even if it is defined. -Run gnus-open-server-hook just before opening news server." +Run `gnus-open-server-hook' just before opening news server." (if (gnus-server-opened) ;; Stream is already opened. nil @@ -5624,7 +5622,7 @@ (format "Cannot open NNTP server on %s" gnus-nntp-server))))) )) -;; Dummy functions used only once. Should return nil. +;; Dummy functions used only once. Should return nil. (defun gnus-server-opened () nil) (defun gnus-close-server () nil) @@ -5640,7 +5638,7 @@ (defun gnus-define-access-method (method &optional access-methods) "Define access functions for the access METHOD. Methods definition is taken from optional argument ACCESS-METHODS or -the variable gnus-access-methods." +the variable `gnus-access-methods'." (let ((bindings (cdr (assoc method (or access-methods gnus-access-methods))))) (if (null bindings) @@ -5761,8 +5759,8 @@ (defun gnus-get-header-by-number (number) "Return a header specified by a NUMBER. -If the variable gnus-newsgroup-headers is updated, the hashed table -gnus-newsgroup-headers-hashtb-by-number must be set to nil to indicate +If you update the variable `gnus-newsgroup-headers', you must set the +hash table `gnus-newsgroup-headers-hashtb-by-number' to nil to indicate rehash is necessary." (or gnus-newsgroup-headers-hashtb-by-number (gnus-make-headers-hashtable-by-number)) @@ -5771,8 +5769,8 @@ (defun gnus-get-header-by-id (id) "Return a header specified by an ID. -If the variable gnus-newsgroup-headers is updated, the hashed table -gnus-newsgroup-headers-hashtb-by-id must be set to nil to indicate +If you update the variable `gnus-newsgroup-headers', you must set the +hash table `gnus-newsgroup-headers-hashtb-by-id' to nil to indicate rehash is necessary." (or gnus-newsgroup-headers-hashtb-by-id (gnus-make-headers-hashtable-by-id)) @@ -5780,7 +5778,7 @@ (gnus-gethash id gnus-newsgroup-headers-hashtb-by-id))) (defun gnus-make-headers-hashtable-by-number () - "Make hashtable for the variable gnus-newsgroup-headers by number." + "Make hashtable for the variable `gnus-newsgroup-headers' by number." (let ((header nil) (headers gnus-newsgroup-headers)) (setq gnus-newsgroup-headers-hashtb-by-number @@ -5793,7 +5791,7 @@ ))) (defun gnus-make-headers-hashtable-by-id () - "Make hashtable for the variable gnus-newsgroup-headers by id." + "Make hashtable for the variable `gnus-newsgroup-headers' by id." (let ((header nil) (headers gnus-newsgroup-headers)) (setq gnus-newsgroup-headers-hashtb-by-id @@ -5806,7 +5804,7 @@ ))) (defun gnus-clear-hashtables-for-newsgroup-headers () - "Clear hash tables created for the variable gnus-newsgroup-headers." + "Clear hash tables created for the variable `gnus-newsgroup-headers'." (setq gnus-newsgroup-headers-hashtb-by-id nil) (setq gnus-newsgroup-headers-hashtb-by-number nil)) @@ -5917,7 +5915,7 @@ "Configure GNUS windows according to the next ACTION. The ACTION is either a symbol, such as `summary', or a configuration list such as `(1 1 2)'. If ACTION is not a list, -configuration list is got from the variable gnus-window-configuration." +configuration list is got from the variable `gnus-window-configuration'." (let* ((windows (if (listp action) action (car (cdr (assq action gnus-window-configuration))))) @@ -5950,7 +5948,7 @@ (setq height (+ (if grpwin (window-height grpwin) 0) (if subwin (window-height subwin) 0) (if artwin (window-height artwin) 0))))) - ;; The Newsgroup buffer exits always. So, use it to extend the + ;; The Newsgroup buffer exits always. So, use it to extend the ;; Group window so as to get enough window space. (switch-to-buffer gnus-group-buffer 'norecord) (and (get-buffer gnus-summary-buffer) @@ -6047,7 +6045,7 @@ (defun gnus-overload-functions (&optional overloads) "Overload functions specified by optional argument OVERLOADS. -If nothing is specified, use the variable gnus-overload-functions." +If nothing is specified, use the variable `gnus-overload-functions'." (let ((defs nil) (overloads (or overloads gnus-overload-functions))) (while overloads @@ -6282,7 +6280,7 @@ (defun gnus-find-new-newsgroups () "Looking for new newsgroups and return names. -`-n' option of options line in .newsrc file is recognized." +`-n' option of options line in `.newsrc' file is recognized." (let ((group nil) (new-newsgroups nil)) (mapatoms @@ -6306,7 +6304,7 @@ )) (defun gnus-kill-newsgroup (group) - "Kill GROUP from gnus-newsrc-assoc, .newsrc and gnus-unread-hashtb." + "Kill GROUP from `gnus-newsrc-assoc', `.newsrc' and `gnus-unread-hashtb'." (let ((info (gnus-gethash group gnus-newsrc-hashtb))) (if (null info) nil @@ -6376,8 +6374,8 @@ )) (defun gnus-check-killed-newsgroups () - "Check consistency between gnus-newsrc-assoc and gnus-killed-assoc. -gnus-killed-hashtb is also updated." + "Update `gnus-killed-assoc' based on `gnus-newsrc-assoc'. +Update `gnus-killed-hashtb' also." (let ((group nil) (new-killed nil) (old-killed gnus-killed-assoc)) @@ -6453,7 +6451,7 @@ (setq gnus-marked-assoc new-marked) (setq gnus-marked-hashtb (gnus-make-hashtable-from-alist gnus-marked-assoc)) - (message "Checking bogus newsgroups... done") + (message "Checking bogus newsgroups...done") )) (defun gnus-get-unread-articles () @@ -6488,7 +6486,7 @@ ) (setq read (cdr read)) ) - (message "Checking new news... done") + (message "Checking new news...done") )) (defun gnus-expire-marked-articles () @@ -6657,12 +6655,12 @@ (save-excursion (set-buffer nntp-server-buffer) (gnus-active-to-gnus-format) - (message "Reading active file... done")) + (message "Reading active file...done")) (error "Cannot read active file from NNTP server."))) (defun gnus-active-to-gnus-format () "Convert active file format to internal format. -Lines matching gnus-ignored-newsgroups are ignored." +Lines matching `gnus-ignored-newsgroups' are ignored." ;; Delete unnecessary lines. (goto-char (point-min)) ;;(delete-matching-lines "^to\\..*$") @@ -6737,7 +6735,7 @@ (message "Reading %s..." newsrc-file) (gnus-newsrc-to-gnus-format) (gnus-check-killed-newsgroups) - (message "Reading %s... Done" newsrc-file))) + (message "Reading %s...done" newsrc-file))) ))) (defun gnus-make-newsrc-file (file) @@ -6749,7 +6747,7 @@ )) (defun gnus-newsrc-to-gnus-format () - "Parse current buffer as .newsrc file." + "Parse current buffer as `.newsrc' file." (let ((newsgroup nil) (subscribe nil) (ranges nil) @@ -6902,7 +6900,7 @@ )) (defun gnus-save-newsrc-file () - "Save to .newsrc FILE." + "Save current status in the `.newsrc' file." ;; Note: We cannot save .newsrc file if all newsgroups are removed ;; from the variable gnus-newsrc-assoc. (and (or gnus-newsrc-assoc gnus-killed-assoc) @@ -6931,12 +6929,12 @@ (require-final-newline t)) ;Don't ask even if requested. (write-file (concat gnus-current-startup-file ".el"))) (kill-buffer (current-buffer)) - (message "Saving %s... Done" gnus-current-startup-file) + (message "Saving %s...done" gnus-current-startup-file) )) )) (defun gnus-update-newsrc-buffer (group &optional delete next) - "Incrementally update .newsrc buffer about GROUP. + "Incrementally update `.newsrc' buffer about GROUP. If optional 1st argument DELETE is non-nil, delete the group. If optional 2nd argument NEXT is non-nil, inserted before it." (save-excursion @@ -6992,7 +6990,7 @@ ))) (defun gnus-gnus-to-quick-newsrc-format () - "Insert GNUS variables such as gnus-newsrc-assoc in lisp format." + "Insert GNUS variables such as `gnus-newsrc-assoc' in Lisp format." (insert ";; GNUS internal format of .newsrc.\n") (insert ";; Touch .newsrc instead if you think to remove this file.\n") (let ((variable nil) @@ -7077,7 +7075,7 @@ (let ((count 0)) (while range (if (/= (cdr (car range)) 0) - ;; If end1 is 0, it must be skipped. Usually no articles in + ;; If end1 is 0, it must be skipped. Usually no articles in ;; this group. (setq count (+ count 1 (- (cdr (car range)) (car (car range)))))) (setq range (cdr range)) @@ -7125,7 +7123,7 @@ (save-excursion (set-buffer nntp-server-buffer) (gnus-distributions-to-gnus-format) - (message "Reading distributions file... done")) + (message "Reading distributions file...done")) ;; It's not a fatal error. ;;(error "Cannot read distributions file from NNTP server.") ) @@ -7152,25 +7150,6 @@ gnus-distribution-list))) (setq gnus-distribution-list (nreverse gnus-distribution-list))) - -;; Some older version of GNU Emacs does not support function -;; `file-newer-than-file-p'. - -(or (fboundp 'file-newer-than-file-p) - (defun file-newer-than-file-p (file1 file2) - "Return t if file FILE1 is newer than file FILE2. -If FILE1 does not exist, the answer is nil; -otherwise, if FILE2 does not exist, the answer is t." - (let ((mod1 (nth 5 (file-attributes file1))) - (mod2 (nth 5 (file-attributes file2)))) - (cond ((not (file-exists-p file1)) nil) - ((not (file-exists-p file2)) t) - ((and mod2 mod1) - (or (< (car mod2) (car mod1)) - (and (= (car mod2) (car mod1)) - (<= (nth 1 mod2) (nth 1 mod1))))) - )))) - (provide 'gnus)