(gnus-article-preview-mime-message): Use `mime-view-buffer'.

(gnus-article-decode-encoded-word): Fix DOC-string.
(gnus-article-header-presentation-method): New function; abolish
`gnus-content-header-filter'.
Modify for SEMI 1.7.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index a028dc6..0508d68 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -1958,16 +1958,14 @@ commands:
            default-mime-charset))
        )
     (save-excursion
-      (mime-view-mode nil nil nil gnus-original-article-buffer
-                     gnus-article-buffer
-                     gnus-article-mode-map)
+      (mime-view-buffer gnus-original-article-buffer gnus-article-buffer
+                       nil gnus-article-mode-map)
       ))
   (run-hooks 'gnus-mime-article-prepare-hook)
   )
 
 (defun gnus-article-decode-encoded-word ()
-  "Header filter for gnus-article-mode.
-It is registered to variable `mime-view-content-header-filter-alist'."
+  "Header filter for gnus-article-mode."
   (let ((charset (save-excursion
                   (set-buffer gnus-summary-buffer)
                   default-mime-charset)))
@@ -3237,10 +3235,13 @@ forbidden in URL encoding."
 ;;; @ for mime-view
 ;;;
 
-(defun gnus-content-header-filter ()
-  "Header filter for mime-view.
-It is registered to variable `mime-view-content-header-filter-alist'."
-  (eword-decode-header default-mime-charset))
+(defun gnus-article-header-presentation-method (entity situation)
+  (mime-insert-decoded-header entity nil nil default-mime-charset)
+  )
+
+(set-alist 'mime-header-presentation-method-alist
+          'gnus-original-article-mode
+          #'gnus-article-header-presentation-method)
 
 (defun mime-preview-quitting-method-for-gnus ()
   (if (not gnus-show-mime)
@@ -3252,10 +3253,6 @@ It is registered to variable `mime-view-content-header-filter-alist'."
       (gnus-summary-select-article nil t)
     ))
 
-(set-alist 'mime-view-content-header-filter-alist
-          'gnus-original-article-mode
-          #'gnus-content-header-filter)
-
 (set-alist 'mime-raw-representation-type-alist
           'gnus-original-article-mode 'binary)
 
@@ -3275,9 +3272,8 @@ It is registered to variable `mime-view-content-header-filter-alist'."
   (goto-char (point-min))
   )
 
-(set-alist 'mime-view-following-method-alist
-          'gnus-original-article-mode
-          #'gnus-following-method)
+(set-alist 'mime-preview-following-method-alist
+          'gnus-original-article-mode #'gnus-following-method)
 
 
 ;;; @ end