From 1856c67a973186053b92cb806d4b3b62379d4f73 Mon Sep 17 00:00:00 2001 From: keiichi Date: Thu, 23 Dec 1999 10:22:16 +0000 Subject: [PATCH] Copy from Nana-gnus 6.13. (mime-gnus-handle-entity): New class. (mime-gnus-entity): Use `mime-gnus-handle-entity'. --- lisp/mmgnus.el | 60 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 60 insertions(+) create mode 100644 lisp/mmgnus.el diff --git a/lisp/mmgnus.el b/lisp/mmgnus.el new file mode 100644 index 0000000..d33de8e --- /dev/null +++ b/lisp/mmgnus.el @@ -0,0 +1,60 @@ +;;; mmgnus.el --- MIME entity implementation for gnus-article + +;; Copyright (C) 1998 Free Software Foundation, Inc. + +;; Author: MORIOKA Tomohiko +;; Keiichi Suzuki +;; Keywords: MIME, multimedia, mail, news + +;; This file is part of Nana-gnus. + +;; 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: + +(require 'mmbuffer) + +(luna-define-class mime-gnus-handle-entity (mime-buffer-entity) + (undisplayer content-description cache content-id)) + +(luna-define-internal-accessors 'mime-gnus-handle-entity) + +(luna-define-method initialize-instance ((entity mime-gnus-handle-entity) + &rest init-args) + (apply (car (luna-class-find-functions + (luna-find-class 'standard-object) + 'initialize-instance)) + entity init-args)) + +(luna-define-class mime-gnus-entity (mime-gnus-handle-entity) + (number + subject from date id references chars lines xref extra)) + +(luna-define-internal-accessors 'mime-gnus-entity) + +(luna-define-method initialize-instance ((entity mime-gnus-entity) + &rest init-args) + (apply (car (luna-class-find-functions + (luna-find-class 'standard-object) + 'initialize-instance)) + entity init-args)) + +;;; @ end +;;; + +(provide 'mmgnus) + +;;; mmgnus.el ends here -- 1.7.10.4