Mercurial > emacs
comparison lisp/gnus/mm-view.el @ 43166:aa31e3865857
* gnus-art.el (article-wash-html): Bind url-gateway-unplugged.
* mm-view.el (mm-w3-prepare-buffer): Ditto.
(mm-inline-text): Ditto.
Suggested by Dave Love <fx@gnu.org>.
* mml.el (mml-preview): Disable local map.
* mml.el (mml-preview): Bind `q'.
| author | ShengHuo ZHU <zsh@cs.rochester.edu> |
|---|---|
| date | Thu, 07 Feb 2002 15:57:55 +0000 |
| parents | b4833df45a4c |
| children | 0d8b17d428b5 |
comparison
equal
deleted
inserted
replaced
| 43165:9714dc041391 | 43166:aa31e3865857 |
|---|---|
| 87 ((equal type "html") | 87 ((equal type "html") |
| 88 (mm-setup-w3) | 88 (mm-setup-w3) |
| 89 (setq text (mm-get-part handle)) | 89 (setq text (mm-get-part handle)) |
| 90 (let ((b (point)) | 90 (let ((b (point)) |
| 91 (url-standalone-mode t) | 91 (url-standalone-mode t) |
| 92 (url-gateway-unplugged t) | |
| 92 (url-current-object | 93 (url-current-object |
| 93 (url-generic-parse-url (format "cid:%s" (mm-handle-id handle)))) | 94 (url-generic-parse-url (format "cid:%s" (mm-handle-id handle)))) |
| 94 (width (window-width)) | 95 (width (window-width)) |
| 95 (charset (mail-content-type-get | 96 (charset (mail-content-type-get |
| 96 (mm-handle-type handle) 'charset))) | 97 (mm-handle-type handle) 'charset))) |
| 118 (save-window-excursion | 119 (save-window-excursion |
| 119 (save-restriction | 120 (save-restriction |
| 120 (let ((w3-strict-width width) | 121 (let ((w3-strict-width width) |
| 121 ;; Don't let w3 set the global version of | 122 ;; Don't let w3 set the global version of |
| 122 ;; this variable. | 123 ;; this variable. |
| 123 (fill-column fill-column) | 124 (fill-column fill-column)) |
| 124 (url-standalone-mode t)) | |
| 125 (condition-case var | 125 (condition-case var |
| 126 (w3-region (point-min) (point-max)) | 126 (w3-region (point-min) (point-max)) |
| 127 (error | 127 (error |
| 128 (delete-region (point-min) (point-max)) | 128 (delete-region (point-min) (point-max)) |
| 129 (let ((b (point)) | 129 (let ((b (point)) |
| 212 (defun mm-view-sound-file () | 212 (defun mm-view-sound-file () |
| 213 (message "Not implemented")) | 213 (message "Not implemented")) |
| 214 | 214 |
| 215 (defun mm-w3-prepare-buffer () | 215 (defun mm-w3-prepare-buffer () |
| 216 (require 'w3) | 216 (require 'w3) |
| 217 (let ((url-standalone-mode t)) | 217 (let ((url-standalone-mode t) |
| 218 (url-gateway-unplugged t)) | |
| 218 (w3-prepare-buffer))) | 219 (w3-prepare-buffer))) |
| 219 | 220 |
| 220 (defun mm-view-message () | 221 (defun mm-view-message () |
| 221 (mm-enable-multibyte) | 222 (mm-enable-multibyte) |
| 222 (let (handles) | 223 (let (handles) |