Add icon options to dwpost function

custom/dwpost.el

@@ -1,5 +1,5 @@
-(defun dwpost (psubject tags)
-  (interactive "MPost title (REQUIRED): \nMTags (comma-separated): ")
+(defun dwpost (psubject tags icon)
+  (interactive "MPost title (REQUIRED): \nMTags (comma-separated): \nMIcon: ")
   (let ((org-export-with-author 'nil)
 	(org-export-with-creator 'nil)
 	(org-export-with-date 'nil)
@@ -19,14 +19,15 @@
   (compose-mail "tobli+0397@post.dreamwidth.org" psubject)
   (with-current-buffer "*unsent mail to tobli*"
     (insert (concat "post-tags: org-export, "tags "\n\n"))
+    (insert (concat "post-icon: "icon "\n\n"))
     (insert-file-contents newname)
     (message-send-and-exit))
   (kill-buffer "*sent mail to tobli*")
   (with-current-buffer oldname
     (delete-file newname)))
 
-(defun dwpost-public (psubject tags)
-  (interactive "MPost title (REQUIRED): \nMTags (comma-separated): ")
+(defun dwpost-public (psubject tags icon)
+  (interactive "MPost title (REQUIRED): \nMTags (comma-separated): \nMIcon: ")
   (let ((org-export-with-author 'nil)
 	(org-export-with-creator 'nil)
 	(org-export-with-date 'nil)
@@ -47,14 +48,15 @@
   (with-current-buffer "*unsent mail to tobli*"
     (insert "post-security: public\n")
     (insert (concat "post-tags: org-export, "tags "\n\n"))
+    (insert (concat "post-icon: "icon "\n\n"))
     (insert-file-contents newname)
     (message-send-and-exit))
   (kill-buffer "*sent mail to tobli*")
   (with-current-buffer oldname
     (delete-file newname)))
 
-(defun dwpost-access (psubject tags)
-  (interactive "MPost title (REQUIRED): \nMTags (comma-separated): ")
+(defun dwpost-access (psubject tags icon)
+  (interactive "MPost title (REQUIRED): \nMTags (comma-separated): \nMIcon: ")
   (let ((org-export-with-author 'nil)
 	(org-export-with-creator 'nil)
 	(org-export-with-date 'nil)
@@ -75,14 +77,15 @@
   (with-current-buffer "*unsent mail to tobli*"
     (insert "post-security: access\n")
     (insert (concat "post-tags: org-export, "tags "\n\n"))
+    (insert (concat "post-icon: "icon "\n\n"))
     (insert-file-contents newname)
     (message-send-and-exit))
   (kill-buffer "*sent mail to tobli*")
   (with-current-buffer oldname
     (delete-file newname)))
 
-(defun dwpost-me (psubject tags)
-  (interactive "MPost title (REQUIRED): \nMTags (comma-separated): ")
+(defun dwpost-me (psubject tags icon)
+  (interactive "MPost title (REQUIRED): \nMTags (comma-separated): \nMIcon: ")
   (let ((org-export-with-author 'nil)
 	(org-export-with-creator 'nil)
 	(org-export-with-date 'nil)
@@ -103,6 +106,7 @@
   (with-current-buffer "*unsent mail to tobli*"
     (insert "post-security: private\n")
     (insert (concat "post-tags: org-export, "tags "\n\n"))
+    (insert (concat "post-icon: "icon "\n\n"))
     (insert-file-contents newname)
     (message-send-and-exit))
   (kill-buffer "*sent mail to tobli*")