From 376771fe70fc9a9b8743ae9ca53144b80aa1b39d Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 22 Dec 1998 12:05:46 +0000 Subject: [PATCH] * (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'. --- lisp/gnus-art.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) 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 ;;; -- 1.7.10.4