From 5bf4d905688c83db07ecf3eea668d65fa140fb24 Mon Sep 17 00:00:00 2001 From: ichikawa Date: Sun, 30 Aug 1998 02:50:12 +0000 Subject: [PATCH] Importing gnus-5.6.42 --- lisp/ChangeLog | 25 +++++++++++++++++++++++++ lisp/gnus-agent.el | 10 +++++----- lisp/gnus-cache.el | 3 ++- lisp/gnus-sum.el | 17 +++++++++-------- lisp/gnus.el | 2 +- lisp/nnvirtual.el | 8 +++++--- texi/gnus.texi | 6 +++--- texi/message.texi | 6 +++--- 8 files changed, 53 insertions(+), 24 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 94fbbde..d06cf06 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,28 @@ +Sat Aug 29 19:17:19 1998 Lars Magne Ingebrigtsen + + * gnus.el: Gnus v5.6.42 is released. + +1998-08-29 17:06:27 Simon Josefsson + + * gnus-sum.el (gnus-summary-make-menu-bar): Typo. + +1998-08-29 12:47:42 Tatsuya Ichikawa + + * gnus-agent.el: Use nnheader-insert-file-contents. + +1998-08-29 12:18:18 Lars Magne Ingebrigtsen + + * nnvirtual.el (nnvirtual-request-group): Update the right group. + +1998-08-27 16:46:38 Lars Magne Ingebrigtsen + + * gnus-sum.el (gnus-data-compute-positions): Didn't work on hidden + threads. + + * nnvirtual.el (nnvirtual-request-group): Work when always + updating. + (nnvirtual-always-rescan): Default to t. + Thu Aug 27 11:03:59 1998 Lars Magne Ingebrigtsen * gnus.el: Gnus v5.6.41 is released. diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el index 5128fc3..be03a4d 100644 --- a/lisp/gnus-agent.el +++ b/lisp/gnus-agent.el @@ -129,7 +129,7 @@ If nil, only read articles will be expired." "Load FILE and do a `read' there." (nnheader-temp-write nil (ignore-errors - (insert-file-contents file) + (nnheader-insert-file-contents file) (goto-char (point-min)) (read (current-buffer))))) @@ -539,7 +539,7 @@ the actual number of articles toggled is returned." (gnus-make-directory (file-name-directory file)) (nnheader-temp-write file (when (file-exists-p file) - (insert-file-contents file)) + (nnheader-insert-file-contents file)) (goto-char (point-min)) (if nntp-server-list-active-group (progn @@ -728,7 +728,7 @@ the actual number of articles toggled is returned." (when (= (point-max) (point-min)) (push (cons group (current-buffer)) gnus-agent-buffer-alist) (ignore-errors - (insert-file-contents + (nnheader-insert-file-contents (gnus-agent-article-name ".overview" group)))) (nnheader-find-nov-line (string-to-number (cdar crosses))) (insert (string-to-number (cdar crosses))) @@ -795,7 +795,7 @@ the actual number of articles toggled is returned." (goto-char (point-min)) (set-buffer nntp-server-buffer) (erase-buffer) - (insert-file-contents file) + (nnheader-insert-file-contents file) (goto-char (point-max)) (if (or (= (point-min) (point-max)) (progn @@ -1307,7 +1307,7 @@ The following commands are available: (set-buffer overview) (erase-buffer) (when (file-exists-p nov-file) - (insert-file-contents nov-file)) + (nnheader-insert-file-contents nov-file)) (goto-char (point-min)) (setq article 0) (while (setq elem (pop articles)) diff --git a/lisp/gnus-cache.el b/lisp/gnus-cache.el index 38a87ed..7f03b70 100644 --- a/lisp/gnus-cache.el +++ b/lisp/gnus-cache.el @@ -393,7 +393,8 @@ Returns the list of articles removed." (save-excursion (setq gnus-cache-buffer (cons group - (set-buffer (gnus-get-buffer-create " *gnus-cache-overview*")))) + (set-buffer (gnus-get-buffer-create + " *gnus-cache-overview*")))) (buffer-disable-undo (current-buffer)) ;; Insert the contents of this group's cache overview. (erase-buffer) diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 0b11ffd..5e5c6ea 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -1740,7 +1740,7 @@ increase the score of each group you read." ["Send a bug report" gnus-bug t] ("Exit" ["Catchup and exit" gnus-summary-catchup-and-exit t] - ["Catchup all and exit" gnus-summary-catchup-and-exit t] + ["Catchup all and exit" gnus-summary-catchup-all-and-exit t] ["Catchup and goto next" gnus-summary-catchup-and-goto-next-group t] ["Exit group" gnus-summary-exit t] ["Exit group without updating" gnus-summary-exit-no-update t] @@ -2037,13 +2037,14 @@ The following commands are available: (setq gnus-newsgroup-data-reverse nil) (let ((data gnus-newsgroup-data)) (save-excursion - (goto-char (point-min)) - (while data - (while (get-text-property (point) 'gnus-intangible) - (forward-line 1)) - (gnus-data-set-pos (car data) (+ (point) 3)) - (setq data (cdr data)) - (forward-line 1))))) + (gnus-save-hidden-threads + (goto-char (point-min)) + (while data + (while (get-text-property (point) 'gnus-intangible) + (forward-line 1)) + (gnus-data-set-pos (car data) (+ (point) 3)) + (setq data (cdr data)) + (forward-line 1)))))) (defun gnus-summary-article-pseudo-p (article) "Say whether this article is a pseudo article or not." diff --git a/lisp/gnus.el b/lisp/gnus.el index 0f18cdc..2642303 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -250,7 +250,7 @@ is restarted, and sometimes reloaded." :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) -(defconst gnus-version-number "5.6.41" +(defconst gnus-version-number "5.6.42" "Version number for this version of Gnus.") (defconst gnus-version (format "Gnus v%s" gnus-version-number) diff --git a/lisp/nnvirtual.el b/lisp/nnvirtual.el index d8bf70d..4829341 100644 --- a/lisp/nnvirtual.el +++ b/lisp/nnvirtual.el @@ -43,7 +43,7 @@ (nnoo-declare nnvirtual) -(defvoo nnvirtual-always-rescan nil +(defvoo nnvirtual-always-rescan t "*If non-nil, always scan groups for unread articles when entering a group. If this variable is nil (which is the default) and you read articles in a component group after the virtual group has been activated, the @@ -259,12 +259,14 @@ to virtual article number.") (setq nnvirtual-current-group nil) (nnheader-report 'nnvirtual "No component groups in %s" group)) (t + (setq nnvirtual-current-group group) (when (or (not dont-check) nnvirtual-always-rescan) (nnvirtual-create-mapping) (when nnvirtual-always-rescan - (nnvirtual-request-update-info group (gnus-get-info group)))) - (setq nnvirtual-current-group group) + (nnvirtual-request-update-info + (nnvirtual-current-group) + (gnus-get-info (nnvirtual-current-group))))) (nnheader-insert "211 %d 1 %d %s\n" nnvirtual-mapping-len nnvirtual-mapping-len group)))) diff --git a/texi/gnus.texi b/texi/gnus.texi index 23b6bae..329119b 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename gnus -@settitle Gnus 5.6.41 Manual +@settitle Gnus 5.6.42 Manual @synindex fn cp @synindex vr cp @synindex pg cp @@ -318,7 +318,7 @@ into another language, under the above conditions for modified versions. @tex @titlepage -@title Gnus 5.6.41 Manual +@title Gnus 5.6.42 Manual @author by Lars Magne Ingebrigtsen @page @@ -354,7 +354,7 @@ can be gotten by any nefarious means you can think of---@sc{nntp}, local spool or your mbox file. All at the same time, if you want to push your luck. -This manual corresponds to Gnus 5.6.41. +This manual corresponds to Gnus 5.6.42. @end ifinfo diff --git a/texi/message.texi b/texi/message.texi index 3bde580..33ce0c4 100644 --- a/texi/message.texi +++ b/texi/message.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename message -@settitle Message 5.6.41 Manual +@settitle Message 5.6.42 Manual @synindex fn cp @synindex vr cp @synindex pg cp @@ -42,7 +42,7 @@ into another language, under the above conditions for modified versions. @tex @titlepage -@title Message 5.6.41 Manual +@title Message 5.6.42 Manual @author by Lars Magne Ingebrigtsen @page @@ -83,7 +83,7 @@ Message mode buffers. * Key Index:: List of Message mode keys. @end menu -This manual corresponds to Message 5.6.41. Message is distributed with +This manual corresponds to Message 5.6.42. Message is distributed with the Gnus distribution bearing the same version number as this manual has. -- 1.7.10.4