From: yamaoka <yamaoka>
Date: Tue, 22 Dec 1998 12:05:46 +0000 (+0000)
Subject: * (mime-preview-over-to-next-method-alist): Use `gnus-summary-next-article'
X-Git-Tag: pgnus-ichikawa-199812221900~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=376771fe70fc9a9b8743ae9ca53144b80aa1b39d;p=elisp%2Fgnus.git-

* (mime-preview-over-to-next-method-alist): Use `gnus-summary-next-article'
in `gnus-original-article-mode'.
(mime-preview-over-to-previous-method-alist): Use `gnus-summary-prev-article'
in `gnus-original-article-mode'.
---

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 703b17c..a5f094a 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -4217,6 +4217,18 @@ For example:
 (set-alist 'mime-preview-following-method-alist
 	   'gnus-original-article-mode #'gnus-following-method)
 
+(set-alist 'mime-preview-over-to-previous-method-alist
+	   'gnus-original-article-mode
+	   (lambda ()
+	     (gnus-article-read-summary-keys
+	      nil (gnus-character-to-event ?P))))
+
+(set-alist 'mime-preview-over-to-next-method-alist
+	   'gnus-original-article-mode'
+	   (lambda ()
+	     (gnus-article-read-summary-keys
+	      nil (gnus-character-to-event ?N))))
+
 
 ;;; @ end
 ;;;