From: keiichi <keiichi>
Date: Wed, 5 Jan 2000 06:02:28 +0000 (+0000)
Subject: (gnus-article-header-presentation-method): New function.
X-Git-Tag: nana-gnus-7_1_0_16~53
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ebc9f9cd98f5816281c3a3719d6bae63db59ff7a;p=elisp%2Fgnus.git-

(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'.
---

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)