From 6f9708ea00990b3fdaff02a0e51d86e38f8bcc1a Mon Sep 17 00:00:00 2001 From: yoichi Date: Sat, 29 Nov 2003 05:44:01 +0000 Subject: [PATCH] cosmetic fix --- wl/wl-mime.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/wl/wl-mime.el b/wl/wl-mime.el index 45e1579..6329a5e 100644 --- a/wl/wl-mime.el +++ b/wl/wl-mime.el @@ -61,16 +61,15 @@ has Non-nil value\)" (list (cons 'wl-original-message-mode (function wl-draft-yank-to-draft-buffer)))) (message-buffer (wl-current-message-buffer))) - (unless message-buffer - (error "No message.")) - (if (get-buffer message-buffer) + (if message-buffer (save-excursion - (set-buffer (wl-current-message-buffer)) + (set-buffer message-buffer) (save-restriction (widen) (if (wl-region-exists-p) (wl-mime-preview-follow-current-region) - (mime-preview-follow-current-entity))))))) + (mime-preview-follow-current-entity)))) + (error "No message.")))) ;; modified mime-preview-follow-current-entity from mime-view.el (defun wl-mime-preview-follow-current-region () -- 1.7.10.4