newsletter: allow sending only if write permission

support/doctype/newsletter/newsletter.js

@@ -16,7 +16,8 @@
 
 cur_frm.cscript.refresh = function(doc) {
 	erpnext.hide_naming_series();
-	if(!doc.__islocal && !cint(doc.email_sent) && !doc.__unsaved) {
+	if(!doc.__islocal && !cint(doc.email_sent) && !doc.__unsaved
+			&& inList(wn.boot.can_write, doc.doctype)) {
 		cur_frm.add_custom_button('Send', function() {
 			$c_obj(make_doclist(doc.doctype, doc.name), 'send_emails', '', function(r) {
 				cur_frm.refresh();

support/doctype/newsletter/newsletter.txt

@@ -4,7 +4,7 @@
   "docstatus": 0, 
   "creation": "2013-01-01 13:46:34", 
   "modified_by": "Administrator", 
-  "modified": "2013-01-02 13:03:29"
+  "modified": "2013-01-02 13:47:36"
  }, 
  {
   "autoname": "naming_series:",