From: yoichi <yoichi>
Date: Thu, 21 Mar 2002 15:30:48 +0000 (+0000)
Subject: "FCC" -> "Fcc"
X-Git-Tag: elmo-mark-root~240
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b4dd31c7f67d5f132fe3ef7073cc1690ee7d6d23;p=elisp%2Fwanderlust.git

"FCC" -> "Fcc"
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 7cb0994..9b37ef4 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2002-03-21  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl-vars.el (wl-draft-fields): "FCC" -> "Fcc".
+	* wl-address.el (wl-folder-complete-header-regexp): Ditto.
+
 2002-03-20  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* wl.el (wl-check-environment): Don't check Message-ID when
diff --git a/wl/wl-address.el b/wl/wl-address.el
index 13751c6..d936011 100644
--- a/wl/wl-address.el
+++ b/wl/wl-address.el
@@ -39,7 +39,7 @@
 
 (defvar wl-address-complete-header-regexp "^\\(To\\|From\\|Cc\\|Bcc\\|Mail-Followup-To\\|Reply-To\\|Return-Receipt-To\\):")
 (defvar wl-newsgroups-complete-header-regexp "^\\(Newsgroups\\|Followup-To\\):")
-(defvar wl-folder-complete-header-regexp "^\\(FCC\\):")
+(defvar wl-folder-complete-header-regexp "^\\(Fcc\\):")
 (defvar wl-address-list nil)
 (defvar wl-address-completion-list nil)
 (defvar wl-address-petname-hash nil)
diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index d4a5282..e119bbd 100644
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -927,7 +927,7 @@ This can either be a regular expression or list of regular expressions."
   :group 'wl-score)
 
 (defcustom wl-draft-fields
-  '("To:" "Cc:" "Bcc:" "FCC:" "Distribution:" "Organization:"
+  '("To:" "Cc:" "Bcc:" "Fcc:" "Distribution:" "Organization:"
     "Newsgroups:" "Followup-To:" "Mail-Followup-To:" "From:" "Reply-To:")
   "Fields used in draft mode."
   :type '(repeat (string :tag "Field"))