*** pub/dgnus/lisp/gnus.el	Fri Oct 13 06:03:49 1995
--- dgnus/lisp/gnus.el	Sun Oct 15 00:19:03 1995
***************
*** 1349,1355 ****
    "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)"
    "The mail address of the Gnus maintainers.")
  
! (defconst gnus-version "Gnus v5.0.7"
    "Version number for this version of Gnus.")
  
  (defvar gnus-info-nodes
--- 1349,1355 ----
    "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)"
    "The mail address of the Gnus maintainers.")
  
! (defconst gnus-version "Gnus v5.0.8"
    "Version number for this version of Gnus.")
  
  (defvar gnus-info-nodes
***************
*** 2494,2503 ****
      (or r (error "No such setting: %s" setting))
  
      (if (and (not force) (setq all-visible (gnus-all-windows-visible-p r)))
! 	;; All the windows mentioned are already visibe, so we just
  	;; put point in the assigned buffer, and do not touch the
  	;; winconf. 
! 	(select-window (get-buffer-window all-visible))
  
        ;; Either remove all windows or just remove all Gnus windows.
        (if gnus-use-full-window
--- 2494,2504 ----
      (or r (error "No such setting: %s" setting))
  
      (if (and (not force) (setq all-visible (gnus-all-windows-visible-p r)))
! 	;; All the windows mentioned are already visible, so we just
  	;; put point in the assigned buffer, and do not touch the
  	;; winconf. 
! 	(select-window (get-buffer-window all-visible t))
! 	 
  
        ;; Either remove all windows or just remove all Gnus windows.
        (if gnus-use-full-window
***************
*** 2588,2594 ****
        ;; Finally, we pop to the buffer that's supposed to have point. 
        (or jump-buffer (error "Missing `point' in spec for %s" setting))
  
!       (select-window (get-buffer-window jump-buffer))
        (set-buffer jump-buffer))))
  
  (defun gnus-all-windows-visible-p (rule)
--- 2589,2595 ----
        ;; Finally, we pop to the buffer that's supposed to have point. 
        (or jump-buffer (error "Missing `point' in spec for %s" setting))
  
!       (select-window (get-buffer-window jump-buffer t))
        (set-buffer jump-buffer))))
  
  (defun gnus-all-windows-visible-p (rule)
***************
*** 6384,6391 ****
--- 6385,6395 ----
    ;; Sort threads as specified in `gnus-thread-sort-functions'.
    (let ((fun gnus-thread-sort-functions))
      (while fun
+       (gnus-message 6 "Sorting with %S..." fun)
        (setq threads (sort threads (car fun))
  	    fun (cdr fun))))
+   (if gnus-thread-sort-functions
+       (gnus-message 6 "Sorting...done"))
    threads)
  
  ;; Written by Hallvard B Furuseth <h.b.furuseth@usit.uio.no>.
***************
*** 9743,9748 ****
--- 9747,9753 ----
    ;; Fix by Sudish Joseph <joseph@cis.ohio-state.edu>.
    (gnus-set-global-variables)
    (let ((buffer-read-only nil)
+ 	(orig-article (gnus-summary-article-number))
  	(marks (concat "^[" marks "]")))
      (goto-char (point-min))
      (if gnus-newsgroup-adaptive
***************
*** 9763,9773 ****
  	       (gnus-summary-subject-string)))
  	    ()
  	  (forward-line -1)
! 	  (gnus-delete-line)))))
!   (or (zerop (buffer-size))
!       (if (eobp)
! 	  (gnus-summary-prev-subject 1)
! 	(gnus-summary-position-cursor))))
  
  (defun gnus-summary-expunge-below (&optional score)
    "Remove articles with score less than SCORE."
--- 9768,9779 ----
  	       (gnus-summary-subject-string)))
  	    ()
  	  (forward-line -1)
! 	  (gnus-delete-line))))
!     (or (zerop (buffer-size))
! 	(gnus-summary-goto-subject orig-article)
! 	(if (eobp)
! 	    (gnus-summary-prev-subject 1)
! 	  (gnus-summary-position-cursor)))))
  
  (defun gnus-summary-expunge-below (&optional score)
    "Remove articles with score less than SCORE."
*** pub/dgnus/lisp/nnmh.el	Fri Oct 13 06:03:49 1995
--- dgnus/lisp/nnmh.el	Sat Oct 14 01:53:45 1995
***************
*** 224,231 ****
  	     (format 
  	      "%s %d %d y\n" 
  	      (progn
! 		(string-match (file-name-as-directory 
! 			       (expand-file-name nnmh-directory)) dir)
  		(nnmail-replace-chars-in-string
  		 (substring dir (match-end 0)) ?/ ?.))
  	      (apply (function max) files) 
--- 224,232 ----
  	     (format 
  	      "%s %d %d y\n" 
  	      (progn
! 		(string-match 
! 		 (file-truename (file-name-as-directory 
! 				 (expand-file-name nnmh-directory))) dir)
  		(nnmail-replace-chars-in-string
  		 (substring dir (match-end 0)) ?/ ?.))
  	      (apply (function max) files) 
*** pub/dgnus/lisp/ChangeLog	Fri Oct 13 06:03:55 1995
--- dgnus/lisp/ChangeLog	Sun Oct 15 00:19:11 1995
***************
*** 1,4 ****
--- 1,24 ----
+ Sat Oct 14 11:58:47 1995  Lars Ingebrigtsen  <lars@eyesore.no>
+ 
+ 	* gnus.el (gnus-summary-remove-lines-marked-with): Try to go to
+ 	the article from whence we came.
+ 
+ Fri Oct 13 15:05:50 1995  Per Abrahamsen  <abraham@dina.kvl.dk>
+ 
+ 	* gnus.el (gnus-sort-threads): Keep the user informed.
+ 
+ Sat Oct 14 01:53:57 1995  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+ 
+ 	* nnmh.el (nnmh-request-list): Stil wouldn't recurse properly. 
+ 
+ Fri Oct 13 10:37:57 1995  Lars Ingebrigtsen  <lars@eyesore.no>
+ 
+ 	* gnus.el (gnus-configure-windows): Would possibly bug out when
+  	the minibuffer was active and in a different frame.
+ 
  Fri Oct 13 01:27:15 1995  Lars Ingebrigtsen  <lars@eyesore.no>
+ 
+ 	* gnus.el: 5.0.7 is released.
  
  	* nnmh.el (nnmh-request-list): Wouldn't recurse down symlinks.