- (get-buffer mime::article/preview-buffer)))
- (pwin (and pbuf (save-window-excursion
- (vm-get-visible-buffer-window
- (switch-to-buffer-other-window pbuf))))))
- (if pwin
+ ; is there a preview buffer alive ?
+ (get-buffer mime::article/preview-buffer)
+ ; rebuild preview to ensure it
+ ; corresponds to the current message
+ (save-excursion
+ (save-selected-window
+ (save-window-excursion
+ (tm-vm/view-message))))
+ (get-buffer mime::article/preview-buffer))))
+ (if pbuf