From fc45c122f629ca33c51860601e86df8faf00a0c2 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 28 Dec 1998 05:56:09 +0000 Subject: [PATCH] * gnus-sum.el (gnus-summary-preview-mime-message): Always select the article before previewing. Abolish prefix arg. * gnus-art.el (gnus-mime-preview-quitting-method): re-select the article without reservation. (gnus-article-display-mime-message): Show all headers if `gnus-have-all-headers' the local var of summary buffer is non-nil. --- ChangeLog | 10 ++++++++++ lisp/gnus-art.el | 19 ++++++++++--------- lisp/gnus-sum.el | 15 ++++++--------- 3 files changed, 26 insertions(+), 18 deletions(-) diff --git a/ChangeLog b/ChangeLog index ff3f30b..e8f0f85 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,13 @@ +1998-12-28 Katsumi Yamaoka + + * lisp/gnus-sum.el (gnus-summary-preview-mime-message): Always + select the article before previewing. Abolish prefix arg. + + * lisp/gnus-art.el (gnus-mime-preview-quitting-method): re-select + the article without reservation. + (gnus-article-display-mime-message): Show all headers if + `gnus-have-all-headers' the local var of summary buffer is non-nil. + 1998-12-24 Katsumi Yamaoka * lisp/gnus.el: (gnus-version-number): Update to 6.10.1. diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index e60a1dc..595c6f7 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -1981,12 +1981,16 @@ commands: (defun gnus-article-display-mime-message () "Article display method for MIME message." ;; called from `gnus-original-article-buffer'. - (let ((charset (with-current-buffer gnus-summary-buffer - default-mime-charset))) + (let (charset all-headers) + (with-current-buffer gnus-summary-buffer + (setq charset default-mime-charset + all-headers gnus-have-all-headers)) (make-local-variable 'default-mime-charset) (setq default-mime-charset charset) (mime-display-message mime-message-structure gnus-article-buffer nil gnus-article-mode-map) + (when all-headers + (gnus-article-hide-headers nil -1)) (make-local-variable 'default-mime-charset) (setq default-mime-charset charset) ) @@ -3399,13 +3403,10 @@ forbidden in URL encoding." #'gnus-article-header-presentation-method) (defun gnus-mime-preview-quitting-method () - (if gnus-show-mime - (gnus-article-show-summary) - (mime-preview-kill-buffer) - (delete-other-windows) - (gnus-article-show-summary) - (gnus-summary-select-article nil t) - )) + (mime-preview-kill-buffer) + (delete-other-windows) + (gnus-article-show-summary) + (gnus-summary-select-article gnus-show-all-headers t)) (set-alist 'mime-preview-quitting-method-alist 'gnus-original-article-mode #'gnus-mime-preview-quitting-method) diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 7466be1..543709b 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -5196,16 +5196,13 @@ The state which existed when entering the ephemeral is reset." (gnus-summary-recenter) (gnus-summary-position-point)))) -(defun gnus-summary-preview-mime-message (arg) +(defun gnus-summary-preview-mime-message () "MIME decode and play this message." - (interactive "P") - (or gnus-show-mime - (let ((gnus-break-pages nil) - (gnus-show-mime t)) - (gnus-summary-select-article t t) - )) - (select-window (get-buffer-window gnus-article-buffer)) - ) + (interactive) + (let ((gnus-break-pages nil) + (gnus-show-mime t)) + (gnus-summary-select-article gnus-show-all-headers t)) + (select-window (get-buffer-window gnus-article-buffer))) ;;; Dead summaries. -- 1.7.10.4