Mercurial > emacs
comparison lisp/mh-e/mh-identity.el @ 63498:42fdfa5aeb2a
(mh-identity-field-handler): Don't use `format' on `error' arguments.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Thu, 16 Jun 2005 15:04:00 +0000 |
parents | aa8c2e12ee24 |
children | 18a818a2ee7c b7da78284d4c |
comparison
equal
deleted
inserted
replaced
63497:6e853e3f900e | 63498:42fdfa5aeb2a |
---|---|
124 `:', then it must have a special handler defined in | 124 `:', then it must have a special handler defined in |
125 `mh-identity-handlers', else return an error since it is not a valid | 125 `mh-identity-handlers', else return an error since it is not a valid |
126 header field." | 126 header field." |
127 (or (cdr (assoc (downcase field) mh-identity-handlers)) | 127 (or (cdr (assoc (downcase field) mh-identity-handlers)) |
128 (and (eq (aref field 0) ?:) | 128 (and (eq (aref field 0) ?:) |
129 (error (format "Field %s - unknown mh-identity-handler" field))) | 129 (error "Field %s - unknown mh-identity-handler" field)) |
130 (cdr (assoc ":default" mh-identity-handlers)) | 130 (cdr (assoc ":default" mh-identity-handlers)) |
131 'mh-identity-handler-default)) | 131 'mh-identity-handler-default)) |
132 | 132 |
133 ;;;###mh-autoload | 133 ;;;###mh-autoload |
134 (defun mh-insert-identity (identity) | 134 (defun mh-insert-identity (identity) |