diff --git a/mu4e/mu4e-headers.el b/mu4e/mu4e-headers.el
index cd6b0102..cceb97e7 100644
--- a/mu4e/mu4e-headers.el
+++ b/mu4e/mu4e-headers.el
@@ -674,7 +674,7 @@ adding a lot of new headers looks really choppy."
 at the beginning of lines to identify headers."
   (propertize (format "%s%d%s"
 		mu4e~headers-docid-pre docid mu4e~headers-docid-post)
-    'docid docid 'invisible t))
+    'docid docid 'invisible t));; 
 
 (defsubst mu4e~headers-docid-at-point (&optional point)
   "Get the docid for the header at POINT, or at current (point) if
diff --git a/mu4e/mu4e-message.el b/mu4e/mu4e-message.el
index 4d3a3ee7..698c48e8 100644
--- a/mu4e/mu4e-message.el
+++ b/mu4e/mu4e-message.el
@@ -100,27 +100,7 @@ there is no message at point."
     (if msg
       msg
       (unless noerror (mu4e-warn "No message at point")))))
-
-
-;; (defun mu4e-message-for-each (msg field func)
-;;   "Call FUNC for each element in the field FIELD (which must be a
-;; lists-type field). FUNC takes the element as its arg."
-;;   (let ((lst (mu4e-message-field msg field)))
-;;     (unless (listp lst)
-;;       (error "Not a list type"))
-;;     (dolist (elm (mu4e-message-field msg field))
-;;       (funcall func elm))))
-
-;; (defun mu4e-message-for-each-contact-field (msg field func)
-;;   "Call FUNC for each element of contact
-;; FIELD (:to, :cc, :bcc, :from). FUNC takes two args, strings
-;; name (possibly nil) and an email address."
-;;   (unless (member field '(:to :from :bcc :cc))
-;;     (error "Not a contacts field"))
-;;   (mu4e-message-for-each msg field
-;;     (lambda (contact)
-;;       (funcall func (car contact) (cdr contact)))))
-
+ 
 (defun mu4e-message-body-text (msg)
   "Get the body in text form for this message, which is either :body-txt,
 or if not available, :body-html converted to text. By default, it