*** pub/sgnus/lisp/dgnushack.el	Sat Jun 15 11:01:48 1996
--- sgnus/lisp/dgnushack.el	Fri Jul  5 06:36:39 1996
***************
*** 31,36 ****
--- 31,42 ----
  
  (setq custom-file "/THIS FILE DOES NOT eXiST!")
  
+ (defalias 'device-sound-enabled-p 'ignore)
+ (defalias 'play-sound-file 'ignore)
+ (defalias 'nndb-request-article 'ignore)
+ (defalias 'efs-re-read-dir 'ignore)
+ (defalias 'ange-ftp-re-read-dir 'ignore)
+ 
  (defun dgnushack-compile ()
    ;(setq byte-compile-dynamic t)
    (let ((files (directory-files "." nil ".el$"))
*** pub/sgnus/lisp/gnus-cus.el	Sat Jun 15 04:20:03 1996
--- sgnus/lisp/gnus-cus.el	Fri Jul  5 05:04:43 1996
***************
*** 108,118 ****
  The line beneath the mouse pointer will be highlighted with this
  face.")
  	(name . gnus-mouse-face)
! 	(calculate . (if (gnus-visual-p 'mouse-face 'highlight)
! 			 (if (boundp 'gnus-mouse-face)
! 			     gnus-mouse-face
! 			   'highlight)
! 		       'default))
  	(type . face))
         ((tag . "Article Display")
  	(doc . "Controls how the article buffer will look.
--- 108,120 ----
  The line beneath the mouse pointer will be highlighted with this
  face.")
  	(name . gnus-mouse-face)
! 	(calculate . (condition-case ()
! 			 (if (gnus-visual-p 'mouse-face 'highlight)
! 			     (if (boundp 'gnus-mouse-face)
! 				 gnus-mouse-face
! 			       'highlight)
! 			   'default)
! 		       (error nil)))
  	(type . face))
         ((tag . "Article Display")
  	(doc . "Controls how the article buffer will look.
*** pub/sgnus/lisp/gnus.el	Thu Jul  4 06:40:44 1996
--- sgnus/lisp/gnus.el	Sat Jul  6 07:40:14 1996
***************
*** 32,38 ****
  (require 'timezone)
  (require 'nnheader)
  (require 'nnmail)
- (require 'backquote)
  (require 'nnoo)
  
  (eval-when-compile (require 'cl))
--- 32,37 ----
***************
*** 1772,1778 ****
    "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)"
    "The mail address of the Gnus maintainers.")
  
! (defconst gnus-version-number "5.2.33"
    "Version number for this version of Gnus.")
  
  (defconst gnus-version (format "Gnus v%s" gnus-version-number)
--- 1771,1777 ----
    "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)"
    "The mail address of the Gnus maintainers.")
  
! (defconst gnus-version-number "5.2.34"
    "Version number for this version of Gnus.")
  
  (defconst gnus-version (format "Gnus v%s" gnus-version-number)
***************
*** 12742,12747 ****
--- 12741,12747 ----
  	    (> (prefix-numeric-value arg) 0)))
      (gnus-summary-prepare)
      (gnus-summary-goto-subject current)
+     (gnus-message 6 "Threading is now %s" (if gnus-show-threads "on" "off"))
      (gnus-summary-position-point)))
  
  (defun gnus-summary-show-all-threads ()
*** pub/sgnus/lisp/nnheader.el	Wed Jul  3 01:30:36 1996
--- sgnus/lisp/nnheader.el	Sat Jul  6 05:45:11 1996
***************
*** 597,606 ****
  (defvar efs-path-regexp)
  (defun nnheader-re-read-dir (path)
    "Re-read directory PATH if PATH is on a remote system."
!     (if (or (fboundp 'efs-re-read-dir) (boundp 'efs-path-regexp))
  	(when (string-match efs-path-regexp path)
  	  (efs-re-read-dir path))
!      (if (or (fboundp 'ange-ftp-re-read-dir) (boundp 'ange-ftp-path-format))
        (when (string-match (car ange-ftp-path-format) path)
  	(ange-ftp-re-read-dir path)))))
  
--- 597,606 ----
  (defvar efs-path-regexp)
  (defun nnheader-re-read-dir (path)
    "Re-read directory PATH if PATH is on a remote system."
!     (if (and (fboundp 'efs-re-read-dir) (boundp 'efs-path-regexp))
  	(when (string-match efs-path-regexp path)
  	  (efs-re-read-dir path))
!      (if (and (fboundp 'ange-ftp-re-read-dir) (boundp 'ange-ftp-path-format))
        (when (string-match (car ange-ftp-path-format) path)
  	(ange-ftp-re-read-dir path)))))
  
*** pub/sgnus/lisp/ChangeLog	Thu Jul  4 06:40:42 1996
--- sgnus/lisp/ChangeLog	Sat Jul  6 07:25:57 1996
***************
*** 1,3 ****
--- 1,15 ----
+ Sat Jul  6 05:46:12 1996  Lars Magne Ingebrigtsen  <larsi@ylfing.ifi.uio.no>
+ 
+ 	* nnheader.el (nnheader-re-read-dir): Would sometimes bug out.
+ 
+ Fri Jul  5 03:14:43 1996  Lars Magne Ingebrigtsen  <larsi@ylfing.ifi.uio.no>
+ 
+ 	* gnus.el (gnus-summary-toggle-threads): Message the state.
+ 
+ Thu Jul  4 07:52:07 1996  Lars Magne Ingebrigtsen  <larsi@ylfing.ifi.uio.no>
+ 
+ 	* gnus.el: Gnus v5.2.33 is released.
+ 
  Thu Jul  4 06:08:11 1996  Lars Magne Ingebrigtsen  <larsi@aegir.ifi.uio.no>
  
  	* nntp.el (nntp-open-telnet): Working function.