X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mail%2Frmail-mime.el;fp=mail%2Frmail-mime.el;h=b9bb3cd90c0c6e7b43bd55b9b1a77974367b065c;hb=aa249c9518a77cc5a652c7469c4970e8a2ad7a88;hp=2ef09ea0727b2cb142a0cd30e3967261546796f2;hpb=e69ea76a8d9a7ae05e6b6f44f20215537a646f0d;p=elisp%2Flemi.git

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