From a9b48564f24cb985941fee87e057dd1113954aa4 Mon Sep 17 00:00:00 2001 From: shuhei Date: Tue, 1 May 2001 10:52:49 +0000 Subject: [PATCH] (mime-parse-parameters): Don't use `equal' for strings. (mime-parse-Content-Type): Ditto. --- mime-parse.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/mime-parse.el b/mime-parse.el index d07821d..0ecc986 100644 --- a/mime-parse.el +++ b/mime-parse.el @@ -269,13 +269,15 @@ Return a property list, which is a list of the form \(PARAMETER-NAME1 VALUE1 PARAMETER-NAME2 VALUE2...)." (let (params attribute) (while (and tokens - (equal (car tokens) '(tspecials . ";")) + (eq (car (car tokens)) 'tspecials) + (string= (cdr (car tokens)) ";") (setq tokens (cdr tokens)) (eq (car (car tokens)) 'mime-token) (progn (setq attribute (cdr (car tokens))) (setq tokens (cdr tokens))) - (equal (car tokens) '(tspecials . "=")) + (eq (car (car tokens)) 'tspecials) + (string= (cdr (car tokens)) "=") (setq tokens (cdr tokens)) (memq (car (car tokens)) '(mime-token quoted-string))) (setq params (cons (if (eq (car (car tokens)) 'quoted-string) @@ -299,7 +301,8 @@ and `mime-content-type-parameter' to deal with it." (when (eq (car (car tokens)) 'mime-token) (let ((primary-type (cdr (car tokens)))) (setq tokens (cdr tokens)) - (when (and (equal (car tokens) '(tspecials . "/")) + (when (and (eq (car (car tokens)) 'tspecials) + (string= (cdr (car tokens)) "/") (setq tokens (cdr tokens)) (eq (car (car tokens)) 'mime-token)) (make-mime-content-type -- 1.7.10.4