From ebc9f9cd98f5816281c3a3719d6bae63db59ff7a Mon Sep 17 00:00:00 2001 From: keiichi Date: Wed, 5 Jan 2000 06:02:28 +0000 Subject: [PATCH] (gnus-article-header-presentation-method): New function. (mime-header-presentation-method-alist): Add `gnus-article-header-presentation-method'. (gnus-mime-preview-quitting-method): New function. (mime-preview-quitting-method-alist): Add `gnus-mime-preview-quitting-method'. (gnus-following-method): New function. (mime-preview-following-method-alist): Add `gnus-following-method'. --- lisp/gnus-art.el | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index f895473..7de0136 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -4627,6 +4627,34 @@ For example: (t (error "%S is not a valid value" val)))) +;;; @ for mime-view +;;; + +(defun gnus-article-header-presentation-method (entity situation) + (mime-insert-header entity)) + +(set-alist 'mime-header-presentation-method-alist + 'gnus-article-mode + #'gnus-article-header-presentation-method) + +(defun gnus-mime-preview-quitting-method () + (gnus-article-show-summary)) + +(set-alist 'mime-preview-quitting-method-alist + 'gnus-article-mode #'gnus-mime-preview-quitting-method) + +(defun gnus-following-method (buf) + (set-buffer buf) + (if (gnus-group-find-parameter gnus-newsgroup-name 'newsgroup) + (message-followup) + (message-wide-reply)) + (message-yank-original) + (kill-buffer buf) + (goto-char (point-min))) + +(set-alist 'mime-preview-following-method-alist + 'gnus-article-mode #'gnus-following-method) + (gnus-ems-redefine) (provide 'gnus-art) -- 1.7.10.4