From: kaoru Date: Tue, 19 Feb 2008 10:54:39 +0000 (+0000) Subject: Move ';;; Code:' comment. X-Git-Tag: wl-2_15_6-fixes~34 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2398b1df142250be96cc582d7ec4fc2d7de17601;p=elisp%2Fwanderlust.git Move ';;; Code:' comment. --- diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 5fbe1c5..571166f 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,5 +1,9 @@ 2008-02-19 TAKAHASHI Kaoru + * 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 diff --git a/elmo/elmo-flag.el b/elmo/elmo-flag.el index 09d82ba..b7e4e71 100644 --- 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 --- a/elmo/elmo-imap4.el +++ b/elmo/elmo-imap4.el @@ -38,6 +38,7 @@ ;; Author: Simon Josefsson ;; +;;; 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 --- 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)))