*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b056345..546d14d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,34 @@
+Wed Oct 18 19:09:10 1995  Lars Ingebrigtsen  <lars@eyesore.no>
+
+       * gnus.el (gnus-summary-catchup-and-exit): Do the right thing on
+       exit from ephemeral groups.
+       (gnus-ephemeral-group-p): New function.
+       (gnus-score-find-bnews): Translate ".all" to "\\..*".
+       (gnus-summary-sort-by-subject): Use article numbers as the
+       secondary sort keys.
+
+Sat Oct 14 01:41:11 1995  Sudish Joseph <joseph@cis.ohio-state.edu>
+
+       * nntp.el (nntp-possibly-change-server): Open SERVER even if
+         NEWSGROUP is nil.
+
+Mon Oct 16 11:53:04 1995  Lars Ingebrigtsen  <lars@eyesore.no>
+
+       * nntp.el (nntp-send-xover-command): Check for bogus results from
+       the XOVER command.
+
+Sun Oct 15 06:57:03 1995  Lars Ingebrigtsen  <lars@eyesore.no>
+
+       * gnus.el (gnus-windows-old-to-new): Would bug out on bogus window
+       configs.
+
+       * gnus-score.el (gnus-score-load-file): Add all 'excude-files from
+       all files.
+
 Sat Oct 14 11:58:47 1995  Lars Ingebrigtsen  <lars@eyesore.no>
 
+       * gnus.el: 5.0.8 is released.
+
        * gnus.el (gnus-summary-remove-lines-marked-with): Try to go to
        the article from whence we came.
 
@@ -9,7 +38,7 @@ Fri Oct 13 15:05:50 1995  Per Abrahamsen  <abraham@dina.kvl.dk>
 
 Sat Oct 14 01:53:57 1995  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
 
-       * nnmh.el (nnmh-request-list): Stil wouldn't recurse properly. 
+       * nnmh.el (nnmh-request-list): Still wouldn't recurse properly. 
 
 Fri Oct 13 10:37:57 1995  Lars Ingebrigtsen  <lars@eyesore.no>
 

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index d2131e4..96b7690 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -555,6 +555,8 @@ Type \\[describe-mode] in the buffer to get a list of commands."
 If given a prefix, and the group is a foreign group, this function
 will attempt to use the foreign server to post the article."
   (interactive "P")
+  (or gnus-current-select-method
+      (setq gnus-current-select-method gnus-select-method))
   (let* ((case-fold-search nil)
         (server-running (gnus-server-opened gnus-current-select-method))
         (reply gnus-article-reply)

diff --git a/lisp/gnus-score.el b/lisp/gnus-score.el
index d82bcae..8303b90 100644 (file)
--- a/lisp/gnus-score.el
+++ b/lisp/gnus-score.el
@@ -613,7 +613,8 @@ SCORE is the score to add."
                                        (gnus-score-load-file file)) 
                                      files))))
       (and eval (not global) (eval eval))
