projects
/
elisp
/
semi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(Required environment): Update to FLIM 1.14.2.
[elisp/semi.git]
/
mime-w3.el
diff --git
a/mime-w3.el
b/mime-w3.el
index
6ce9927
..
9ba2dcb
100644
(file)
--- a/
mime-w3.el
+++ b/
mime-w3.el
@@
-1,8
+1,8
@@
;;; mime-w3.el --- mime-view content filter for text
;;; mime-w3.el --- mime-view content filter for text
-;; Copyright (C) 1994,1995,1996,1997,1998,1999 Free Software Foundation, Inc.
+;; Copyright (C) 1994,95,96,97,98,99,2000 Free Software Foundation, Inc.
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;; Author: MORIOKA Tomohiko <tomo@m17n.org>
;; Keywords: HTML, MIME, multimedia, mail, news
;; This file is part of SEMI (Suite of Emacs MIME Interfaces).
;; Keywords: HTML, MIME, multimedia, mail, news
;; This file is part of SEMI (Suite of Emacs MIME Interfaces).
@@
-24,7
+24,9
@@
;;; Code:
;;; Code:
-(require 'w3)
+(condition-case nil
+ (require 'w3)
+ (error nil))
(require 'mime)
(defmacro mime-put-keymap-region (start end keymap)
(require 'mime)
(defmacro mime-put-keymap-region (start end keymap)
@@
-46,9
+48,7
@@
(defvar mime-w3-message-structure nil)
(defun mime-preview-text/html (entity situation)
(defvar mime-w3-message-structure nil)
(defun mime-preview-text/html (entity situation)
- (setq mime-w3-message-structure
- (with-current-buffer (mime-entity-buffer entity)
- mime-message-structure))
+ (setq mime-w3-message-structure (mime-find-root-entity entity))
(goto-char (point-max))
(let ((p (point)))
(insert "\n")
(goto-char (point-max))
(let ((p (point)))
(insert "\n")