gnus/message-mime.el

   1 ;;;
   2 ;;; message-mime.el --- MIME extensions for message.el
   3 ;;;
   4 ;;; Copyright (C) 1996 Free Software Foundation, Inc.
   5 ;;;
   6 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
   7 ;;; Created: 1996/8/6
   8 ;;; Version:
   9 ;;;     $Id: message-mime.el,v 0.2 1996/08/07 16:33:30 morioka Exp $
  10 ;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
  11 ;;;
  12 ;;; This file is not part of GNU Emacs yet.
  13 ;;;
  14 ;;; This program is free software; you can redistribute it and/or
  15 ;;; modify it under the terms of the GNU General Public License as
  16 ;;; published by the Free Software Foundation; either version 2, or
  17 ;;; (at your option) any later version.
  18 ;;;
  19 ;;; This program is distributed in the hope that it will be useful,
  20 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  21 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  22 ;;; General Public License for more details.
  23 ;;;
  24 ;;; You should have received a copy of the GNU General Public License
  25 ;;; along with This program.  If not, write to the Free Software
  26 ;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  27 ;;;
  28 ;;; Code:
  29
  30 ;;; @ for tm-edit
  31 ;;;
  32
  33 ;; suggested by OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
  34 ;;      1995/11/08 (c.f. [tm ML:1067])
  35 (defun message-mime-insert-article (&optional message)
  36   (interactive)
  37   (let ((message-cite-function 'mime-editor/inserted-message-filter)
  38         (message-reply-buffer gnus-original-article-buffer)
  39         )
  40     (message-yank-original nil)
  41     ))
  42
  43 (call-after-loaded
  44  'tm-edit
  45  (function
  46   (lambda ()
  47     (set-alist 'mime-editor/message-inserter-alist
  48                'message-mode (function message-mime-insert-article))
  49     (set-alist 'mime-editor/split-message-sender-alist
  50                'message-mode
  51                (lambda ()
  52                  (interactive)
  53                  (let (message-send-hook
  54                        message-sent-message-via)
  55                    (message-send)
  56                    )))
  57     )))
  58
  59
  60 ;;; @ end
  61 ;;;
  62
  63 (provide 'message-mime)
  64
  65 ;;; message-mime.el ends here