89 |
(setq text (mm-get-part handle)) |
(setq text (mm-get-part handle)) |
90 |
(let ((b (point)) |
(let ((b (point)) |
91 |
(url-standalone-mode t) |
(url-standalone-mode t) |
92 |
|
(url-gateway-unplugged t) |
93 |
(url-current-object |
(url-current-object |
94 |
(url-generic-parse-url (format "cid:%s" (mm-handle-id handle)))) |
(url-generic-parse-url (format "cid:%s" (mm-handle-id handle)))) |
95 |
(width (window-width)) |
(width (window-width)) |
121 |
(let ((w3-strict-width width) |
(let ((w3-strict-width width) |
122 |
;; Don't let w3 set the global version of |
;; Don't let w3 set the global version of |
123 |
;; this variable. |
;; this variable. |
124 |
(fill-column fill-column) |
(fill-column fill-column)) |
|
(url-standalone-mode t)) |
|
125 |
(condition-case var |
(condition-case var |
126 |
(w3-region (point-min) (point-max)) |
(w3-region (point-min) (point-max)) |
127 |
(error |
(error |
214 |
|
|
215 |
(defun mm-w3-prepare-buffer () |
(defun mm-w3-prepare-buffer () |
216 |
(require 'w3) |
(require 'w3) |
217 |
(let ((url-standalone-mode t)) |
(let ((url-standalone-mode t) |
218 |
|
(url-gateway-unplugged t)) |
219 |
(w3-prepare-buffer))) |
(w3-prepare-buffer))) |
220 |
|
|
221 |
(defun mm-view-message () |
(defun mm-view-message () |