From: tomo Date: Fri, 25 May 2001 09:23:55 +0000 (+0000) Subject: 2001-03-31 Kenichi Handa X-Git-Tag: Emacs-21_0_103-SEMI-1_14_3-1~1 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=aa249c9518a77cc5a652c7469c4970e8a2ad7a88;p=elisp%2Flemi.git 2001-03-31 Kenichi Handa * mail/rmail-mime.el: Set rmail-search-mime-message-function and rmail-search-mime-header-function when loaded. (rmail-search-mime-message): Change arguments to MSG, REGEXP, and LIMIT. --- diff --git a/mail/rmail-mime.el b/mail/rmail-mime.el index 2ef09ea..b9bb3cd 100644 --- a/mail/rmail-mime.el +++ b/mail/rmail-mime.el @@ -128,13 +128,13 @@ If the search succeeds, return non-nil. Otherwise, return nil." (prog1 (re-search-forward regexp nil t) (kill-buffer " *RMAIL-temp-VIEW*")))) -(defun rmail-search-mime-header (msg beg end regexp) +(defun rmail-search-mime-header (msg regexp limit) "Search the message header of number MSG for REGEXP. +The current point is the beginninf of header, +and LIMIT is the end position of header. If the search succeeds, return non-nil. Otherwise, return nil." (save-excursion - (rmail-decode-header " *RMAIL-temp-VIEW*" - (current-buffer) - beg end) + (rmail-decode-header " *RMAIL-temp-VIEW*" (current-buffer) (point) end) (goto-char (point-min)) (prog1 (re-search-forward regexp nil t) (kill-buffer " *RMAIL-temp-VIEW*")))) @@ -169,7 +169,11 @@ If the search succeeds, return non-nil. Otherwise, return nil." (setq rmail-show-mime-function (function rmail-show-mime-message) rmail-insert-mime-forwarded-message-function - (function rmail-insert-mime-forwarded-message)) + (function rmail-insert-mime-forwarded-message) + rmail-search-mime-message-function + (function rmail-search-mime-message) + rmail-search-mime-header-function + (function rmail-search-mime-header)) (unless rmail-view-mode-map (setq rmail-view-mode-map (mime-view-define-keymap rmail-mode-map)) (define-key rmail-view-mode-map