[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/mm-extern.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/mm-extern.el |
Date: |
Wed, 12 Apr 2006 05:23:28 +0000 |
Index: emacs/lisp/gnus/mm-extern.el
diff -u emacs/lisp/gnus/mm-extern.el:1.8 emacs/lisp/gnus/mm-extern.el:1.9
--- emacs/lisp/gnus/mm-extern.el:1.8 Sun Mar 19 19:39:52 2006
+++ emacs/lisp/gnus/mm-extern.el Wed Apr 12 05:23:27 2006
@@ -157,25 +157,11 @@
(save-excursion
(save-restriction
(narrow-to-region (point) (point))
- (let* ((type (regexp-quote
- (mm-handle-media-type (mm-handle-cache handle))))
- ;; Force the part to be displayed (but if there is no
- ;; method to display, a user will be prompted to save).
- ;; See `gnus-mime-display-single'.
- (mm-inline-override-types nil)
- (mm-attachment-override-types
- (cons type mm-attachment-override-types))
- (mm-automatic-display (cons type mm-automatic-display))
- (mm-automatic-external-display
- (cons type mm-automatic-external-display))
- ;; Suppress adding of button to the cached part.
- (gnus-inhibit-mime-unbuttonizing nil))
- (gnus-display-mime (mm-handle-cache handle)))
- ;; Move undisplayer added to the cached handle to the parent.
- (mm-handle-set-undisplayer
- handle
- (mm-handle-undisplayer (mm-handle-cache handle)))
- (mm-handle-set-undisplayer (mm-handle-cache handle) nil)))))
+ (mm-display-part (mm-handle-cache handle))))
+ ;; Move undisplayer added to the cached handle to the parent.
+ (mm-handle-set-undisplayer
+ handle (mm-handle-undisplayer (mm-handle-cache handle)))
+ (mm-handle-set-undisplayer (mm-handle-cache handle) nil)))
(provide 'mm-extern)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/mm-extern.el,
Miles Bader <=