* (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 (file)
--- 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
 ;;;