From 4032bdb949590755e189b41b049e256501430709 Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 13 Mar 1998 19:08:41 +0000 Subject: [PATCH] Rename `mime-view-quitting-method-for-gnus' -> `mime-preview-quitting-method-for-gnus'. --- lisp/gnus-art.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index dd5ffbc..3f2254b 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -3250,7 +3250,7 @@ forbidden in URL encoding." It is registered to variable `mime-view-content-header-filter-alist'." (eword-decode-header default-mime-charset)) -(defun mime-view-quitting-method-for-gnus () +(defun mime-preview-quitting-method-for-gnus () (if (not gnus-show-mime) (mime-preview-kill-buffer)) (delete-other-windows) @@ -3269,11 +3269,12 @@ It is registered to variable `mime-view-content-header-filter-alist'." (function mime-text-decode-buffer)) (set-alist 'mime-preview-quitting-method-alist - 'gnus-original-article-mode #'mime-view-quitting-method-for-gnus) + 'gnus-original-article-mode + #'mime-preview-quitting-method-for-gnus) (set-alist 'mime-view-show-summary-method 'gnus-original-article-mode - (function mime-view-quitting-method-for-gnus)) + #'mime-preview-quitting-method-for-gnus) ;;; @ end -- 1.7.10.4