- (mime-method-to-store-message/partial beg end cal)
- (let (the-id parameters)
- (setq subject-id (std11-field-body "Subject"))
- (if (string-match "[0-9\n]+" subject-id)
- (setq subject-id (substring subject-id 0 (match-beginning 0)))
- )
- (save-excursion
- (set-buffer subject-buf)
- (while (search-backward subject-id nil t))
- (catch 'tag
- (while t
- (mime-view-partial-message target)
- (set-buffer article-buffer)
- (setq parameters
- (mime-entity-info-parameters mime-raw-content-info))
- (setq the-id (cdr (assoc "id" parameters)))
- (if (string= the-id id)
- (progn
- (mime-method-to-store-message/partial
- (point-min)(point-max) parameters)
- (if (file-exists-p full-file)
- (throw 'tag nil)
- )
- ))
+ (mime-store-message/partial-piece entity situation)
+ (setq subject-id (mime-entity-read-field entity 'Subject))
+ (if (string-match "[0-9\n]+" subject-id)
+ (setq subject-id (substring subject-id 0 (match-beginning 0)))
+ )
+ (save-excursion
+ (set-buffer subject-buf)
+ (while (search-backward subject-id nil t))
+ (catch 'tag
+ (while t
+ (let* ((message
+ ;; request message at the cursor in Subject buffer.
+ (save-window-excursion
+ (funcall request-partial-message-method)
+ ))
+ (situation (mime-entity-situation message))
+ (the-id (cdr (assoc "id" situation))))
+ (when (string= the-id id)
+ (with-current-buffer mother
+ (mime-store-message/partial-piece message situation)
+ )
+ (if (file-exists-p full-file)
+ (throw 'tag nil)
+ ))