From: ichikawa <ichikawa>
Date: Sat, 15 Aug 1998 17:30:43 +0000 (+0000)
Subject: Importing gnus-5.6.36
X-Git-Tag: gnus-5_6_36~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=89dd85bd959ada41924f3679a608468bb9838ead;p=elisp%2Fgnus.git-

Importing gnus-5.6.36
---

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  <larsi@menja.ifi.uio.no>
+
+	* gnus.el: Gnus v5.6.36 is released.
+
+1998-08-14 21:49:22  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	* 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  <larsi@menja.ifi.uio.no>
 
 	* 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  <jas@pdc.kth.se>
+
+	* gnus.texi (Posting Styles): New 'body style.
+
 1998-08-13 21:17:00  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 	* gnus.texi (Paging the Article): Addition.