From 666171c545a4180b02da8eb30ab72106ff6e6a02 Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Thu, 26 Jul 2001 05:37:36 +0000 Subject: [PATCH] 2001-07-25 21:00:00 ShengHuo ZHU * gnus-bcklg.el (gnus-backlog-shutdown): Make interactive. * mm-decode.el (mm-get-image): Guess then use the type. * gnus-art.el (gnus-mime-view-part-as-type): Don't copy cache. --- lisp/ChangeLog | 8 ++++++++ lisp/gnus-art.el | 2 +- lisp/gnus-bcklg.el | 1 + lisp/mm-decode.el | 9 ++++++--- 4 files changed, 16 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c12c85ce2..93dc6827a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2001-07-25 21:00:00 ShengHuo ZHU + + * gnus-bcklg.el (gnus-backlog-shutdown): Make interactive. + + * mm-decode.el (mm-get-image): Guess then use the type. + + * gnus-art.el (gnus-mime-view-part-as-type): Don't copy cache. + 2001-07-25 12:54:00 Danny Siu * gnus-sum.el (gnus-summary-prepare-threads): Shouldn't do tree diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index 47ab0ba78..7baa2e001 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -3430,7 +3430,7 @@ If ALL-HEADERS is non-nil, no headers are hidden." (mm-handle-undisplayer handle) (mm-handle-disposition handle) (mm-handle-description handle) - (mm-handle-cache handle) + nil (mm-handle-id handle))) (setq gnus-article-mime-handles (mm-merge-handles gnus-article-mime-handles handle)) diff --git a/lisp/gnus-bcklg.el b/lisp/gnus-bcklg.el index 3fca805c9..1c5de23e3 100644 --- a/lisp/gnus-bcklg.el +++ b/lisp/gnus-bcklg.el @@ -55,6 +55,7 @@ (defun gnus-backlog-shutdown () "Clear all backlog variables and buffers." + (interactive) (when (get-buffer gnus-backlog-buffer) (kill-buffer gnus-backlog-buffer)) (setq gnus-backlog-hashtb nil diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el index 82d4af037..96a203af3 100644 --- a/lisp/mm-decode.el +++ b/lisp/mm-decode.el @@ -1041,13 +1041,16 @@ like underscores." (prog1 (setq spec (ignore-errors - ;; Avoid testing `make-glyph' since W3 may define + ;; Avoid testing `make-glyph' since W3 may define ;; a bogus version of it. (if (fboundp 'create-image) - (create-image (buffer-string) (intern type) 'data-p) + (or + (create-image (buffer-string) nil 'data-p) + (create-image (buffer-string) (intern type) + 'data-p)) (cond ((equal type "xbm") - ;; xbm images require special handling, since + ;; xbm images require special handling, since ;; the only way to create glyphs from these ;; (without a ton of work) is to write them ;; out to a file, and then create a file -- 2.25.1