(mime-text-decode-buffer charset)
))
-(defun mime-text-decode-body (situation)
- "Decode current buffer as text body.
+(defun mime-text-insert-decoded-body (entity situation)
+ "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
This function calls text-decoder for MIME-charset specified by buffer
local variable `mime-text-decoder' and variable
`mime-text-decoder-alist'."
+ (insert-buffer-substring mime-raw-buffer
+ (mime-entity-body-start entity)
+ (mime-entity-body-end entity))
(let ((encoding (cdr (assq 'encoding situation))))
(mime-decode-region (point-min) (point-max) encoding)
(goto-char (point-min))
)
))
+(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 (situation)
- (mime-text-decode-body situation)
- (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 (situation)
- (let ((beg (point-min)))
- (remove-text-properties beg (point-max) '(face nil))
- (mime-text-decode-body situation)
- (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 situation)
+ (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 (situation)
- (let ((beg (point-min)))
- (remove-text-properties beg (point-max) '(face nil))
- (mime-text-decode-body situation)
- (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 situation)
+ (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 situation)
+ (let ((beg (point-min)))
+ (remove-text-properties beg (point-max) '(face nil))
+ (enriched-decode beg (point-max))
+ )))
;;; @ end