gnus/gnus-msg-mime.el

   1 ;;;
   2 ;;; gnus-msg-mime.el --- MIME extensions
   3 ;;;                      for mail and post interface of Gnus
   4 ;;;
   5 ;;; Copyright (C) 1996 Free Software Foundation, Inc.
   6 ;;;
   7 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
   8 ;;; Created: 1996/8/8
   9 ;;; Version:
  10 ;;;     $Id: gnus-msg-mime.el,v 0.1 1996/08/08 15:49:36 morioka Exp $
  11 ;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
  12 ;;;
  13 ;;; This file is not part of GNU Emacs yet.
  14 ;;;
  15 ;;; This program is free software; you can redistribute it and/or
  16 ;;; modify it under the terms of the GNU General Public License as
  17 ;;; published by the Free Software Foundation; either version 2, or
  18 ;;; (at your option) any later version.
  19 ;;;
  20 ;;; This program is distributed in the hope that it will be useful,
  21 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  22 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  23 ;;; General Public License for more details.
  24 ;;;
  25 ;;; You should have received a copy of the GNU General Public License
  26 ;;; along with This program.  If not, write to the Free Software
  27 ;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  28 ;;;
  29 ;;; Code:
  30
  31 (require 'gnus-msg)
  32
  33 (defun gnus-copy-article-buffer-with-no-filter ()
  34   ;; make a copy of the article buffer with all text properties removed
  35   ;; this copy is in the buffer gnus-article-copy.
  36   ;; if ARTICLE-BUFFER is nil, gnus-article-buffer is used
  37   ;; this buffer should be passed to all mail/news reply/post routines.
  38   (setq gnus-article-copy (get-buffer-create " *gnus article copy*"))
  39   (buffer-disable-undo gnus-article-copy)
  40   (or (memq gnus-article-copy gnus-buffer-list)
  41       (setq gnus-buffer-list (cons gnus-article-copy gnus-buffer-list)))
  42   (let (mime-viewer/plain-text-preview-hook
  43         (mime-viewer/ignored-field-regexp "^:$"))
  44     (save-window-excursion
  45       (mime/viewer-mode nil nil nil
  46                         gnus-original-article-buffer gnus-article-copy)
  47       )
  48     gnus-article-copy))
  49
  50
  51 ;;(fset 'gnus-copy-article-buffer 'gnus-copy-article-buffer-with-no-filter)
  52
  53
  54 ;;; @ end
  55 ;;;
  56
  57 (provide 'gnus-msg-mime)
  58
  59 ;;; gnus-msg-mime.el ends here