projects
/
elisp
/
semi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(mime-view-setup-buffers): Move place of local variable 'pcl.
[elisp/semi.git]
/
mime-view.el
diff --git
a/mime-view.el
b/mime-view.el
index
098440f
..
010ac3d
100644
(file)
--- a/
mime-view.el
+++ b/
mime-view.el
@@
-623,11
+623,9
@@
The compressed face will be piped to this command.")
(or mime-view-redisplay
(setq mime-raw-message-info (mime-parse-message ctl encoding))
)
(or mime-view-redisplay
(setq mime-raw-message-info (mime-parse-message ctl encoding))
)
- (let* ((message-info mime-raw-message-info)
- (pcl (mime-raw-flatten-message-info message-info))
- (the-buf (current-buffer))
- (mode major-mode)
- )
+ (let ((message-info mime-raw-message-info)
+ (the-buf (current-buffer))
+ (mode major-mode))
(or obuf
(setq obuf (concat "*Preview-" (buffer-name the-buf) "*")))
(set-buffer (get-buffer-create obuf))
(or obuf
(setq obuf (concat "*Preview-" (buffer-name the-buf) "*")))
(set-buffer (get-buffer-create obuf))
@@
-639,10
+637,11
@@
The compressed face will be piped to this command.")
(setq mime-preview-original-major-mode mode)
(setq major-mode 'mime-view-mode)
(setq mode-name "MIME-View")
(setq mime-preview-original-major-mode mode)
(setq major-mode 'mime-view-mode)
(setq mode-name "MIME-View")
- (while pcl
- (mime-view-display-entity (car pcl) message-info the-buf obuf)
- (setq pcl (cdr pcl))
- )
+ (let ((pcl (mime-raw-flatten-message-info message-info)))
+ (while pcl
+ (mime-view-display-entity (car pcl) message-info the-buf obuf)
+ (setq pcl (cdr pcl))
+ ))
(set-buffer-modified-p nil)
)
(setq buffer-read-only t)
(set-buffer-modified-p nil)
)
(setq buffer-read-only t)