Sync up with gnus-5.6.42

diff --git a/ChangeLog b/ChangeLog
index 1d775d7..c5976e8 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+1998-08-30  Tatsuya Ichikawa  <t-ichi@po.shiojiri.ne.jp>
+
+       * lisp/gnus-agent.el (gnus-agent-fetch-headers): Bug Fix.
+       When add a new newsgroup , gnus-agent cannot fetch articles.
+
+       * lisp/gnus.el (gnus-version-number): Update to 6.8.17.
+
+       * Sync up with Gnus 5.6.42.
+

 1998-08-28  Shuhei KOBAYASHI  <shuhei-k@jaist.ac.jp>
 
        * lisp/gnus-i18n.el (gnus-set-summary-default-charset): Try
 1998-08-28  Shuhei KOBAYASHI  <shuhei-k@jaist.ac.jp>
 
        * lisp/gnus-i18n.el (gnus-set-summary-default-charset): Try

diff --git a/README.ichikawa b/README.ichikawa
index 750cc8a..61b2919 100644 (file)
--- a/README.ichikawa
+++ b/README.ichikawa
@@ -23,4 +23,7 @@ NEWS:
 
 * TODO
 
 
 * TODO
 

-  ......
+* T-gnus 6.8.17 is the last version Gnus 5.6 base.
+  After this , T-gnus 6.9 - this is based on pgnus.
+
+     T-gnus 6.9.0 - Based on pgnus-0.6

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 94fbbde..d06cf06 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,28 @@
+Sat Aug 29 19:17:19 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+
+       * gnus.el: Gnus v5.6.42 is released.
+
+1998-08-29 17:06:27  Simon Josefsson  <jas@pdc.kth.se>
+
+       * gnus-sum.el (gnus-summary-make-menu-bar): Typo.
+
+1998-08-29 12:47:42  Tatsuya Ichikawa  <ichikawa@hv.epson.co.jp>
+
+       * gnus-agent.el: Use nnheader-insert-file-contents.
+
+1998-08-29 12:18:18  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * nnvirtual.el (nnvirtual-request-group): Update the right group. 
+
+1998-08-27 16:46:38  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-sum.el (gnus-data-compute-positions): Didn't work on hidden
+       threads.
+
+       * nnvirtual.el (nnvirtual-request-group): Work when always
+       updating. 
+       (nnvirtual-always-rescan): Default to t.
+

 Thu Aug 27 11:03:59 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
        * gnus.el: Gnus v5.6.41 is released.
 Thu Aug 27 11:03:59 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
        * gnus.el: Gnus v5.6.41 is released.

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 29a1960..c170e7e 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -751,37 +751,39 @@ the actual number of articles toggled is returned."
       (pop gnus-agent-group-alist))))
 
 (defun gnus-agent-fetch-headers (group &optional force)
       (pop gnus-agent-group-alist))))
 
 (defun gnus-agent-fetch-headers (group &optional force)

-  (when (gnus-agent-load-alist group)
-    (let ((articles (gnus-uncompress-range 
-                    (cons (1+ (caar (last (gnus-agent-load-alist group))))
-                          (cdr (gnus-active group))))))
-      ;; Fetch them.
-      (when articles
-       (gnus-message 7 "Fetching headers for %s..." group)
-       (save-excursion
-         (set-buffer nntp-server-buffer)
-         (unless (eq 'nov (gnus-retrieve-headers articles group))
-           (nnvirtual-convert-headers))
-         (goto-char (point-min))
-         (while (not (eobp))
-           (goto-char (point-at-eol))
-           (insert "\t")
-           (forward-line 1))
-         ;; Save these headers for later processing.
-         (copy-to-buffer gnus-agent-overview-buffer (point-min) (point-max))
-         (let (file)
-           (when (file-exists-p
-                  (setq file (gnus-agent-article-name ".overview" group)))
-             (gnus-agent-braid-nov group articles file))
-           (gnus-make-directory (nnheader-translate-file-chars
-                                 (file-name-directory file)))
-           (write-region (point-min) (point-max) file nil 'silent)
-           (gnus-agent-save-alist group articles nil)
-           (gnus-agent-enter-history
-            "last-header-fetched-for-session"
-            (list (cons group (nth (- (length  articles) 1) articles)))
-            (gnus-time-to-day (current-time)))
-           articles))))))
+  (gnus-agent-load-alist group)
+  ;; Find out what headers we need to retrieve.
+  (when articles
+    (while (and articles
+               (assq (car articles) gnus-agent-article-alist))
+      (pop articles))
+    (let ((arts articles))
+      (while (cdr arts)
+       (if (assq (cadr arts) gnus-agent-article-alist)
+           (setcdr arts (cddr arts))
+         (setq arts (cdr arts)))))
+    ;; Fetch them.
+    (when articles
+      (gnus-message 7 "Fetching headers for %s..." group)
+      (save-excursion
+       (set-buffer nntp-server-buffer)
+       (unless (eq 'nov (gnus-retrieve-headers articles group))
+         (nnvirtual-convert-headers))
+       ;; Save these headers for later processing.
+       (copy-to-buffer gnus-agent-overview-buffer (point-min) (point-max))
+       (let (file)
+         (when (file-exists-p
+                (setq file (gnus-agent-article-name ".overview" group)))
+           (gnus-agent-braid-nov group articles file))
+         (gnus-make-directory (nnheader-translate-file-chars
+                               (file-name-directory file)))
+         (write-region (point-min) (point-max) file nil 'silent)
+         (gnus-agent-save-alist group articles nil)
+         (gnus-agent-enter-history "last-header-fetched-for-session"
+                                   (list (cons group (nth (- (length  articles) 1) articles)))
+                                   (gnus-time-to-day (current-time)))
+       t)))))
+

 
 (defsubst gnus-agent-copy-nov-line (article)
   (let (b e)
 
 (defsubst gnus-agent-copy-nov-line (article)
   (let (b e)

diff --git a/lisp/gnus-cache.el b/lisp/gnus-cache.el
index 2251b17..f28662b 100644 (file)
--- a/lisp/gnus-cache.el
+++ b/lisp/gnus-cache.el
@@ -400,7 +400,8 @@ Returns the list of articles removed."
     (save-excursion
       (setq gnus-cache-buffer
            (cons group
     (save-excursion
       (setq gnus-cache-buffer
            (cons group

-                 (set-buffer (gnus-get-buffer-create " *gnus-cache-overview*"))))
+                 (set-buffer (gnus-get-buffer-create
+                              " *gnus-cache-overview*"))))

       (buffer-disable-undo (current-buffer))
       ;; Insert the contents of this group's cache overview.
       (erase-buffer)
       (buffer-disable-undo (current-buffer))
       ;; Insert the contents of this group's cache overview.
       (erase-buffer)

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 9f41f4c..649b259 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -190,51 +190,9 @@ Thank you for your help in stamping out bugs.
 ;;; Internal functions.
 
 (defun gnus-extended-version ()
 ;;; Internal functions.
 
 (defun gnus-extended-version ()

-  "Stringified Gnus version and Emacs version."
+  "Stringified gnus version."

   (interactive) ; ???
   (interactive) ; ???

-  (concat
-   ;; Semi-gnus/VERSION
-   gnus-product-name "/" gnus-version-number
-   ;; EMACS/VERSION
-   (if (featurep 'xemacs)
-       ;; XEmacs
-       (concat
-       (format " XEmacs/%d.%d%s" emacs-major-version emacs-minor-version
-               (if (and (boundp 'xemacs-betaname) xemacs-betaname)
-                   (if (string-match "\\`(\\(.*\\))\\'" xemacs-betaname)
-                       (match-string 1 xemacs-betaname)
-                     "")               ; unknown format
-                 ""))                  ; not beta
-       (if (boundp 'xemacs-codename)
-           (concat " (" xemacs-codename ")")
-         "")                           ; no codename
-       )
-     ;; not XEmacs
-     (concat
-      (format " Emacs/%d.%d" emacs-major-version emacs-minor-version)
-      (if (and (boundp 'enable-multibyte-characters)
-              enable-multibyte-characters)
-         ;; Should return " (multibyte)" ?
-         ""
-       " (unibyte)")
-      ))
-   ;; MULE[/VERSION]
-   (if (featurep 'mule)
-       (if (and (boundp 'mule-version) mule-version)
-          (concat " MULE/" mule-version)
-        " MULE")                       ; no mule-version
-     "")                               ; not Mule
-   ;; Meadow/VERSION
-   (if (featurep 'meadow)
-       (let ((version (Meadow-version)))
-        (if (string-match "\\`Meadow.\\([^ ]*\\)\\( (.*)\\)\\'" version)
-            (concat " Meadow/"
-                    (match-string 1 version)
-                    (match-string 2 version)
-                    )
-          "Meadow"))                   ; unknown format
-     "")                               ; not Meadow
-   ))
+  (concat gnus-product-name "/" gnus-version-number))

 
 (defvar gnus-article-reply nil)
 (defmacro gnus-setup-message (config &rest forms)
 
 (defvar gnus-article-reply nil)
 (defmacro gnus-setup-message (config &rest forms)

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index ab32d6d..08c7ac0 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -1749,7 +1749,7 @@ increase the score of each group you read."
        ["Send a bug report" gnus-bug t]
        ("Exit"
        ["Catchup and exit" gnus-summary-catchup-and-exit t]
        ["Send a bug report" gnus-bug t]
        ("Exit"
        ["Catchup and exit" gnus-summary-catchup-and-exit t]

-       ["Catchup all and exit" gnus-summary-catchup-and-exit t]
+       ["Catchup all and exit" gnus-summary-catchup-all-and-exit t]

        ["Catchup and goto next" gnus-summary-catchup-and-goto-next-group t]
        ["Exit group" gnus-summary-exit t]
        ["Exit group without updating" gnus-summary-exit-no-update t]
        ["Catchup and goto next" gnus-summary-catchup-and-goto-next-group t]
        ["Exit group" gnus-summary-exit t]
        ["Exit group without updating" gnus-summary-exit-no-update t]

@@ -2046,13 +2046,14 @@ The following commands are available:
   (setq gnus-newsgroup-data-reverse nil)
   (let ((data gnus-newsgroup-data))
     (save-excursion
   (setq gnus-newsgroup-data-reverse nil)
   (let ((data gnus-newsgroup-data))
     (save-excursion

-      (goto-char (point-min))
-      (while data
-       (while (get-text-property (point) 'gnus-intangible)
-         (forward-line 1))
-       (gnus-data-set-pos (car data) (+ (point) 3))
-       (setq data (cdr data))
-       (forward-line 1)))))
+      (gnus-save-hidden-threads
+       (goto-char (point-min))
+       (while data
+         (while (get-text-property (point) 'gnus-intangible)
+           (forward-line 1))
+         (gnus-data-set-pos (car data) (+ (point) 3))
+         (setq data (cdr data))
+         (forward-line 1))))))

 
 (defun gnus-summary-article-pseudo-p (article)
   "Say whether this article is a pseudo article or not."
 
 (defun gnus-summary-article-pseudo-p (article)
   "Say whether this article is a pseudo article or not."

diff --git a/lisp/gnus.el b/lisp/gnus.el
index c9004f5..89c6b23 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -253,11 +253,11 @@ is restarted, and sometimes reloaded."
 (defconst gnus-product-name "T-gnus"
   "Product name of this version of gnus.")
 
 (defconst gnus-product-name "T-gnus"
   "Product name of this version of gnus.")
 

-(defconst gnus-version-number "6.8.16"
+(defconst gnus-version-number "6.8.17"

   "Version number for this version of gnus.")
 
 (defconst gnus-version
   "Version number for this version of gnus.")
 
 (defconst gnus-version

-  (format "%s %s (based on Gnus 5.6.41; for SEMI 1.8, FLIM 1.8/1.9)"
+  (format "%s %s (based on Gnus 5.6.42; for SEMI 1.8, FLIM 1.8/1.9)"

           gnus-product-name gnus-version-number)
   "Version string for this version of gnus.")
 
           gnus-product-name gnus-version-number)
   "Version string for this version of gnus.")
 

diff --git a/lisp/message.el b/lisp/message.el
index 7cea25a..b4475e2 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3089,6 +3089,24 @@ give as trustworthy answer as possible."
   "Return user-agent info."
   (let ((user-agent
         (concat
   "Return user-agent info."
   (let ((user-agent
         (concat

+         ;; SEMI: '("SEMI" "CODENAME" V1 V2 V3)
+         (format "%s/%s (%s)"
+                 (nth 0 mime-user-interface-version)
+                 (mapconcat #'number-to-string
+                            (cdr (cdr mime-user-interface-version))
+                            ".")
+                 (nth 1 mime-user-interface-version))
+         ;; FLIM: "FLIM VERSION - \"CODENAME\"[...]"
+         (if (string-match
+              "\\`\\([^ ]+\\) \\([^ ]+\\) - \"\\([^\"]+\\)\"\\(.*\\)\\'"
+              mime-library-version-string)
+             (format " %s/%s (%s%s)"
+                     (match-string 1 mime-library-version-string)
+                     (match-string 2 mime-library-version-string)
+                     (match-string 3 mime-library-version-string)
+                     (match-string 4 mime-library-version-string))
+           " FLIM")
+         "\n "

          ;; EMACS/VERSION
          (if (featurep 'xemacs)
              ;; XEmacs
          ;; EMACS/VERSION
          (if (featurep 'xemacs)
              ;; XEmacs

diff --git a/lisp/nnvirtual.el b/lisp/nnvirtual.el
index d8bf70d..4829341 100644 (file)
--- a/lisp/nnvirtual.el
+++ b/lisp/nnvirtual.el
@@ -43,7 +43,7 @@
 
 (nnoo-declare nnvirtual)
 
 
 (nnoo-declare nnvirtual)
 

-(defvoo nnvirtual-always-rescan nil
+(defvoo nnvirtual-always-rescan t

   "*If non-nil, always scan groups for unread articles when entering a group.
 If this variable is nil (which is the default) and you read articles
 in a component group after the virtual group has been activated, the
   "*If non-nil, always scan groups for unread articles when entering a group.
 If this variable is nil (which is the default) and you read articles
 in a component group after the virtual group has been activated, the

@@ -259,12 +259,14 @@ to virtual article number.")
     (setq nnvirtual-current-group nil)
     (nnheader-report 'nnvirtual "No component groups in %s" group))
    (t
     (setq nnvirtual-current-group nil)
     (nnheader-report 'nnvirtual "No component groups in %s" group))
    (t

+    (setq nnvirtual-current-group group)

     (when (or (not dont-check)
              nnvirtual-always-rescan)
       (nnvirtual-create-mapping)
       (when nnvirtual-always-rescan
     (when (or (not dont-check)
              nnvirtual-always-rescan)
       (nnvirtual-create-mapping)
       (when nnvirtual-always-rescan

-       (nnvirtual-request-update-info group (gnus-get-info group))))
-    (setq nnvirtual-current-group group)
+       (nnvirtual-request-update-info
+        (nnvirtual-current-group)
+        (gnus-get-info (nnvirtual-current-group)))))

     (nnheader-insert "211 %d 1 %d %s\n"
                     nnvirtual-mapping-len nnvirtual-mapping-len group))))
 
     (nnheader-insert "211 %d 1 %d %s\n"
                     nnvirtual-mapping-len nnvirtual-mapping-len group))))
 

diff --git a/texi/gnus.texi b/texi/gnus.texi
index 28b0dee..258e5a9 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -1,7 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename gnus
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename gnus

-@settitle Semi-gnus 6.8.16 Manual
+@settitle Semi-gnus 6.8.17 Manual

 @synindex fn cp
 @synindex vr cp
 @synindex pg cp
 @synindex fn cp
 @synindex vr cp
 @synindex pg cp

@@ -318,7 +318,7 @@ into another language, under the above conditions for modified versions.
 @tex
 
 @titlepage
 @tex
 
 @titlepage

-@title Semi-gnus 6.8.16 Manual
+@title Semi-gnus 6.8.17 Manual

 
 @author by Lars Magne Ingebrigtsen
 @page
 
 @author by Lars Magne Ingebrigtsen
 @page

@@ -361,7 +361,7 @@ internationalization/localization and multiscript features based on MULE
 API.  So Semi-gnus does not discriminate various language communities.
 Oh, if you are a Klingon, please wait Unicode Next Generation.
 
 API.  So Semi-gnus does not discriminate various language communities.
 Oh, if you are a Klingon, please wait Unicode Next Generation.
 

-This manual corresponds to Semi-gnus 6.8.16.
+This manual corresponds to Semi-gnus 6.8.17.

 
 @end ifinfo
 
 
 @end ifinfo
 

diff --git a/texi/message.texi b/texi/message.texi
index 9133c73..5399b2f 100644 (file)
--- a/texi/message.texi
+++ b/texi/message.texi
@@ -1,7 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename message
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename message

-@settitle Message 5.6.41 Manual
+@settitle Message 5.6.42 Manual

 @synindex fn cp
 @synindex vr cp
 @synindex pg cp
 @synindex fn cp
 @synindex vr cp
 @synindex pg cp

@@ -42,7 +42,7 @@ into another language, under the above conditions for modified versions.
 @tex
 
 @titlepage
 @tex
 
 @titlepage

-@title Message 5.6.41 Manual
+@title Message 5.6.42 Manual

 
 @author by Lars Magne Ingebrigtsen
 @page
 
 @author by Lars Magne Ingebrigtsen
 @page

@@ -83,7 +83,7 @@ Message mode buffers.
 * Key Index::         List of Message mode keys.
 @end menu
 
 * Key Index::         List of Message mode keys.
 @end menu
 

-This manual corresponds to Message 5.6.41.  Message is distributed with
+This manual corresponds to Message 5.6.42.  Message is distributed with

 the Gnus distribution bearing the same version number as this manual
 has. 
 
 the Gnus distribution bearing the same version number as this manual
 has.