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) |