projects
/
elisp
/
semi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(pgg-pgp5-messages-coding-system): New variable.
[elisp/semi.git]
/
mime-play.el
diff --git
a/mime-play.el
b/mime-play.el
index
e43b872
..
82f3f69
100644
(file)
--- a/
mime-play.el
+++ b/
mime-play.el
@@
-148,7
+148,7
@@
specified, play as it. Default MODE is \"play\"."
(message "External method is starting...")
(let ((process
(let ((command
(message "External method is starting...")
(let ((process
(let ((command
- (mailcap-format-command
+ (mime-format-mailcap-command
method
(cons (cons 'filename name) situation))))
(start-process command mime-echo-buffer-name
method
(cons (cons 'filename name) situation))))
(start-process command mime-echo-buffer-name
@@
-369,7
+369,7
@@
It is registered to variable `mime-preview-quitting-method-alist'."
(save-window-excursion
(set-buffer full-buf)
(erase-buffer)
(save-window-excursion
(set-buffer full-buf)
(erase-buffer)
- (insert-file-contents-as-binary file)
+ (binary-insert-encoded-file file)
(setq major-mode 'mime-show-message-mode)
(mime-view-buffer (current-buffer) nil mother)
(setq pbuf (current-buffer))
(setq major-mode 'mime-show-message-mode)
(mime-view-buffer (current-buffer) nil mother)
(setq pbuf (current-buffer))
@@
-420,24
+420,21
@@
It is registered to variable `mime-preview-quitting-method-alist'."
(or (file-exists-p file)
(throw 'tag nil)
)
(or (file-exists-p file)
(throw 'tag nil)
)
- (as-binary-input-file (insert-file-contents file))
+ (binary-insert-encoded-file file)
(goto-char (point-max))
(goto-char (point-max))
- (setq i (1+ i))
- ))
- (write-region-as-binary (point-min)(point-max)
- (expand-file-name "FULL" root-dir))
+ (setq i (1+ i))))
+ (binary-write-decoded-region
+ (point-min)(point-max)
+ (expand-file-name "FULL" root-dir))
(let ((i 1))
(while (<= i total)
(let ((file (format "%s/%d" root-dir i)))
(and (file-exists-p file)
(let ((i 1))
(while (<= i total)
(let ((file (format "%s/%d" root-dir i)))
(and (file-exists-p file)
- (delete-file file)
- ))
- (setq i (1+ i))
- ))
+ (delete-file file)))
+ (setq i (1+ i))))
(let ((file (expand-file-name "CT" root-dir)))
(and (file-exists-p file)
(let ((file (expand-file-name "CT" root-dir)))
(and (file-exists-p file)
- (delete-file file)
- ))
+ (delete-file file)))
(let ((buf (current-buffer))
(pwin (or (get-buffer-window mother)
(get-largest-window)))
(let ((buf (current-buffer))
(pwin (or (get-buffer-window mother)
(get-largest-window)))