Release the version for No Gnus v0.6.

[elisp/gnus-doc-ja.git] / infohack.el

diff --git a/infohack.el b/infohack.el
index 2215304..71f3e02 100644 (file)
--- a/infohack.el
+++ b/infohack.el
@@ -164,7 +164,14 @@ Both characters must have the same length of multi-byte form."
                          (beginning-of-line)
                          (delete-region (point) (save-excursion
                                                   (forward-line 1)
-                                                  (point))))))))))
+                                                  (point)))))
+                   (goto-char (point-min))
+                   ;; Remove `@node' line having appeared in parent file.
+                   (if (re-search-forward
+                        "^@node GNU Free Documentation License" nil t)
+                       (let ((start (match-beginning 0)))
+                         (forward-line 1)
+                         (delete-region start (point)))))))))
          ;; Remove ignored areas.
          (goto-char (point-min))
          (while (re-search-forward "^@ignore[\t\r ]*$" nil t)