projects
/
elisp
/
semi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(mime-edit-normalize-body): Fix a comment that the problem related to
[elisp/semi.git]
/
mime-partial.el
diff --git
a/mime-partial.el
b/mime-partial.el
index
f5378eb
..
618c5a6
100644
(file)
--- a/
mime-partial.el
+++ b/
mime-partial.el
@@
-30,16
+30,16
@@
(defun mime-combine-message/partial-pieces-automatically (entity situation)
"Internal method for mime-view to combine message/partial messages
(defun mime-combine-message/partial-pieces-automatically (entity situation)
"Internal method for mime-view to combine message/partial messages
-automatically. This function refers variable
-`mime-request-partial-message-method-alist' to select function to display
-partial messages using mime-view."
+automatically."
(interactive)
(let* ((id (cdr (assoc "id" situation)))
(target (cdr (assq 'major-mode situation)))
(subject-buf (eval (cdr (assq 'summary-buffer-exp situation))))
(interactive)
(let* ((id (cdr (assoc "id" situation)))
(target (cdr (assq 'major-mode situation)))
(subject-buf (eval (cdr (assq 'summary-buffer-exp situation))))
+ (mother (current-buffer))
subject-id
(root-dir (expand-file-name
subject-id
(root-dir (expand-file-name
- (concat "m-prts-" (user-login-name)) mime-temp-directory))
+ (concat "m-prts-" (user-login-name))
+ temporary-file-directory))
(request-partial-message-method
(cdr (assq 'request-partial-message-method situation)))
full-file)
(request-partial-message-method
(cdr (assq 'request-partial-message-method situation)))
full-file)
@@
-55,7
+55,7
@@
partial messages using mime-view."
(not (y-or-n-p "Merge partials?"))
)
(mime-store-message/partial-piece entity situation)
(not (y-or-n-p "Merge partials?"))
)
(mime-store-message/partial-piece entity situation)
- (setq subject-id (mime-read-field 'Subject entity))
+ (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)))
)
(if (string-match "[0-9\n]+" subject-id)
(setq subject-id (substring subject-id 0 (match-beginning 0)))
)
@@
-72,8
+72,7
@@
partial messages using mime-view."
(situation (mime-entity-situation message))
(the-id (cdr (assoc "id" situation))))
(when (string= the-id id)
(situation (mime-entity-situation message))
(the-id (cdr (assoc "id" situation))))
(when (string= the-id id)
- (save-excursion
- (set-buffer (mime-entity-buffer message))
+ (with-current-buffer mother
(mime-store-message/partial-piece message situation)
)
(if (file-exists-p full-file)
(mime-store-message/partial-piece message situation)
)
(if (file-exists-p full-file)