-      (setq gnus-scores-exclude-files exclude-files)
+      (setq gnus-scores-exclude-files 
+           (append exclude-files gnus-scores-exclude-files))
       (if (not local)
          ()
        (save-excursion
@@ -785,6 +786,7 @@ SCORE is the score to add."
     ;; PLM: probably this is not the best place to clear orphan-score
     (setq gnus-orphan-score nil)
     (setq gnus-scores-articles nil)
+    (setq gnus-scores-exclude-files nil)
     ;; Load the score files.
     (while score-files
       (if (stringp (car score-files))

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 551e0a6..32e2f63 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.8"
+(defconst gnus-version "Gnus v5.0.9"
   "Version number for this version of Gnus.")
 
 (defvar gnus-info-nodes
@@ -1613,7 +1613,7 @@ Thank you for your help in stamping out bugs.
   (autoload 'gnus-mail-reply-using-mhe "gnus-mh")
   (autoload 'gnus-mail-forward-using-mhe "gnus-mh")
   (autoload 'gnus-mail-other-window-using-mhe "gnus-mh")
-  (autoload 'gnus-summary-save-in-folder "gnus-mh")
+  (autoload 'gnus-summary-save-in-folder "gnus-mh" nil t)
   (autoload 'gnus-summary-save-article-folder "gnus-mh")
   (autoload 'gnus-Folder-save-name "gnus-mh")
   (autoload 'gnus-folder-save-name "gnus-mh")
@@ -2468,7 +2468,8 @@ If optional argument RE-ONLY is non-nil, strip `Re:' only."
           perc
           out)
       (while (< i 3)
-       (or (zerop (nth i elem))
+       (or (not (numberp (nth i elem)))
+           (zerop (nth i elem))
            (progn
              (setq perc  (/ (* 1.0 (nth 0 elem)) total))
              (setq out (cons (if (eq pbuf (nth i types))
@@ -2830,6 +2831,10 @@ that that variable is buffer-local to the summary buffers."
       (setq name (concat leaf "<" (int-to-string (setq num (1+ num))) ">")))
     name))
 
+(defun gnus-ephemeral-group-p (group)
+  "Say whether GROUP is ephemeral or not."
+  (assoc 'quit-config (gnus-find-method-for-group group)))
+
 ;;; List and range functions
 
 (defun gnus-last-element (list)
@@ -9974,7 +9979,8 @@ If prefix argument ALL is non-nil, all articles are marked as read."
   (gnus-set-global-variables)
   (gnus-summary-catchup all quietly nil 'fast)
   ;; Select next newsgroup or exit.
-  (if (eq gnus-auto-select-next 'quietly)
+  (if (and (eq gnus-auto-select-next 'quietly)
+          (not (gnus-ephemeral-group-p gnus-newsgroup-name)))
       (gnus-summary-next-group nil)
     (gnus-summary-exit)))
 
@@ -10224,6 +10230,7 @@ Argument REVERSE means reverse order."
                       gnus-extract-address-components
                       (mail-header-from header))))
        (concat (or (car extract) (cdr extract))
+               "\r" (int-to-string (mail-header-number header))
                "\r" (mail-header-subject header))))
     'gnus-thread-sort-by-author)
    reverse))
@@ -10243,6 +10250,7 @@ Argument REVERSE means reverse order."
                       (mail-header-from header))))
        (concat 
         (downcase (gnus-simplify-subject (gnus-summary-subject-string) t))
+        "\r" (int-to-string (mail-header-number header))
         "\r" (or (car extract) (cdr extract)))))
     'gnus-thread-sort-by-subject)
    reverse))
@@ -13955,6 +13963,10 @@ GROUP using BNews sys file syntax."
               (search-forward "+")
               (forward-char -1)
               (insert "\\")))
+       ;; Translate ".all" to "[./].*";
+       (while (search-forward ".all" nil t)
+         (replace-match "[./].*" t t))
+       (goto-char (point-min))
        ;; Translate "all" to ".*".
        (while (search-forward "all" nil t)
          (replace-match ".*" t t))

diff --git a/lisp/nntp.el b/lisp/nntp.el
index 85e6075..3498a33 100644 (file)
--- a/lisp/nntp.el
+++ b/lisp/nntp.el
@@ -982,7 +982,14 @@ It will prompt for a password."
          (save-excursion
            (set-buffer nntp-server-buffer)
            (goto-char (point-min))
-           (and (looking-at "[23]") (setq nntp-server-xover (car commands))))
+           (and (looking-at "[23]") ; No error message.
+                ;; We also have to look at the lines.  Some buggy
+                ;; servers give back simple lines with just the
+                ;; article number.  How... helpful.
+                (progn
+                  (forward-line 1)
+                  (looking-at "[0-9]+\t...")) ; More text after number.
+                (setq nntp-server-xover (car commands))))
          (setq commands (cdr commands)))
        ;; If none of the commands worked, we disable XOVER.
        (if (eq nntp-server-xover 'try)
@@ -1184,10 +1191,14 @@ defining this function as macro."
   (car list))
 
 (defun nntp-possibly-change-server (newsgroup server)
-  ;; We see whether it is necessary to change newsgroup.
-  (and newsgroup 
-       (not (equal newsgroup nntp-current-group))
-       (nntp-request-group newsgroup server)))
+  ;; We see whether it is necessary to change the newsgroup.
+  (and newsgroup
+       (progn
+        (not (equal newsgroup nntp-current-group))
+        (nntp-request-group newsgroup server)))
+  (and server
+       (or (nntp-server-opened server)
+          (nntp-open-server server))))
 
 (defun nntp-try-list-active (group)
   (nntp-list-active-group group)