From 5af36decbb7ca1b08dcc49dfc8907b4c9d11c210 Mon Sep 17 00:00:00 2001 From: yoichi Date: Wed, 23 Jan 2002 15:09:57 +0000 Subject: [PATCH] * elmo-localnews.el (elmo-localnews-folder-path): Moved from elmo-vars.el. * elmo-maildir.el (elmo-maildir-folder-path): Ditto. --- elmo/ChangeLog | 10 ++++++++++ elmo/elmo-localnews.el | 5 +++++ elmo/elmo-maildir.el | 5 +++++ elmo/elmo-vars.el | 13 +------------ 4 files changed, 21 insertions(+), 12 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 7d9a854..c755402 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,13 @@ +2002-01-23 Yoichi NAKAYAMA + + * elmo-localnews.el (elmo-localnews-folder-path): Moved from + elmo-vars.el. + * elmo-maildir.el (elmo-maildir-folder-path): Ditto. + + * elmo-vars.el (elmo-localnews-folder-path): Removed. + (elmo-maildir-folder-path): Ditto. + (elmo-maildir-list): Ditto (abolished). + 2002-01-23 Kenichi OKADA * elmo-version.el (elmo-version): Up to 2.9.6. diff --git a/elmo/elmo-localnews.el b/elmo/elmo-localnews.el index 6908d81..8d533e3 100644 --- a/elmo/elmo-localnews.el +++ b/elmo/elmo-localnews.el @@ -32,6 +32,11 @@ ;; (require 'elmo-localdir) +(defcustom elmo-localnews-folder-path "~/News" + "*Local news folder path." + :type 'directory + :group 'elmo) + (eval-and-compile (luna-define-class elmo-localnews-folder (elmo-localdir-folder) (group)) (luna-define-internal-accessors 'elmo-localnews-folder)) diff --git a/elmo/elmo-maildir.el b/elmo/elmo-maildir.el index 0a91115..8ff700d 100644 --- a/elmo/elmo-maildir.el +++ b/elmo/elmo-maildir.el @@ -35,6 +35,11 @@ (require 'elmo) (require 'elmo-map) +(defcustom elmo-maildir-folder-path "~/Maildir" + "*Maildir folder path." + :type 'directory + :group 'elmo) + ;;; ELMO Maildir folder (eval-and-compile (luna-define-class elmo-maildir-folder diff --git a/elmo/elmo-vars.el b/elmo/elmo-vars.el index b9550a8..2a6e0ae 100644 --- a/elmo/elmo-vars.el +++ b/elmo/elmo-vars.el @@ -47,18 +47,7 @@ :prefix "elmo-" :group 'elmo) -;; Local -(defcustom elmo-localnews-folder-path "~/News" - "*Local news folder path." - :type 'directory - :group 'elmo) -(defcustom elmo-maildir-folder-path "~/Maildir" - "*Maildir folder path." - :type 'directory - :group 'elmo) -(defvar elmo-maildir-list '("\\+~/Maildir") - "*All Folders that match this list will be treated as Maildir. -Each elements are regexp of folder name (This is obsolete).") +;; Message Database (defvar elmo-msgdb-file-header-chop-length 2048 "*Number of bytes to get header in one reading from file.") -- 1.7.10.4