From 7be1278d45c0965a3380dd76e58f864d85d7034c Mon Sep 17 00:00:00 2001 From: Tollef Fog Heen Date: Mon, 1 Sep 2008 13:47:10 +0200 Subject: [PATCH] Simplify lisp code a bit --- lisp/eweouz.el | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/lisp/eweouz.el b/lisp/eweouz.el index ed9242f..8f196bc 100644 --- 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))) -- 2.39.5