1 |
;;; mh-identity.el --- Multiple identify support for MH-E. |
;;; mh-identity.el --- Multiple identify support for MH-E. |
2 |
|
|
3 |
;; Copyright (C) 2002, 2003, 2004 Free Software Foundation, Inc. |
;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Peter S. Galbraith <psg@debian.org> |
;; Author: Peter S. Galbraith <psg@debian.org> |
6 |
;; Maintainer: Bill Wohler <wohler@newt.com> |
;; Maintainer: Bill Wohler <wohler@newt.com> |
122 |
"Return the handler for a FIELD or nil if none set. |
"Return the handler for a FIELD or nil if none set. |
123 |
The field name is downcased. If the FIELD begins with the character |
The field name is downcased. If the FIELD begins with the character |
124 |
`:', then it must have a special handler defined in |
`:', then it must have a special handler defined in |
125 |
`mh-identity-handlers', else return an error since it is not a legal |
`mh-identity-handlers', else return an error since it is not a valid |
126 |
message header." |
message header." |
127 |
(or (cdr (assoc (downcase field) mh-identity-handlers)) |
(or (cdr (assoc (downcase field) mh-identity-handlers)) |
128 |
(and (eq (aref field 0) ?:) |
(and (eq (aref field 0) ?:) |