From 553ccb69967dd5989820ddd49ff822623611f86c Mon Sep 17 00:00:00 2001 From: David Bremner Date: Wed, 3 Sep 2008 20:11:59 -0300 Subject: [PATCH] bug fix for undisplayed messages in wl, update for new interface eweouz-do-add --- lisp/eweouz.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/lisp/eweouz.el b/lisp/eweouz.el index 91e24cd..df52d58 100644 --- a/lisp/eweouz.el +++ b/lisp/eweouz.el @@ -174,12 +174,13 @@ (defun eweouz-add-sender-wl () "Add sender of current message" (interactive) - (save-excursion - (set-buffer wl-message-buffer) - (let* ((from (std11-extract-address-components (std11-field-body "From"))) - (record (list (cons 'email (cadr from)) - (cons 'name (car from))))) - (eweouz-do-add record)))) + (wl-summary-set-message-buffer-or-redisplay) + (set-buffer (wl-message-get-original-buffer)) + (let* ((from (std11-extract-address-components (std11-field-body "From"))) + (name (cadr from)) + (email (car from)) + (record (cons name email))) + (eweouz-do-add record))) (require 'vcard) (provide 'eweouz) -- 2.39.5