(setq buffer-file-name filename)
(set-auto-mode))
(setq buffer-file-name nil))))
+ (require 'font-lock)
(let ((font-lock-verbose nil))
;; I find font-lock a bit too verbose.
(font-lock-fontify-buffer))
(when (boundp 'widget-keymap)
(set-keymap-parent (current-local-map) widget-keymap)))
-(add-hook 'mime-view-define-keymap-hook 'mime-view-maybe-inherit-widget-keymap)
+(add-hook 'mime-view-mode-hook 'mime-view-maybe-inherit-widget-keymap)
(defun mime-view-define-keymap (&optional default)
(let ((mime-view-mode-map (if (keymapp default)
;;;
(defun mime-preview-find-boundary-info (&optional get-mother)
+ "Return boundary information of current part.
+If GET-MOTHER, refer boundary surrounding current part and its branches."
(let (entity
p-beg p-end
entity-node-id len)
(setq p-end (point-max)))
(get-mother
(save-excursion
- (goto-char p-end)
(catch 'tag
(let (e i)
(while (setq e
(point) 'mime-view-entity))
(goto-char e)
(let ((rc (mime-entity-node-id
- (get-text-property (1- (point))
+ (get-text-property (point)
'mime-view-entity))))
(or (and (>= (setq i (- (length rc) len)) 0)
(equal entity-node-id (nthcdr i rc)))
(throw 'tag nil)))
- (setq p-end e)))
+ (setq p-end (or (next-single-property-change
+ (point) 'mime-view-entity)
+ (point-max)))))
(setq p-end (point-max))))))
(vector p-beg p-end entity)))
(lambda (sym)
(list (symbol-name sym)))
(mime-charset-list))
- #'mime-charset-p t
+ nil t
(symbol-name default-charset)))))
(unless (eq charset default-charset)
charset))