(if (null arg)
(not emh-automatic-mime-preview)
arg))
- (save-excursion
- (set-buffer mh-show-buffer)
- (if (null emh-automatic-mime-preview)
- (if (and mime-raw-buffer
- (get-buffer mime-raw-buffer))
- (kill-buffer mime-raw-buffer)
- )))
+ (let ((raw-buffer
+ (concat "article-" (buffer-name (current-buffer)))))
+ (if (get-buffer raw-buffer)
+ (kill-buffer raw-buffer)
+ ))
(mh-invalidate-show-buffer)
(mh-show (mh-get-msg-num t))
)