2001-03-31 21:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	From Gerd Moellmann <gerd@gnu.org>.

	* gnus.el (gnus-interactive): A typo.

2001-03-26  Juanma Barranquero  <lektu@uol.com.br>
	Committed by ShengHuo ZHU  <zsh@cs.rochester.edu>

	* gnus-util.el (gnus-delete-alist): Declare it as an alias of
	`assq-delete-all', if that function exists; otherwise use the old
	definition. Documentation changed to match the one in
	`assq-delete-all'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8280c4e..db1f729 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,16 @@
+2001-03-31 21:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+       From Gerd Moellmann <gerd@gnu.org>.
+
+       * gnus.el (gnus-interactive): A typo.
+
+2001-03-26  Juanma Barranquero  <lektu@uol.com.br>
+       Committed by ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-util.el (gnus-delete-alist): Declare it as an alias of
+       `assq-delete-all', if that function exists; otherwise use the old
+       definition. Documentation changed to match the one in
+       `assq-delete-all'.
+       
 2001-04-01 00:37:14  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-start.el (gnus-close-all-servers): New function.

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 8c087b5..174f2fb 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -907,12 +907,15 @@ Entries without port tokens default to DEFAULTPORT."
       (pop list))
     (nreverse out)))
 
-(defun gnus-delete-alist (key alist)
-  "Delete all entries in ALIST that have a key eq to KEY."
-  (let (entry)
-    (while (setq entry (assq key alist))
-      (setq alist (delq entry alist)))
-    alist))
+(if (fboundp 'assq-delete-all)
+    (defalias 'gnus-delete-alist 'assq-delete-all)
+  (defun gnus-delete-alist (key alist)
+    "Delete from ALIST all elements whose car is KEY.
+Return the modified alist."
+    (let (entry)
+      (while (setq entry (assq key alist))
+        (setq alist (delq entry alist)))
+      alist)))
 
 (defmacro gnus-pull (key alist &optional assoc-p)
   "Modify ALIST to be without KEY."

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 93beb9b..8718565 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -2420,8 +2420,8 @@ g -- Group name."
        out)
       (cond
        ((= c ?r)
-       (push (if (< (point) (mark) (point) (mark))) out)
-       (push (if (> (point) (mark) (point) (mark))) out))))
+       (push (if (< (point) (mark)) (point) (mark)) out)
+       (push (if (> (point) (mark)) (point) (mark)) out))))
     (setq out (delq 'gnus-prefix-nil out))
     (nreverse out)))