*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7a72af2..b056345 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,25 @@
+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. 
 
        * nntp.el (nntp-request-close): Really kill all connections.

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 6eb10dc..551e0a6 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -1349,7 +1349,7 @@ variable (string, integer, character, etc).")
   "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)"
   "The mail address of the Gnus maintainers.")
 
-(defconst gnus-version "Gnus v5.0.7"
+(defconst gnus-version "Gnus v5.0.8"
   "Version number for this version of Gnus.")
 
 (defvar gnus-info-nodes
@@ -2494,10 +2494,11 @@ If optional argument RE-ONLY is non-nil, strip `Re:' only."
     (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
+       ;; 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))
+       (select-window (get-buffer-window all-visible t))
+        
 
       ;; Either remove all windows or just remove all Gnus windows.
       (if gnus-use-full-window
@@ -2588,7 +2589,7 @@ If optional argument RE-ONLY is non-nil, strip `Re:' only."
       ;; 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))
+      (select-window (get-buffer-window jump-buffer t))
       (set-buffer jump-buffer))))
 
 (defun gnus-all-windows-visible-p (rule)
@@ -6384,8 +6385,11 @@ If NO-ARTICLE is non-nil, no article is selected initially."
   ;; 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,6 +9747,7 @@ even ticked and dormant ones."
   ;; 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,11 +9768,12 @@ even ticked and dormant ones."
               (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))))
+         (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."

diff --git a/lisp/nnmh.el b/lisp/nnmh.el
index 3ee13de..2a8664b 100644 (file)
--- a/lisp/nnmh.el
+++ b/lisp/nnmh.el
@@ -224,8 +224,9 @@
             (format 
              "%s %d %d y\n" 
              (progn
-               (string-match (file-name-as-directory 
-                              (expand-file-name nnmh-directory)) dir)
+               (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)