From c923b8250f86335e979af1366990e21b37d81621 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Tue, 18 Mar 2003 00:01:23 +0000 Subject: [PATCH] (featurep): Bind mm-w3m-mode-map. --- lisp/lpath.el | 5 +++-- lisp/mail-source.el | 6 ++---- 2 files changed, 5 insertions(+), 6 deletions(-) diff --git a/lisp/lpath.el b/lisp/lpath.el index dadf0b67d..cee53a784 100644 --- a/lisp/lpath.el +++ b/lisp/lpath.el @@ -50,7 +50,8 @@ enable-multibyte-characters language-info-alist mark-active mouse-selection-click-count mouse-selection-click-count-buffer pgg-parse-crc24 - temporary-file-directory transient-mark-mode))) + temporary-file-directory transient-mark-mode + mm-w3m-mode-map))) (maybe-fbind '(bbdb-complete-name delete-annotation device-connection dfw-device events-to-keys font-lock-set-defaults frame-device @@ -65,7 +66,7 @@ (maybe-bind '(help-echo-owns-message mail-mode-hook url-package-name url-package-version w3-meta-charset-content-type-regexp - w3-meta-content-type-charset-regexp))) + w3-meta-content-type-charset-regexp mm-w3m-mode-map))) (defun nnkiboze-score-file (a) ) diff --git a/lisp/mail-source.el b/lisp/mail-source.el index b3d2dcec5..b8458b88a 100644 --- a/lisp/mail-source.el +++ b/lisp/mail-source.el @@ -697,8 +697,7 @@ Pass INFO on to CALLBACK." "Fetcher for directory sources." (mail-source-bind (directory source) (mail-source-run-script - prescript (format-spec-make ?t path) - prescript-delay) + prescript (format-spec-make ?t path) prescript-delay) (let ((found 0) (mail-source-string (format "directory:%s" path))) (dolist (file (directory-files @@ -707,8 +706,7 @@ Pass INFO on to CALLBACK." (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)) + (mail-source-run-script postscript (format-spec-make ?t path)) found))) (defun mail-source-fetch-pop (source callback) -- 2.34.1