* wl-message.el (wl-mmelmo-message-redisplay): Bind

`wl-message-ignored-field-list' instead of
`mime-view-ignored-field-list'.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index bad8e3e..56488ea 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,9 @@
 2000-08-29   Daiki Ueno  <ueno@unixuser.org>
 
+       * wl-message.el (wl-mmelmo-message-redisplay): Bind
+       `wl-message-ignored-field-list' instead of
+       `mime-view-ignored-field-list'.
+
        * wl-folder.el (wl-folder-goto-top-of-current-folder):Simplified.
        Add interactive spec.
        (wl-folder-goto-bottom-of-current-folder): Ditto.

diff --git a/wl/wl-message.el b/wl/wl-message.el
index 9147957..019ae60 100644 (file)
--- a/wl/wl-message.el
+++ b/wl/wl-message.el
@@ -44,7 +44,7 @@
     (lambda (symbol)
       (unless (boundp symbol)
        (set (make-local-variable symbol) nil))))
-   '(mime-view-ignored-field-list mmelmo-imap4-skipped-parts))
+   '(mmelmo-imap4-skipped-parts))
   (defun-maybe event-window (a))
   (defun-maybe posn-window (a))
   (defun-maybe event-start (a))
@@ -421,10 +421,10 @@
          (erase-buffer)
          (if backend
              (let (mime-display-header-hook ;; bind to nil...
-                   (mime-view-ignored-field-list 
+                   (wl-message-ignored-field-list 
                     (if (eq flag 'all-header)
                         nil
-                      mime-view-ignored-field-list))
+                      wl-message-ignored-field-list))
                    (mmelmo-force-reload force-reload)
                    (mmelmo-imap4-threshold wl-fetch-confirm-threshold))
                (setq real-fld-num (elmo-get-real-folder-number