*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6761a3f..1767154 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,25 @@
+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.
 
        * gnus-xmas.el (gnus-xmas-logo-colors): New variable.

diff --git a/lisp/gnus-cite.el b/lisp/gnus-cite.el
index b7488df..e9b610a 100644 (file)
--- a/lisp/gnus-cite.el
+++ b/lisp/gnus-cite.el
@@ -332,7 +332,7 @@ always hide."
            (forward-line gnus-cited-lines-visible)
            (if (> (point) end)
                (setq beg nil)
-             (setq beg (point))))
+             (setq beg (point-marker))))
          (when (and beg end)
            (gnus-add-text-properties beg end props)
            (goto-char beg)

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index bd8f671..43b1d70 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -114,7 +114,7 @@ the group.")
 (gnus-define-keys
  (gnus-send-bounce-map "D" gnus-summary-send-map)
  "b" gnus-summary-resend-bounced-mail
- "c" gnus-summary-send-draft
+; "c" gnus-summary-send-draft
  "r" gnus-summary-resend-message)
 
 ;;; Internal functions.

diff --git a/lisp/gnus-topic.el b/lisp/gnus-topic.el
index 14936c8..ab9a6fb 100644 (file)
--- a/lisp/gnus-topic.el
+++ b/lisp/gnus-topic.el
@@ -532,7 +532,7 @@ articles in the topic and its subtopics."
                gnus-active-hashtb)
       (setq groups (sort groups 'string<))
       ;; Init the variables.
-      (setq gnus-topic-active-topology '(("" visible)))
+      (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)

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 2793693..cba6d67 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -356,7 +356,7 @@ It uses the same syntax as the `gnus-split-methods' variable.")
 (defvar gnus-use-adaptive-scoring nil
   "*If non-nil, use some adaptive scoring scheme.")
 
-(defvar gnus-use-cache nil
+(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,7 +1723,7 @@ variable (string, integer, character, etc).")
   "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)"
   "The mail address of the Gnus maintainers.")
 
-(defconst gnus-version "September Gnus v0.96"
+(defconst gnus-version "September Gnus v0.97"
   "Version number for this version of Gnus.")
 
 (defvar gnus-info-nodes
@@ -8295,8 +8295,8 @@ If NO-DISPLAY, don't generate a summary buffer."
 (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))))
+   (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,12 +12837,19 @@ Argument REVERSE means reverse order."
 (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))))
-
+  (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,7 +13570,7 @@ The following commands are available:
       ;; 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)
+                ;;(numberp article)
                 (equal (buffer-name (current-buffer))
                        (buffer-name (get-buffer gnus-article-buffer))))
        (save-excursion

diff --git a/lisp/message.el b/lisp/message.el
index 8adec81..9888bac 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1348,8 +1348,15 @@ the user from the mailer."
 
 (defun message-send-mail-with-mh ()
   "Send the prepared message buffer with mh."
-  (let (mh-previous-window-config)
-    (mh-send-letter)))
+  (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,17 +1632,19 @@ the user from the mailer."
        (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))))))
+   (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."

diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index 896e883..18778d4 100644 (file)
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -285,9 +285,11 @@ parameter.  It should return nil, `warn' or `delete'.")
   "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)))
+  (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."

diff --git a/texi/ChangeLog b/texi/ChangeLog
index 17e58f0..a057135 100644 (file)
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -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.

diff --git a/texi/gnus.texi b/texi/gnus.texi
index 8043443..48c9efc 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -2941,6 +2941,16 @@ Scroll the current article back one page (@code{gnus-summary-prev-page}).
 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)
@@ -5166,14 +5176,6 @@ Remove page breaks from the current article
 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)
 @findex gnus-summary-toggle-header