;;; mime-text.el --- mime-view content filter for text
-;; Copyright (C) 1994,1995,1996,1997 Free Software Foundation, Inc.
+;; Copyright (C) 1994,1995,1996,1997,1998 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version:
-;; $Id: mime-text.el,v 0.23 1997-04-03 17:39:31 morioka Exp $
;; Keywords: text, MIME, multimedia, mail, news
-;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
+;; This file is part of SEMI (Suite of Emacs MIME Interfaces).
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
;;; Code:
+(require 'mime-view)
+
+
;;; @ buffer local variables in raw-buffer
;;;
-(defvar mime-text-decoder nil
- "Function to decode text in current buffer.
-Interface of the function is (CHARSET &optional ENCODING).
-CHARSET is symbol of MIME charset and ENCODING is value of
-Content-Transfer-Encoding.
-
+(defvar mime-raw-representation-type nil
+ "Representation-type of mime-raw-buffer.
+It must be nil, `binary' or `cooked'.
+If it is nil, `mime-raw-representation-type-alist' is used as default
+value.
Notice that this variable is usually used as buffer local variable in
raw-buffer.")
-(make-variable-buffer-local 'mime-text-decoder)
+(make-variable-buffer-local 'mime-raw-representation-type)
;;; @ code conversion
;;;
-(defvar mime-text-decoder-alist
- '((mime-show-message-mode . mime-text-decode-buffer)
- (mime-temp-message-mode . mime-text-decode-buffer)
- (t . mime-text-decode-buffer-maybe)
- )
- "Alist of major-mode vs. mime-text-decoder.
-Each element looks like (SYMBOL . FUNCTION). SYMBOL is major-mode or
-t. t means default.
-
-Specification of FUNCTION is described in DOC-string of variable
-`mime-text-decoder'.
-
-This value is overridden by buffer local variable `mime-text-decoder'
-if it is not nil.")
-
-(defun mime-text-decode-buffer (charset &optional encoding)
- "Decode text of current buffer as CHARSET.
-It code-converts current buffer from network representation specified
-by MIME CHARSET to internal code. CHARSET is symbol of MIME charset.
-See also variable `mime-charset-coding-system-alist'."
- (decode-mime-charset-region (point-min)(point-max)
- (or charset default-mime-charset))
- )
-
-(defun mime-text-decode-buffer-maybe (charset &optional encoding)
- "Decode text of current buffer as CHARSET if ENCODING is actual encoding.
-It code-converts current buffer from network representation specified
-by MIME CHARSET to internal code if ENCODING is not nil, \"7bit\",
-\"8bit\" or \"binary\". CHARSET is symbol of MIME charset.
-See also variable `mime-charset-coding-system-alist'."
- (or (member encoding '(nil "7bit" "8bit" "binary"))
- (mime-text-decode-buffer charset)
- ))
-
-(defun mime-decode-text-body (charset encoding)
- "Decode current buffer as text body.
-It decodes MIME-encoding as ENCODING then code-converts as MIME
-CHARSET. CHARSET is SYMBOL and ENCODING is nil or STRING.
-
-It calls text decoder for MIME charset specified by buffer local
-variable `mime-text-decoder' and variable `mime-text-decoder-alist'."
- (mime-decode-region (point-min) (point-max) encoding)
- (let ((text-decoder
+(defun mime-text-insert-decoded-body (entity)
+ "Insert text body of ENTITY in SITUATION.
+It decodes MIME-encoding then code-converts as MIME-charset.
+MIME-encoding is value of field 'encoding of SITUATION. It must be
+'nil or string. MIME-charset is value of field \"charset\" of
+SITUATION. It must be symbol."
+ (let ((presentation-type
(save-excursion
(set-buffer mime-raw-buffer)
- (or mime-text-decoder
- (cdr (or (assq major-mode mime-text-decoder-alist)
- (assq t mime-text-decoder-alist)))
+ (or mime-raw-representation-type
+ (cdr (or (assq major-mode mime-raw-representation-type-alist)
+ (assq t mime-raw-representation-type-alist)))
))))
- (and (functionp text-decoder)
- (funcall text-decoder charset encoding)
- )))
+ (save-restriction
+ (insert-buffer-substring mime-raw-buffer
+ (mime-entity-body-start entity)
+ (mime-entity-body-end entity))
+ (let ((encoding (mime-entity-encoding entity)))
+ (mime-decode-region (point-min) (point-max) encoding)
+ (if (or (eq presentation-type 'binary)
+ (not (member encoding '(nil "7bit" "8bit" "binary"))))
+ (decode-mime-charset-region (point-min)(point-max)
+ (or (mime-content-type-parameter
+ (mime-entity-content-type entity)
+ "charset")
+ default-mime-charset))
+ ))))
+ (run-hooks 'mime-text-decode-hook)
+ )
;;; @ for URL
)
))
+(defsubst mime-text-add-url-buttons ()
+ "Add URL-buttons for text body."
+ (goto-char (point-min))
+ (while (re-search-forward mime-text-url-regexp nil t)
+ (let ((beg (match-beginning 0))
+ (end (match-end 0)))
+ (mime-add-button beg end #'mime-text-browse-url
+ (list (buffer-substring beg end)))
+ )))
+
+(defun mime-text-add-url-buttons-maybe ()
+ "Add URL-buttons if 'browse-url-browser-function is not 'nil."
+ (if browse-url-browser-function
+ (mime-text-add-url-buttons)
+ ))
+
;;; @ content filters for mime-text
;;;
-(defun mime-view-filter-for-text/plain (ctype params encoding)
- (mime-decode-text-body (cdr (assoc "charset" params)) encoding)
- (goto-char (point-max))
- (if (not (eq (char-after (1- (point))) ?\n))
- (insert "\n")
- )
- (if browse-url-browser-function
- (progn
- (goto-char (point-min))
- (while (re-search-forward mime-text-url-regexp nil t)
- (let ((beg (match-beginning 0))
- (end (match-end 0)))
- (mime-add-button beg end
- (function mime-text-browse-url)
- (list (buffer-substring beg end))))
- )))
- (run-hooks 'mime-view-plain-text-preview-hook)
- )
-
-(defun mime-view-filter-for-text/richtext (ctype params encoding)
- (let* ((charset (cdr (assoc "charset" params)))
- (beg (point-min))
- )
- (remove-text-properties beg (point-max) '(face nil))
- (mime-decode-text-body charset encoding)
- (richtext-decode beg (point-max))
+(defun mime-preview-text/plain (entity situation)
+ (save-restriction
+ (narrow-to-region (point-max)(point-max))
+ (mime-text-insert-decoded-body entity)
+ (goto-char (point-max))
+ (if (not (eq (char-after (1- (point))) ?\n))
+ (insert "\n")
+ )
+ (mime-text-add-url-buttons)
+ (run-hooks 'mime-preview-text/plain-hook)
))
-(defun mime-view-filter-for-text/enriched (ctype params encoding)
- (let* ((charset (cdr (assoc "charset" params)))
- (beg (point-min))
- )
- (remove-text-properties beg (point-max) '(face nil))
- (mime-decode-text-body charset encoding)
- (enriched-decode beg (point-max))
- ))
+(defun mime-preview-text/richtext (entity situation)
+ (save-restriction
+ (narrow-to-region (point-max)(point-max))
+ (mime-text-insert-decoded-body entity)
+ (let ((beg (point-min)))
+ (remove-text-properties beg (point-max) '(face nil))
+ (richtext-decode beg (point-max))
+ )))
+
+(defun mime-preview-text/enriched (entity situation)
+ (save-restriction
+ (narrow-to-region (point-max)(point-max))
+ (mime-text-insert-decoded-body entity)
+ (let ((beg (point-min)))
+ (remove-text-properties beg (point-max) '(face nil))
+ (enriched-decode beg (point-max))
+ )))
;;; @ end