From: tomo <tomo>
Date: Tue, 19 Dec 2000 05:26:19 +0000 (+0000)
Subject: New file.
X-Git-Tag: semi21-1_14_0-1~23
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2bd1da3c9fd5f21375f0b02d2aa9b160caa49923;p=elisp%2Flemi.git

New file.
---

diff --git a/mime/emh-def.el b/mime/emh-def.el
new file mode 100644
index 0000000..cf80a48
--- /dev/null
+++ b/mime/emh-def.el
@@ -0,0 +1,41 @@
+;;; emh-def.el --- definition for emh
+
+;; Copyright (C) 2000 Free Software Foundation, Inc.
+
+;; Author: MORIOKA Tomohiko <tomo@m17n.org>
+;; Keywords: mail composing, MH, MIME, mail
+
+;; This file is part of emh.
+
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 2, or (at
+;; your option) any later version.
+
+;; This program is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Code:
+
+(or (fboundp 'find-face)
+    (defun find-face (face-or-name)
+      "Retrieve the face of the given name.
+If FACE-OR-NAME is a face object, it is simply returned.
+Otherwise, FACE-OR-NAME should be a symbol.  If there is no such face,
+nil is returned.  Otherwise the associated face object is returned."
+      (car (memq face-or-name (face-list)))))
+
+
+;;; @ end
+;;;
+
+(provide 'emh-def)
+
+;;; emh-def.el ends here