email-eww

commit 7b6f766fddc3f4fcc9028db8bc61d0dfad126bef
parent e7402e2a20cba06fa09743226a526db6a8b11c74
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sun, 18 Jun 2023 01:03:18 +0200

add email-eww-from

Diffstat:
M
email-eww.el
 | 
10
++++++++--

1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/email-eww.el b/email-eww.el
@@ -11,6 +11,12 @@
 ;;; Inspired by
 ;;; http://kitchingroup.cheme.cmu.edu/blog/2014/06/08/Better-integration-of-org-mode-and-email/
 
+(defcustom email-eww-from
+  ""
+  "Sender email address."
+  :group 'email-eww
+  :type 'string)
+
 (defcustom email-eww-to
   ""
   "Recipient email address."
@@ -24,7 +30,7 @@
         (title (or (plist-get eww-data :title)
                    (buffer-name (current-buffer))))
         (url (plist-get eww-data :url)))
-    (compose-mail email-eww-to title)
+    (compose-mail email-eww-to title `(("From" . ,email-eww-from)))
     (message-goto-body)
     (when url
       (insert url)
@@ -112,7 +118,7 @@
         (title (or (plist-get eww-data :title)
                    (buffer-name (current-buffer))))
         (url (plist-get eww-data :url)))
-    (compose-mail email-eww-to title)
+    (compose-mail email-eww-to title `(("From" . ,email-eww-from)))
     (message-goto-body)
     (when url
       (insert url)