*** pub/rgnus/lisp/gnus-art.el	Sat Jul 12 19:54:21 1997
--- rgnus/lisp/gnus-art.el	Sat Jul 19 23:39:23 1997
***************
*** 2180,2185 ****
--- 2180,2186 ----
    (interactive)
    (if (not (gnus-buffer-live-p gnus-summary-buffer))
        (error "There is no summary buffer for this article buffer")
+     (gnus-article-set-globals)
      (gnus-configure-windows 'article)
      (gnus-summary-goto-subject gnus-current-article)))
  
***************
*** 2875,2880 ****
--- 2876,2886 ----
  	  (and data (list 'gnus-data data)))))
  
  ;;; Internal functions:
+ 
+ (defun gnus-article-set-globals ()
+   (save-excursion
+     (set-buffer gnus-summary-buffer)
+     (gnus-set-global-variables)))
  
  (defun gnus-signature-toggle (end)
    (save-excursion
*** pub/rgnus/lisp/gnus-cache.el	Sat May 31 15:48:26 1997
--- rgnus/lisp/gnus-cache.el	Sat Jul 19 23:39:23 1997
***************
*** 548,559 ****
       nil nil
       (lambda ()
         (interactive)
!        (gnus-summary-read-group (gnus-group-group-name) nil t)
!        ;; ... and enter the articles into the cache.
!        (when (eq major-mode 'gnus-summary-mode)
! 	 (gnus-uu-mark-buffer)
! 	 (gnus-cache-enter-article)
! 	 (kill-buffer (current-buffer)))))))
  
  (defun gnus-cache-read-active (&optional force)
    "Read the cache active file."
--- 548,561 ----
       nil nil
       (lambda ()
         (interactive)
!        (when (gnus-group-group-name)
! 	 (let (gnus-auto-select-next)
! 	   (gnus-summary-read-group (gnus-group-group-name) nil t)
! 	   ;; ... and enter the articles into the cache.
! 	   (when (eq major-mode 'gnus-summary-mode)
! 	     (gnus-uu-mark-buffer)
! 	     (gnus-cache-enter-article)
! 	     (kill-buffer (current-buffer)))))))))
  
  (defun gnus-cache-read-active (&optional force)
    "Read the cache active file."
*** pub/rgnus/lisp/gnus-ems.el	Sat Jul 12 19:54:21 1997
--- rgnus/lisp/gnus-ems.el	Sat Jul 19 23:39:23 1997
***************
*** 35,42 ****
  (defvar gnus-mouse-2 [mouse-2])
  (defvar gnus-down-mouse-2 [down-mouse-2])
  (defvar gnus-mode-line-modified
!   (if (and (not gnus-xemacs)
! 	   (< emacs-major-version 20))
        '("--**-" . "-----")
      '("**" "--")))
  
--- 35,42 ----
  (defvar gnus-mouse-2 [mouse-2])
  (defvar gnus-down-mouse-2 [down-mouse-2])
  (defvar gnus-mode-line-modified
!   (if (or gnus-xemacs
! 	  (< emacs-major-version 20))
        '("--**-" . "-----")
      '("**" "--")))
  
*** pub/rgnus/lisp/gnus-group.el	Sat Jul 12 19:54:22 1997
--- rgnus/lisp/gnus-group.el	Sat Jul 19 23:39:23 1997
***************
*** 1451,1457 ****
  	group)
      (while (setq group (pop groups))
        (gnus-group-remove-mark group)
!       (funcall function group))))
  
  (put 'gnus-group-iterate 'lisp-indent-function 1)
  
--- 1451,1459 ----
  	group)
      (while (setq group (pop groups))
        (gnus-group-remove-mark group)
!       (save-excursion
! 	(save-selected-window
! 	  (funcall function group))))))
  
  (put 'gnus-group-iterate 'lisp-indent-function 1)
  
*** pub/rgnus/lisp/gnus-salt.el	Sat Jul 12 19:54:22 1997
--- rgnus/lisp/gnus-salt.el	Sat Jul 19 23:39:23 1997
***************
*** 950,956 ****
  \\{gnus-carpal-mode-map}"
    (interactive)
    (kill-all-local-variables)
