Simplify lisp code a bit

diff --git a/lisp/eweouz.el b/lisp/eweouz.el
index ed9242f7b122ff7fd004751b3c5846662059c753..8f196bcc1a7b0938d77ef025a7474ec5bc5f1f1e 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* ((name (car record))
+        (email (cdr record)))
+    (message (format "%s" record))
     (call-process eweouz-write-path nil nil nil "--id" "new" "--full-name" name
                  "--emails" email)))