Show empty lines after folding the archive sibling.

lisp/ChangeLog

@@ -1,5 +1,8 @@
 2008-09-07  Carsten Dominik  <dominik@science.uva.nl>
 
+	* org-archive.el (org-archive-to-archive-sibling): Show empty
+	lines after folding the archive sibling.
+
 	* org.el (org-log-note-extra): New variable.
 
 2008-09-05  Bastien Guerry  <bzg@altern.org>

lisp/org-archive.el

@@ -353,6 +353,7 @@ sibling does not exist, it will be created at the end of the subtree."
 	(current-time)))
       (outline-up-heading 1 t)
       (hide-subtree)
+      (org-cycle-show-empty-lines 'folded)
       (goto-char pos))))
 
 (defun org-archive-all-done (&optional tag)