bug fix for undisplayed messages in wl, update for new interface eweouz-do-add

diff --git a/lisp/eweouz.el b/lisp/eweouz.el
index 91e24cd363e0a27f442bb7e8626981403e4580c1..df52d588ad3dd8e6a64ba4a50aeb0b57e3ead666 100644 (file)
--- 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)