*** pub/sgnus/lisp/gnus.el	Sun Apr 14 09:18:21 1996
--- sgnus/lisp/gnus.el	Sun Apr 14 09:25:07 1996
***************
*** 1695,1701 ****
    "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)"
    "The mail address of the Gnus maintainers.")
  
! (defconst gnus-version "September Gnus v0.72"
    "Version number for this version of Gnus.")
  
  (defvar gnus-info-nodes
--- 1695,1701 ----
    "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)"
    "The mail address of the Gnus maintainers.")
  
! (defconst gnus-version "September Gnus v0.73"
    "Version number for this version of Gnus.")
  
  (defvar gnus-info-nodes
*** pub/sgnus/lisp/message.el	Sun Apr 14 09:18:23 1996
--- sgnus/lisp/message.el	Sun Apr 14 09:28:43 1996
***************
*** 627,633 ****
    (setq message-sent-message-via nil)
    (make-local-variable 'message-checksum)
    (setq message-checksum nil)
!   (mail-hist-define-keys)
    (run-hooks 'text-mode-hook 'message-mode-hook))
  
  
--- 627,634 ----
    (setq message-sent-message-via nil)
    (make-local-variable 'message-checksum)
    (setq message-checksum nil)
!   (when (fboundp 'mail-hist-define-keys)
!     (mail-hist-define-keys))
    (run-hooks 'text-mode-hook 'message-mode-hook))
  
  
***************
*** 1003,1009 ****
  			     "Already sent message via mail; resend? "))
  			(funcall message-send-mail-function arg))))
        (message-do-fcc)
!       (mail-hist-put-headers-into-history)
        (run-hooks 'message-sent-hook)
        (message "Sending...done")
        ;; If buffer has no file, mark it as unmodified and delete autosave.
--- 1004,1011 ----
  			     "Already sent message via mail; resend? "))
  			(funcall message-send-mail-function arg))))
        (message-do-fcc)
!       (when (fboundp 'mail-hist-put-headers-into-history)
! 	(mail-hist-put-headers-into-history))
        (run-hooks 'message-sent-hook)
        (message "Sending...done")
        ;; If buffer has no file, mark it as unmodified and delete autosave.
***************
*** 1884,1890 ****
      (message-narrow-to-headers)
      (run-hooks 'message-header-setup-hook))
    ;; Allow mail alias things.
!   (mail-abbrevs-setup)
    (set-buffer-modified-p nil)
    (run-hooks 'message-setup-hook)
    (message-position-point)
--- 1886,1894 ----
      (message-narrow-to-headers)
      (run-hooks 'message-header-setup-hook))
    ;; Allow mail alias things.
!   (if (fboundp 'mail-abbrevs-setup)
!       (mail-abbrevs-setup)
!     (mail-aliases-setup))
    (set-buffer-modified-p nil)
    (run-hooks 'message-setup-hook)
    (message-position-point)
*** pub/sgnus/lisp/ChangeLog	Sun Apr 14 09:18:30 1996
--- sgnus/lisp/ChangeLog	Sun Apr 14 09:28:44 1996
***************
*** 1,5 ****
--- 1,8 ----
  Sun Apr 14 08:54:37 1996  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
  
+ 	* message.el (message-mode): Mail-hist isn't defined in XEmacs
+ 	19.13. 
+ 
  	* nnoo.el (defvoo): Didn't work under XEmacs.
  
  Sun Apr 14 06:27:19 1996  Lars Magne Ingebrigtsen  <larsi@aegir.ifi.uio.no>