2001-08-23 19:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	From Katsumi Yamaoka <yamaoka@jpl.org>

	* gnus-spec.el (gnus-parse-complex-format): Use equal.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 14375eb..777f458 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-08-23 19:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+       From Katsumi Yamaoka <yamaoka@jpl.org>
+
+       * gnus-spec.el (gnus-parse-complex-format): Use equal.
+
 2001-08-23 18:43:05  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-sum.el (gnus-select-newsgroup): Use it.

diff --git a/lisp/gnus-spec.el b/lisp/gnus-spec.el
index 9366e8b..781823e 100644 (file)
--- a/lisp/gnus-spec.el
+++ b/lisp/gnus-spec.el
@@ -423,7 +423,7 @@
     (goto-char (point-min))
     (let ((form (read (current-buffer))))
       ;; If the first element is '(point), we just remove it.
-      (when (equalp (car form) '(point))
+      (when (equal (car form) '(point))
        (pop form))
       (cons 'progn (gnus-complex-form-to-spec form spec-alist)))))