Remove mail capture templates

1 files changed, 4 insertions, 45 deletions

diff --git a/config.org b/config.org
index 402b45c..fdabc7f 100644
--- a/config.org
+++ b/config.org
@@ -568,14 +568,6 @@ If we enable this, emphasis markers will be hidden for a more word processor fee
 #+end_src
 
 #+begin_src elisp
-  (defun noa/org-capture-get-mail-body ()
-    "Returns the body of the current mail shown in rmail buffer as a string.  For us during org-capture."
-    (with-current-buffer (org-capture-get :original-buffer)
-      (save-excursion
-        (goto-char (point-min))
-        (search-forward "\n\n")
-        (buffer-substring-no-properties (point) (point-max)))))
-
   (setopt org-startup-with-inline-images t)
   (setopt org-image-actual-width '(300))
   (setopt org-auto-align-tags nil)
@@ -594,43 +586,10 @@ If we enable this, emphasis markers will be hidden for a more word processor fee
   (setopt org-agenda-files '("~/data/notes/notes.org"))
   (setopt org-capture-bookmark nil)
   (setopt org-capture-templates
-          '(("j" "Journal" entry (file+olp+datetree "~/data/notes/notes.org") "* %?\n" :empty-lines 1)
-            
-            ("l" "Website" entry (file+olp+datetree "~/data/notes/notes.org") "* %a\n%?\n" :empty-lines 1)
-            
-            ("M" "Mail" entry (file+olp+datetree "~/data/notes/notes.org") "* %:fromname—%:subject :mail:%^g
-      :PROPERTIES:
-      :MAIL_TO: %:to
-      :MAIL_FROM: %:from
-      :MAIL_DATE: %:date
-      :MAIL_SUBJECT: %:subject
-      :MAIL_MESSAGE_ID: %:message-id
-      :END:
-
-      %?%(noa/org-capture-get-mail-body)\n" :empty-lines 1 :immediate-finish t)
-            
-            ("m" "Compose mail" entry (file+olp+datetree "~/data/notes/notes.org") "* Email
-  :PROPERTIES:
-  :MAIL_TO: %?
-  :MAIL_SUBJECT:
-  :MAIL_FROM: noa <noa@noa.pub>
-  :END:"
-             :empty-lines 1
-             :jump-to-captured t
-             :immediate-finish t
-             )
-            
-            ("r" "Reply to this mail" entry (file+olp+datetree "~/data/notes/notes.org") "* TODO Reply to %:fromname—%:subject :mail:
-  :PROPERTIES:
-  :MAIL_TO: %:from
-  :MAIL_FROM: %:to
-  :MAIL_SUBJECT: %:subject
-  :MAIL_IN_REPLY_TO: %:message-id
-  :END:
-
-  %?%(noa/org-capture-get-mail-body)\n"
-             :empty-lines 1
-             :immediate-finish t)))
+	  '(("j" "Journal" entry (file+olp+datetree "~/data/notes/notes.org") "* %?\n" :empty-lines 1)
+
+	    ("l" "Website" entry (file+olp+datetree "~/data/notes/notes.org") "* %a\n%?\n" :empty-lines 1)
+	    ))
 #+end_src
 
 #+begin_src elisp