mmbuffer.el

   1 ;;; mmbuffer.el --- MIME entity module for binary buffer
   2
   3 ;; Copyright (C) 1998,1999 Free Software Foundation, Inc.
   4
   5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
   6 ;; Keywords: MIME, multimedia, mail, news
   7
   8 ;; This file is part of FLIM (Faithful Library about Internet Message).
   9
  10 ;; This program is free software; you can redistribute it and/or
  11 ;; modify it under the terms of the GNU General Public License as
  12 ;; published by the Free Software Foundation; either version 2, or (at
  13 ;; your option) any later version.
  14
  15 ;; This program is distributed in the hope that it will be useful, but
  16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  18 ;; General Public License for more details.
  19
  20 ;; You should have received a copy of the GNU General Public License
  21 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  23 ;; Boston, MA 02111-1307, USA.
  24
  25 ;;; Code:
  26
  27 (require 'mmgeneric)
  28
  29 (mm-define-backend buffer (generic))
  30
  31 (mm-define-method initialize-instance ((entity buffer))
  32   (mime-entity-set-buffer-internal
  33    entity (mime-entity-location-internal entity))
  34   (save-excursion
  35     (set-buffer (mime-entity-buffer-internal entity))
  36     (setq mime-message-structure entity)
  37     (let ((header-start (point-min))
  38           header-end
  39           body-start
  40           (body-end (point-max)))
  41       (goto-char header-start)
  42       (if (re-search-forward "^$" nil t)
  43           (setq header-end (match-end 0)
  44                 body-start (if (= header-end body-end)
  45                                body-end
  46                              (1+ header-end)))
  47         (setq header-end (point-min)
  48               body-start (point-min)))
  49       (save-restriction
  50         (narrow-to-region header-start header-end)
  51         (mime-entity-set-content-type-internal
  52          entity
  53          (let ((str (std11-fetch-field "Content-Type")))
  54            (if str
  55                (mime-parse-Content-Type str)
  56              )))
  57         )
  58       (mime-entity-set-header-start-internal entity header-start)
  59       (mime-entity-set-header-end-internal entity header-end)
  60       (mime-entity-set-body-start-internal entity body-start)
  61       (mime-entity-set-body-end-internal entity body-end)
  62       )))
  63
  64 ;;; redefine to speed up
  65
  66 (mm-define-method entity-point-min ((entity buffer))
  67   (mime-entity-header-start-internal entity))
  68
  69 (mm-define-method entity-point-max ((entity buffer))
  70   (mime-entity-body-end-internal entity))
  71
  72 (mm-define-method fetch-field ((entity buffer) field-name)
  73   (save-excursion
  74     (set-buffer (mime-entity-buffer-internal entity))
  75     (save-restriction
  76       (narrow-to-region (mime-entity-header-start-internal entity)
  77                         (mime-entity-header-end-internal entity))
  78       (std11-fetch-field field-name)
  79       )))
  80
  81 (mm-define-method entity-content ((entity buffer))
  82   (save-excursion
  83     (set-buffer (mime-entity-buffer-internal entity))
  84     (mime-decode-string
  85      (buffer-substring (mime-entity-body-start-internal entity)
  86                        (mime-entity-body-end-internal entity))
  87      (mime-entity-encoding entity))))
  88
  89 (mm-define-method insert-entity-content ((entity buffer))
  90   (insert (with-current-buffer (mime-entity-buffer-internal entity)
  91             (mime-decode-string
  92              (buffer-substring (mime-entity-body-start-internal entity)
  93                                (mime-entity-body-end-internal entity))
  94              (mime-entity-encoding entity)))))
  95
  96 (mm-define-method write-entity-content ((entity buffer) filename)
  97   (save-excursion
  98     (set-buffer (mime-entity-buffer-internal entity))
  99     (mime-write-decoded-region (mime-entity-body-start-internal entity)
 100                                (mime-entity-body-end-internal entity)
 101                                filename
 102                                (or (mime-entity-encoding entity) "7bit"))
 103     ))
 104
 105 (mm-define-method insert-entity ((entity buffer))
 106   (insert-buffer-substring (mime-entity-buffer-internal entity)
 107                            (mime-entity-header-start-internal entity)
 108                            (mime-entity-body-end-internal entity))
 109   )
 110
 111 (mm-define-method write-entity ((entity buffer) filename)
 112   (save-excursion
 113     (set-buffer (mime-entity-buffer-internal entity))
 114     (write-region-as-raw-text-CRLF (mime-entity-header-start-internal entity)
 115                                    (mime-entity-body-end-internal entity)
 116                                    filename)
 117     ))
 118
 119 (mm-define-method write-entity-body ((entity buffer) filename)
 120   (save-excursion
 121     (set-buffer (mime-entity-buffer-internal entity))
 122     (write-region-as-binary (mime-entity-body-start-internal entity)
 123                             (mime-entity-body-end-internal entity)
 124                             filename)
 125     ))
 126
 127
 128 ;;; @ end
 129 ;;;
 130
 131 (provide 'mmbuffer)
 132
 133 ;;; mmbuffer.el ends here