*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f7e581e..25da608 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,29 @@
+Sat May 10 00:37:32 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+
+       * gnus.el: Gnus v5.4.52 is released.
+
+Sat May 10 00:13:30 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * nnfolder.el (nnfolder-possibly-change-group): Set wrong
+       variable. 
+
+       * gnus-art.el (gnus-article-edit-article): Remove invisible text
+       under XEmacs.
+       (gnus-article-treat-html): Insert string.
+
+Thu May  8 10:53:12 1997  Steven L Baur  <steve@altair.xemacs.org>
+
+       * gnus-msg.el (gnus-summary-mail-crosspost-complaint):
+       `deactivate-mark' doesn't exist in XEmacs.
+
+Fri May  9 23:50:01 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * gnus-topic.el (gnus-topic-create-topic): Added doc.
+
+       * gnus-sum.el (gnus-summary-refer-article): Insert sparse
+       non-displayed articles properly.
+       (gnus-cut-thread): Exclude non-displayed sparse articles.
+
 Thu May  8 17:37:38 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
        * gnus.el: Gnus v5.4.51 is released.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index df680e0..673b51c 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -1130,7 +1130,7 @@ Put point at the beginning of the signature separator."
          (setq buf (buffer-string))))
       (when buf
        (delete-region (point-min) (point-max))
-       (insert-buffer-substring buf)
+       (insert buf)
        (kill-buffer buf))
       (widen)
       (goto-char (point-min))
@@ -2464,7 +2464,7 @@ groups."
   (let ((winconf (current-window-configuration)))
     (set-buffer gnus-article-buffer)
     (gnus-article-edit-mode)
-    (set-text-properties (point-min) (point-max) nil)
+    (gnus-set-text-properties (point-min) (point-max) nil)
     (gnus-configure-windows 'edit-article)
     (setq gnus-article-edit-done-function exit-func)
     (setq gnus-prev-winconf winconf)

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 53d7622..d570eb5 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -691,7 +691,8 @@ The current group name will be inserted at \"%s\".")
          (message-goto-subject)
          (re-search-forward " *$")
          (replace-match " (crosspost notification)" t t)
-         (deactivate-mark)
+         (when (fboundp 'deactivate-mark)
+           (deactivate-mark))
          (when (gnus-y-or-n-p "Send this complaint? ")
            (message-send-and-exit)))))))
 

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index f683915..9ca241d 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -2014,7 +2014,7 @@ The following commands are available:
 
 (defmacro gnus-summary-article-sparse-p (article)
   "Say whether this article is a sparse article or not."
-  ` (memq ,article gnus-newsgroup-sparse))
+  `(memq ,article gnus-newsgroup-sparse))
 
 (defmacro gnus-summary-article-ancient-p (article)
   "Say whether this article is a sparse article or not."
@@ -5931,7 +5931,10 @@ If ALL, mark even excluded ticked and dormants as read."
              (mail-header-number (car thread))))
            (progn
              (if (<= (length (cdr thread)) 1)
-                 (setq thread (cadr thread))
+                 (setq gnus-newsgroup-limit
+                       (delq (mail-header-number (car thread))
+                             gnus-newsgroup-limit)
+                       thread (cadr thread))
                (when (gnus-invisible-cut-children (cdr thread))
                  (let ((th (cdr thread)))
                    (while th
@@ -5939,8 +5942,7 @@ If ALL, mark even excluded ticked and dormants as read."
                                gnus-newsgroup-limit)
                          (setq thread (car th)
                                th nil)
-                       (setq th (cdr th)))))))))
-      ))
+                       (setq th (cdr th)))))))))))
   thread)
 
 (defun gnus-cut-threads (threads)
@@ -6156,8 +6158,13 @@ or `gnus-select-method', no matter what backend the article comes from."
     (let* ((header (gnus-id-to-header message-id))
           (sparse (and header
                        (gnus-summary-article-sparse-p
-                        (mail-header-number header)))))
-      (if header
+                        (mail-header-number header))
+                       (memq (mail-header-number header)
+                             gnus-newsgroup-limit))))
+      (if (and header
+              (or (not (gnus-summary-article-sparse-p
+                        (mail-header-number header)))
+                  sparse))
          (prog1
               ;; The article is present in the buffer, so we just go to it.
              (gnus-summary-goto-article

diff --git a/lisp/gnus-topic.el b/lisp/gnus-topic.el
index ed02387..149708d 100644 (file)
--- a/lisp/gnus-topic.el
+++ b/lisp/gnus-topic.el
@@ -1024,6 +1024,8 @@ If performed over a topic line, toggle folding the topic."
     (gnus-group-read-group all no-article group)))
 
 (defun gnus-topic-create-topic (topic parent &optional previous full-topic)
+  "Create a new TOPIC under PARENT.
+When used interactively, PARENT will be the topic under point."
   (interactive
    (list
     (read-string "New topic: ")

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 055efc4..d41b199 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -226,7 +226,7 @@ is restarted, and sometimes reloaded."
   :link '(custom-manual "(gnus)Exiting Gnus")
   :group 'gnus)
 
-(defconst gnus-version-number "5.4.51"
+(defconst gnus-version-number "5.4.52"
   "Version number for this version of Gnus.")
 
 (defconst gnus-version (format "Gnus v%s" gnus-version-number)

diff --git a/lisp/nnfolder.el b/lisp/nnfolder.el
index ef1a674..40f421e 100644 (file)
--- a/lisp/nnfolder.el
+++ b/lisp/nnfolder.el
@@ -509,7 +509,7 @@ time saver for large mailboxes.")
 
     (if dont-check
        (setq nnfolder-current-group group
-             nnfolder-current-folder nil)
+             nnfolder-current-buffer nil)
       (let (inf file)
        ;; If we have to change groups, see if we don't already have the
        ;; folder in memory.  If we do, verify the modtime and destroy

diff --git a/texi/ChangeLog b/texi/ChangeLog
index 0bd48c8..c1068e6 100644 (file)
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,7 @@
+Thu May  8 23:48:36 1997  James Troup  <J.J.Troup@comp.brad.ac.uk>
+
+       * gnus.texi (Saving Articles): Typo.
+
 Wed May  7 19:00:48 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
 
        * gnus.texi (Saving Articles): Addition.

diff --git a/texi/gnus.texi b/texi/gnus.texi
index 8bc8dba..ea8e89a 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -1,7 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename gnus
-@settitle Gnus 5.4.51 Manual
+@settitle Gnus 5.4.52 Manual
 @synindex fn cp
 @synindex vr cp
 @synindex pg cp
@@ -287,7 +287,7 @@ into another language, under the above conditions for modified versions.
 @tex
 
 @titlepage
-@title Gnus 5.4.51 Manual
+@title Gnus 5.4.52 Manual
 
 @author by Lars Magne Ingebrigtsen
 @page
@@ -323,7 +323,7 @@ can be gotten by any nefarious means you can think of---@sc{nntp}, local
 spool or your mbox file.  All at the same time, if you want to push your
 luck.
 
-This manual corresponds to Gnus 5.4.51.
+This manual corresponds to Gnus 5.4.52.
 
 @end ifinfo
 
@@ -5236,7 +5236,7 @@ lots of mail groups that are called things like
 these group names before creating the file name to save to.  The
 following will do just that:
 
-1@lisp
+@lisp
 (defun my-save-name (group)
   (when (string-match "^nnml:mail." group)
     (substring group (match-end 0))))

diff --git a/texi/message.texi b/texi/message.texi
index 956a704..3790a61 100644 (file)
--- a/texi/message.texi
+++ b/texi/message.texi
@@ -1,7 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename message
-@settitle Message 5.4.51 Manual
+@settitle Message 5.4.52 Manual
 @synindex fn cp
 @synindex vr cp
 @synindex pg cp
@@ -39,7 +39,7 @@ into another language, under the above conditions for modified versions.
 @tex
 
 @titlepage
-@title Message 5.4.51 Manual
+@title Message 5.4.52 Manual
 
 @author by Lars Magne Ingebrigtsen
 @page
@@ -79,7 +79,7 @@ buffers.
 * Key Index::         List of Message mode keys.
 @end menu
 
-This manual corresponds to Message 5.4.51.  Message is distributed with
+This manual corresponds to Message 5.4.52.  Message is distributed with
 the Gnus distribution bearing the same version number as this manual
 has.