From: ueno <ueno>
Date: Tue, 29 Aug 2000 05:58:46 +0000 (+0000)
Subject: * wl-message.el (wl-mmelmo-message-redisplay): Bind
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=77090cf15ae3c88bcfbfb12baca91921cfa5025d;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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