Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

*** empty log message ***

  • Loading branch information...
commit 04a9c831534193e02642c791e2b08dc363b9b674 1 parent 4816a57
@larsmagne larsmagne authored
View
16 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.
View
4 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
View
1  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
View
6 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))))
View
1  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)
View
2  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)
View
6 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
View
6 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.
Please sign in to comment.
Something went wrong with that request. Please try again.