Move ';;; Code:' comment.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 5fbe1c5..571166f 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,9 @@
 2008-02-19  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+       * elmo-flag.el: Move ';;; Code:' comment.
+       * elmo-imap4.el: Ditto.
+       * elmo-net.el: Ditto.
+
        * elmo-version.el (product-provide): Fix comment.
 
 2008-02-18  TAKAHASHI Kaoru  <kaoru@kaisei.org>

diff --git a/elmo/elmo-flag.el b/elmo/elmo-flag.el
index 09d82ba..b7e4e71 100644 (file)
--- a/elmo/elmo-flag.el
+++ b/elmo/elmo-flag.el
@@ -25,11 +25,12 @@
 
 ;;; Commentary:
 ;;
+
+;;; Code:
 (require 'elmo-util)
 (require 'elmo-localdir)
 (eval-when-compile (require 'cl))
 
-;;; Code:
 (defcustom elmo-global-flags '(important)
   "A list of flag symbol which is managed globally by the flag folder."
   :type '(repeat symbol)

diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index ca2b4ab..6bd10f5 100644 (file)
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -38,6 +38,7 @@
 ;;    Author: Simon Josefsson <jas@pdc.kth.se>
 ;;
 
+;;; Code:
 (require 'elmo-vars)
 (require 'elmo-util)
 (require 'elmo-date)
@@ -48,7 +49,6 @@
 (require 'utf7)
 (require 'elmo-mime)
 
-;;; Code:
 (eval-when-compile (require 'cl))
 
 (defvar elmo-imap4-disuse-server-flag-mailbox-regexp "^#mh" ; UW imapd

diff --git a/elmo/elmo-net.el b/elmo/elmo-net.el
index 67e3970..7abbd79 100644 (file)
--- a/elmo/elmo-net.el
+++ b/elmo/elmo-net.el
@@ -26,6 +26,8 @@
 ;;; Commentary:
 ;;
 
+;;; Code:
+;;
 (eval-when-compile (require 'cl))
 
 (require 'elmo-util)
@@ -34,9 +36,6 @@
 (require 'elmo-cache)
 (require 'elmo)
 
-;;; Code:
-;;
-
 (defconst elmo-net-folder-name-syntax '((?@ [server ".+"])
                                        (?: [port "^[0-9]+$"])
                                        (?! stream-type)))