*** pub/sgnus/lisp/gnus-cite.el	Sun May 26 04:00:07 1996
--- sgnus/lisp/gnus-cite.el	Sun May 26 23:25:40 1996
***************
*** 332,338 ****
  	    (forward-line gnus-cited-lines-visible)
  	    (if (> (point) end)
  		(setq beg nil)
! 	      (setq beg (point))))
  	  (when (and beg end)
  	    (gnus-add-text-properties beg end props)
  	    (goto-char beg)
--- 332,338 ----
  	    (forward-line gnus-cited-lines-visible)
  	    (if (> (point) end)
  		(setq beg nil)
! 	      (setq beg (point-marker))))
  	  (when (and beg end)
  	    (gnus-add-text-properties beg end props)
  	    (goto-char beg)
*** pub/sgnus/lisp/gnus-msg.el	Sun May 26 04:00:09 1996
--- sgnus/lisp/gnus-msg.el	Sun May 26 21:44:53 1996
***************
*** 114,120 ****
  (gnus-define-keys
   (gnus-send-bounce-map "D" gnus-summary-send-map)
   "b" gnus-summary-resend-bounced-mail
!  "c" gnus-summary-send-draft
   "r" gnus-summary-resend-message)
  
  ;;; Internal functions.
--- 114,120 ----
  (gnus-define-keys
   (gnus-send-bounce-map "D" gnus-summary-send-map)
   "b" gnus-summary-resend-bounced-mail
! ; "c" gnus-summary-send-draft
   "r" gnus-summary-resend-message)
  
  ;;; Internal functions.
*** pub/sgnus/lisp/gnus-topic.el	Sun May 26 04:00:11 1996
--- sgnus/lisp/gnus-topic.el	Sun May 26 23:25:42 1996
***************
*** 532,538 ****
  		gnus-active-hashtb)
        (setq groups (sort groups 'string<))
        ;; Init the variables.
!       (setq gnus-topic-active-topology '(("" visible)))
        (setq gnus-topic-active-alist nil)
        ;; Descend the top-level hierarchy.
        (gnus-topic-grok-active-1 gnus-topic-active-topology groups)
--- 532,538 ----
  		gnus-active-hashtb)
        (setq groups (sort groups 'string<))
        ;; Init the variables.
!       (setq gnus-topic-active-topology (list (list "" 'visible)))
        (setq gnus-topic-active-alist nil)
        ;; Descend the top-level hierarchy.
        (gnus-topic-grok-active-1 gnus-topic-active-topology groups)
*** pub/sgnus/lisp/gnus.el	Sun May 26 04:00:14 1996
--- sgnus/lisp/gnus.el	Mon May 27 00:42:23 1996
***************
*** 356,362 ****
  (defvar gnus-use-adaptive-scoring nil
    "*If non-nil, use some adaptive scoring scheme.")
  
! (defvar gnus-use-cache nil
    "*If nil, Gnus will ignore the article cache.
  If `passive', it will allow entering (and reading) articles
  explicitly entered into the cache.  If anything else, use the
--- 356,362 ----
  (defvar gnus-use-adaptive-scoring nil
    "*If non-nil, use some adaptive scoring scheme.")
  
! (defvar gnus-use-cache 'passive
    "*If nil, Gnus will ignore the article cache.
  If `passive', it will allow entering (and reading) articles
  explicitly entered into the cache.  If anything else, use the
***************
*** 1723,1729 ****
    "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)"
    "The mail address of the Gnus maintainers.")
  
! (defconst gnus-version "September Gnus v0.96"
    "Version number for this version of Gnus.")
  
  (defvar gnus-info-nodes
--- 1723,1729 ----
    "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)"
    "The mail address of the Gnus maintainers.")
  
! (defconst gnus-version "September Gnus v0.97"
    "Version number for this version of Gnus.")
  
  (defvar gnus-info-nodes
***************
*** 8295,8302 ****
  (defsubst gnus-article-sort-by-date (h1 h2)
    "Sort articles by root article date."
    (string-lessp
!    (gnus-sortable-date (mail-header-date h1))
!    (gnus-sortable-date (mail-header-date h2))))
  
  (defun gnus-thread-sort-by-date (h1 h2)
    "Sort threads by root article date."
--- 8295,8302 ----
  (defsubst gnus-article-sort-by-date (h1 h2)
    "Sort articles by root article date."
    (string-lessp
!    (inline (gnus-sortable-date (mail-header-date h1)))
!    (inline (gnus-sortable-date (mail-header-date h2)))))
  
  (defun gnus-thread-sort-by-date (h1 h2)
    "Sort threads by root article date."
***************
*** 12837,12848 ****
  (defun gnus-sortable-date (date)
    "Make sortable string by string-lessp from DATE.
  Timezone package is used."
!   (setq date (timezone-fix-time date nil nil))
!   (timezone-make-sortable-date
!    (aref date 0) (aref date 1) (aref date 2)
!    (timezone-make-time-string
!     (aref date 3) (aref date 4) (aref date 5))))
! 
  ;; Summary saving commands.
  
  (defun gnus-summary-save-article (&optional n not-saved)
--- 12837,12855 ----
  (defun gnus-sortable-date (date)
    "Make sortable string by string-lessp from DATE.
  Timezone package is used."
!   (condition-case ()
!       (progn
! 	(setq date (inline (timezone-fix-time 
! 			    date nil 
! 			    (aref (inline (timezone-parse-date date)) 4))))
! 	(inline
! 	  (timezone-make-sortable-date
! 	   (aref date 0) (aref date 1) (aref date 2)
! 	   (inline
! 	     (timezone-make-time-string
! 	      (aref date 3) (aref date 4) (aref date 5))))))
!     (error "")))
!   
  ;; Summary saving commands.
  
  (defun gnus-summary-save-article (&optional n not-saved)
***************
*** 13563,13569 ****
        ;; Take the article from the original article buffer
        ;; and place it in the buffer it's supposed to be in.
        (when (and (get-buffer gnus-article-buffer)
! 		 (numberp article)
  		 (equal (buffer-name (current-buffer))
  			(buffer-name (get-buffer gnus-article-buffer))))
  	(save-excursion
--- 13570,13576 ----
        ;; Take the article from the original article buffer
        ;; and place it in the buffer it's supposed to be in.
        (when (and (get-buffer gnus-article-buffer)
! 		 ;;(numberp article)
  		 (equal (buffer-name (current-buffer))
  			(buffer-name (get-buffer gnus-article-buffer))))
  	(save-excursion
*** pub/sgnus/lisp/message.el	Sun May 26 04:00:16 1996
--- sgnus/lisp/message.el	Sun May 26 23:49:14 1996
***************
*** 1348,1355 ****
  
  (defun message-send-mail-with-mh ()
    "Send the prepared message buffer with mh."
!   (let (mh-previous-window-config)
!     (mh-send-letter)))
  
  (defun message-send-news (&optional arg)
    (let ((tembuf (generate-new-buffer " *message temp*"))
--- 1348,1362 ----
  
  (defun message-send-mail-with-mh ()
    "Send the prepared message buffer with mh."
!   (let ((mh-previous-window-config nil)
! 	(name (make-temp-name
! 	       (concat (file-name-as-directory message-autosave-directory)
! 		       "msg."))))
!     (setq buffer-file-name name)
!     (mh-send-letter)
!     (condition-case ()
! 	(delete-file name)
!       (error nil))))
  
  (defun message-send-news (&optional arg)
    (let ((tembuf (generate-new-buffer " *message temp*"))
***************
*** 1625,1641 ****
         (y-or-n-p
  	"It looks like no new text has been added.  Really post? "))
     ;; Check the length of the signature.
!    (or (message-check-element 'signature)
!        (progn
! 	 (goto-char (point-max))
! 	 (if (not (re-search-backward "^-- $" nil t))
! 	     t
! 	   (if (> (count-lines (point) (point-max)) 5)
! 	       (y-or-n-p
! 		(format
! 		 "Your .sig is %d lines; it should be max 4.  Really post? "
! 		 (count-lines (point) (point-max))))
! 	     t))))))
  
  (defun message-check-element (type)
    "Returns non-nil if this type is not to be checked."
--- 1632,1650 ----
         (y-or-n-p
  	"It looks like no new text has been added.  Really post? "))
     ;; Check the length of the signature.
!    (or
!     (message-check-element 'signature)
!     (progn
!       (goto-char (point-max))
!       (if (or (not (re-search-backward "^-- $" nil t))
! 	      (search-forward message-forward-end-separator nil t))
! 	  t
! 	(if (> (count-lines (point) (point-max)) 5)
! 	    (y-or-n-p
! 	     (format
! 	      "Your .sig is %d lines; it should be max 4.  Really post? "
! 	      (count-lines (point) (point-max))))
! 	  t))))))
  
  (defun message-check-element (type)
    "Returns non-nil if this type is not to be checked."
*** pub/sgnus/lisp/nnmail.el	Sun May 26 04:00:18 1996
--- sgnus/lisp/nnmail.el	Mon May 27 00:03:41 1996
***************
*** 285,293 ****
    "Insert FILE in server buffer safely."
    (set-buffer nntp-server-buffer)
    (erase-buffer)
!   (condition-case ()
!       (progn (nnheader-insert-file-contents-literally file) t)
!     (file-error nil)))
  
  (defun nnmail-group-pathname (group dir &optional file)
    "Make pathname for GROUP."
--- 285,295 ----
    "Insert FILE in server buffer safely."
    (set-buffer nntp-server-buffer)
    (erase-buffer)
!   (let ((format-alist nil)
!         (after-insert-file-functions nil))
!     (condition-case ()
! 	(progn (insert-file-contents file) t)
!       (file-error nil))))
  
  (defun nnmail-group-pathname (group dir &optional file)
    "Make pathname for GROUP."
*** pub/sgnus/lisp/ChangeLog	Sun May 26 04:00:27 1996
--- sgnus/lisp/ChangeLog	Mon May 27 00:03:39 1996
***************
*** 1,4 ****
--- 1,24 ----
+ Sun May 26 20:29:02 1996  Lars Magne Ingebrigtsen  <larsi@eistla.ifi.uio.no>
+ 
+ 	* gnus.el (gnus-article-sort-by-date): Inline.
+ 
+ 	* nnmail.el (nnmail-find-file): Don't insert literally.
+ 
+ 	* message.el (message-send-mail-with-mh): Save before sending.
+ 
+ 	* gnus-cite.el (gnus-article-hide-citation): Would bug out.
+ 
+ 	* gnus-topic.el (gnus-topic-grok-active): Could only be run once.
+ 
+ 	* message.el (message-check-news-syntax): Don't warn on long
+ 	signatures on forwarded articles.
+ 
+ 	* gnus.el (gnus-request-article-this-buffer): Put un-numbered
+ 	articles into the original buffer as well.
+ 
  Sun May 26 03:51:38 1996  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+ 
+ 	* gnus.el: September Gnus v0.96 is released.
  
  	* nnheader-ems.el: Raw-file confusion.
  
*** pub/sgnus/texi/gnus.texi	Sun May 26 04:00:29 1996
--- sgnus/texi/gnus.texi	Sun May 26 21:45:06 1996
***************
*** 2941,2946 ****
--- 2941,2956 ----
  Scroll the current article one line forward
  (@code{gnus-summary-scroll-up}).
  
+ @item A g
+ @itemx g
+ @kindex A g (Summary)
+ @kindex g (Summary)
+ @findex gnus-summary-show-article
+ (Re)fetch the current article (@code{gnus-summary-show-article}).  If
+ given a prefix, fetch the current article, but don't run any of the
+ article treatment functions.  This will give you a ``raw'' article, just
+ the way it came from the server.
+ 
  @item A <
  @itemx <
  @kindex < (Summary)
***************
*** 5165,5178 ****
  @findex gnus-summary-caesar-message
  Do a Caesar rotate (rot13) on the article buffer
  (@code{gnus-summary-caesar-message}). 
- 
- @item A g
- @kindex A g (Summary)
- @findex gnus-summary-show-article
- (Re)fetch the current article (@code{gnus-summary-show-article}).  If
- given a prefix, fetch the current article, but don't run any of the
- article treatment functions.  This will give you a ``raw'' article, just
- the way it came from the server.
  
  @item W t
  @kindex W t (Summary)
--- 5175,5180 ----
*** pub/sgnus/texi/ChangeLog	Sun May 26 04:00:28 1996
--- sgnus/texi/ChangeLog	Sun May 26 21:45:01 1996
***************
*** 1,3 ****
--- 1,7 ----
+ Sun May 26 18:28:19 1996  Lars Magne Ingebrigtsen  <lars@eyesore.no>
+ 
+ 	* gnus.texi (Paging the Article): Moved.
+ 
  Fri May 24 17:19:58 1996  Lars Magne Ingebrigtsen  <lars@eyesore.no>
  
  	* gnus.texi (Summary Buffer Format): Addition.
