From: ShengHuo ZHU <zsh@cs.rochester.edu>
Date: Tue, 19 Feb 2002 13:58:02 +0000 (+0000)
Subject: 	* gnus-art.el (gnus-article-wash-html-with-w3): Remove
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=e589cbb5c55b587cd375e9f1fad84f63936c15b3;hp=31bb9d5f19eb2a7d4109f65bac0132597bcc6b83

	* gnus-art.el (gnus-article-wash-html-with-w3): Remove
	w3-delay-image-loads.
	* mm-view.el (mm-inline-text-html-render-with-w3): Ditto.
	(mm-w3-prepare-buffer): Ditto.

	* mail-source.el (mail-source-fetch-directory): Run scripts.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7f259323e..47a7e9878 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2002-02-19  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+	* gnus-art.el (gnus-article-wash-html-with-w3): Remove
+	w3-delay-image-loads.
+	* mm-view.el (mm-inline-text-html-render-with-w3): Ditto.
+	(mm-w3-prepare-buffer): Ditto.
+
+	* mail-source.el (mail-source-fetch-directory): Run scripts.
+
 2002-02-19  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 	* gnus-fun.el (gnus-respond-to-confirmation): Do the right thing
@@ -8732,7 +8741,7 @@
 	* gnus-sum.el (gnus-summary-edit-article): Remove a hack.
 	* gnus-art.el (gnus-mime-save-part-and-strip): New function.
 	(gnus-mime-action-alist): Use it.
-	(gnus-mime-button-commands): USe it.
+	(gnus-mime-button-commands): Use it.
 	* mm-extern.el (mm-extern-local-file): Error when the file is gone.
 	(mm-inline-external-body): unwind-protect.
 
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 5d79fa03c..162f7e88e 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2112,8 +2112,7 @@ If READ-CHARSET, ask for a coding system."
   (let ((w3-strict-width (window-width))
 	(url-standalone-mode t)
  	(url-gateway-unplugged t)
-	(w3-honor-stylesheets nil)
-	(w3-delay-image-loads t))
+	(w3-honor-stylesheets nil))
     (condition-case var
 	(w3-region (point-min) (point-max))
       (error))))
diff --git a/lisp/mail-source.el b/lisp/mail-source.el
index d780286db..54cefbe92 100644
--- a/lisp/mail-source.el
+++ b/lisp/mail-source.el
@@ -1,5 +1,5 @@
 ;;; mail-source.el --- functions for fetching mail
-;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
+;; Copyright (C) 1999, 2000, 2001, 2002 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;; Keywords: news, mail
@@ -291,6 +291,9 @@ Common keywords should be listed here.")
        (:path (or (getenv "MAIL")
 		  (expand-file-name (user-login-name) rmail-spool-directory))))
       (directory
+       (:prescript)
+       (:prescript-delay)
+       (:postscript)
        (:path)
        (:suffix ".spool")
        (:predicate identity))
@@ -630,6 +633,9 @@ If ARGS, PROMPT is used as an argument to `format'."
 (defun mail-source-fetch-directory (source callback)
   "Fetcher for directory sources."
   (mail-source-bind (directory source)
+    (mail-source-run-script
+     prescript (format-spec-make ?t path)
+     prescript-delay)
     (let ((found 0)
 	  (mail-source-string (format "directory:%s" path)))
       (dolist (file (directory-files
@@ -638,6 +644,8 @@ If ARGS, PROMPT is used as an argument to `format'."
 		   (funcall predicate file)
 		   (mail-source-movemail file mail-source-crash-box))
 	  (incf found (mail-source-callback callback file))))
+      (mail-source-run-script
+       postscript (format-spec-make ?t path))
       found)))
 
 (defun mail-source-fetch-pop (source callback)
diff --git a/lisp/mm-view.el b/lisp/mm-view.el
index 64f3ab4f0..d6d9d6c12 100644
--- a/lisp/mm-view.el
+++ b/lisp/mm-view.el
@@ -110,7 +110,6 @@
 	(url-standalone-mode t)
  	(url-gateway-unplugged t)
 	(w3-honor-stylesheets nil)
-	(w3-delay-image-loads t)
 	(url-current-object
 	 (url-generic-parse-url (format "cid:%s" (mm-handle-id handle))))
 	(width (window-width))
@@ -433,8 +432,7 @@ will not be substituted.")
   (require 'w3)
   (let ((url-standalone-mode t)
  	(url-gateway-unplugged t)
-	(w3-honor-stylesheets nil)
-	(w3-delay-image-loads t))
+	(w3-honor-stylesheets nil))
     (w3-prepare-buffer)))
 
 (defun mm-view-message ()