(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.
-
-Notice that this variable is usually used as buffer local variable in
-raw-buffer.")
-
-(make-variable-buffer-local 'mime-text-decoder)
-
-
;;; @ code conversion
;;;
-(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-text-decode-body (situation)
- "Decode current buffer as text body.
+(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.
-This function calls text-decoder for MIME-charset specified by buffer
-local variable `mime-text-decoder' and variable
-`mime-text-decoder-alist'."
- (let ((encoding (cdr (assq 'encoding situation))))
- (mime-decode-region (point-min) (point-max) encoding)
- (goto-char (point-min))
- (while (search-forward "\r\n" nil t)
- (replace-match "\n")
- )
- (let ((text-decoder
- (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)))
- ))))
- (and (functionp text-decoder)
- (funcall text-decoder (cdr (assoc "charset" situation)) encoding)
- ))
- (run-hooks 'mime-text-decode-hook)
- ))
+SITUATION. It must be symbol."
+ (let ((str (mime-entity-content entity)))
+ (insert
+ (if (and (mime-entity-cooked-p entity)
+ (member (mime-entity-encoding entity)
+ '(nil "7bit" "8bit" "binary")))
+ str
+ (decode-mime-charset-string str
+ (or (mime-content-type-parameter
+ (mime-entity-content-type entity)
+ "charset")
+ default-mime-charset)
+ 'CRLF)
+ )))
+ (run-hooks 'mime-text-decode-hook)
+ )
-;;; @ for URL
+;;; @ content filters for mime-text
;;;
-(require 'browse-url)
-
-(defvar mime-text-url-regexp
- "\\(http\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\):\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?[-a-zA-Z0-9_=?#$@~`%&*+|\\/.,]*[-a-zA-Z0-9_=#$@~`%&*+|\\/]"
- "*Regexp to match URL in text/plain body.")
-
-(defun mime-text-browse-url (&optional url)
- (if (fboundp browse-url-browser-function)
- (if url
- (funcall browse-url-browser-function url)
- (call-interactively browse-url-browser-function))
- (if (fboundp mime-button-mother-dispatcher)
- (call-interactively mime-button-mother-dispatcher)
+(defun mime-display-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-add-url-buttons)
+ (run-hooks 'mime-display-text/plain-hook)
))
-(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-display-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-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-preview-filter-for-text/plain (situation)
- (mime-text-decode-body 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-preview-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-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-display-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
projects / elisp / semi.git / blobdiff