*** pub/rgnus/lisp/gnus-async.el	Mon Mar 24 01:28:29 1997
--- rgnus/lisp/gnus-async.el	Mon Mar 24 17:02:49 1997
***************
*** 126,132 ****
  
  (defun gnus-async-prefetch-next (group article summary)
    "Possibly prefetch several articles starting with the article after ARTICLE."
!   (when (and (buffer-live-p summary)
  	     gnus-asynchronous
  	     (gnus-group-asynchronous-p group))
      (save-excursion
--- 126,132 ----
  
  (defun gnus-async-prefetch-next (group article summary)
    "Possibly prefetch several articles starting with the article after ARTICLE."
!   (when (and (gnus-buffer-live-p summary)
  	     gnus-asynchronous
  	     (gnus-group-asynchronous-p group))
      (save-excursion
***************
*** 143,149 ****
  
  (defun gnus-async-prefetch-article (group article summary &optional next)
    "Possibly prefetch several articles starting with ARTICLE."
!   (if (not (buffer-live-p summary))
        (gnus-async-with-semaphore
         (setq gnus-async-fetch-list nil))
      (when (and gnus-asynchronous
--- 143,149 ----
  
  (defun gnus-async-prefetch-article (group article summary &optional next)
    "Possibly prefetch several articles starting with ARTICLE."
!   (if (not (gnus-buffer-live-p summary))
        (gnus-async-with-semaphore
         (setq gnus-async-fetch-list nil))
      (when (and gnus-asynchronous
***************
*** 154,160 ****
        (let ((do-fetch next)
  	    (do-message t)) ;(eq major-mode 'gnus-summary-mode)))
  	(when (and (gnus-group-asynchronous-p group)
! 		   (buffer-live-p summary)
  		   (or (not next)
  		       gnus-async-fetch-list))
  	  (gnus-async-with-semaphore
--- 154,160 ----
        (let ((do-fetch next)
  	    (do-message t)) ;(eq major-mode 'gnus-summary-mode)))
  	(when (and (gnus-group-asynchronous-p group)
! 		   (gnus-buffer-live-p summary)
  		   (or (not next)
  		       gnus-async-fetch-list))
  	  (gnus-async-with-semaphore
***************
*** 211,217 ****
  		      ,mark (set-marker (make-marker) (point-max))
  		      ,group ,article)
  		gnus-async-article-alist)))
!        (if (not (buffer-live-p ,summary))
  	   (gnus-async-with-semaphore
  	    (setq gnus-async-fetch-list nil))
  	 (gnus-async-prefetch-article ,group ,next ,summary t)))))
--- 211,217 ----
  		      ,mark (set-marker (make-marker) (point-max))
  		      ,group ,article)
  		gnus-async-article-alist)))
!        (if (not (gnus-buffer-live-p ,summary))
  	   (gnus-async-with-semaphore
  	    (setq gnus-async-fetch-list nil))
  	 (gnus-async-prefetch-article ,group ,next ,summary t)))))
*** pub/rgnus/lisp/gnus-salt.el	Mon Mar 24 01:28:31 1997
--- rgnus/lisp/gnus-salt.el	Mon Mar 24 17:02:49 1997
***************
*** 129,135 ****
  
  (defun gnus-pick-setup-message ()
    "Make Message do the right thing on exit."
!   (when (and (buffer-live-p gnus-summary-buffer)
  	     (save-excursion
  	       (set-buffer gnus-summary-buffer)
  	       gnus-pick-mode))
--- 129,135 ----
  
  (defun gnus-pick-setup-message ()
    "Make Message do the right thing on exit."
!   (when (and (gnus-buffer-live-p gnus-summary-buffer)
  	     (save-excursion
  	       (set-buffer gnus-summary-buffer)
  	       gnus-pick-mode))
*** pub/rgnus/lisp/gnus-score.el	Mon Mar 24 01:28:32 1997
--- rgnus/lisp/gnus-score.el	Mon Mar 24 17:02:50 1997
***************
*** 908,914 ****
    "Add SCORE to all followups to the article in the current buffer."
    (interactive "P")
    (setq score (gnus-score-default score))
!   (when (buffer-live-p gnus-summary-buffer)
      (save-excursion
        (save-restriction
  	(message-narrow-to-headers)
--- 908,914 ----
    "Add SCORE to all followups to the article in the current buffer."
    (interactive "P")
    (setq score (gnus-score-default score))
!   (when (gnus-buffer-live-p gnus-summary-buffer)
      (save-excursion
        (save-restriction
  	(message-narrow-to-headers)
***************
*** 923,929 ****
    "Add SCORE to all later articles in the thread the current buffer is part of."
    (interactive "P")
    (setq score (gnus-score-default score))
!   (when (buffer-live-p gnus-summary-buffer)
      (save-excursion
        (save-restriction
  	(goto-char (point-min))
--- 923,929 ----
    "Add SCORE to all later articles in the thread the current buffer is part of."
    (interactive "P")
    (setq score (gnus-score-default score))
!   (when (gnus-buffer-live-p gnus-summary-buffer)
      (save-excursion
        (save-restriction
  	(goto-char (point-min))
*** pub/rgnus/lisp/gnus-sum.el	Mon Mar 24 01:28:33 1997
--- rgnus/lisp/gnus-sum.el	Mon Mar 24 17:02:51 1997
***************
*** 715,745 ****
  
  (defvar gnus-scores-exclude-files nil)
  
- (defvar gnus-summary-display-table
-   ;; Change the display table.	Odd characters have a tendency to mess
-   ;; up nicely formatted displays - we make all possible glyphs
-   ;; display only a single character.
- 
-   ;; We start from the standard display table, if any.
-   (let ((table (or (copy-sequence standard-display-table)
- 		   (make-display-table)))
- 	;; Nix out all the control chars...
- 	(i 32))
-     (while (>= (setq i (1- i)) 0)
-       (aset table i [??]))
-     ;; ... but not newline and cr, of course.  (cr is necessary for the
-     ;; selective display).
-     (aset table ?\n nil)
-     (aset table ?\r nil)
-     ;; We nix out any glyphs over 126 that are not set already.
-     (let ((i 256))
-       (while (>= (setq i (1- i)) 127)
- 	;; Only modify if the entry is nil.
- 	(or (aref table i)
- 	    (aset table i [??]))))
-     table)
-   "Display table used in summary mode buffers.")
- 
  (defvar gnus-original-article nil)
  (defvar gnus-article-internal-prepare-hook nil)
  (defvar gnus-newsgroup-process-stack nil)
--- 715,720 ----
***************
*** 1872,1878 ****
    (setq truncate-lines t)
    (setq selective-display t)
    (setq selective-display-ellipses t)	;Display `...'
!   (setq buffer-display-table gnus-summary-display-table)
    (gnus-set-default-directory)
    (setq gnus-newsgroup-name group)
    (make-local-variable 'gnus-summary-line-format)
--- 1847,1853 ----
    (setq truncate-lines t)
    (setq selective-display t)
    (setq selective-display-ellipses t)	;Display `...'
!   (gnus-summary-set-display-table)
    (gnus-set-default-directory)
    (setq gnus-newsgroup-name group)
    (make-local-variable 'gnus-summary-line-format)
***************
*** 2210,2215 ****
--- 2185,2214 ----
    (mouse-set-point e)
    (gnus-summary-next-page nil t))
  
+ (defun gnus-summary-set-display-table ()
+   ;; Change the display table.  Odd characters have a tendency to mess
+   ;; up nicely formatted displays - we make all possible glyphs
+   ;; display only a single character.
+ 
+   ;; We start from the standard display table, if any.
+   (let ((table (or (copy-sequence standard-display-table)
+ 		   (make-display-table)))
+ 	;; Nix out all the control chars...
+ 	(i 32))
+     (while (>= (setq i (1- i)) 0)
+       (aset table i [??]))
+     ;; ... but not newline and cr, of course.  (cr is necessary for the
+     ;; selective display).
+     (aset table ?\n nil)
+     (aset table ?\r nil)
+     ;; We nix out any glyphs over 126 that are not set already.
+     (let ((i 256))
+       (while (>= (setq i (1- i)) 127)
+ 	;; Only modify if the entry is nil.
+ 	(or (aref table i)
+ 	    (aset table i [??]))))
+     (setq buffer-display-table table)))
+ 
  (defun gnus-summary-setup-buffer (group)
    "Initialize summary buffer."
    (let ((buffer (concat "*Summary " group "*")))
***************
*** 2262,2268 ****
  	(setq gnus-reffed-article-number reffed)
  	(setq gnus-current-score-file score-file)
  	;; The article buffer also has local variables.
! 	(when (buffer-live-p gnus-article-buffer)
  	  (set-buffer gnus-article-buffer)
  	  (setq gnus-summary-buffer summary))))))
  
--- 2261,2267 ----
  	(setq gnus-reffed-article-number reffed)
  	(setq gnus-current-score-file score-file)
  	;; The article buffer also has local variables.
! 	(when (gnus-buffer-live-p gnus-article-buffer)
  	  (set-buffer gnus-article-buffer)
  	  (setq gnus-summary-buffer summary))))))
  
***************
*** 4961,4967 ****
               ;; The `gnus-summary-buffer' variable may point
               ;; to the old summary buffer when using a single
               ;; article buffer.
!              (unless (buffer-live-p gnus-summary-buffer)
                 (set-buffer gnus-group-buffer))
               (set-buffer gnus-summary-buffer)
               (gnus-set-global-variables))))
--- 4960,4966 ----
               ;; The `gnus-summary-buffer' variable may point
               ;; to the old summary buffer when using a single
               ;; article buffer.
!              (unless (gnus-buffer-live-p gnus-summary-buffer)
                 (set-buffer gnus-group-buffer))
               (set-buffer gnus-summary-buffer)
               (gnus-set-global-variables))))
*** pub/rgnus/lisp/gnus-util.el	Mon Mar 24 01:28:33 1997
--- rgnus/lisp/gnus-util.el	Mon Mar 24 17:02:51 1997
***************
*** 458,463 ****
--- 458,469 ----
      (let ((ids (inline (gnus-split-references references))))
        (car (last ids (or n 1))))))
  
+ (defsubst gnus-buffer-live-p (buffer)
+   "Say whether BUFFER is alive or not."
+   (and buffer
+        (get-buffer buffer)
+        (buffer-name (get-buffer buffer))))
+ 
  (defun gnus-horizontal-recenter ()
    "Recenter the current buffer horizontally."
    (if (< (current-column) (/ (window-width) 2))
*** pub/rgnus/lisp/gnus-xmas.el	Fri Mar 14 20:17:20 1997
--- rgnus/lisp/gnus-xmas.el	Mon Mar 24 17:02:52 1997
***************
*** 181,186 ****
--- 181,206 ----
  	  (gnus-horizontal-recenter)
  	  (select-window selected))))))
  
+ (defun gnus-xmas-summary-set-display-table ()
+   ;; Setup the display table -- like gnus-summary-setup-display-table,
+   ;; but done in an XEmacsish way.
+   (let ((table (make-display-table))
+ 	;; Nix out all the control chars...
+ 	(i 32))
+     (while (>= (setq i (1- i)) 0)
+       (aset table i [??]))
+     ;; ... but not newline and cr, of course.  (cr is necessary for the
+     ;; selective display).
+     (aset table ?\n nil)
+     (aset table ?\r nil)
+     ;; We nix out any glyphs over 126 that are not set already.
+     (let ((i 256))
+       (while (>= (setq i (1- i)) 127)
+ 	;; Only modify if the entry is nil.
+ 	(or (aref table i)
+ 	    (aset table i [??]))))
+     (add-spec-to-specifier current-display-table table (current-buffer) nil)))
+ 
  (defun gnus-xmas-add-hook (hook function &optional append local)
    (add-hook hook function))
  
***************
*** 442,448 ****
  
  (defun gnus-xmas-redefine ()
    "Redefine lots of Gnus functions for XEmacs."
!   (fset 'gnus-summary-make-display-table 'ignore)
    (fset 'gnus-visual-turn-off-edit-menu 'identity)
    (fset 'gnus-summary-recenter 'gnus-xmas-summary-recenter)
    (fset 'gnus-extent-start-open 'gnus-xmas-extent-start-open)
--- 462,468 ----
  
  (defun gnus-xmas-redefine ()
    "Redefine lots of Gnus functions for XEmacs."
!   (fset 'gnus-summary-set-display-table 'gnus-xmas-summary-set-display-table)
    (fset 'gnus-visual-turn-off-edit-menu 'identity)
    (fset 'gnus-summary-recenter 'gnus-xmas-summary-recenter)
    (fset 'gnus-extent-start-open 'gnus-xmas-extent-start-open)
*** pub/rgnus/lisp/gnus.el	Mon Mar 24 01:28:34 1997
--- rgnus/lisp/gnus.el	Mon Mar 24 17:02:52 1997
***************
*** 226,232 ****
    :link '(custom-manual "(gnus)Exiting Gnus")
    :group 'gnus)
  
! (defconst gnus-version-number "5.4.36"
    "Version number for this version of Gnus.")
  
  (defconst gnus-version (format "Gnus v%s" gnus-version-number)
--- 226,232 ----
    :link '(custom-manual "(gnus)Exiting Gnus")
    :group 'gnus)
  
! (defconst gnus-version-number "5.4.37"
    "Version number for this version of Gnus.")
  
  (defconst gnus-version (format "Gnus v%s" gnus-version-number)
*** pub/rgnus/lisp/nnfolder.el	Mon Mar 24 01:28:35 1997
--- rgnus/lisp/nnfolder.el	Mon Mar 24 17:02:53 1997
***************
*** 225,231 ****
         (let ((bufs nnfolder-buffer-alist))
  	 (save-excursion
  	   (while bufs
! 	     (if (not (buffer-live-p (nth 1 (car bufs))))
  		 (setq nnfolder-buffer-alist
  		       (delq (car bufs) nnfolder-buffer-alist))
  	       (set-buffer (nth 1 (car bufs)))
--- 225,231 ----
         (let ((bufs nnfolder-buffer-alist))
  	 (save-excursion
  	   (while bufs
! 	     (if (not (gnus-buffer-live-p (nth 1 (car bufs))))
  		 (setq nnfolder-buffer-alist
  		       (delq (car bufs) nnfolder-buffer-alist))
  	       (set-buffer (nth 1 (car bufs)))
***************
*** 492,498 ****
    (when (and server
  	     (not (nnfolder-server-opened server)))
      (nnfolder-open-server server))
!   (unless (buffer-live-p nnfolder-current-buffer)
      (setq nnfolder-current-buffer nil
  	  nnfolder-current-group nil))
    ;; Change group.
--- 492,498 ----
    (when (and server
  	     (not (nnfolder-server-opened server)))
      (nnfolder-open-server server))
!   (unless (gnus-buffer-live-p nnfolder-current-buffer)
      (setq nnfolder-current-buffer nil
  	  nnfolder-current-group nil))
    ;; Change group.
***************
*** 519,525 ****
  	;; is live, verify that nobody else has touched the file since last
  	;; time.
  	(when (and nnfolder-current-buffer
! 		   (not (buffer-live-p nnfolder-current-buffer)))
  	  (setq nnfolder-buffer-alist (delq inf nnfolder-buffer-alist)
  		nnfolder-current-buffer nil))
  
--- 519,525 ----
  	;; is live, verify that nobody else has touched the file since last
  	;; time.
  	(when (and nnfolder-current-buffer
! 		   (not (gnus-buffer-live-p nnfolder-current-buffer)))
  	  (setq nnfolder-buffer-alist (delq inf nnfolder-buffer-alist)
  		nnfolder-current-buffer nil))
  
***************
*** 611,617 ****
  (defun nnfolder-possibly-change-folder (group)
    (let ((inf (assoc group nnfolder-buffer-alist)))
      (if (and inf
! 	     (buffer-live-p (cadr inf)))
  	(set-buffer (cadr inf))
        (when inf
  	(setq nnfolder-buffer-alist (delq inf nnfolder-buffer-alist)))
--- 611,617 ----
  (defun nnfolder-possibly-change-folder (group)
    (let ((inf (assoc group nnfolder-buffer-alist)))
      (if (and inf
! 	     (gnus-buffer-live-p (cadr inf)))
  	(set-buffer (cadr inf))
        (when inf
  	(setq nnfolder-buffer-alist (delq inf nnfolder-buffer-alist)))
*** pub/rgnus/lisp/nnheader.el	Mon Mar 24 01:28:35 1997
--- rgnus/lisp/nnheader.el	Mon Mar 24 17:02:53 1997
***************
*** 381,387 ****
  (defun nnheader-init-server-buffer ()
    "Initialize the Gnus-backend communication buffer."
    (save-excursion
!     (unless (buffer-live-p nntp-server-buffer)
        (setq nntp-server-buffer (get-buffer-create " *nntpd*")))
      (set-buffer nntp-server-buffer)
      (buffer-disable-undo (current-buffer))
--- 381,387 ----
  (defun nnheader-init-server-buffer ()
    "Initialize the Gnus-backend communication buffer."
    (save-excursion
!     (unless (gnus-buffer-live-p nntp-server-buffer)
        (setq nntp-server-buffer (get-buffer-create " *nntpd*")))
      (set-buffer nntp-server-buffer)
      (buffer-disable-undo (current-buffer))
*** pub/rgnus/lisp/nnmail.el	Mon Mar 24 01:28:36 1997
--- rgnus/lisp/nnmail.el	Mon Mar 24 17:02:54 1997
***************
*** 1416,1422 ****
  
  (defun nnmail-cache-insert (id)
    (when nnmail-treat-duplicates
!     (unless (buffer-live-p nnmail-cache-buffer)
        (nnmail-cache-open))
      (save-excursion
        (set-buffer nnmail-cache-buffer)
--- 1416,1422 ----
  
  (defun nnmail-cache-insert (id)
    (when nnmail-treat-duplicates
!     (unless (gnus-buffer-live-p nnmail-cache-buffer)
        (nnmail-cache-open))
      (save-excursion
        (set-buffer nnmail-cache-buffer)
*** pub/rgnus/lisp/nntp.el	Mon Mar 24 01:28:36 1997
--- rgnus/lisp/nntp.el	Mon Mar 24 17:02:54 1997
***************
*** 598,604 ****
    "Say whether a connection to SERVER has been opened."
    (and (nnoo-current-server-p 'nntp server)
         nntp-server-buffer
!        (buffer-live-p nntp-server-buffer)
         (nntp-find-connection nntp-server-buffer)))
  
  (deffoo nntp-open-server (server &optional defs connectionless)
--- 598,604 ----
    "Say whether a connection to SERVER has been opened."
    (and (nnoo-current-server-p 'nntp server)
         nntp-server-buffer
!        (gnus-buffer-live-p nntp-server-buffer)
         (nntp-find-connection nntp-server-buffer)))
  
  (deffoo nntp-open-server (server &optional defs connectionless)
*** pub/rgnus/lisp/nnweb.el	Mon Mar 24 01:28:36 1997
--- rgnus/lisp/nnweb.el	Mon Mar 24 17:02:54 1997
***************
*** 133,139 ****
  
  (deffoo nnweb-close-group (group &optional server)
    (nnweb-possibly-change-server group server)
!   (when (buffer-live-p nnweb-buffer)
      (save-excursion
        (set-buffer nnweb-buffer)
        (set-buffer-modified-p nil)
--- 133,139 ----
  
  (deffoo nnweb-close-group (group &optional server)
    (nnweb-possibly-change-server group server)
!   (when (gnus-buffer-live-p nnweb-buffer)
      (save-excursion
        (set-buffer nnweb-buffer)
        (set-buffer-modified-p nil)
***************
*** 166,172 ****
  
  (deffoo nnweb-close-server (&optional server)
    (when (and (nnweb-server-opened server)
! 	     (buffer-live-p nnweb-buffer))
      (save-excursion
        (set-buffer nnweb-buffer)
        (set-buffer-modified-p nil)
--- 166,172 ----
  
  (deffoo nnweb-close-server (&optional server)
    (when (and (nnweb-server-opened server)
! 	     (gnus-buffer-live-p nnweb-buffer))
      (save-excursion
        (set-buffer nnweb-buffer)
        (set-buffer-modified-p nil)
***************
*** 274,280 ****
  
  (defun nnweb-init (server)
    "Initialize buffers and such."
!   (unless (buffer-live-p nnweb-buffer)
      (setq nnweb-buffer
  	  (save-excursion
  	    (nnheader-set-temp-buffer
--- 274,280 ----
  
  (defun nnweb-init (server)
    "Initialize buffers and such."
!   (unless (gnus-buffer-live-p nnweb-buffer)
      (setq nnweb-buffer
  	  (save-excursion
  	    (nnheader-set-temp-buffer
***************
*** 295,301 ****
        t)))
  
  (defun nnweb-callback (buffer callback)
!   (when (buffer-live-p url-working-buffer)
      (save-excursion
        (set-buffer url-working-buffer)
        (funcall (nnweb-definition 'article))
--- 295,301 ----
        t)))
  
  (defun nnweb-callback (buffer callback)
!   (when (gnus-buffer-live-p url-working-buffer)
      (save-excursion
        (set-buffer url-working-buffer)
        (funcall (nnweb-definition 'article))
*** pub/rgnus/lisp/ChangeLog	Mon Mar 24 01:28:29 1997
--- rgnus/lisp/ChangeLog	Mon Mar 24 17:02:49 1997
***************
*** 1,3 ****
--- 1,21 ----
+ Mon Mar 24 16:57:26 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+ 
+ 	* gnus.el: Gnus v5.4.37 is released.
+ 
+ Mon Mar 24 01:16:15 1997  Hrvoje Niksic  <hniksic@srce.hr>
+ 
+ 	* gnus-xmas.el (gnus-xmas-redefine): Use it.
+ 
+ 	* gnus-xmas.el (gnus-xmas-summary-set-display-table): New function.
+ 
+ 	* gnus-sum.el (gnus-summary-mode): Use it.
+ 
+ 	* gnus-sum.el (gnus-summary-set-display-table): New function.
+ 
+ Mon Mar 24 16:27:46 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+ 
+ 	* gnus-util.el (gnus-buffer-live-p): Reinstated.
+ 
  Mon Mar 24 01:24:27 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
  
  	* gnus.el: Gnus v5.4.36 is released.
*** pub/rgnus/texi/gnus.texi	Mon Mar 24 01:28:38 1997
--- rgnus/texi/gnus.texi	Mon Mar 24 17:02:56 1997
***************
*** 1,7 ****
  \input texinfo                  @c -*-texinfo-*-
  
  @setfilename gnus
! @settitle Gnus 5.4.36 Manual
  @synindex fn cp
  @synindex vr cp
  @synindex pg cp
--- 1,7 ----
  \input texinfo                  @c -*-texinfo-*-
  
  @setfilename gnus
! @settitle Gnus 5.4.37 Manual
  @synindex fn cp
  @synindex vr cp
  @synindex pg cp
***************
*** 287,293 ****
  @tex
  
  @titlepage
! @title Gnus 5.4.36 Manual
  
  @author by Lars Magne Ingebrigtsen
  @page
--- 287,293 ----
  @tex
  
  @titlepage
! @title Gnus 5.4.37 Manual
  
  @author by Lars Magne Ingebrigtsen
  @page
***************
*** 323,329 ****
  spool or your mbox file.  All at the same time, if you want to push your
  luck.
  
! This manual corresponds to Gnus 5.4.36.
  
  @end ifinfo
  
--- 323,329 ----
  spool or your mbox file.  All at the same time, if you want to push your
  luck.
  
! This manual corresponds to Gnus 5.4.37.
  
  @end ifinfo
  
*** pub/rgnus/texi/message.texi	Mon Mar 24 01:28:38 1997
--- rgnus/texi/message.texi	Mon Mar 24 17:02:56 1997
***************
*** 1,7 ****
  \input texinfo                  @c -*-texinfo-*-
  
  @setfilename message
! @settitle Message 5.4.36 Manual
  @synindex fn cp
  @synindex vr cp
  @synindex pg cp
--- 1,7 ----
  \input texinfo                  @c -*-texinfo-*-
  
  @setfilename message
! @settitle Message 5.4.37 Manual
  @synindex fn cp
  @synindex vr cp
  @synindex pg cp
***************
*** 39,45 ****
  @tex
  
  @titlepage
! @title Message 5.4.36 Manual
  
  @author by Lars Magne Ingebrigtsen
  @page
--- 39,45 ----
  @tex
  
  @titlepage
! @title Message 5.4.37 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.36.  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.37.  Message is distributed with
  the Gnus distribution bearing the same version number as this manual
  has.