From 89dd85bd959ada41924f3679a608468bb9838ead Mon Sep 17 00:00:00 2001 From: ichikawa Date: Sat, 15 Aug 1998 17:30:43 +0000 Subject: [PATCH] Importing gnus-5.6.36 --- lisp/ChangeLog | 11 ++++++++++ lisp/gnus-group.el | 6 ++++-- lisp/gnus-start.el | 2 +- lisp/gnus.el | 58 ++++++++++++++++++++++++++-------------------------- texi/ChangeLog | 4 ++++ 5 files changed, 49 insertions(+), 32 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f6db40d..5435e3d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,14 @@ +Fri Aug 14 23:03:51 1998 Lars Magne Ingebrigtsen + + * gnus.el: Gnus v5.6.36 is released. + +1998-08-14 21:49:22 Lars Magne Ingebrigtsen + + * gnus.el (load): Push onto list. + + * gnus-group.el (gnus-group-get-new-news-this-group): Store active + info. + Fri Aug 14 21:41:59 1998 Lars Magne Ingebrigtsen * gnus.el: Gnus v5.6.35 is released. diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el index 8ae0489..10a9bd9 100644 --- a/lisp/gnus-group.el +++ b/lisp/gnus-group.el @@ -2913,17 +2913,19 @@ If N is negative, this group and the N-1 previous groups will be checked." (ret (if (numberp n) (- n (length groups)) 0)) (beg (unless n (point))) - group) + group method) (while (setq group (pop groups)) (gnus-group-remove-mark group) ;; Bypass any previous denials from the server. - (gnus-remove-denial (gnus-find-method-for-group group)) + (gnus-remove-denial (setq method (gnus-find-method-for-group group))) (if (gnus-activate-group group (if dont-scan nil 'scan)) (progn (gnus-get-unread-articles-in-group (gnus-get-info group) (gnus-active group) t) (unless (gnus-virtual-group-p group) (gnus-close-group group)) + (gnus-agent-save-group-info + method (gnus-group-real-name group) (gnus-active group)) (gnus-group-update-group group)) (if (eq (gnus-server-status (gnus-find-method-for-group group)) 'denied) diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el index b5ef307..bcb7fa3 100644 --- a/lisp/gnus-start.el +++ b/lisp/gnus-start.el @@ -664,8 +664,8 @@ prompt the user for the name of an NNTP server to use." (> arg 0) (max (car gnus-group-list-mode) arg)))) - (gnus-splash) (gnus-clear-system) + (gnus-splash) (gnus-run-hooks 'gnus-before-startup-hook) (nnheader-init-server-buffer) (setq gnus-slave slave) diff --git a/lisp/gnus.el b/lisp/gnus.el index fd34298..aca2c82 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.35" +(defconst gnus-version-number "5.6.36" "Version number for this version of Gnus.") (defconst gnus-version (format "Gnus v%s" gnus-version-number) @@ -600,6 +600,33 @@ be set in `.emacs' instead." "Face used for normal interest read articles.") +;;; +;;; Gnus buffers +;;; + +(defvar gnus-buffers nil) + +(defun gnus-get-buffer-create (name) + "Do the same as `get-buffer-create', but store the created buffer." + (or (get-buffer name) + (car (push (get-buffer-create name) gnus-buffers)))) + +(defun gnus-add-buffer () + "Add the current buffer to the list of Gnus buffers." + (push (current-buffer) gnus-buffers)) + +(defun gnus-buffers () + "Return a list of live Gnus buffers." + (while (and gnus-buffers + (not (buffer-name (car gnus-buffers)))) + (pop gnus-buffers)) + (let ((buffers gnus-buffers)) + (while (cdr buffers) + (if (buffer-name (cadr buffers)) + (pop buffers) + (setcdr buffers (cddr buffers))))) + gnus-buffers) + ;;; Splash screen. (defvar gnus-group-buffer "*Group*") @@ -691,7 +718,7 @@ be set in `.emacs' instead." (if (and (string-match "gnus" command) (not (string-match "gnus-other-frame" command))) (gnus-splash) - (get-buffer-create gnus-group-buffer)))) + (gnus-get-buffer-create gnus-group-buffer)))) ;;; Do the rest. @@ -1925,33 +1952,6 @@ This restriction may disappear in later versions of Gnus." (when (memq symbol (cdr entry)) (funcall (car entry)))))) -;;; -;;; Gnus buffers -;;; - -(defvar gnus-buffers nil) - -(defun gnus-get-buffer-create (name) - "Do the same as `get-buffer-create', but store the created buffer." - (or (get-buffer name) - (car (push (get-buffer-create name) gnus-buffers)))) - -(defun gnus-add-buffer () - "Add the current buffer to the list of Gnus buffers." - (push (current-buffer) gnus-buffers)) - -(defun gnus-buffers () - "Return a list of live Gnus buffers." - (while (and gnus-buffers - (not (buffer-name (car gnus-buffers)))) - (pop gnus-buffers)) - (let ((buffers gnus-buffers)) - (while (cdr buffers) - (if (buffer-name (cadr buffers)) - (pop buffers) - (setcdr buffers (cddr buffers))))) - gnus-buffers) - ;;; ;;; Gnus Utility Functions diff --git a/texi/ChangeLog b/texi/ChangeLog index bcf8056..99e2d27 100644 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -1,3 +1,7 @@ +1998-08-14 01:31:36 Simon Josefsson + + * gnus.texi (Posting Styles): New 'body style. + 1998-08-13 21:17:00 Lars Magne Ingebrigtsen * gnus.texi (Paging the Article): Addition. -- 1.7.10.4