"FCC" -> "Fcc"

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 7cb0994..9b37ef4 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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"))