From: morioka <morioka>
Date: Sun, 19 Apr 1998 12:50:10 +0000 (+0000)
Subject: (gnus-following-method): New function; set up for
X-Git-Tag: gnus-6_7-tomo-199811302358~85
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c5e62ee3eb6059f56373f8960b24b1d6a70c9594;p=elisp%2Fgnus.git-

(gnus-following-method): New function; set up for
'mime-view-following-method-alist.
---

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 1e8c8a0..360bcb9 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -3281,6 +3281,18 @@ It is registered to variable `mime-view-content-header-filter-alist'."
 	   'gnus-original-article-mode
 	   #'mime-preview-quitting-method-for-gnus)
 
+(defun gnus-following-method (buf)
+  (set-buffer buf)
+  (message-followup)
+  (message-yank-original)
+  (kill-buffer buf)
+  (goto-char (point-min))
+  )
+
+(set-alist 'mime-view-following-method-alist
+	   'gnus-original-article-mode
+	   #'gnus-following-method)
+
 
 ;;; @ end
 ;;;