gnus/gnus-msg-mime.el

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