Mercurial > emacs
comparison lisp/mh-e/mh-identity.el @ 67760:9c3504ae6060
Follow MH-E Developers Guide conventions. Use `' quotes for Help
hyperlinks such as symbols, Info nodes, or URLs. Use \" quotes for
everything else. Otherwise, you can accidently get links to
nonsense symbols.
| author | Bill Wohler <wohler@newt.com> |
|---|---|
| date | Fri, 23 Dec 2005 08:40:31 +0000 |
| parents | 6b063593fdad |
| children | bbc0e52abce5 |
comparison
equal
deleted
inserted
replaced
| 67759:b7b75914a27d | 67760:9c3504ae6060 |
|---|---|
| 120 "Marker for the end of a signature inserted by `mh-insert-identity'.") | 120 "Marker for the end of a signature inserted by `mh-insert-identity'.") |
| 121 | 121 |
| 122 (defun mh-identity-field-handler (field) | 122 (defun mh-identity-field-handler (field) |
| 123 "Return the handler for header FIELD or nil if none set. | 123 "Return the handler for header FIELD or nil if none set. |
| 124 The field name is downcased. If the FIELD begins with the | 124 The field name is downcased. If the FIELD begins with the |
| 125 character `:', then it must have a special handler defined in | 125 character \":\", then it must have a special handler defined in |
| 126 `mh-identity-handlers', else return an error since it is not a | 126 `mh-identity-handlers', else return an error since it is not a |
| 127 valid header field." | 127 valid header field." |
| 128 (or (cdr (mh-assoc-ignore-case field mh-identity-handlers)) | 128 (or (cdr (mh-assoc-ignore-case field mh-identity-handlers)) |
| 129 (and (eq (aref field 0) ?:) | 129 (and (eq (aref field 0) ?:) |
| 130 (error "Field %s - unknown mh-identity-handler" field)) | 130 (error "Field %s - unknown mh-identity-handler" field)) |