Mercurial > emacs
comparison lisp/mh-e/mh-identity.el @ 60921:78e08044a734
* mh-e.el, mh-identity.el, mh-mime.el: Replace `legal' with `valid'.
author | Werner LEMBERG <wl@gnu.org> |
---|---|
date | Fri, 25 Mar 2005 09:51:55 +0000 |
parents | 72a02133177e |
children | 4f4f410e6fe8 4da4a09e8b1b |
comparison
equal
deleted
inserted
replaced
60920:242e5edee3ce | 60921:78e08044a734 |
---|---|
1 ;;; mh-identity.el --- Multiple identify support for MH-E. | 1 ;;; mh-identity.el --- Multiple identify support for MH-E. |
2 | 2 |
3 ;; Copyright (C) 2002, 2003, 2004 Free Software Foundation, Inc. | 3 ;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. |
4 | 4 |
5 ;; Author: Peter S. Galbraith <psg@debian.org> | 5 ;; Author: Peter S. Galbraith <psg@debian.org> |
6 ;; Maintainer: Bill Wohler <wohler@newt.com> | 6 ;; Maintainer: Bill Wohler <wohler@newt.com> |
7 ;; Keywords: mail | 7 ;; Keywords: mail |
8 ;; See: mh-e.el | 8 ;; See: mh-e.el |
120 | 120 |
121 (defun mh-identity-field-handler (field) | 121 (defun mh-identity-field-handler (field) |
122 "Return the handler for a FIELD or nil if none set. | 122 "Return the handler for a FIELD or nil if none set. |
123 The field name is downcased. If the FIELD begins with the character | 123 The field name is downcased. If the FIELD begins with the character |
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 legal | 125 `mh-identity-handlers', else return an error since it is not a valid |
126 message header." | 126 message header." |
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 (format "Field %s - unknown mh-identity-handler" field))) |
130 (cdr (assoc ":default" mh-identity-handlers)) | 130 (cdr (assoc ":default" mh-identity-handlers)) |