*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5cfb4e1..ad318b0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,19 @@
+Tue Jul  1 01:51:24 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+
+       * gnus.el: Gnus v5.4.61 is released.
+
+Tue Jul  1 01:33:39 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * gnus-sum.el (gnus-adjust-marked-articles): Typo.
+
+Tue Jul  1 00:56:21 1997  Gary D. Foster  <Gary.Foster@corp.sun.com>
+
+       * gnus-topic.el (gnus-topic-mode-map): [delete].
+
+Tue Jul  1 00:53:04 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * gnus-demon.el (gnus-demon): Make sure Emacs really is idle.
+
 Sun Jun 29 21:32:13 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
        * gnus.el: Gnus v5.4.60 is released.

diff --git a/lisp/gnus-demon.el b/lisp/gnus-demon.el
index c7867a7..d04db0a 100644 (file)
--- a/lisp/gnus-demon.el
+++ b/lisp/gnus-demon.el
@@ -223,7 +223,8 @@ time Emacs has been idle for IDLE `gnus-demon-timestep's."
         ((null (setq idle (nth 2 handler)))
          ;; We do nothing.
          )
-        ((not (numberp idle))
+        ((and (not (numberp idle))
+              (gnus-demon-is-idle-p))
          ;; We want to call this handler each and every time that
          ;; Emacs is idle.
          (ignore-errors (funcall (car handler))))
@@ -232,6 +233,7 @@ time Emacs has been idle for IDLE `gnus-demon-timestep's."
          ;; for a specified number of timesteps.
          (and (not (memq (car handler) gnus-demon-idle-has-been-called))
               (< idle gnus-demon-idle-time)
+              (gnus-demon-is-idle-p)
               (progn
                 (ignore-errors (funcall (car handler)))
                 ;; Make sure the handler won't be called once more in

diff --git a/lisp/gnus-srvr.el b/lisp/gnus-srvr.el
index c8b7813..4725fec 100644 (file)
--- a/lisp/gnus-srvr.el
+++ b/lisp/gnus-srvr.el
@@ -503,6 +503,7 @@ The following commands are available:
    "n" gnus-browse-next-group
    "p" gnus-browse-prev-group
    "\177" gnus-browse-prev-group
+   [delete] gnus-browse-prev-group
    "N" gnus-browse-next-group
    "P" gnus-browse-prev-group
    "\M-n" gnus-browse-next-group

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 27fbd28..678ad96 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -3826,8 +3826,8 @@ If READ-ALL is non-nil, all articles in the group are selected."
            (set var (delq article (symbol-value var))))))
        ;; Adjust assocs.
        ((memq mark uncompressed)
-       (when (not (listp (car (symbol-value var)))))
-         (set var (list (symbol-value var)))
+       (when (not (listp (cdr (symbol-value var))))
+         (set var (list (symbol-value var))))
        (when (not (listp (cdr articles)))
          (setq articles (list articles)))
        (while articles
@@ -5001,7 +5001,7 @@ which existed when entering the ephemeral is reset."
   (suppress-keymap gnus-dead-summary-mode-map)
   (substitute-key-definition
    'undefined 'gnus-summary-wake-up-the-dead gnus-dead-summary-mode-map)
-  (let ((keys '("\C-d" "\r" "\177")))
+  (let ((keys '("\C-d" "\r" "\177" [delete])))
     (while keys
       (define-key gnus-dead-summary-mode-map
        (pop keys) 'gnus-summary-wake-up-the-dead))))

diff --git a/lisp/gnus-topic.el b/lisp/gnus-topic.el
index b2a5d1c..b7f9142 100644 (file)
--- a/lisp/gnus-topic.el
+++ b/lisp/gnus-topic.el
@@ -894,6 +894,7 @@ articles in the topic and its subtopics."
     [tab] gnus-topic-indent
     "r" gnus-topic-rename
     "\177" gnus-topic-delete
+    [delete] gnus-topic-delete
     "h" gnus-topic-toggle-display-empty-topics)
 
   (gnus-define-keys (gnus-topic-sort-map "S" gnus-group-topic-map)

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 467b99a..b140b95 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -238,7 +238,7 @@ is restarted, and sometimes reloaded."
   :link '(custom-manual "(gnus)Exiting Gnus")
   :group 'gnus)
 
-(defconst gnus-version-number "5.4.60"
+(defconst gnus-version-number "5.4.61"
   "Version number for this version of Gnus.")
 
 (defconst gnus-version (format "Gnus v%s" gnus-version-number)

diff --git a/texi/gnus.texi b/texi/gnus.texi
index 90b6c2a..ca6c22e 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -1,7 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename gnus
-@settitle Gnus 5.4.60 Manual
+@settitle Gnus 5.4.61 Manual
 @synindex fn cp
 @synindex vr cp
 @synindex pg cp
@@ -309,7 +309,7 @@ into another language, under the above conditions for modified versions.
 @tex
 
 @titlepage
-@title Gnus 5.4.60 Manual
+@title Gnus 5.4.61 Manual
 
 @author by Lars Magne Ingebrigtsen
 @page
@@ -345,7 +345,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.60.
+This manual corresponds to Gnus 5.4.61.
 
 @end ifinfo
 

diff --git a/texi/message.texi b/texi/message.texi
index 5530719..a65825c 100644 (file)
--- a/texi/message.texi
+++ b/texi/message.texi
@@ -1,7 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename message
-@settitle Message 5.4.60 Manual
+@settitle Message 5.4.61 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.60 Manual
+@title Message 5.4.61 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.60.  Message is distributed with
+This manual corresponds to Message 5.4.61.  Message is distributed with
 the Gnus distribution bearing the same version number as this manual
 has.