!   (setq mode-line-modified "-- ")
    (setq major-mode 'gnus-carpal-mode)
    (setq mode-name "Gnus Carpal")
    (setq mode-line-process nil)
--- 950,956 ----
  \\{gnus-carpal-mode-map}"
    (interactive)
    (kill-all-local-variables)
!   (setq mode-line-modified (cdr gnus-mode-line-modified))
    (setq major-mode 'gnus-carpal-mode)
    (setq mode-name "Gnus Carpal")
    (setq mode-line-process nil)
*** pub/rgnus/lisp/gnus-score.el	Sat Jul 12 19:54:22 1997
--- rgnus/lisp/gnus-score.el	Sat Jul 19 23:39:24 1997
***************
*** 29,34 ****
--- 29,35 ----
  (require 'gnus)
  (require 'gnus-sum)
  (require 'gnus-range)
+ (require 'message)
  
  (defcustom gnus-global-score-files nil
    "List of global score files and directories.
***************
*** 1083,1089 ****
        ;; Perform possible decays.
        (when gnus-decay-scores
  	(when (or (not decay)
! 		  (gnus-decay-scores alist (gnus-time-to-day (current-time))))
  	  (gnus-score-set 'touched '(t) alist)
  	  (gnus-score-set 'decay (list (gnus-time-to-day (current-time))))))
        ;; We do not respect eval and files atoms from global score
--- 1084,1090 ----
        ;; Perform possible decays.
        (when gnus-decay-scores
  	(when (or (not decay)
! 		  (gnus-decay-scores alist decay))
  	  (gnus-score-set 'touched '(t) alist)
  	  (gnus-score-set 'decay (list (gnus-time-to-day (current-time))))))
        ;; We do not respect eval and files atoms from global score
***************
*** 2730,2736 ****
    "Decay SCORE according to `gnus-score-decay-constant' and `gnus-score-decay-scale'."
    (floor
     (- score
!       (* (if (< score 0) 1 -1)
  	 (min (abs score)
  	      (max gnus-score-decay-constant
  		   (* (abs score)
--- 2731,2737 ----
    "Decay SCORE according to `gnus-score-decay-constant' and `gnus-score-decay-scale'."
    (floor
     (- score
!       (* (if (< score 0) -1 1)
  	 (min (abs score)
  	      (max gnus-score-decay-constant
  		   (* (abs score)
*** pub/rgnus/lisp/gnus-srvr.el	Sun Jul  6 17:24:06 1997
--- rgnus/lisp/gnus-srvr.el	Sat Jul 19 23:39:24 1997
***************
*** 694,700 ****
        ;; If this group it killed, then we want to subscribe it.
        (when (= (following-char) ?K)
  	(setq sub t))
!       (setq group (gnus-browse-group-name))
        ;; Make sure the group has been properly removed before we
        ;; subscribe to it.
        (gnus-kill-ephemeral-group group)
--- 694,702 ----
        ;; If this group it killed, then we want to subscribe it.
        (when (= (following-char) ?K)
  	(setq sub t))
!       (when (gnus-gethash (setq group (gnus-browse-group-name))
! 			  gnus-newsrc-hashtb)
! 	(error "Group already subscribed"))
        ;; Make sure the group has been properly removed before we
        ;; subscribe to it.
        (gnus-kill-ephemeral-group group)
*** pub/rgnus/lisp/gnus-start.el	Sat Jul 12 19:54:23 1997
--- rgnus/lisp/gnus-start.el	Sat Jul 19 23:39:24 1997
***************
*** 1212,1218 ****
  	   (format
  	    "(gnus-group-set-info '%S)" info)))))
        (when gnus-group-change-level-function
! 	(funcall gnus-group-change-level-function group level oldlevel)))))
  
  (defun gnus-kill-newsgroup (newsgroup)
    "Obsolete function.  Kills a newsgroup."
--- 1212,1219 ----
  	   (format
  	    "(gnus-group-set-info '%S)" info)))))
        (when gnus-group-change-level-function
! 	(funcall gnus-group-change-level-function
! 		 group level oldlevel previous)))))
  
  (defun gnus-kill-newsgroup (newsgroup)
    "Obsolete function.  Kills a newsgroup."
***************
*** 1314,1325 ****
  	 ;; command may have responded with the `(0 . 0)'.  We
  	 ;; ignore this if we already have an active entry
  	 ;; for the group.
! 	 (unless (and (zerop (car active))
! 		      (zerop (cdr active))
! 		      (gnus-active group))
! 	   (gnus-set-active group active))
! 	 ;; Return the new active info.
! 	 active)))
  
  (defun gnus-get-unread-articles-in-group (info active &optional update)
    (when active
--- 1315,1327 ----
  	 ;; command may have responded with the `(0 . 0)'.  We
  	 ;; ignore this if we already have an active entry
  	 ;; for the group.
! 	 (if (and (zerop (car active))
! 		  (zerop (cdr active))
! 		  (gnus-active group))
! 	     (gnus-active group)
! 	   (gnus-set-active group active)
! 	   ;; Return the new active info.
! 	   active))))
  
  (defun gnus-get-unread-articles-in-group (info active &optional update)
    (when active
*** pub/rgnus/lisp/gnus-sum.el	Sat Jul 12 19:54:23 1997
--- rgnus/lisp/gnus-sum.el	Sat Jul 19 23:39:25 1997
***************
*** 6053,6060 ****
  		     (gnus-nocem-unwanted-article-p
  		      (mail-header-id (car thread))))
  		(progn
! 		  (setq gnus-newsgroup-reads
! 			(delq number gnus-newsgroup-reads))
  		  t))))
  	  ;; Nope, invisible article.
  	  0
--- 6053,6060 ----
  		     (gnus-nocem-unwanted-article-p
  		      (mail-header-id (car thread))))
  		(progn
! 		  (setq gnus-newsgroup-unreads
! 			(delq number gnus-newsgroup-unreads))
  		  t))))
  	  ;; Nope, invisible article.
  	  0
*** pub/rgnus/lisp/gnus-topic.el	Sat Jul 12 19:54:24 1997
--- rgnus/lisp/gnus-topic.el	Sat Jul 19 23:39:25 1997
***************
*** 512,519 ****
      (gnus-add-text-properties
       (point)
       (prog1 (1+ (point))
!        (eval gnus-topic-line-format-spec)
!        (gnus-topic-remove-excess-properties)1)
       (list 'gnus-topic (intern name)
  	   'gnus-topic-level level
  	   'gnus-topic-unread unread
--- 512,518 ----
      (gnus-add-text-properties
       (point)
       (prog1 (1+ (point))
!        (eval gnus-topic-line-format-spec))
       (list 'gnus-topic (intern name)
  	   'gnus-topic-level level
  	   'gnus-topic-unread unread
***************
*** 722,731 ****
  	(push (cons topic-name (nreverse filtered-topic)) result)))
      (setq gnus-topic-alist (nreverse result))))
  
! (defun gnus-topic-change-level (group level oldlevel)
    "Run when changing levels to enter/remove groups from topics."
    (save-excursion
      (set-buffer gnus-group-buffer)
      (when (and gnus-topic-mode
  	       gnus-topic-alist
  	       (not gnus-topic-inhibit-change-level))
--- 721,731 ----
  	(push (cons topic-name (nreverse filtered-topic)) result)))
      (setq gnus-topic-alist (nreverse result))))
  
! (defun gnus-topic-change-level (group level oldlevel previous)
    "Run when changing levels to enter/remove groups from topics."
    (save-excursion
      (set-buffer gnus-group-buffer)
+     (gnus-group-goto-group (or (car (nth 2 previous)) group))
      (when (and gnus-topic-mode
  	       gnus-topic-alist
  	       (not gnus-topic-inhibit-change-level))
*** pub/rgnus/lisp/gnus-xmas.el	Sat Jul 12 19:54:24 1997
--- rgnus/lisp/gnus-xmas.el	Sat Jul 19 23:39:25 1997
***************
*** 371,396 ****
  	       (event-to-character event))
  	  event)))
  
- (defun gnus-xmas-group-remove-excess-properties ()
-   (let ((end (point))
- 	(beg (progn (forward-line -1) (point))))
-     (remove-text-properties (1+ beg) end '(gnus-group nil))
-     (remove-text-properties
-      beg end
-      '(gnus-topic nil gnus-topic-level nil gnus-topic-visible nil))
-     (goto-char end)
-     (map-extents
-      (lambda (e ma)
-        (set-extent-property e 'start-closed t))
-      (current-buffer) beg end)))
- 
- (defun gnus-xmas-topic-remove-excess-properties ()
-   (let ((end (point))
- 	(beg (progn (forward-line -1) (point))))
-     (remove-text-properties beg end '(gnus-group nil gnus-unread nil))
-     (remove-text-properties (1+ beg) end '(gnus-topic nil))
-     (goto-char end)))
- 
  (defun gnus-xmas-seconds-since-epoch (date)
    "Return a floating point number that says how many seconds have lapsed between Jan 1 12:00:00 1970 and DATE."
    (let* ((tdate (mapcar (lambda (ti) (and ti (string-to-int ti)))
--- 371,376 ----
*** pub/rgnus/lisp/gnus.el	Sat Jul 12 19:54:24 1997
--- rgnus/lisp/gnus.el	Sat Jul 19 23:39:26 1997
***************
*** 238,244 ****
    :link '(custom-manual "(gnus)Exiting Gnus")
    :group 'gnus)
  
! (defconst gnus-version-number "5.4.63"
    "Version number for this version of Gnus.")
  
  (defconst gnus-version (format "Gnus v%s" gnus-version-number)
--- 238,244 ----
    :link '(custom-manual "(gnus)Exiting Gnus")
    :group 'gnus)
  
! (defconst gnus-version-number "5.4.64"
    "Version number for this version of Gnus.")
  
  (defconst gnus-version (format "Gnus v%s" gnus-version-number)
***************
*** 267,273 ****
    (defalias 'gnus-extent-start-open 'ignore)
    (defalias 'gnus-set-text-properties 'set-text-properties)
    (defalias 'gnus-group-remove-excess-properties 'ignore)
-   (defalias 'gnus-topic-remove-excess-properties 'ignore)
    (defalias 'gnus-appt-select-lowest-window 'appt-select-lowest-window)
    (defalias 'gnus-mail-strip-quoted-names 'mail-strip-quoted-names)
    (defalias 'gnus-character-to-event 'identity)
--- 267,272 ----
***************
*** 2077,2083 ****
  
  (defun gnus-simplify-mode-line ()
    "Make mode lines a bit simpler."
!   (setq mode-line-modified "-- ")
    (when (listp mode-line-format)
      (make-local-variable 'mode-line-format)
      (setq mode-line-format (copy-sequence mode-line-format))
--- 2076,2082 ----
  
  (defun gnus-simplify-mode-line ()
    "Make mode lines a bit simpler."
!   (setq mode-line-modified (cdr gnus-mode-line-modified))
    (when (listp mode-line-format)
      (make-local-variable 'mode-line-format)
      (setq mode-line-format (copy-sequence mode-line-format))
*** pub/rgnus/lisp/message.el	Sat Jul 12 19:54:25 1997
--- rgnus/lisp/message.el	Sat Jul 19 23:39:26 1997
***************
*** 2668,2673 ****
--- 2668,2675 ----
  	   header value elem)
        ;; First we remove any old generated headers.
        (let ((headers message-deletable-headers))
+ 	(unless (buffer-modified-p)
+ 	  (setq headers (delq 'Message-ID (copy-sequence headers))))
  	(while headers
  	  (goto-char (point-min))
  	  (and (re-search-forward
*** pub/rgnus/lisp/pop3.el	Sun Jul  6 17:24:09 1997
--- rgnus/lisp/pop3.el	Sat Jul 19 23:39:26 1997
***************
*** 1,10 ****
  ;;; pop3.el --- Post Office Protocol (RFC 1460) interface
  
! ;; Copyright (C) 1996, Free Software Foundation, Inc.
  
  ;; Author: Richard L. Pieri <ratinox@peorth.gweep.net>
  ;; Keywords: mail, pop3
! ;; Version: 1.3e
  
  ;; This file is part of GNU Emacs.
  
--- 1,10 ----
  ;;; pop3.el --- Post Office Protocol (RFC 1460) interface
  
! ;; Copyright (C) 1996,1997 Free Software Foundation, Inc.
  
  ;; Author: Richard L. Pieri <ratinox@peorth.gweep.net>
  ;; Keywords: mail, pop3
! ;; Version: 1.3g
  
  ;; This file is part of GNU Emacs.
  
***************
*** 37,43 ****
  (require 'mail-utils)
  (provide 'pop3)
  
! (defconst pop3-version "1.3c")
  
  (defvar pop3-maildrop (or user-login-name (getenv "LOGNAME") (getenv "USER") nil)
    "*POP3 maildrop.")
--- 37,43 ----
  (require 'mail-utils)
  (provide 'pop3)
  
! (defconst pop3-version "1.3g")
  
  (defvar pop3-maildrop (or user-login-name (getenv "LOGNAME") (getenv "USER") nil)
    "*POP3 maildrop.")
***************
*** 77,83 ****
  	  ((equal 'pass pop3-authentication-scheme)
  	   (pop3-user process pop3-maildrop)
  	   (pop3-pass process))
! 	  (t (error "Invalid POP3 authentication scheme")))
      (setq message-count (car (pop3-stat process)))
      (while (<= n message-count)
        (message (format "Retrieving message %d of %d from %s..."
--- 77,83 ----
  	  ((equal 'pass pop3-authentication-scheme)
  	   (pop3-user process pop3-maildrop)
  	   (pop3-pass process))
! 	  (t (error "Invalid POP3 authentication scheme.")))
      (setq message-count (car (pop3-stat process)))
      (while (<= n message-count)
        (message (format "Retrieving message %d of %d from %s..."
***************
*** 201,206 ****
--- 201,207 ----
  
  (defun pop3-munge-message-separator (start end)
    "Check to see if a message separator exists.  If not, generate one."
+   (if (not (fboundp 'message-make-date)) (autoload 'message-make-date "message"))
    (save-excursion
      (save-restriction
        (narrow-to-region start end)
***************
*** 210,216 ****
  		   (looking-at "BABYL OPTIONS:") ; Babyl
  		   ))
  	  (let ((from (mail-strip-quoted-names (mail-fetch-field "From")))
! 		(date (pop3-string-to-list (mail-fetch-field "Date")))
  		(From_))
  	    ;; sample date formats I have seen
  	    ;; Date: Tue, 9 Jul 1996 09:04:21 -0400 (EDT)
--- 211,218 ----
  		   (looking-at "BABYL OPTIONS:") ; Babyl
  		   ))
  	  (let ((from (mail-strip-quoted-names (mail-fetch-field "From")))
! 		(date (pop3-string-to-list (or (mail-fetch-field "Date")
! 					       (message-make-date))))
  		(From_))
  	    ;; sample date formats I have seen
  	    ;; Date: Tue, 9 Jul 1996 09:04:21 -0400 (EDT)
*** pub/rgnus/lisp/ChangeLog	Sat Jul 12 19:54:21 1997
--- rgnus/lisp/ChangeLog	Sat Jul 19 23:39:22 1997
***************
*** 1,3 ****
--- 1,49 ----
+ Sat Jul 19 23:32:28 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+ 
+ 	* gnus.el: Gnus v5.4.64 is released.
+ 
+ Sat Jul 19 23:22:03 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+ 
+ 	* gnus-art.el (gnus-article-set-globals): New function.
+ 
+ 1997-07-17  Steven L Baur  <steve@altair.xemacs.org>
+ 
+ 	* gnus-ems.el (gnus-mode-line-modified): Refine detection on
+ 	whether narrow indicators should be used.
+ 
+ Sat Jul 19 23:04:30 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+ 
+ 	* gnus-cache.el (gnus-jog-cache): Bind gnus-auto-select-next.
+ 
+ Sat Jul 19 23:00:33 1997  Guy Geens  <Guy.Geens@elis.rug.ac.be>
+ 
+ 	* gnus-score.el (gnus-score-load-file): Fix decay.
+ 
+ Sat Jul 19 20:21:42 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+ 
+ 	* gnus-group.el (gnus-group-iterate): Save excursion.
+ 
+ 	* gnus-score.el (message): Required.
+ 
+ 	* gnus-sum.el (gnus-summary-limit-children): Unreads, not reads.
+ 
+ 	* gnus-topic.el (gnus-topic-change-level): Move groups.
+ 
+ 	* gnus-cache.el (gnus-jog-cache): Protect against nil groups.
+ 
+ 	* message.el (message-generate-headers): Don't delete Message-ID
+ 	if buffer not modified.
+ 
+ 	* gnus.el (gnus-simplify-mode-line): Use varying formats.
+ 
+ 	* gnus-xmas.el (gnus-xmas-group-remove-excess-properties): Removed.
+ 	(gnus-xmas-topic-remove-excess-properties): Removed.
+ 
+ Sat Jul 12 21:04:08 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+ 
+ 	* gnus-start.el (gnus-activate-group): Always return the right
+ 	active range.
+ 
  Sat Jul 12 19:46:22 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
  
  	* gnus.el: Gnus v5.4.63 is released.
*** pub/rgnus/texi/gnus.texi	Sat Jul 12 19:54:27 1997
--- rgnus/texi/gnus.texi	Sat Jul 19 23:39:28 1997
***************
*** 1,7 ****
  \input texinfo                  @c -*-texinfo-*-
  
  @setfilename gnus
! @settitle Gnus 5.4.63 Manual
  @synindex fn cp
  @synindex vr cp
  @synindex pg cp
--- 1,7 ----
  \input texinfo                  @c -*-texinfo-*-
  
  @setfilename gnus
! @settitle Gnus 5.4.64 Manual
  @synindex fn cp
  @synindex vr cp
  @synindex pg cp
***************
*** 309,315 ****
  @tex
  
  @titlepage
! @title Gnus 5.4.63 Manual
  
  @author by Lars Magne Ingebrigtsen
  @page
--- 309,315 ----
  @tex
  
  @titlepage
! @title Gnus 5.4.64 Manual
  
  @author by Lars Magne Ingebrigtsen
  @page
***************
*** 345,351 ****
  spool or your mbox file.  All at the same time, if you want to push your
  luck.
  
! This manual corresponds to Gnus 5.4.63.
  
  @end ifinfo
  
--- 345,351 ----
  spool or your mbox file.  All at the same time, if you want to push your
  luck.
  
! This manual corresponds to Gnus 5.4.64.
  
  @end ifinfo
  
***************
*** 11694,11700 ****
  
  @lisp
  ("references"
!  ("<x6[0-9a-z]+\\.fsf@@.*eyesore.no>" 1000 nil r))
  @end lisp
  
  Whether it's the first two or first three characters that are ``yours''
--- 11694,11701 ----
  
  @lisp
  ("references"
!  ("<x6[0-9a-z]+\\.fsf\\(_-_\\)?@@.*eyesore.no>"
!   1000 nil r))
  @end lisp
  
  Whether it's the first two or first three characters that are ``yours''
*** pub/rgnus/texi/message.texi	Sat Jul 12 19:54:27 1997
--- rgnus/texi/message.texi	Sat Jul 19 23:39:28 1997
***************
*** 1,7 ****
  \input texinfo                  @c -*-texinfo-*-
  
  @setfilename message
! @settitle Message 5.4.63 Manual
  @synindex fn cp
  @synindex vr cp
  @synindex pg cp
--- 1,7 ----
  \input texinfo                  @c -*-texinfo-*-
  
  @setfilename message
! @settitle Message 5.4.64 Manual
  @synindex fn cp
  @synindex vr cp
  @synindex pg cp
***************
*** 39,45 ****
  @tex
  
  @titlepage
! @title Message 5.4.63 Manual
  
  @author by Lars Magne Ingebrigtsen
  @page
--- 39,45 ----
  @tex
  
  @titlepage
! @title Message 5.4.64 Manual
  
  @author by Lars Magne Ingebrigtsen
  @page
***************
*** 79,85 ****
  * Key Index::         List of Message mode keys.
  @end menu
  
! This manual corresponds to Message 5.4.63.  Message is distributed with
  the Gnus distribution bearing the same version number as this manual
  has. 
  
--- 79,85 ----
  * Key Index::         List of Message mode keys.
  @end menu
  
! This manual corresponds to Message 5.4.64.  Message is distributed with
  the Gnus distribution bearing the same version number as this manual
  has. 
  
*** pub/rgnus/texi/ChangeLog	Sat Jul 12 19:54:27 1997
--- rgnus/texi/ChangeLog	Sat Jul 19 23:39:28 1997
***************
*** 1,3 ****
--- 1,7 ----
+ Sat Jul 19 23:02:03 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+ 
+ 	* gnus.texi (Followups To Yourself): \\(_-_\\)?
+ 
  Sat Jul 12 16:29:35 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
  
  	* gnus.texi (Picon Configuration): Moved Picons to under XEmacs. 
*** pub/rgnus/texi/dir	Wed Jun 18 00:54:19 1997
--- rgnus/texi/dir	Sat Jul 12 19:54:27 1997
***************
*** 0 ****
--- 1,11 ----
+ -*- Text -*-
+ The Gnus-related top node.
+ 
+ File: dir	Node: Top	This is the Gnus Info tree
+ 
+ * Menu: 
+ 
+ * Gnus: (gnus).		The news reader Gnus.
+ * Message: (message).	The Message sending thingamabob.
+ * Widget: (widget).	The Widget library.
+ * Custom: (custom).	The Custom library.
