From 77090cf15ae3c88bcfbfb12baca91921cfa5025d Mon Sep 17 00:00:00 2001 From: ueno Date: Tue, 29 Aug 2000 05:58:46 +0000 Subject: [PATCH] * wl-message.el (wl-mmelmo-message-redisplay): Bind `wl-message-ignored-field-list' instead of `mime-view-ignored-field-list'. --- wl/ChangeLog | 4 ++++ wl/wl-message.el | 6 +++--- 2 files changed, 7 insertions(+), 3 deletions(-) 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 + * 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 -- 1.7.10.4