*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ca51e5b..b7b76c0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+1999-11-10 12:13:30  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * nnultimate.el (nnultimate-retrieve-headers): Work for multi-page 
+       subjects.
+
+1999-11-10 11:33:23  Rajappa Iyer  <rajappa@mindspring.com>
+
+       * gnus-salt.el (gnus-pick-article-or-thread): Don't move point. 
+
 1999-11-10 05:22:56  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * nnultimate.el (nnultimate-open-server): Do address.

diff --git a/lisp/gnus-salt.el b/lisp/gnus-salt.el
index 60a47f4..df70bf1 100644 (file)
--- a/lisp/gnus-salt.el
+++ b/lisp/gnus-salt.el
@@ -189,7 +189,10 @@ If ARG, pick the article/thread on that line instead."
   (when arg
     (gnus-pick-goto-article arg))
   (if gnus-thread-hide-subtree
-      (gnus-uu-mark-thread)
+      (progn
+       (save-excursion
+         (gnus-uu-mark-thread))
+       (forward-line 1))
     (gnus-summary-mark-as-processable 1)))
 
 (defun gnus-pick-unmark-article-or-thread (&optional arg)
@@ -200,7 +203,8 @@ If ARG, unmark thread/article on that line instead."
   (when arg
     (gnus-pick-goto-article arg))
   (if gnus-thread-hide-subtree
-      (gnus-uu-unmark-thread)
+      (save-excursion
+       (gnus-uu-unmark-thread))
     (gnus-summary-unmark-as-processable 1)))
 
 (defun gnus-pick-mouse-pick (e)

diff --git a/lisp/nnultimate.el b/lisp/nnultimate.el
index 6fbf255..dec81d9 100644 (file)
--- a/lisp/nnultimate.el
+++ b/lisp/nnultimate.el
@@ -80,7 +80,7 @@
         (furl "forumdisplay.cgi?action=topics&number=%d&DaysPrune=1000")
         headers article subject score from date lines parent point
         contents tinfo fetchers map elem a href garticles topic old-max
-        inc datel table string)
+        inc datel table string current-page total-contents)
     (with-temp-buffer
       (nnweb-insert (concat nnultimate-address (format furl sid)))
       (goto-char (point-min))
@@ -155,21 +155,34 @@
        (setq nnultimate-articles nil)
        (with-temp-buffer
          (dolist (elem fetchers)
-           (erase-buffer)
-           (setq subject (nth 2 (assq (car elem) topics)))
-           (nnweb-insert (nth 3 (assq (car elem) topics)))
-           (goto-char (point-min))
-           (setq contents (w3-parse-buffer (current-buffer)))
-           (setq table (nnultimate-find-forum-table contents))
-           (setq string (mapconcat 'identity (nnweb-text table) ""))
-           (when (string-match "topic is \\([0-9]\\) pages" string)
-             (setq pages (string-to-number (match-string 1 string)))
-             (setcdr table nil)
-             (setq table (nnultimate-find-forum-table contents)))
-           (setq contents (cdr (nth 2 (car (nth 2 table)))))
+           (setq pages 1
+                 current-page 1
+                 total-contents nil)
+           (while (<= current-page pages)
+             (erase-buffer)
+             (setq subject (nth 2 (assq (car elem) topics)))
+             (setq href (nth 3 (assq (car elem) topics)))
+             (if (= current-page 1)
+                 (nnweb-insert href)
+               (string-match "\\.html$" href)
+               (nnweb-insert (concat (substring href 0 (match-beginning 0))
+                                     "-" (number-to-string current-page)
+                                     (match-string 0 href))))
+             (goto-char (point-min))
+             (setq contents (w3-parse-buffer (current-buffer)))
+             (setq table (nnultimate-find-forum-table contents))
+             (setq string (mapconcat 'identity (nnweb-text table) ""))
+             (when (string-match "topic is \\([0-9]\\) pages" string)
+               (setq pages (string-to-number (match-string 1 string)))
+               (setcdr table nil)
+               (setq table (nnultimate-find-forum-table contents)))
+             (setq contents (cdr (nth 2 (car (nth 2 table)))))
+             (setq total-contents (nconc total-contents contents))
+             (incf current-page))
+           (setq total-contents (nreverse total-contents))
            (dolist (art (cdr elem))
              (push (list (car art)
-                         (nth (1- (cdr art)) contents)
+                         (nth (1- (cdr art)) total-contents)
                          subject)
                    nnultimate-articles))))
        (setq nnultimate-articles

diff --git a/texi/ChangeLog b/texi/ChangeLog
index 3625a55..448bc61 100644 (file)
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,7 @@
+1999-11-10 11:32:00  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus.texi (Archived Messages): Fix.
+
 1999-11-07 01:28:07  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus.texi (MIME Commands): Addition.

diff --git a/texi/gnus.texi b/texi/gnus.texi
index ffece7e..cc105a2 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -8954,8 +8954,7 @@ messages in one file per month:
 (setq gnus-message-archive-group
       '((if (message-news-p)
             "misc-news"
-          (concat "mail." (format-time-string
-                           "%Y-%m" (current-time))))))
+          (concat "mail." (format-time-string "%Y-%m")))))
 @end lisp
 
 (XEmacs 19.13 doesn't have @code{format-time-string}, so you'll have to