From: David Bremner <bremner@unb.ca>
Date: Wed, 3 Sep 2008 23:11:59 +0000 (-0300)
Subject: bug fix for undisplayed messages in wl, update for new interface eweouz-do-add
X-Git-Tag: 0.3~8
X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=553ccb69967dd5989820ddd49ff822623611f86c;p=eweouz

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 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)