Merge branch 'master' of git+ssh://git.err.no/srv/git.err.no/www/eweouz

[eweouz] / lisp / eweouz.el

diff --git a/lisp/eweouz.el b/lisp/eweouz.el
index 8ae3f8746d801b65177fb8ca81b33e840d5aec49..91e24cd363e0a27f442bb7e8626981403e4580c1 100644 (file)
--- a/lisp/eweouz.el
+++ b/lisp/eweouz.el
@@ -143,18 +143,15 @@
 (defun eweouz-add-sender ()
   "Add sender of current message"
   (interactive)
-
   (save-excursion
     (set-buffer gnus-article-buffer)
-    (let* ((from (mail-header-parse-address (gnus-fetch-field "From")))
-          (record (list (cons 'email (car from))
-                        (cons 'name (cdr from)))))
-      (eweouz-do-add record))))
+    (eweouz-do-add (mail-header-parse-address (gnus-fetch-field "From")))))
 
 (defun eweouz-do-add (record)
   (interactive)
-  (let* ((name (cdr (assoc 'name record)))
-        (email (cdr (assoc 'email record))))
+  (let* ((email (car record))
+        (name (cdr record)))
+    (message (format "%s" record))
     (call-process eweouz-write-path nil nil nil "--id" "new" "--full-name" name
                  "--emails" email)))