From: morioka <morioka>
Date: Thu, 25 Jan 1996 08:07:39 +0000 (+0000)
Subject: Don't use `equal' to compare strings.
X-Git-Tag: XEmacs-20_3-b27-viet~122
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ef8261a6eb6075f1ab0990335b4c238db4e09aea;p=elisp%2Fmu-cite.git

Don't use `equal' to compare strings.
---

diff --git a/tl-822.el b/tl-822.el
index 89143bf..b400f2e 100644
--- a/tl-822.el
+++ b/tl-822.el
@@ -2,20 +2,35 @@
 ;;; tl-822.el --- RFC 822 parser for GNU Emacs
 ;;;
 ;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1995 MORIOKA Tomohiko
+;;; Copyright (C) 1995,1996 MORIOKA Tomohiko
 ;;;
 ;;; Author:   MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Keywords: mail, news, RFC 822
 ;;;
-;;; This file is part of tm (Tools for MIME).
+;;; This file is part of tl (Tiny Library).
 ;;;
+;;; This program is free software; you can redistribute it and/or
+;;; modify it under the terms of the GNU General Public License as
+;;; published by the Free Software Foundation; either version 2, or
+;;; (at your option) any later version.
+;;;
+;;; This program is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;;; General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with This program.  If not, write to the Free Software
+;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;;;
+;;; Code:
 
 (require 'tl-seq)
 (require 'tl-str)
 
 
 (defconst rfc822/RCS-ID
-  "$Id: tl-822.el,v 7.2 1996-01-18 14:48:33 morioka Exp $")
+  "$Id: tl-822.el,v 7.3 1996-01-25 08:07:39 morioka Exp $")
 (defconst rfc822/version (get-version-string rfc822/RCS-ID))
 
 
@@ -388,7 +403,7 @@
 	  (setq lal (cdr ret))
 	  (while (and (setq ret (rfc822/parse-token lal))
 		      (setq dot (car ret))
-		      (equal (cdr (assq 'specials dot)) ".")
+		      (string-equal (cdr (assq 'specials dot)) ".")
 		      (setq ret (rfc822/parse-word (cdr ret)))
 		      (setq local-part
 			    (append local-part dot (cdr (car ret)))
@@ -417,7 +432,7 @@
 	  (setq lal (cdr ret))
 	  (while (and (setq ret (rfc822/parse-token lal))
 		      (setq dot (car ret))
-		      (equal (cdr (assq 'specials dot)) ".")
+		      (string-equal (cdr (assq 'specials dot)) ".")
 		      (setq ret (rfc822/parse-sub-domain (cdr ret)))
 		      (setq domain
 			    (append domain dot (cdr (car ret)))
@@ -431,7 +446,7 @@
   (let ((ret (rfc822/parse-token lal)) at-sign)
     (if (and ret
 	     (setq at-sign (car ret))
-	     (equal (cdr (assq 'specials at-sign)) "@")
+	     (string-equal (cdr (assq 'specials at-sign)) "@")
 	     (setq ret (rfc822/parse-domain (cdr ret)))
 	     )
 	(cons (cons 'at-domain (append at-sign (cdr (car ret))))
@@ -461,7 +476,7 @@
 	       (setq lal (cdr ret))
 	       (while (and (setq ret (rfc822/parse-token lal))
 			   (setq comma (car ret))
-			   (equal (cdr (assq 'specials comma)) ",")
+			   (string-equal (cdr (assq 'specials comma)) ",")
 			   (setq ret (rfc822/parse-at-domain (cdr ret)))
 			   )
 		 (setq route (append route comma (cdr (car ret))))
@@ -469,7 +484,7 @@
 		 )
 	       (and (setq ret (rfc822/parse-token lal))
 		    (setq colon (car ret))
-		    (equal (cdr (assq 'specials colon)) ":")
+		    (string-equal (cdr (assq 'specials colon)) ":")
 		    (setq route (append route colon))
 		    )
 	       ))
@@ -483,7 +498,7 @@
 	< route addr-spec >)
     (if (and ret
 	     (setq < (car ret))
-	     (equal (cdr (assq 'specials <)) "<")
+	     (string-equal (cdr (assq 'specials <)) "<")
 	     (setq lal (cdr ret))
 	     (progn (and (setq ret (rfc822/parse-route lal))
 			 (setq route (cdr (car ret)))
@@ -495,7 +510,7 @@
 	     (setq lal (cdr ret))
 	     (setq ret (rfc822/parse-token lal))
 	     (setq > (car ret))
-	     (equal (cdr (assq 'specials >)) ">")
+	     (string-equal (cdr (assq 'specials >)) ">")
 	     )
 	(cons (cons 'route-addr (append route addr-spec))
 	      (cdr ret)
@@ -541,7 +556,7 @@
 	     (setq lal (cdr ret))
 	     (setq ret (rfc822/parse-token lal))
 	     (setq colon (car ret))
-	     (equal (cdr (assq 'specials colon)) ":")
+	     (string-equal (cdr (assq 'specials colon)) ":")
 	     (setq lal (cdr ret))
 	     (progn
 	       (and (setq ret (rfc822/parse-mailbox lal))
@@ -550,7 +565,8 @@
 		    (progn
 		      (while (and (setq ret (rfc822/parse-token lal))
 				  (setq comma (car ret))
-				  (equal (cdr (assq 'specials comma)) ",")
+				  (string-equal
+				   (cdr (assq 'specials comma)) ",")
 				  (setq lal (cdr ret))
 				  (setq ret (rfc822/parse-mailbox lal))
 				  (setq mbox (cons (car ret) mbox))
@@ -559,7 +575,7 @@
 			)))
 	       (and (setq ret (rfc822/parse-token lal))
 		    (setq semicolon (car ret))
-		    (equal (cdr (assq 'specials semicolon)) ";")
+		    (string-equal (cdr (assq 'specials semicolon)) ";")
 		    )))
 	(cons (list 'group phrase (reverse mbox))
 	      (cdr ret)
@@ -577,7 +593,7 @@
 	(let ((dest (list (car ret))))
 	  (setq lal (cdr ret))
 	  (while (and (setq ret (rfc822/parse-token lal))
-		      (equal (cdr (assq 'specials (car ret))) ",")
+		      (string-equal (cdr (assq 'specials (car ret))) ",")
 		      (setq ret (rfc822/parse-address (cdr ret)))
 		      )
 	    (setq dest (cons (car ret) dest))
@@ -641,3 +657,5 @@ If no name can be extracted, FULL-NAME will be nil. [tl-822.el]"
 ;;;
 
 (provide 'tl-822)
+
+;;; tl-822.el ends here