+ (save-excursion
+ (save-restriction
+ (narrow-to-region
+ (point-min)
+ (progn
+ (goto-char (point-min))
+ (if (re-search-forward
+ (concat "^" (regexp-quote mail-header-separator) "$")
+ nil t)
+ (match-beginning 0)
+ (point-max)
+ )))
+ (while r
+ (setq cell (car r))
+ (setq b (car cell))
+ (if (setq f (rfc822/get-field-body (car b)))
+ (cond ((listp (cdr b))
+ (let ((r (cdr b)))
+ (while r
+ (if (string-match (car r) f)
+ (throw 'tag (cdr cell))
+ )
+ (setq r (cdr r))
+ ))
+ )
+ ((stringp (cdr b))
+ (if (string-match (cdr b) f)