update.

[elisp/semi.git] / mime-w3.el

diff --git a/mime-w3.el b/mime-w3.el
index ff2aecc..4d69c35 100644 (file)
--- a/mime-w3.el
+++ b/mime-w3.el
@@ -24,7 +24,9 @@
 
 ;;; Code:
 
-(require 'w3)
+(condition-case nil
+    (require 'w3)
+  (error nil))
 (require 'mime)
 
 (defmacro mime-put-keymap-region (start end keymap)
@@ -39,8 +41,7 @@
       `(let ((color (color-name (face-background 'default))))
         (prog1
             (progn ,@body)
-          (font-set-face-background 'default color (current-buffer))
-          ))
+          (font-set-face-background 'default color (current-buffer))))
     (cons 'progn body)))
 
 (defvar mime-w3-message-structure nil)
@@ -59,8 +60,7 @@
        (condition-case err
           (w3-region p (point-max))
         (error (message (format "%s" err))))
-       (mime-put-keymap-region p (point-max) w3-mode-map)
-       ))))
+       (mime-put-keymap-region p (point-max) w3-mode-map)))))
 
 (defun url-cid (url &optional proxy-info)
   (let ((entity
@@ -68,8 +68,7 @@
                                           mime-w3-message-structure)))
     (when entity
       (mime-insert-entity-content entity)
-      (setq url-current-mime-type (mime-entity-type/subtype entity))
-      )))
+      (setq url-current-mime-type (mime-entity-type/subtype entity)))))
 
 (url-register-protocol "cid"
                       'url-cid