- (mime-store-message/partial-piece entity 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-parameters entity))
- (setq the-id (cdr (assoc "id" parameters)))
+ (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))))