From: kaoru <kaoru>
Date: Fri, 1 Jan 2010 08:05:04 +0000 (+0000)
Subject: * wl-util.el (wl-collect-summary): Use `eq' instead of `equal' for symbol.
X-Git-Tag: elmo-imap4-compliance-root~78
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=91abfd72b0a08cd68534ad7cf4f925883b3ebdf6;p=elisp%2Fwanderlust.git

* wl-util.el (wl-collect-summary): Use `eq' instead of `equal' for symbol.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index b9c9fb7..9ccbd73 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -5,6 +5,9 @@
 	* wl-action.el (wl-summary-auto-refile): Use `goto-char' instead
 	of `goto-line'.
 
+	* wl-util.el (wl-collect-summary): Use `eq' instead of `equal' for
+	symbol.
+
 2009-12-16  Lloyd Zusman <ljz@asfast.com>
 
 	* wl-summary.el (wl-summary-detect-mark-position): Force
diff --git a/wl/wl-util.el b/wl/wl-util.el
index 3fdf251..d5288a0 100644
--- a/wl/wl-util.el
+++ b/wl/wl-util.el
@@ -521,7 +521,7 @@ that `read' can handle, whenever this is possible."
 					(buffer-name x))
 			  (save-excursion
 			    (set-buffer x)
-			    (equal major-mode 'wl-summary-mode)))
+			    (eq major-mode 'wl-summary-mode)))
 		     (setq result (nconc result (list x))))))
      (buffer-list))
     result))