`mime-display-message/partial' ->
`mime-method-to-store-message/partial'.
(if (or (file-exists-p full-file)
(not (y-or-n-p "Merge partials?"))
)
- (mime-display-message/partial beg end cal)
+ (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 the-id (cdr (assoc "id" parameters)))
(if (string= the-id id)
(progn
- (mime-display-message/partial
+ (mime-method-to-store-message/partial
(point-min)(point-max) parameters)
(if (file-exists-p full-file)
(throw 'tag nil)