 
 (defun olm-hide-entry-id-line ()
   (interactive)
+  (let ((inhibit-read-only t))
+    (put-text-property (progn
+                         (goto-char (point-min))
+                         (point))
+                       (line-end-position)
+                       'read-only
+                       nil))
   (save-excursion    
     (narrow-to-region (progn
                         (goto-line 2)

      (goto-line n)
      (buffer-substring (line-beginning-position) (line-end-position)))))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;

  (delete-other-windows-vertically)
  (let* ((ln0 (line-number-at-pos))
         (msg-window (split-window-below 12))
         (entry-id (progn
                     (goto-line ln0)
                     (olm-mail-item-entry-id-at))))
    (olm-open-message entry-id msg-window))
  (olm-summary-mark-message-as-read))

(defun olm-summary-mark-message-as-read ()
  (interactive)
