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 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
* 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.
(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))))
;;; 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
(:path (or (getenv "MAIL")
(expand-file-name (user-login-name) rmail-spool-directory))))
(directory
+ (:prescript)
+ (:prescript-delay)
+ (:postscript)
(:path)
(:suffix ".spool")
(:predicate identity))
(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
(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)
(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))
(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 ()